Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/TL1os9.asm @ 125:95718258025c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
TL/1 fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 05 Jan 2019 10:22:12 +0900
parents f065d9718442
children f43ca5d22920
comparison
equal deleted inserted replaced
124:f065d9718442 125:95718258025c
351 STB GLL 351 STB GLL
352 TSTA 352 TSTA
353 BNE AS4 353 BNE AS4
354 LBSR PUTX 354 LBSR PUTX
355 LDA #$A7 355 LDA #$A7
356 LDS OPER 356 LDB OPER
357 LBRA PUTAB 357 LBRA PUTAB
358 AS4 DECA 358 AS4 DECA
359 BNE AS5 359 BNE AS5
360 LBSR PUTX 360 LBSR PUTX
361 LDA #$33 361 LDA #$33
364 AS5 LBSR PUTHS 364 AS5 LBSR PUTHS
365 FCB 10 365 FCB 10
366 FDB $33D7 366 FDB $33D7
367 FCB WT2 367 FCB WT2
368 FDB $33D7 368 FDB $33D7
369 FCB WT1 $DE,WT2 369 FCB WT1 $9E,WT2
370 FDB $A700 370 FDB $A700
371 CLR INDEX 371 CLR INDEX
372 RTS 372 RTS
373 ** 373 **
374 ** NON-STATEMENT 374 ** NON-STATEMENT
381 CMPA #$52 381 CMPA #$52
382 BCS SSEND 382 BCS SSEND
383 SUBA #$51 383 SUBA #$51
384 PSHS A 384 PSHS A
385 LBSR WORD 385 LBSR WORD
386 PULS B 386 PULS B B keyword A next token
387 ** 387 **
388 * REPEAT UNTIL 388 * REPEAT UNTIL
389 ** 389 **
390 DECB 390 DECB
391 BNE SS7 391 BNE SS7
403 ** 403 **
404 * FOR-TO 404 * FOR-TO
405 ** 405 **
406 SS7 DECB 406 SS7 DECB
407 BNE SS8 407 BNE SS8
408 CMPA #4 408 CMPA #4 should be simple var
409 BEQ *+5 409 BEQ *+5
410 LBRA ERROR 410 LBRA ERROR
411 LDB VAL 411 LDB VAL
412 PSHS B 412 PSHS B
413 LDB GL 413 LDB GL
414 PSHS B 414 PSHS B
415 LBSR ASSIGN 415 LBSR ASSIGN
416 LDA #$61 416 LDA #$61 to
417 LBSR CHECK 417 LBSR CHECK
418 CLR ACC 418 CLR ACC
419 LBSR EXPR 419 LBSR EXPR
420 LDA #$64 420 LDA #$64 do
421 LBSR CHECK 421 LBSR CHECK
422 BSR ASTOUT 422 BSR ASTOUT
423 LDA #$36 423 LDD #$3402 pshs a
424 LBSR PUTA 424 LBSR PUTAB
425 CLR INDEX 425 CLR INDEX
426 LBSR STAT 426 LBSR STAT
427 LDA #$32 427 LDD #$3502 puls a
428 LBSR PUTA 428 LBSR PUTAB
429 PULS D 429 PULS D
430 STA GLL 430 STA GLL
431 STB OPER 431 STB OPER
432 LDA #$A1 432 LDA #$A1
433 LBSR PUTABX 433 LBSR PUTABX
451 LBSR CHECK 451 LBSR CHECK
452 LBSR PUTHS 452 LBSR PUTHS
453 FCB 2 453 FCB 2
454 FDB $2603 454 FDB $2603
455 BSR SLAOUT 455 BSR SLAOUT
456 LDS INDEX 456 LDB INDEX
457 PSHS B 457 PSHS B
458 LBSR STAT 458 LBSR STAT
459 PULS B 459 PULS B
460 STB INDEX 460 STB INDEX
461 BSR PEROUT 461 BSR PEROUT
522 ** 522 **
523 * WRITE STATEMENT 523 * WRITE STATEMENT
524 ** 524 **
525 SS11 LDA #$37 525 SS11 LDA #$37
526 LBSR CHECK 526 LBSR CHECK
527 LBSR EXPR 527 LBSR EXPR output channel number
528 LBSR PUTHS 528 LBSR PUTHS
529 FDB $0297 529 FDB $0297
530 FCB OUTDN 530 FCB OUTDN
531 LDA #$3D 531 LDA #$3D
532 LBSR CHECK 532 LBSR CHECK
535 LDA SY 535 LDA SY
536 CMPA #$3C 536 CMPA #$3C
537 BNE WTEN 537 BNE WTEN
538 LBSR WORD 538 LBSR WORD
539 BRA WTLP 539 BRA WTLP
540 WTEN LDA #$36 540 WTEN LDA #$3B
541 LBRA CHECK 541 LBRA CHECK
542 ** 542 ** write command argument
543 WTERM CMPA #$6C 543 WTERM CMPA #$6C string
544 BNE WR1 544 BNE WR1
545 LBSR PUTHSL 545 LBSR PUTHSL
546 FDB $03BD 546 FDB $03BD
547 FDB PUTSTR 547 FDB PUTSTR
548 LDA CH 548 LDA CH
549 WR01 CMPA #'"' 549 WR01 CMPA #'"' copy until '"'
550 BEQ WR02 550 BEQ WR02
551 LBSR PUTA 551 LBSR PUTA
552 LBSR GETCH 552 LBSR GETCH
553 BRA WR01 553 BRA WR01
554 WR02 CLRA 554 WR02 CLRA put 0 at end
555 STA INDEX 555 STA INDEX
556 LBSR PUTA 556 LBSR PUTA
557 LBSR GETCH 557 LBSR GETCH
558 LBRA WORD 558 LBRA WORD
559 ** 559 **
611 PUTABX PSHS D 611 PUTABX PSHS D
612 BSR PUTX 612 BSR PUTX
613 PULS D 613 PULS D
614 BRA PUTAB 614 BRA PUTAB
615 ** 615 **
616 * PUT LP, OR GB BY INDEX 616 * PUT LB, OR GB BY INDEX
617 ** 617 **
618 PUTX LDB GLL 618 PUTX LDB GLL
619 CMPB INDEX 619 CMPB INDEX
620 BEQ RTS11 620 BEQ RTS11
621 STB INDEX 621 STB INDEX
622 ADDB #LB+1 622 ADDB #LB+1
623 LDA #$DE 623 LDA #$9E
624 *** 624 ***
625 * PUT ACC A&B 625 * PUT ACC A&B
626 ** 626 **
627 PUTAB BSR PUTA 627 PUTAB BSR PUTA
628 TFR B,A 628 TFR B,A
629 ** 629 **
630 * PUT ACCA RS AN OBJECT 630 * PUT ACCA RS AN OBJECT
631 ** 631 **
632 PUTA STX RNDH 632 PUTA STX RNDH
1155 BSR DSUBSC 1155 BSR DSUBSC
1156 LBSR PUTHS 1156 LBSR PUTHS
1157 FDB $0997 1157 FDB $0997
1158 FCB WT2 1158 FCB WT2
1159 FDB $3297 1159 FDB $3297
1160 FCB WT1,$DE,WT1 1160 FCB WT1,$9E,WT1
1161 FDB $A600 1161 FDB $A600
1162 CLR INDEX 1162 CLR INDEX
1163 RTS 1163 RTS
1164 ** FOR EXPANTION 1164 ** FOR EXPANTION
1165 TM10 LBRA ERROR 1165 TM10 LBRA ERROR