Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/TL1os9.asm @ 178:4d83154d2a78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add - {} some builtin in TL/1
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 15 Apr 2019 09:43:28 +0900
parents 3770e86114aa
children 41d578d28d8c
comparison
equal deleted inserted replaced
177:3770e86114aa 178:4d83154d2a78
323 LBSR PUTAB 323 LBSR PUTAB
324 RTS 324 RTS
325 ** 325 **
326 * PROC CALL 326 * PROC CALL
327 ** 327 **
328 SS4 CMPA #2 328 SS4 CMPA #2 proc
329 LBEQ PFCALL 329 LBEQ PFCALL
330 CMPA #$E0 330 CMPA #$E0
331 BCS SS5 331 BCS SS5
332 LBRA PFCALL 332 LBRA PFCALL
333 ** 333 **
399 FDB $A700 STA ,X 399 FDB $A700 STA ,X
400 RTS 400 RTS
401 ** 401 **
402 ** NON-STATEMENT 402 ** NON-STATEMENT
403 ** 403 **
404 SSEND COM SSW 404 SSEND CMPA #$A2 seek
405 LBEQ EXPR
406 CMPA #$A3 seekr
407 LBEQ EXPR
408 CMPA #$A4 position
409 LBEQ EXPR
410 SSEND1 COM SSW
405 RTS 411 RTS
406 ** 412 **
407 SS6 CMPA #$58 413 SS6 CMPA #$58
408 BCC SSEND 414 BCC SSEND
409 CMPA #$52 415 CMPA #$52
576 WR02 CLRA put 0 at end 582 WR02 CLRA put 0 at end
577 LBSR PUTA 583 LBSR PUTA
578 LBSR GETCH 584 LBSR GETCH
579 LBRA WORD 585 LBRA WORD
580 ** 586 **
581 WR1 CMPA #$6B 587 WR1 CMPA #$6B CRLF
582 BNE WR3 588 BNE WR3
583 LBSR WORD 589 LBSR WORD
584 CMPA #$37 590 CMPA #$37 '('
585 BEQ WR2 591 BEQ WR2
586 LBSR PUTHSL 592 LBSR PUTHSL
587 FDB $0317 593 FDB $0317
588 FDB CRLF 594 FDB CRLF
589 RTS 595 RTS
593 LBSR PUTHSL 599 LBSR PUTHSL
594 FDB $0317 600 FDB $0317
595 FDB CRLFA 601 FDB CRLFA
596 RTS 602 RTS
597 ** 603 **
598 WR3 CMPA #$6A 604 WR3 CMPA #$6A SPACE
599 BNE WR4 605 BNE WR4
600 LBSR SUBSC 606 LBSR SUBSC
601 LBSR PUTHSL 607 LBSR PUTHSL
602 FDB $0317 608 FDB $0317
603 FDB SPACEA 609 FDB SPACEA
604 RTS 610 RTS
605 ** 611 **
606 WR4 CMPA #$69 612 WR4 CMPA #$69 ASCII
607 BNE WR5 613 BNE WR5
608 LBSR SUBSC 614 LBSR SUBSC
609 LBSR PUTHSL 615 LBSR PUTHSL
610 FDB $0317 616 FDB $0317
611 FDB PUTCA 617 FDB PUTCA
612 RTS 618 RTS
613 ** 619 **
614 WR5 CMPA #$26 620 WR5 CMPA #$26 #
615 BNE WR6 621 BNE WR6
616 LBSR DSUBSC 622 LBSR DSUBSC
617 LBSR PUTPLB 623 LBSR PUTPLB
618 LBSR PUTHSL 624 LBSR PUTHSL
619 FDB $0317 625 FDB $0317
983 ** 989 **
984 * MUTIPLYING EXPRESSION 990 * MUTIPLYING EXPRESSION
985 ** 991 **
986 MEXPR BSR TERM 992 MEXPR BSR TERM
987 ME1 LDA SY 993 ME1 LDA SY
988 CMPA #$8E 994 CMPA #$8E *
989 BEQ ME2 995 BEQ ME2
990 CMPA #$8F 996 CMPA #$8F /
991 BNE RTE1 997 BNE RTE1
992 ME2 PSHS A 998 ME2 PSHS A
993 LBSR WORD 999 LBSR WORD
994 BSR TERM 1000 BSR TERM
995 LDB LSW 1001 LDB LSW
996 BEQ ME3 1002 BEQ ME3
997 LDA #$C6 1003 LDA #$C6 LDB
998 BSR OCORD 1004 BSR OCORD
999 FCB $8C 1005 FCB $8C ???
1000 ME3 BSR PUTPUL 1006 ME3 BSR PUTPUL
1001 PULS A 1007 PULS A
1002 CMPA #$8E 1008 CMPA #$8E
1003 BHS ME4 1009 BHS ME4
1004 LBSR PUTHSL 1010 LBSR PUTHSL
1005 FCB 3 1011 FCB 3
1006 FCB $17 1012 FCB $17
1007 FDB MULT 1013 FDB MULT should MUL inst
1008 BRA ME1 1014 BRA ME1
1009 ME4 LBSR PUTHSL 1015 ME4 LBSR PUTHSL
1010 FCB 3 1016 FCB 3
1011 FCB $17 1017 FCB $17
1012 FDB DIV 1018 FDB DIV
1025 STA GLL 1031 STA GLL
1026 PULS A 1032 PULS A
1027 STA AMODE 1033 STA AMODE
1028 COM LSW 1034 COM LSW
1029 LBRA WORD 1035 LBRA WORD
1036 * Uniary minus operator
1037 TM1 CMPA #$80
1038 BNE TM02
1039 LBSR WORD
1040 BSR TERM
1041 LDB LSW
1042 BEQ TM03
1043 NEG <OPER
1044 RTS
1045 TM03 LBSR PUTHS
1046 FCB $2,$35,$2 puls a
1047 LDA #$04 NEGA
1048 LBRA PUTA
1030 * CONST TRUE & FALSE 1049 * CONST TRUE & FALSE
1031 TM1 CMPA #$A0 1050 TM02 CMPA #$A0
1032 BEQ TM01 1051 BEQ TM01
1033 CMPA #$A1 1052 CMPA #$A1
1034 BNE TM2 1053 BNE TM2
1035 TM01 SUBA #$A1 1054 TM01 SUBA #$A1
1036 STA VAL 1055 STA VAL
1623 FCB $34,-'B' 1642 FCB $34,-'B'
1624 FCC "EGIN" 1643 FCC "EGIN"
1625 FCB $35,-';' 1644 FCB $35,-';'
1626 FCB $36,-'[' 1645 FCB $36,-'['
1627 FCB $37,-'(' 1646 FCB $37,-'('
1647 FCB $34,-'{'
1628 FCB $38,-'E' 1648 FCB $38,-'E'
1629 FCC "ND" 1649 FCC "ND"
1630 FCB $39,-'=' 1650 FCB $39,-'='
1631 FCB $3A,-']' 1651 FCB $3A,-']'
1632 FCB $3B,-')' 1652 FCB $3B,-')'
1653 FCB $38,-'}'
1633 FCB $3C,-',' 1654 FCB $3C,-','
1634 FCB $3D,-':' 1655 FCB $3D,-':'
1635 FCB $50,-'S' 1656 FCB $50,-'S'
1636 FCC "TOP" 1657 FCC "TOP"
1637 FCB $51,-'R' 1658 FCB $51,-'R'