more error return routines in Kernal
This commit is contained in:
1 parent
a1d3c74a0d
commit
e42f63f190
1 file changed
+47
@@ -1,6 +1,53 @@
|
|||||||
|
|
||||||
|
;; Kernal error codes are described in 'Commodore 64 Programmer's Reference Guide', page 306
|
||||||
|
|
||||||
|
kernalerror_common:
|
||||||
|
sta DFLTN
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
|
||||||
|
kernalerror_ROUTINE_TERMINATED: ; by a STOP key
|
||||||
|
lda #$00
|
||||||
|
jmp kernalerror_common
|
||||||
|
|
||||||
|
kernalerror_TOO_MANY_OPEN_FILES:
|
||||||
|
lda #$01
|
||||||
|
jmp kernalerror_common
|
||||||
|
|
||||||
|
kernalerror_FILE_ALREADY_OPEN:
|
||||||
|
lda #$02
|
||||||
|
jmp kernalerror_common
|
||||||
|
|
||||||
|
kernalerror_FILE_NOT_OPEN:
|
||||||
|
lda #$03
|
||||||
|
jmp kernalerror_common
|
||||||
|
|
||||||
|
kernalerror_FILE_NOT_FOUND:
|
||||||
|
lda #$04
|
||||||
|
jmp kernalerror_common
|
||||||
|
|
||||||
kernalerror_DEVICE_NOT_FOUND:
|
kernalerror_DEVICE_NOT_FOUND:
|
||||||
lda #$05
|
lda #$05
|
||||||
|
jmp kernalerror_common
|
||||||
|
|
||||||
|
kernalerror_FILE_NOT_INPUT:
|
||||||
|
lda #$06
|
||||||
|
jmp kernalerror_common
|
||||||
|
|
||||||
|
kernalerror_FILE_NOT_OUTPUT:
|
||||||
|
lda #$07
|
||||||
|
jmp kernalerror_common
|
||||||
|
|
||||||
|
kernalerror_FILE_NAME_MISSING:
|
||||||
|
lda #$08
|
||||||
|
jmp kernalerror_common
|
||||||
|
|
||||||
|
kernalerror_ILLEGAL_DEVICE_NUMBER:
|
||||||
|
lda #$09
|
||||||
|
jmp kernalerror_common
|
||||||
|
|
||||||
|
kernalerror_TOP_MEM_RS232:
|
||||||
|
lda #$F0
|
||||||
|
sta RSSTAT
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
Reference in new issue
Block a user