Merge pull request #2759 from mrdudz/test1972
Fixed #1970 (Missing definition for ST on cbm610 with getdevice) (was #1972)
This commit is contained in:
@@ -10,9 +10,9 @@
|
||||
.import BSOUT
|
||||
.import __MAIN_START__, __MAIN_SIZE__ ; Linker generated
|
||||
.import __STACKSIZE__ ; from configure file
|
||||
.importzp ST
|
||||
|
||||
.include "zeropage.inc"
|
||||
.include "c64.inc"
|
||||
|
||||
|
||||
; ------------------------------------------------------------------------
|
||||
@@ -62,7 +62,7 @@ L2: lda zpsave,x
|
||||
; Place the program return code into BASIC's status variable.
|
||||
|
||||
pla
|
||||
sta ST
|
||||
sta STATUS
|
||||
|
||||
; Restore the system stuff.
|
||||
|
||||
|
||||
@@ -1,5 +1,15 @@
|
||||
;
|
||||
; Oliver Schmidt, 2012-09-30
|
||||
; Stefan Haubenthal, 2023-01-16
|
||||
;
|
||||
|
||||
.exportzp ST := $90 ; IEC status byte
|
||||
.export initst
|
||||
|
||||
.include "c64.inc"
|
||||
|
||||
.proc initst
|
||||
|
||||
lda #$00
|
||||
sta STATUS
|
||||
rts
|
||||
|
||||
.endproc
|
||||
|
||||
Reference in New Issue
Block a user