message.a65
1:
2:
3: LMESSAGES:
4:
5: StrIoError:
6: .byte ASC_CR
7: htasc "I/O ERROR #"
8:
9: StrSearching:
10: .byte ASC_CR
11: htasc "SEARCHING "
12:
13: StrFor:
14: htasc "FOR "
15:
16: StrPlay:
17:
18: .ifdef JIFFY
19:
20: StrRecPlay = $F0EB
21:
22: JDLF0D8:
23: lda #$00
24: sta VIC + VICII_O_SprEnable
25: @JDLF0DD:
26: adc #$01
27: bne @JDLF0DD
28: rts
29:
30: JDLF0E2:
31: lda zPTR2
32: JDLF0E4:
33: pha
34: jsr kCLRCHN
35: pla
36: tax
37: jmp kCHKIN
38:
39: JDLF0ED:
40: lda #$00
41: sta zTSFCNT
42: jmp IecDataClear
43:
44: JDLF0F4:
45: txa
46: pha
47: jsr JDLF7A2
48: pla
49: tax
50: @JDLF0FB:
51: lda JDLF398,x
52: jsr kCHROUT
53: inx
54: dey
55: bne @JDLF0FB
56: rts
57:
58: .else
59:
60: .if CompileComputer = C64_SX64
61:
62:
63:
64:
65:
66: TEXT_LOAD_8_RUN:
67: .byte "LOAD",'"',":*",'"',",8",ASC_CR
68: .byte "RUN",ASC_CR
69: END_TEXT_LOAD_8_RUN:
70:
71: .else
72: .byte ASC_CR,"PRESS PLAY ON "
73: .endif
74: htasc "TAPE"
75:
76: StrRecPlay:
77: htasc "PRESS RECORD & PLAY ON TAPE"
78:
79: .endif
80:
81: StrLoading:
82: .byte ASC_CR
83: htasc "LOADING"
84:
85: StrSaving:
86: .byte ASC_CR
87: htasc "SAVING "
88:
89: StrVerifying:
90: .byte ASC_CR
91: htasc "VERIFYING"
92:
93: StrFound:
94: .byte ASC_CR
95: htasc "FOUND "
96: StrOk:
97: .byte ASC_CR,"OK",ASC_CR + $80
98:
99:
100: OutputMessageIfAllowed:
101: bit zNSGFLG
102: bpl OutputMessage_ClcRts
103:
104: OutputMessage:
105: lda LMESSAGES,y
106: php
107:
108: and #$7F
109: jsr kCHROUT
110: iny
111:
112: plp
113: bpl OutputMessage
114:
115: OutputMessage_ClcRts:
116: clc
117: rts
118:

message.a65.html; generated on Fri Sep 18 21:44:54 2015 by ca65html
uz@cc65.org