Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/TL1os9.asm @ 177:3770e86114aa

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 Mon, 15 Apr 2019 04:27:18 +0900
parents 6ef317714ae8
children 4d83154d2a78
comparison
equal deleted inserted replaced
176:6ef317714ae8 177:3770e86114aa
497 LBSR PUTHS 497 LBSR PUTHS
498 FCB 2 498 FCB 2
499 FDB $2603 499 FDB $2603
500 BSR SLAOUT 500 BSR SLAOUT
501 LBSR STAT 501 LBSR STAT
502 BRA PLUOUT 502 LDA SY
503 CMPA #$67 ELSE
504 BNE PLUOUT
505 BSR SLAOUT lbra then
506 BSR PEROUT
507 BSR PLUOUT else:
508 LBSR WORD
509 LBSR STAT
510 BRA PLUOUT then:
503 SLAOUT LBRA PSHJMP 511 SLAOUT LBRA PSHJMP
504 PEROUT LBRA STCHG 512 PEROUT LBRA STCHG
505 *** 513 ***
506 * CASE—OF 514 * CASE—OF
507 SS10 DECB 515 SS10 DECB
524 BSR SLAOUT 532 BSR SLAOUT
525 BSR PEROUT 533 BSR PEROUT
526 BSR PLUOUT 534 BSR PLUOUT
527 PULS B 535 PULS B
528 LDA SY 536 LDA SY
529 CMPA #$67 537 CMPA #$67 ELSE
530 BNE S10A 538 BNE S10A
531 PSHS B 539 PSHS B
532 LBSR WORD 540 LBSR WORD
533 LBSR STAT 541 LBSR STAT
534 PULS A 542 PULS A
899 BCS RTE 907 BCS RTE
900 CMPA #$30 908 CMPA #$30
901 BCC RTE 909 BCC RTE
902 PSHS A 910 PSHS A
903 LBSR WORD 911 LBSR WORD
904 ASR AEXPR 912 BSR AEXPR
905 LDA #$80 913 LDA #$80
906 BSR AOPER 914 BSR AOPER
907 PULS A 915 PULS A
908 LBSR PUTHS 916 LBSR PUTHS
909 FCB 6 917 FCB 6 b?? *+3 ; clra ; bra *+2 ; lda #$ff
910 FCB $3,$4F,$20,$02,$86,$FF 918 FCB $3,$4F,$20,$02,$86,$FF
911 BRA RE1 919 BRA RE1
912 ** ADDING OPERATFR 920 ** ADDING OPERATFR
913 AOPER LDB LSW 921 AOPER LDB LSW
914 BNE OCORD 922 BNE OCORD
1192 beq aradr1 1200 beq aradr1
1193 addb #$20 1201 addb #$20
1194 aradr1 LBSR PUTAB 1202 aradr1 LBSR PUTAB
1195 LBSR PUTHS 1203 LBSR PUTHS
1196 FCB 4,$1f,$30,$35,$40 1204 FCB 4,$1f,$30,$35,$40
1197 RTS 1205 LBSR WORD
1206 LDA #$3B ')'
1207 LBRA CHECK
1198 1208
1199 * FUNCTION NOT ASL ET AL 1209 * FUNCTION NOT ASL ET AL
1200 TM7 CMPA #$40 1210 TM7 CMPA #$40
1201 BCS TM8 1211 BCS TM8
1202 CMPA #$49+1 1212 CMPA #$49+1
1230 ** f(x,y) y can be an array 1240 ** f(x,y) y can be an array
1231 DSUBSA LDA #$3C ',' 1241 DSUBSA LDA #$3C ','
1232 BSR SUBS1 1242 BSR SUBS1
1233 LDA #$3B ')' 1243 LDA #$3B ')'
1234 PSHS A 1244 PSHS A
1235 LBSR WORD 1245 LDA SY
1246 CMPA #$5
1247 BNE DSUB1
1248 leas 1,s
1249 ldb #1 b==1 array
1250 RTS
1251 DSUB1 LBSR EXPR
1252 puls a
1253 lbsr CHECK
1236 clrb 1254 clrb
1237 CMPA #$5 1255 rts
1238 BNE SUBS2
1239 incb b==1 array
1240 RTS
1241 1256
1242 ** f(x,y) 1257 ** f(x,y)
1243 DSUBSC LDA #$3C ',' 1258 DSUBSC LDA #$3C ','
1244 BSR SUBS1 1259 BSR SUBS1
1245 LDA #$3B ')' 1260 LDA #$3B ')'
1415 LDA #$A7 1430 LDA #$A7
1416 BRA LA1 1431 BRA LA1
1417 ** 1432 **
1418 * STACK TOP CHANGE 1433 * STACK TOP CHANGE
1419 ** 1434 **
1420 STCHG LDD 2,S 1435 STCHG PSHS U,Y
1421 LDX 4,S 1436 LDU SP
1422 STD 4,S 1437 PULU X,Y
1423 STX 2,S 1438 STX ,--U
1424 RTS 1439 STY ,--U
1440 PULS U,Y,PC
1425 ** 1441 **
1426 * PUTHSL output with address calculation 1442 * PUTHSL output with address calculation
1427 * only working on 3 byte 16/17 (LBRA/LBSR) 1443 * only working on 3 byte 16/17 (LBRA/LBSR)
1428 ** 1444 **
1429 PUTHSL LDX ,S++ 1445 PUTHSL LDX ,S++
1691 FCB $70,-'R','N','D' 1707 FCB $70,-'R','N','D'
1692 FCB $71,-'G','E','T' 1708 FCB $71,-'G','E','T'
1693 FCB $72,-'R' 1709 FCB $72,-'R'
1694 FCC "EAD" 1710 FCC "EAD"
1695 FCB $A2,-'S' 1711 FCB $A2,-'S'
1696 FCC "SEEK" 1712 FCC "EEK"
1697 FCB $A3,-'S' 1713 FCB $A3,-'S'
1698 FCC "SEEKR" 1714 FCC "EEKR"
1699 FCB $A4,-'P' 1715 FCB $A4,-'P'
1700 FCC "OSITION" 1716 FCC "OSITION"
1701 FCB $A5,-'O' 1717 FCB $A5,-'O'
1702 FCC "PEN" 1718 FCC "PEN"
1703 FCB $A6,-'O' 1719 FCB $A6,-'O'