git.sur5r.net Git - cc65/blob - libsrc/cbm510/kreadst.s

   1 ;
   2 ; Ullrich von Bassewitz, 2003-12-19
   3 ;
   4 ; READST kernal call
   5 ;
   6
   7         .export         READST
   8
   9         .import         sys_bank, restore_bank
  10         .import         sysp0: zp, ktmp: zp
  11
  12         .include        "cbm510.inc"
  13
  14
  15 .proc   READST
  16
  17         jsr     sys_bank
  18         sty     ktmp                    ; Save Y register
  19         ldy     #$9C                    ; STATUS
  20         lda     (sysp0),y               ; Load STATUS from system bank
  21         ldy     ktmp
  22         jmp     restore_bank            ; Will set condition codes on A
  23
  24 .endproc
  25
  26