2008-10-16 06:53:45 +00:00
|
|
|
; global messages: "error", "in", "ready", "break"
|
|
|
|
|
|
2008-10-13 02:05:35 +00:00
|
|
|
.segment "CODE"
|
|
|
|
|
|
2008-10-16 06:53:45 +00:00
|
|
|
CR=13
|
|
|
|
|
LF=10
|
|
|
|
|
|
2008-10-13 02:05:35 +00:00
|
|
|
QT_ERROR:
|
|
|
|
|
.ifdef KBD
|
|
|
|
|
.byte " err"
|
|
|
|
|
.else
|
2008-10-16 06:53:45 +00:00
|
|
|
.ifdef APPLE
|
2008-10-13 02:05:35 +00:00
|
|
|
.byte " ERR"
|
|
|
|
|
.byte $07,$07
|
2008-10-16 06:53:45 +00:00
|
|
|
.else
|
2008-10-13 02:05:35 +00:00
|
|
|
.byte " ERROR"
|
2008-10-16 06:53:45 +00:00
|
|
|
.endif
|
2008-10-13 02:05:35 +00:00
|
|
|
.endif
|
2008-10-16 06:53:45 +00:00
|
|
|
.byte 0
|
|
|
|
|
|
2008-10-13 02:05:35 +00:00
|
|
|
.ifndef KBD
|
|
|
|
|
QT_IN:
|
|
|
|
|
.byte " IN "
|
|
|
|
|
.byte $00
|
|
|
|
|
.endif
|
2008-10-16 06:53:45 +00:00
|
|
|
|
|
|
|
|
.ifdef KBD
|
2008-10-13 02:05:35 +00:00
|
|
|
.byte $54,$D2 ; ???
|
|
|
|
|
OKPRT:
|
|
|
|
|
jsr LDE42
|
2008-10-16 06:53:45 +00:00
|
|
|
.byte CR,CR,">>",CR,LF
|
|
|
|
|
.byte 0
|
2008-10-13 02:05:35 +00:00
|
|
|
rts
|
|
|
|
|
nop
|
2008-10-16 06:53:45 +00:00
|
|
|
.else
|
|
|
|
|
QT_OK:
|
|
|
|
|
.ifdef CONFIG_CBM_ALL
|
|
|
|
|
.byte CR,LF,"READY.",CR,LF
|
|
|
|
|
.else
|
|
|
|
|
.ifdef APPLE
|
|
|
|
|
; binary patch!
|
|
|
|
|
.byte CR,0,0,"K",CR,LF
|
|
|
|
|
.else
|
|
|
|
|
.byte CR,LF,"OK",CR,LF
|
|
|
|
|
.endif
|
|
|
|
|
.endif
|
|
|
|
|
.byte 0
|
2008-10-13 02:05:35 +00:00
|
|
|
.endif
|
2008-10-16 06:53:45 +00:00
|
|
|
|
2008-10-13 02:05:35 +00:00
|
|
|
QT_BREAK:
|
2008-10-16 06:53:45 +00:00
|
|
|
|
2008-10-13 02:05:35 +00:00
|
|
|
.ifdef KBD
|
2008-10-16 06:53:45 +00:00
|
|
|
.byte CR,LF," Brk"
|
|
|
|
|
.byte 0
|
2008-10-13 02:05:35 +00:00
|
|
|
.byte $54,$D0 ; ???
|
|
|
|
|
.else
|
2008-10-13 20:26:42 +00:00
|
|
|
.ifdef MICROTAN
|
2008-10-16 06:53:45 +00:00
|
|
|
.byte CR,LF," BREAK"
|
|
|
|
|
.byte 0
|
|
|
|
|
.else
|
|
|
|
|
.byte CR,LF,"BREAK"
|
|
|
|
|
.byte 0
|
2008-10-13 20:26:42 +00:00
|
|
|
.endif
|
2008-10-13 02:05:35 +00:00
|
|
|
.endif
|
