Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/TL1os9.asm @ 140:6294e7f4fad8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
index mode fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 07 Jan 2019 22:33:00 +0900
parents f1b4da312358
children 19ddf9e805cf
comparison
equal deleted inserted replaced
139:f1b4da312358 140:6294e7f4fad8
872 LDA ACC 872 LDA ACC
873 BEQ OL1 873 BEQ OL1
874 LDD #$3402 pshs a 874 LDD #$3402 pshs a
875 LBSR PUTAB 875 LBSR PUTAB
876 OL1 LDA #$86 876 OL1 LDA #$86
877 PSHS A
878 CLRA
879 STA LSW
880 COMA
881 STA ACC
882 LDA AMODE
883 CMPA #$20
884 BNE *+5
885 LBSR PUTX
886 CLR LSW
887 PULS A
888 ADDA AMODE
889 LDB OPER
890 LBRA PUTAB
891 OCORD PSHS A 877 OCORD PSHS A
892 CLRA 878 CLRA
893 STA LSW 879 STA LSW
894 COMA 880 COMA
895 STA ACC 881 STA ACC
898 BNE *+5 884 BNE *+5
899 LBSR PUTX 885 LBSR PUTX
900 CLR LSW 886 CLR LSW
901 PULS A 887 PULS A
902 ADDA AMODE 888 ADDA AMODE
889 CMPA #$A6
890 BEQ OCOFS
891 CMPA #$E6
892 BEQ OCOFS
903 LDB OPER 893 LDB OPER
894 LBRA PUTAB
895 OCOFS LDB OPER
904 LBRA PUTOFS 896 LBRA PUTOFS
905 * PUT 'TAB:PULS A' 897 * PUT 'TAB:PULS A'
906 PUTPUL LBSR PUTHS 898 PUTPUL LBSR PUTHS
907 FCB 4 899 FCB 4
908 FCB $1f,$89,$35,2 tfr a,b ; puls a 900 FCB $1f,$89,$35,2 tfr a,b ; puls a