msbasic/message.s

65 lines
880 B
ArmAsm
Raw Normal View History

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