Mercurial > hg > Members > kono > os9 > sbc09
annotate game09/game09.asm @ 114:bc9f2f443421
fix
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Tue, 01 Jan 2019 08:55:44 +0900 |
| parents | a8b7dfc1baf5 |
| children | 6be44b5de445 |
| rev | line source |
|---|---|
| 69 | 1 * |
| 2 * GAME09 interpreter | |
| 3 * | |
| 4 | |
| 70 | 5 ifp1 |
| 6 use defsfile | |
| 7 endc | |
| 69 | 8 |
| 70 | 9 nam Game09 |
| 10 ttl Game09 | |
| 11 tylg set Prgrm+Objct | |
| 12 atrv set ReEnt+rev | |
| 13 rev set $01 | |
| 71 | 14 edition set 1 |
| 69 | 15 |
| 70 | 16 mod eom,name,tylg,atrv,start,size |
| 69 | 17 |
| 70 | 18 |
| 19 org 0 | |
| 20 dpage rmb $96 | |
| 69 | 21 |
| 70 | 22 DP00 equ $00 |
| 82 | 23 VAROFS equ $04 variabble base 'A'-'Z' until $36 |
| 24 DP38 equ $38 variable end | |
| 73 | 25 DP42 equ $42 program copy pointer |
| 82 | 26 DP44 equ $44 variable 'a'-'z' until $76 |
| 27 DP48 equ $48 """ | |
| 28 DP4A equ $4A "#" next line no | |
| 70 | 29 DP4B equ $4B |
| 82 | 30 DP4E equ $4E "%" |
| 70 | 31 DP4F equ $4F |
| 112 | 32 DP50 equ $50 "&" program end |
| 70 | 33 DP52 equ $52 |
| 73 | 34 DP58 equ $58 program max |
| 112 | 35 DP7C equ $7C |
| 36 DP7E equ $7E "=" program top | |
| 82 | 37 DP82 equ $82 "@" |
| 70 | 38 DP83 equ $83 |
|
113
a8b7dfc1baf5
program code switch in game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
112
diff
changeset
|
39 DP84 equ $84 rvalue pointer |
| 73 | 40 DP86 equ $86 input line (except lineno) |
| 70 | 41 DP88 equ $88 |
| 42 DP8A equ $8A | |
| 43 DP8C equ $8C | |
| 44 DP8D equ $8D | |
| 45 DP8E equ $8E | |
| 46 DP94 equ $94 | |
| 73 | 47 DPWORK rmb 2 $96 |
| 48 DPSTK rmb 2 $98 | |
| 69 | 49 |
| 73 | 50 lineb0 rmb 2 $9A |
| 51 linetop rmb 2 $9C | |
| 52 lineb9a rmb 2 $9E | |
| 53 lineb9b rmb 2 $A0 | |
| 54 lineend rmb 2 $A2 | |
|
78
02120537b90d
fix user stack in game09.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
77
diff
changeset
|
55 ustack rmb 128 |
| 73 | 56 linebuf rmb 252 |
| 114 | 57 program rmb $6000 |
| 70 | 58 size equ . |
| 69 | 59 |
| 71 | 60 name fcs "Game09" |
| 61 fcb edition | |
| 82 | 62 coldstart |
| 71 | 63 start * clrb |
| 64 * os9 F$Exit | |
| 70 | 65 LC000 BRA LC005 |
| 66 LC002 NOP | |
| 82 | 67 LC003 BRA warmst |
| 70 | 68 LC005 TFR U,D |
| 69 | 69 TFR A,DP |
| 70 | 70 STU <DPWORK |
| 71 STS <DPSTK | |
| 72 LEAX program,U | |
| 69 | 73 STX <$7E |
| 74 STX <$50 | |
| 75 LDA #$FF | |
| 76 STA ,X | |
| 82 | 77 warmst LDU <DPWORK |
| 78 LEAX VAROFS,U | |
| 79 STX <VAROFS | |
| 73 | 80 LEAX linebuf-1,U |
| 81 STX <lineb0 | |
| 82 LEAX 1,X | |
| 83 STX <linetop | |
| 84 LEAX 5,X | |
| 85 STX <lineb9a | |
| 86 LEAX 1,X | |
| 87 STX <lineb9b | |
| 88 LEAX 255-6,X | |
| 89 STX <lineend | |
| 70 | 90 LEAX size,U |
| 69 | 91 STX <$58 |
| 70 | 92 LC020 LDA #$FF |
| 69 | 93 STA <$8C |
| 82 | 94 GAMETP LDS <DPSTK |
| 70 | 95 LDU <DPWORK |
|
78
02120537b90d
fix user stack in game09.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
77
diff
changeset
|
96 LEAU linebuf,U user stack |
| 82 | 97 LEAX >PRMPT,PCR |
| 98 LBSR LPRNT | |
| 99 LC032 LBSR GETCLN | |
| 69 | 100 BCS LC06D |
| 101 STX <$42 | |
| 102 LBSR LC1D3 | |
| 82 | 103 BEQ GAMETP |
| 70 | 104 LC03E BSR LC09C |
| 82 | 105 LC040 BMI GAMETP |
| 69 | 106 STX <$42 |
| 70 | 107 LC044 LEAX +$02,X |
| 69 | 108 LDA ,X+ |
| 109 CMPA #$20 | |
| 110 BNE LC05B | |
| 111 LBSR LC1D3 | |
| 112 BNE LC05F | |
| 113 LEAX +$01,X | |
| 114 TST ,X | |
| 115 BRA LC040 | |
| 70 | 116 LC057 LDS <DPSTK |
| 117 LC05B BSR LC0A8 | |
| 69 | 118 BRA LC040 |
| 70 | 119 LC05F LDX <$42 |
| 69 | 120 STX <$84 |
| 121 BSR LC0A0 | |
| 82 | 122 BMI GAMETP |
| 69 | 123 CMPX <$84 |
| 124 BEQ LC03E | |
| 125 BRA LC044 | |
| 70 | 126 LC06D STX <$86 |
| 69 | 127 STD <$4A |
| 128 LDB ,X | |
| 129 CMPB #$2F | |
| 130 BNE LC0B1 | |
| 73 | 131 LC077 BSR LC09C listing |
| 70 | 132 LC079 LBSR LC397 |
| 69 | 133 TST ,X |
| 82 | 134 BMI GAMETP |
| 69 | 135 BSR LC087 |
| 136 LBSR LC173 | |
| 137 BRA LC079 | |
| 70 | 138 LC087 LDD ,X++ |
| 69 | 139 PSHS X |
| 140 LBSR LC443 | |
| 141 PULS X | |
| 82 | 142 LBRA LPRNT |
| 70 | 143 LC093 LDX <$42 |
| 69 | 144 LEAX +$02,X |
| 70 | 145 LC097 TST ,X+ |
| 69 | 146 BNE LC097 |
| 147 RTS | |
| 70 | 148 LC09C LDX <$7E |
| 149 LC09E STX <$42 | |
| 150 LC0A0 LDD ,X | |
| 69 | 151 BMI LC0B0 |
| 152 SUBD <$4A | |
| 153 BCC LC0AF | |
| 70 | 154 LC0A8 LBSR LC173 |
| 69 | 155 BSR LC093 |
| 156 BRA LC09E | |
| 70 | 157 LC0AF CLRA |
| 158 LC0B0 RTS | |
| 159 LC0B1 LDX <$4A | |
| 69 | 160 BEQ LC077 |
| 161 BMI LC117 | |
| 162 LDX <$50 | |
| 163 LDA ,X | |
| 164 INCA | |
| 165 BNE LC117 | |
| 166 BSR LC09C | |
| 167 BMI LC0DE | |
| 168 LDX ,X | |
| 169 CMPX <$4A | |
| 170 BNE LC0DE | |
| 171 BSR LC093 | |
| 172 LDY <$42 | |
| 70 | 173 LC0CD LDA ,X |
| 69 | 174 STA ,Y |
| 175 CMPX <$50 | |
| 176 BEQ LC0DB | |
| 177 LEAX +$01,X | |
| 178 LEAY +$01,Y | |
| 179 BRA LC0CD | |
| 70 | 180 LC0DB STY <$50 |
| 73 | 181 LC0DE LDX <$86 get program line length |
| 69 | 182 LDB #$03 |
| 183 TST ,X+ | |
| 184 BEQ LC114 | |
| 70 | 185 LC0E6 INCB |
| 69 | 186 TST ,X+ |
| 187 BNE LC0E6 | |
| 188 CLRA | |
| 189 ADDD <$50 | |
| 190 TFR D,Y | |
| 191 SUBD <$58 | |
| 192 BCC LC117 | |
| 193 LDX <$50 | |
| 194 STY <$50 | |
| 195 LEAX +$01,X | |
| 196 LEAY +$01,Y | |
| 73 | 197 LC0FD LDB ,-X make insert space |
| 69 | 198 STB ,-Y |
| 199 CMPX <$42 | |
| 200 BNE LC0FD | |
| 201 LDY <$4A | |
| 202 STY ,X++ | |
| 203 LDY <$86 | |
| 70 | 204 LC10E LDB ,Y+ |
| 69 | 205 STB ,X+ |
| 206 BNE LC10E | |
| 70 | 207 LC114 LBRA LC032 |
| 82 | 208 LC117 LBRA GAMETP |
| 71 | 209 LC11A LDX <DPWORK |
| 210 LEAX $8F,X | |
| 69 | 211 TST <$8C |
| 212 BNE LC124 | |
| 73 | 213 LDX <linetop |
| 70 | 214 LC124 LEAY <LC159,PCR |
| 215 LC127 PSHS X | |
| 69 | 216 LDX ,Y++ |
| 217 PSHU X | |
| 218 LBSR LC335 | |
| 219 PULU X | |
| 220 PULS X | |
| 221 PSHS A | |
| 222 LDA <$83 | |
| 223 ADDA #$30 | |
| 224 STA ,X+ | |
| 225 PULS A | |
| 226 TST +$01,Y | |
| 227 BNE LC127 | |
| 228 CLR ,X | |
| 229 COM ,-X | |
| 230 PSHS X | |
| 231 LEAX -$05,X | |
| 232 CLRA | |
| 70 | 233 LC14B LEAX +$01,X |
| 69 | 234 INCA |
| 235 LDB ,X | |
| 236 CMPB #$30 | |
| 237 BEQ LC14B | |
| 238 COM [,S++] | |
| 239 SUBA #$06 | |
| 70 | 240 LC158 RTS |
| 241 LC159 FDB 10000 | |
| 69 | 242 FDB 1000 |
| 243 FDB 100 | |
| 244 FDB 10 | |
| 245 FDB 1 | |
| 246 FDB 0 | |
| 82 | 247 LPRNT CLRA |
| 70 | 248 LC166 STA <$94 |
| 249 LC168 LDB ,X+ | |
| 69 | 250 CMPB <$94 |
| 251 BEQ LC158 | |
| 252 LBSR LC412 | |
| 253 BRA LC168 | |
| 70 | 254 LC173 LBSR LC650 |
| 82 | 255 LBCS GAMETP |
| 69 | 256 RTS |
| 70 | 257 LC17B CMPA #$20 |
| 69 | 258 BEQ LC1D1 |
| 259 CLR <$4A | |
| 260 CLR <$4B | |
| 261 LDB +$01,X | |
| 262 BITB #$DF | |
| 263 BNE LC1A6 | |
| 264 CMPA #$5D | |
| 265 BNE LC195 | |
| 266 PULU X,B,A | |
| 267 STD <$46 | |
| 268 STX <$42 | |
| 269 BRA LC1C6 | |
| 70 | 270 LC195 CMPA #$40 |
| 69 | 271 BNE LC1A6 |
| 272 LEAX +$01,X | |
| 273 STX <$46 | |
| 274 CLRA | |
| 275 CLRB | |
| 276 LDY <$42 | |
| 277 PSHU Y,X,B,A | |
| 278 BRA LC1D3 | |
| 70 | 279 LC1A6 CMPA #$22 |
| 69 | 280 BNE LC1CA |
| 281 LEAX +$01,X | |
| 282 BSR LC166 | |
| 283 BRA LC1D3 | |
| 70 | 284 LC1B0 CMPA #$5C |
| 69 | 285 BNE LC1B9 |
| 286 LBSR LC676 | |
| 287 BRA LC1D3 | |
| 70 | 288 LC1B9 STX <$84 |
| 69 | 289 BSR LC1EC |
|
113
a8b7dfc1baf5
program code switch in game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
112
diff
changeset
|
290 LBSR LVALUE |
| 69 | 291 BSR LC173 |
| 292 LDX <$4A | |
| 293 BNE LC1D7 | |
| 70 | 294 LC1C6 LDX <$46 |
| 69 | 295 BRA LC1D3 |
| 70 | 296 LC1CA CMPA #$2F |
| 69 | 297 BNE LC1B0 |
| 298 LBSR LC397 | |
| 70 | 299 LC1D1 LEAX +$01,X |
| 300 LC1D3 LDA ,X | |
| 69 | 301 BNE LC17B |
| 70 | 302 LC1D7 RTS |
| 303 LC1D8 PSHS A | |
| 69 | 304 LEAX +$01,X |
| 305 BSR LC1F6 | |
| 306 LDX <$46 | |
| 70 | 307 LC1E0 LDY <$42 |
| 69 | 308 PSHU Y,X,B,A |
| 309 PULS PC,B,A | |
| 70 | 310 LC1E7 LDA #$3D |
| 69 | 311 LBRA LC4F9 |
|
113
a8b7dfc1baf5
program code switch in game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
112
diff
changeset
|
312 LC1EC CMPA #$3D |
|
a8b7dfc1baf5
program code switch in game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
112
diff
changeset
|
313 BNE LC1ED |
| 114 | 314 * = assignment ( GAME code top switch ) |
|
113
a8b7dfc1baf5
program code switch in game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
112
diff
changeset
|
315 leax 2,x |
|
a8b7dfc1baf5
program code switch in game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
112
diff
changeset
|
316 lda ,x |
|
a8b7dfc1baf5
program code switch in game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
112
diff
changeset
|
317 lbsr expr |
|
a8b7dfc1baf5
program code switch in game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
112
diff
changeset
|
318 std <$7E |
|
a8b7dfc1baf5
program code switch in game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
112
diff
changeset
|
319 tfr d,x |
| 114 | 320 lploop ldd ,x+ |
| 321 cmpd #$00ff | |
| 322 bne lploop | |
| 323 lpend stx <$50 | |
| 324 ldd <$7e | |
|
113
a8b7dfc1baf5
program code switch in game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
112
diff
changeset
|
325 lbra warmst |
|
a8b7dfc1baf5
program code switch in game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
112
diff
changeset
|
326 LC1ED LDA ,X+ |
| 69 | 327 BITA #$DF |
| 328 BEQ LC1E7 | |
| 329 CMPA #$3D | |
| 330 BNE LC1EC | |
| 82 | 331 LC1F6 LBSR EXPR |
| 70 | 332 LC1F9 PSHS B |
| 69 | 333 LDB ,X |
| 334 BITB #$DF | |
| 335 BEQ LC210 | |
| 336 CMPB #$29 | |
| 337 BEQ LC214 | |
| 338 CMPB #$2C | |
| 339 BEQ LC1D8 | |
| 340 PULS B | |
| 341 LBSR LC29C | |
| 342 BRA LC1F9 | |
| 70 | 343 LC210 STX <$46 |
| 69 | 344 PULS PC,B |
| 70 | 345 LC214 LEAX +$01,X |
| 69 | 346 PULS PC,B |
| 70 | 347 LC218 CMPB #$3F |
| 69 | 348 BNE LC22E |
| 349 PSHS X | |
| 350 STB <$8C | |
| 82 | 351 LBSR GETLIN |
| 69 | 352 BSR LC1F6 |
| 353 PULS X | |
| 354 LEAX +$01,X | |
| 355 RTS | |
| 76 | 356 LC22A LEAX +$01,X |
| 69 | 357 BRA LC1F6 |
| 70 | 358 LC22E BSR LC287 |
| 69 | 359 CMPA #$3A |
| 360 BEQ LC239 | |
| 361 BSR LC26E | |
| 70 | 362 LC236 LDD ,Y |
| 69 | 363 RTS |
| 70 | 364 LC239 BSR LC269 |
| 69 | 365 CLRA |
| 70 | 366 LC23C LDB ,Y |
| 367 LC23E RTS | |
| 368 LC23F CMPB #$22 | |
| 69 | 369 BCS LC218 |
| 370 CMPB #$2D | |
| 371 BHI LC218 | |
| 372 SUBB #$22 | |
| 373 LSLB | |
| 374 LEAY <LC251,PCR | |
| 375 LDD B,Y | |
| 376 JMP D,Y | |
| 68 | 377 |
|
75
7aad8084a784
fix game09 table jump and assignment
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
74
diff
changeset
|
378 LC251 fdb LC6EC-LC251 049b " |
|
7aad8084a784
fix game09 table jump and assignment
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
74
diff
changeset
|
379 fdb LC535-LC251 02e2 # |
|
7aad8084a784
fix game09 table jump and assignment
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
74
diff
changeset
|
380 fdb LC5A1-LC251 034c $ |
|
7aad8084a784
fix game09 table jump and assignment
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
74
diff
changeset
|
381 fdb LC545-LC251 02ee % |
| 76 | 382 fdb LC22E-LC251 ffdd & |
| 383 fdb LC545-LC251 02f3 ' | |
| 384 fdb LC22A-LC251 ffd9 ( | |
| 385 fdb LC22E-LC251 ffdd ) | |
| 386 fdb LC22E-LC251 ffdd * | |
| 387 fdb LC52D-LC251 02dc + | |
| 388 fdb LC22E-LC251 ffdd , | |
| 389 fdb LC529-LC251 02d8 - | |
| 68 | 390 |
| 70 | 391 LC269 BSR LC279 |
| 69 | 392 LEAY D,Y |
| 393 RTS | |
| 82 | 394 LC26E CMPA #$28 A(I) pointer of word array |
| 69 | 395 BNE LC292 |
| 396 BSR LC279 | |
| 397 LSLB | |
| 398 ROLA | |
| 399 LEAY D,Y | |
| 400 RTS | |
| 70 | 401 LC279 BSR LC292 |
| 69 | 402 LDY ,Y |
| 403 PSHS Y | |
| 404 LEAX +$01,X | |
| 405 LBSR LC1F6 | |
| 406 PULS PC,Y | |
| 70 | 407 LC287 LDB ,X+ |
| 408 LC289 LDA ,X+ | |
| 69 | 409 CMPA #$41 |
| 410 BPL LC289 | |
| 411 LEAX -$01,X | |
| 412 RTS | |
| 68 | 413 |
| 70 | 414 LC292 ANDB #$3F |
| 69 | 415 CLRA |
| 416 LSLB | |
| 82 | 417 ADDD <VAROFS |
| 69 | 418 TFR D,Y |
| 419 RTS | |
| 70 | 420 LC29C PSHU B,A |
| 69 | 421 LDD ,X+ |
| 422 PSHS B,A | |
| 423 SUBB #$3D | |
| 424 BEQ LC2A9 | |
| 425 DECB | |
| 426 BNE LC2AB | |
| 70 | 427 LC2A9 LEAX +$01,X |
| 82 | 428 LC2AB LBSR EXPR |
| 69 | 429 PULU Y |
| 430 EXG D,Y | |
| 431 PSHU Y,B,A | |
| 432 PULS B,A | |
| 433 CMPA #$3D | |
| 434 BNE LC2C4 | |
| 435 PULU B,A | |
| 436 SUBD ,U++ | |
| 437 BNE LC2E4 | |
| 70 | 438 LC2C0 CLRA |
| 69 | 439 LDB #$01 |
| 440 RTS | |
| 70 | 441 LC2C4 CMPA #$3C |
| 69 | 442 BNE LC2E7 |
| 443 CMPB #$3D | |
| 444 BEQ LC2D7 | |
| 445 CMPB #$3E | |
| 446 PULU B,A | |
| 447 BNE LC2E0 | |
| 448 SUBD ,U++ | |
| 449 BNE LC2C0 | |
| 450 RTS | |
| 70 | 451 LC2D7 PULU B,A |
| 69 | 452 SUBD ,U++ |
| 453 BLE LC2C0 | |
| 454 CLRA | |
| 455 CLRB | |
| 456 RTS | |
| 70 | 457 LC2E0 SUBD ,U++ |
| 69 | 458 BLT LC2C0 |
| 70 | 459 LC2E4 CLRA |
| 69 | 460 CLRB |
| 461 RTS | |
| 70 | 462 LC2E7 CMPA #$3E |
| 69 | 463 BNE LC2FF |
| 464 CMPB #$3D | |
| 465 PULU B,A | |
| 466 BNE LC2F8 | |
| 467 SUBD ,U++ | |
| 468 BGE LC2C0 | |
| 469 CLRA | |
| 470 CLRB | |
| 471 RTS | |
| 70 | 472 LC2F8 SUBD ,U++ |
| 69 | 473 BGT LC2C0 |
| 474 CLRA | |
| 475 CLRB | |
| 476 RTS | |
| 70 | 477 LC2FF CMPA #$2B |
| 69 | 478 BNE LC308 |
| 479 PULU B,A | |
| 480 ADDD ,U++ | |
| 481 RTS | |
| 70 | 482 LC308 CMPA #$2D |
| 69 | 483 BNE LC311 |
| 484 PULU B,A | |
| 485 SUBD ,U++ | |
| 486 RTS | |
| 70 | 487 LC311 CMPA #$2A |
| 69 | 488 LBNE LC653 |
| 489 PULU B,A | |
| 70 | 490 LC319 EXG A,B |
| 69 | 491 PSHU B,A |
| 492 LDB +$03,U | |
| 493 MUL | |
| 494 STD <$82 | |
| 495 BSR LC32B | |
| 496 BSR LC32B | |
| 497 LDD <$82 | |
| 498 LEAU +$02,U | |
| 499 RTS | |
| 70 | 500 LC32B PULU A |
| 69 | 501 LDB +$01,U |
| 502 MUL | |
| 503 ADDB <$82 | |
| 504 STB <$82 | |
| 505 RTS | |
| 70 | 506 LC335 CLR ,-S |
| 507 LC337 INC ,S | |
| 69 | 508 LSL +$01,U |
| 509 ROL ,U | |
| 510 BCC LC337 | |
| 511 ROR ,U | |
| 512 ROR +$01,U | |
| 513 CLR <$82 | |
| 514 CLR <$83 | |
| 70 | 515 LC347 SUBD ,U |
| 69 | 516 BCC LC351 |
| 517 ADDD ,U | |
| 518 ANDCC #$FE | |
| 519 BRA LC353 | |
| 70 | 520 LC351 ORCC #$01 |
|
74
c29030b5e4b4
program is correctly stored. fix d09 ror bug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
73
diff
changeset
|
521 LC353 ROL <$83 |
|
c29030b5e4b4
program is correctly stored. fix d09 ror bug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
73
diff
changeset
|
522 ROL <$82 |
| 69 | 523 DEC ,S |
| 524 BEQ LC361 | |
| 525 LSR ,U | |
| 526 ROR +$01,U | |
| 527 BRA LC347 | |
| 70 | 528 LC361 LEAS +$01,S |
| 69 | 529 RTS |
| 70 | 530 LC364 LDB ,X |
| 69 | 531 CMPB #$30 |
| 532 BCS LC36D | |
| 533 CMPB #$3A | |
| 534 RTS | |
| 70 | 535 LC36D ANDCC #$FE |
| 69 | 536 RTS |
| 82 | 537 GETCLN LBSR GETLIN |
| 70 | 538 LC373 BSR LC364 |
| 69 | 539 BCC LC396 |
| 540 CLRA | |
| 541 CLRB | |
| 70 | 542 LC379 ADDB ,X+ |
| 69 | 543 ADCA #$00 |
| 544 SUBD #$030 | |
| 545 PSHU B,A | |
| 546 BSR LC364 | |
| 547 LDD ,U | |
| 548 BCC LC392 | |
| 549 LSLB | |
| 550 ROLA | |
| 551 LSLB | |
| 552 ROLA | |
| 553 ADDD ,U++ | |
| 554 LSLB | |
| 555 ROLA | |
| 556 BRA LC379 | |
| 70 | 557 LC392 PULU B,A |
| 69 | 558 ORCC #$01 |
| 70 | 559 LC396 RTS |
| 560 LC397 LDB #$0D | |
| 69 | 561 BSR LC39D |
| 70 | 562 LC39B LDB #$0A |
| 563 LC39D BRA LC412 | |
|
113
a8b7dfc1baf5
program code switch in game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
112
diff
changeset
|
564 LVALUE PSHS B,A |
| 69 | 565 LDA #$01 |
| 566 STA <$8C | |
| 567 LDX <$84 | |
| 568 LDB ,X | |
| 569 CMPB #$2E | |
| 570 BNE LC3BA | |
| 571 PULS A | |
| 572 LDA ,S+ | |
| 70 | 573 LC3B1 BEQ LC3C4 |
| 69 | 574 LDB #$20 |
| 575 BSR LC412 | |
| 576 DECA | |
| 577 BRA LC3B1 | |
| 70 | 578 LC3BA CMPB #$3B |
| 69 | 579 BNE LC3C5 |
| 580 LDD ,S++ | |
| 581 LBEQ LC057 | |
| 70 | 582 LC3C4 RTS |
| 583 LC3C5 CMPB #$40 | |
| 69 | 584 BNE LC3E4 |
| 585 LDB +$02,X | |
| 586 LBSR LC292 | |
| 587 PULS B,A | |
| 588 STD ,Y | |
| 589 PULU B,A | |
| 590 SUBD ,Y | |
| 591 BLT LC3E1 | |
| 592 PULU X,B,A | |
| 593 STD <$46 | |
| 594 STX <$42 | |
| 595 LEAU -$06,U | |
| 596 RTS | |
| 70 | 597 LC3E1 LEAU +$04,U |
| 69 | 598 RTS |
| 70 | 599 LC3E4 CMPB #$26 |
| 69 | 600 BNE LC3FA |
|
113
a8b7dfc1baf5
program code switch in game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
112
diff
changeset
|
601 LDB +$01,X |
| 69 | 602 CMPB #$3D |
| 603 BNE LC3FA | |
| 604 LDD ,S++ | |
| 605 BNE LC3F9 | |
| 606 LDX <$7E | |
| 607 STX <$50 | |
| 608 DECA | |
| 609 STA ,X | |
| 70 | 610 LC3F9 RTS |
| 611 LC3FA CMPB #$21 | |
| 69 | 612 BNE LC40C |
| 613 PULS B,A | |
| 614 STD <$4A | |
| 615 BEQ LC40B | |
| 616 LDY <$42 | |
| 617 LDX <$46 | |
| 618 PSHU Y,X | |
| 70 | 619 LC40B RTS |
| 620 LC40C CMPB #$24 | |
| 69 | 621 BNE LC415 |
| 622 PULS B,A | |
| 82 | 623 LC412 LBRA OUTC1 |
| 70 | 624 LC415 CMPB #$3F |
| 69 | 625 BNE LC449 |
| 626 LDB +$01,X | |
| 627 CMPB #$28 | |
| 628 LBNE LC56E | |
| 629 LBSR LC51F | |
| 70 | 630 LC424 STB <$8E |
| 69 | 631 PULS B,A |
| 632 BSR LC433 | |
| 633 ADDA <$8E | |
| 634 BMI LC430 | |
| 635 BSR LC3B1 | |
| 82 | 636 LC430 LBRA LPRNT |
| 70 | 637 LC433 TSTA |
| 69 | 638 LBPL LC11A |
| 639 LBSR LC4F3 | |
| 640 LBSR LC11A | |
| 641 LDB #$2D | |
| 642 STB ,-X | |
| 643 RTS | |
| 70 | 644 LC443 PSHS B,A |
| 69 | 645 LDB #$05 |
| 646 BRA LC424 | |
| 70 | 647 LC449 CMPB #$3D |
| 69 | 648 BNE LC460 |
| 649 PULS B,A | |
| 650 STD <$7E | |
| 71 | 651 LDX #$FFFF |
| 69 | 652 STX <$4A |
| 653 LBSR LC09C | |
| 654 STX <$50 | |
| 82 | 655 LBRA GAMETP |
| 70 | 656 LC45E PULS PC,B,A |
| 657 LC460 CMPB #$3E | |
| 69 | 658 BNE LC46C |
| 659 LDD ,S | |
| 660 BEQ LC45E | |
| 661 JSR [,S++] | |
| 662 PSHS B,A | |
| 70 | 663 LC46C LDX <$84 |
| 69 | 664 LBSR LC287 |
| 665 CMPA #$3A | |
| 666 BNE LC47D | |
| 667 LBSR LC269 | |
| 668 PULS B,A | |
| 669 STB ,Y | |
| 670 RTS | |
| 70 | 671 LC47D LBSR LC26E |
| 69 | 672 PULS B,A |
| 673 STD ,Y | |
| 674 RTS | |
| 675 LDA +$01,X | |
| 676 CMPA #$4E | |
| 677 BEQ LC48E | |
| 71 | 678 LBRA SYSTEM |
| 70 | 679 LC48E TST +$02,X |
| 69 | 680 BNE LC494 |
| 681 CLR +$03,X | |
| 70 | 682 LC494 LEAX +$03,X |
| 69 | 683 CLR <$8C |
| 684 LBSR LC373 | |
| 685 BCS LC4A0 | |
| 112 | 686 LDD #1000 |
| 70 | 687 LC4A0 STD <$88 |
| 69 | 688 LDB ,X |
| 689 CMPB #$2C | |
| 690 BNE LC4AF | |
| 691 LEAX +$01,X | |
| 692 LBSR LC373 | |
| 693 BCS LC4B2 | |
| 70 | 694 LC4AF LDD #$00A |
| 695 LC4B2 STD <$8A | |
| 69 | 696 RTS |
| 70 | 697 LC4B5 CMPA #$2F |
| 69 | 698 BNE LC4F9 |
| 699 CLR <$8D | |
| 700 LDD +$02,U | |
| 701 BEQ LC4F9 | |
| 702 BMI LC4D4 | |
| 703 CMPD #LC002 | |
| 704 BNE LC4DE | |
| 705 PULU B,A | |
| 706 CLR <$4E | |
| 707 CLR <$4F | |
| 708 ASRA | |
| 709 RORB | |
|
74
c29030b5e4b4
program is correctly stored. fix d09 ror bug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
73
diff
changeset
|
710 ROL <$4F |
| 69 | 711 LEAU +$02,U |
| 712 RTS | |
| 70 | 713 LC4D4 INC <$8D |
| 69 | 714 NEG +$03,U |
| 715 BNE LC4DC | |
| 716 DEC +$02,U | |
| 70 | 717 LC4DC COM +$02,U |
| 718 LC4DE LDD ,U++ | |
| 69 | 719 BPL LC4E6 |
| 720 DEC <$8D | |
| 721 BSR LC4F3 | |
| 70 | 722 LC4E6 LBSR LC335 |
| 69 | 723 LEAU +$02,U |
| 724 STD <$4E | |
| 725 LDD <$82 | |
| 726 TST <$8D | |
| 727 BEQ LC4F8 | |
| 70 | 728 LC4F3 NEGB |
| 69 | 729 BNE LC4F7 |
| 730 DECA | |
| 70 | 731 LC4F7 COMA |
| 732 LC4F8 RTS | |
| 733 LC4F9 LBSR LC397 | |
| 69 | 734 LDB #$3F |
| 735 STB <$8C | |
| 736 LBSR LC412 | |
| 737 TFR A,B | |
| 738 LBSR LC412 | |
| 739 LDB #$20 | |
| 740 LBSR LC412 | |
| 741 LDX <$42 | |
| 71 | 742 STY ,S |
|
74
c29030b5e4b4
program is correctly stored. fix d09 ror bug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
73
diff
changeset
|
743 CMPX <linetop |
| 69 | 744 BNE LC519 |
| 82 | 745 LBSR LPRNT |
| 69 | 746 BRA LC51C |
| 70 | 747 LC519 LBSR LC087 |
| 82 | 748 LC51C LBRA GAMETP |
| 70 | 749 LC51F LEAX +$01,X |
| 82 | 750 EXPR LBSR LC373 |
| 69 | 751 BCS LC532 |
| 752 LBRA LC23F | |
| 76 | 753 LC529 BSR LC51F - |
| 69 | 754 BRA LC4F3 |
| 76 | 755 LC52D BSR LC51F + |
| 69 | 756 TSTA |
| 757 BMI LC4F3 | |
| 70 | 758 LC532 RTS |
| 76 | 759 LC535 BSR LC51F |
| 760 PSHS B,A | |
| 69 | 761 LDD ,S++ |
| 762 LBNE LC2E4 | |
| 763 INCB | |
| 764 RTS | |
| 70 | 765 LC53F BSR LC51F |
| 69 | 766 LDD <$4E |
| 767 RTS | |
| 768 LC545 | |
| 769 BSR LC51F | |
| 770 PSHU B,A | |
| 771 LDD <$52 | |
| 772 PSHU B,A | |
| 71 | 773 LDD #$3D09 |
| 69 | 774 LBSR LC319 |
| 775 ADDD #1 | |
| 776 STD <$52 | |
| 777 TFR A,B | |
| 778 CLRA | |
| 779 LBSR LC319 | |
| 780 TFR A,B | |
| 781 CLRA | |
| 782 ADDD #1 | |
| 783 RTS | |
| 784 LC568 | |
| 785 CLRA | |
| 786 LDB +$01,X | |
| 787 LEAX +$03,X | |
| 788 RTS | |
| 70 | 789 LC56E CMPB #$3F |
| 69 | 790 BEQ LC57E |
| 791 CMPB #$24 | |
| 792 BEQ LC582 | |
| 793 PULS B,A | |
| 794 LBSR LC433 | |
| 82 | 795 LBRA LPRNT |
| 70 | 796 LC57E LDB ,S |
| 69 | 797 BSR LC584 |
| 70 | 798 LC582 PULS B,A |
| 799 LC584 TFR B,A | |
| 69 | 800 BSR LC58E |
| 801 TFR A,B | |
| 802 ANDB #$0F | |
| 803 BRA LC592 | |
| 70 | 804 LC58E LSRB |
| 69 | 805 LSRB |
| 806 LSRB | |
| 807 LSRB | |
| 70 | 808 LC592 CMPB #$0A |
| 69 | 809 BMI LC598 |
| 810 ADDB #$07 | |
| 70 | 811 LC598 ADDB #$30 |
| 69 | 812 LBRA LC412 |
| 76 | 813 LC5A1 CLRA |
| 69 | 814 BSR LC5BD |
| 82 | 815 LBCC GETC1 |
| 70 | 816 LC5A4 PSHS B |
| 69 | 817 BSR LC5BD |
| 818 PSHU B | |
| 819 PULS B | |
| 820 BCC LC5BA | |
| 821 LSLB | |
| 822 ROLA | |
| 823 LSLB | |
| 824 ROLA | |
| 825 LSLB | |
| 826 ROLA | |
| 827 LSLB | |
| 828 ROLA | |
| 829 ADDB ,U+ | |
| 830 BRA LC5A4 | |
| 70 | 831 LC5BA LEAU +$01,U |
| 69 | 832 RTS |
| 70 | 833 LC5BD LEAX +$01,X |
| 69 | 834 LDB ,X |
| 835 SUBB #$30 | |
| 836 BCS LC5D2 | |
| 837 CMPB #$0A | |
| 838 BCS LC5D1 | |
| 839 SUBB #$07 | |
| 840 CMPB #$0A | |
| 841 BCS LC5D2 | |
| 842 CMPB #$10 | |
| 70 | 843 LC5D1 RTS |
| 844 LC5D2 ANDCC #$FE | |
| 69 | 845 RTS |
| 70 | 846 LC5D5 LBSR LC397 |
| 82 | 847 GETLIN LDB #$3A |
| 848 LBSR OUTC1 | |
| 73 | 849 LDX <linetop |
| 69 | 850 TST <$8C |
| 851 BNE LC5F2 | |
| 852 LDD <$88 | |
| 853 LBMI LC020 | |
| 854 LBSR LC443 | |
| 855 LDB #$20 | |
| 856 STB -$01,X | |
| 82 | 857 BSR OUTC1 |
| 858 LC5F2 BSR GETC1 | |
| 69 | 859 CMPB #$08 |
| 860 BEQ LC634 | |
| 861 CMPB #$0D | |
| 862 BCS LC5F2 | |
| 863 BEQ LC611 | |
| 864 CMPB #$18 | |
| 865 BEQ LC5D5 | |
| 866 STB ,X+ | |
| 73 | 867 CMPX <lineend |
| 69 | 868 BNE LC5F2 |
| 869 LEAX -$01,X | |
| 870 LDB #$08 | |
| 82 | 871 BSR OUTC1 |
| 69 | 872 BRA LC5F2 |
| 70 | 873 LC611 TST <$8C |
| 69 | 874 BNE LC626 |
| 73 | 875 CMPX <lineb9b |
| 69 | 876 BEQ LC61F |
| 73 | 877 CMPX <lineb9a |
| 69 | 878 BCC LC626 |
| 70 | 879 LC61F COM <$8C |
| 69 | 880 LBSR LC39B |
| 82 | 881 BRA GETLIN |
| 70 | 882 LC626 LDD <$88 |
| 69 | 883 ADDD <$8A |
| 884 STD <$88 | |
| 885 CLR ,X | |
| 73 | 886 LDX <linetop |
| 69 | 887 LBRA LC39B |
| 70 | 888 LC634 LEAX -$01,X |
| 73 | 889 CMPX <lineb0 |
| 69 | 890 BNE LC5F2 |
| 891 STB <$8C | |
| 82 | 892 LBRA GETLIN |
| 893 PRMPT | |
| 69 | 894 FCB $D,$A |
| 72 | 895 FCC "*READY" |
| 69 | 896 FCB $D,$A,0 |
| 68 | 897 |
| 82 | 898 OUTC1 LBRA OUTCH |
| 899 GETC1 LBRA GETCH | |
| 71 | 900 LC650 LBRA SENSE |
| 70 | 901 |
| 902 LC653 CMPA #$2E EXBOP | |
| 69 | 903 BNE LC65E |
| 904 PULU B,A | |
| 905 ORA ,U+ | |
| 906 ORB ,U+ | |
| 907 RTS | |
| 70 | 908 LC65E CMPA #$26 |
| 69 | 909 BNE LC669 |
| 910 PULU B,A | |
| 911 ANDA ,U+ | |
| 912 ANDB ,U+ | |
| 913 RTS | |
| 70 | 914 LC669 CMPA #$21 |
| 69 | 915 LBNE LC4B5 |
| 916 PULU B,A | |
| 917 EORA ,U+ | |
| 918 EORB ,U+ | |
| 919 RTS | |
| 70 | 920 LC676 LDD +$01,X EXTEND |
| 69 | 921 LEAX +$03,X |
| 922 PSHS U,X,B,A | |
| 923 LEAY >OPCMD,PCR | |
| 70 | 924 LC680 LDX ,Y |
| 69 | 925 BMI LC6E7 |
| 926 CMPX ,S | |
| 927 BEQ LC68C | |
| 928 LEAY +$05,Y | |
| 929 BRA LC680 | |
| 70 | 930 LC68C LEAY +$03,Y |
| 69 | 931 LEAS +$02,S |
| 932 LDX ,S | |
| 933 LDA -$01,Y | |
| 934 BEQ LC6C3 | |
| 935 PSHS Y,A | |
| 936 LDA #$20 | |
| 70 | 937 LC69A CMPA ,X+ |
| 69 | 938 BEQ LC69A |
| 939 LDA ,-X | |
| 940 STX +$03,S | |
| 70 | 941 LC6A2 BITA #$DF |
| 69 | 942 BEQ LC6B0 |
| 112 | 943 CMPA #$2C , |
| 69 | 944 BEQ LC6AE |
| 112 | 945 CMPA #$22 " |
| 946 BNE LCXXX | |
| 947 leax 1,x | |
| 948 PSHS X | |
| 949 LDA #$22 | |
| 950 LXX1 tst ,x | |
| 951 beq LXX2 | |
| 952 cmpa ,x+ | |
| 953 bne LXX1 | |
| 954 clr -1,x | |
| 955 leax 1,x | |
| 956 LXX2 PULS D | |
| 957 BRA LC6B3 | |
| 958 LCXXX BSR LC6C9 | |
| 69 | 959 BRA LC6B3 |
| 70 | 960 LC6AE LEAX +$01,X |
| 71 | 961 LC6B0 LDD #$FFFF |
| 70 | 962 LC6B3 PSHU B,A |
| 69 | 963 LDA ,X |
| 964 DEC ,S | |
| 965 BNE LC6A2 | |
| 966 LDD +$03,S | |
| 967 STX +$03,S | |
| 968 TFR D,X | |
| 969 PULS Y,A | |
| 70 | 970 LC6C3 LDD ,Y |
| 69 | 971 JSR D,Y |
| 972 PULS PC,U,X | |
| 82 | 973 LC6C9 LBSR EXPR |
| 70 | 974 LC6CC PSHS B |
| 69 | 975 LDB ,X |
| 976 BITB #$DF | |
| 977 BEQ LC6E5 | |
| 978 CMPB #$2C | |
| 979 BEQ LC6E3 | |
| 980 CMPB #$29 | |
| 981 BEQ LC6E3 | |
| 982 PULS B | |
| 983 LBSR LC29C | |
| 984 BRA LC6CC | |
| 70 | 985 LC6E3 LEAX +$01,X |
| 986 LC6E5 PULS PC,B | |
| 987 LC6E7 PULS U,X,B,A | |
| 69 | 988 LBRA LC4F9 |
| 70 | 989 LC6EC LEAX +$01,X |
| 69 | 990 LDB ,X+ |
| 70 | 991 LC6F0 LDA ,X+ |
| 69 | 992 BEQ LC6F8 |
| 993 CMPA #$22 | |
| 994 BNE LC6F0 | |
| 70 | 995 LC6F8 CLRA |
| 69 | 996 RTS |
| 997 | |
| 72 | 998 OUTCH PSHS X,Y |
| 999 BRA OUTCH1 | |
| 1000 GETCH | |
|
77
11e19ea1a7ea
save register in outch/getch
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
76
diff
changeset
|
1001 PSHS A,B,X,Y |
| 72 | 1002 GETCH0 |
| 1003 LDA #0 | |
|
77
11e19ea1a7ea
save register in outch/getch
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
76
diff
changeset
|
1004 LEAX 1,S |
| 70 | 1005 LDY #1 |
| 1006 OS9 I$Read | |
| 72 | 1007 BCS GETCH0 |
|
77
11e19ea1a7ea
save register in outch/getch
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
76
diff
changeset
|
1008 PULS A,B,X,Y,PC |
|
11e19ea1a7ea
save register in outch/getch
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
76
diff
changeset
|
1009 OUTCH1 PSHS A,B |
|
11e19ea1a7ea
save register in outch/getch
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
76
diff
changeset
|
1010 LEAX 1,S |
| 70 | 1011 LDA #1 |
| 1012 LDY #1 | |
| 1013 OS9 I$Write | |
|
77
11e19ea1a7ea
save register in outch/getch
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
76
diff
changeset
|
1014 PULS A,B,X,Y,PC |
| 76 | 1015 SENSE PSHS X,Y,D |
| 72 | 1016 LDA #0 |
| 70 | 1017 LDB #SS.Ready |
| 76 | 1018 OS9 I$GetStt |
| 73 | 1019 CMPB #$F6 Not Ready |
| 1020 BNE RSENSE | |
| 1021 CLRB | |
| 76 | 1022 PULS X,Y,D,PC |
| 73 | 1023 RSENSE |
| 1024 ORCC #1 set carry to indicate ready | |
| 1025 RNSENSE | |
| 76 | 1026 PULS X,Y,D,PC |
| 70 | 1027 |
| 69 | 1028 |
| 68 | 1029 |
| 69 | 1030 * COMMAND TABLE CONSIST.... |
| 1031 * COMMAND NAME (2 BYTE) | |
| 1032 * PARAMETER COUNT (1 BYTE) | |
| 1033 * OFSET TO SUBROUTIE FROM HERE (1 WORD) | |
| 1034 ************************** | |
| 1035 OPCMD FCB 'A','T',2 START LINE,STEP | |
| 1036 FDB CAUTO-* | |
| 1037 FCB 'R','N',3 RENUM first line no,inc,renum start | |
| 1038 FDB RENUM-* | |
| 112 | 1039 FCB 'L','D',1 load file-name |
| 1040 FDB pload-* | |
| 69 | 1041 * FCB 'R','D',3 DISK READ address,track,sector |
| 1042 * FDB GETDK-* | |
| 1043 * FCB 'W','R',3 DISK WRITE | |
| 1044 * FDB PUTDK-* | |
| 1045 FCB 'S','Y',0 TO SYSTEM | |
| 1046 FDB SYSTEM-* | |
| 1047 FDB -1,-1,-1,-1,-1,-1 | |
| 1048 ************************* | |
| 1049 RENUM | |
| 1050 LDD ,U++ | |
| 1051 BPL LC762 | |
| 1052 CLRA | |
| 1053 CLRB | |
| 70 | 1054 LC762 STD <$4A |
| 69 | 1055 LBSR LC09C |
| 1056 BMI LC789 | |
| 1057 LDD ,U++ | |
| 1058 BPL LC770 | |
| 1059 LDD #$00A | |
| 70 | 1060 LC770 LDY ,U++ |
| 69 | 1061 BPL LC779 |
| 112 | 1062 LDY #1000 |
| 70 | 1063 LC779 STY ,X++ |
| 69 | 1064 LBSR LC173 |
| 1065 LEAY D,Y | |
| 70 | 1066 LC781 TST ,X+ |
| 69 | 1067 BNE LC781 |
| 1068 TST ,X | |
| 1069 BPL LC779 | |
| 70 | 1070 LC789 RTS |
| 69 | 1071 CAUTO |
| 1072 LDD ,U++ | |
| 1073 BPL LC791 | |
| 1074 LDD #$00A | |
| 70 | 1075 LC791 STD <$8A |
| 69 | 1076 LDD ,U |
| 1077 BEQ LC79E | |
| 1078 BPL LC79C | |
| 112 | 1079 LDD #1000 |
| 70 | 1080 LC79C STD <$88 |
| 1081 LC79E CLR <$8C | |
| 69 | 1082 RTS |
| 1083 BSR LC7B6 | |
| 71 | 1084 * LBSR LCD09 |
| 69 | 1085 BNE LC7B1 |
| 1086 RTS | |
| 1087 BSR LC7B6 | |
| 71 | 1088 * LBSR LCD0C |
| 69 | 1089 BNE LC7B1 |
| 1090 RTS | |
| 70 | 1091 LC7B1 LDA #$44 |
| 69 | 1092 LBRA LC4F9 |
| 70 | 1093 LC7B6 LDX +$04,U |
| 69 | 1094 LDA +$03,U |
| 1095 LDB +$01,U | |
| 1096 RTS | |
| 70 | 1097 SYSTEM clrb |
| 1098 os9 F$Exit | |
| 1099 rts | |
| 112 | 1100 |
| 1101 pload pshs a,x,y | |
| 1102 ldx ,u | |
| 1103 lda #1 | |
| 1104 os9 I$Open | |
| 1105 bcs ploaderr | |
| 1106 sta ,s | |
| 1107 ploadloop | |
| 1108 lda ,s | |
| 1109 ldx <DPWORK | |
| 1110 leax linebuf,x | |
| 1111 ldy #252 | |
| 1112 os9 I$ReadLn | |
| 1113 bcs ploaderr | |
| 1114 lbsr LC373 | |
| 1115 bcc ploadloop | |
| 1116 ldy <$50 | |
| 1117 std ,y++ | |
| 1118 lda ,x+ | |
| 1119 cmpa #$20 | |
| 1120 bne ploaderr | |
| 1121 pl01 lda ,x+ | |
| 1122 beq pl02 | |
| 1123 cmpa #$d | |
| 1124 beq pl02 | |
| 1125 cmpa #$a | |
| 1126 beq pl02 | |
| 1127 sta ,y+ | |
| 1128 bra pl01 | |
| 1129 pl02 clra | |
| 1130 sta ,y+ | |
| 1131 ldd #-1 | |
| 1132 std ,y | |
| 1133 sty <$50 | |
| 1134 bra ploadloop | |
| 1135 ploaderr | |
| 1136 lda ,s | |
| 1137 os9 I$Close | |
| 1138 puls a,x,y | |
| 1139 lbra warmst | |
| 1140 | |
| 70 | 1141 emod |
| 71 | 1142 eom equ * |
| 70 | 1143 end |