Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/TL1os9.asm @ 175:c83545730d6c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
openm
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 14 Apr 2019 17:17:34 +0900
parents 90a8e97a70f7
children 6ef317714ae8
comparison
equal deleted inserted replaced
174:ce695e5e38d8 175:c83545730d6c
153 STA TCOUNT = 1 153 STA TCOUNT = 1
154 LDA #' ' 154 LDA #' '
155 STA CH 155 STA CH
156 ** copy reserved word table 156 ** copy reserved word table
157 LEAX WTABLE,PCR 157 LEAX WTABLE,PCR
158 leay WTBLE,u 158 pshs u
159 ldb #WTBLEND-WTABLE 159 leau WTBLE,u
160 ldy #WTBLEND-WTABLE
160 tbl1 lda ,x+ 161 tbl1 lda ,x+
161 sta ,y+ 162 sta ,u+
162 decb 163 leay -1,y
163 bne tbl1 164 bne tbl1
164 sty TEND 165 stu TEND
166 puls u
165 ** 167 **
166 LBSR CRLF 168 LBSR CRLF
167 BSR REG0 169 BSR REG0
168 LBSR WORD 170 LBSR WORD
169 CMPA #$30 PROC? 171 CMPA #$30 PROC?
1108 CLR ACC 1110 CLR ACC
1109 RTS4 RTS 1111 RTS4 RTS
1110 ** FUNCTION RND 1112 ** FUNCTION RND
1111 TM6 CMPA #$70 1113 TM6 CMPA #$70
1112 BNE TM61 1114 BNE TM61
1113 BSR SUBSC 1115 LBSR SUBSC
1114 LBSR PUTHSL 1116 LBSR PUTHSL
1115 FCB $0317 1117 FCB $0317
1116 FDB RND 1118 FDB RND
1117 RTS 1119 RTS
1118 * FUNTION GET 1120 * FUNTION GET
1119 TM61 CMPA #$71 1121 TM61 CMPA #$71
1120 BNE TM62 1122 BNE TM62
1121 BSR SUBSC 1123 LBSR SUBSC
1122 LBSR PUTHS 1124 LBSR PUTHS
1123 FDB $0297 1125 FDB $0297
1124 FCB INDN 1126 FCB INDN
1125 LBSR PUTHSL 1127 LBSR PUTHSL
1126 FCB $0317 1128 FCB $0317
1127 FDB getchar 1129 FDB getchar
1128 RTS 1130 RTS
1129 * FUNCTION READ 1131 * FUNCTION READ etc
1130 TM62 CMPA #$72 1132 TM62 CMPA #$72
1131 BNE TM7 1133 BNE TM63
1132 BSR SUBSC 1134 LBSR SUBSC
1133 LBSR PUTHS 1135 LBSR PUTHS
1134 FDB $0297 1136 FDB $0297
1135 FDB INDN 1137 FDB INDN
1136 LBSR PUTHSL 1138 LBSR PUTHSL
1137 FCB $038D 1139 FCB $038D
1138 FDB GETDA 1140 FDB GETDA
1139 RTS 1141 RTS
1142 TM63 CMPA #$A2 seek
1143 BNE TM64
1144 LBSR SUBSC
1145 LBSR PUTHSL
1146 FCB $0317
1147 FDB NONE
1148 RTS
1149 TM64 CMPA #$A3 seekr
1150 BNE TM65
1151 LBSR SUBSC
1152 LBSR PUTHSL
1153 FCB $0317
1154 FDB NONE
1155 RTS
1156 TM65 CMPA #$A4 position
1157 BNE TM66
1158 LBSR SUBSC
1159 LBSR PUTHSL
1160 FCB $0317
1161 FDB NONE
1162 RTS
1163 TM66 CMPA #$A5 open
1164 BNE TM67
1165 LBSR SUBSC
1166 LBSR PUTHSL
1167 FCB $0317
1168 FDB NONE
1169 RTS
1170 TM67 CMPA #$A6 openm
1171 BNE TM7
1172 LBSR SUBSC
1173 LBSR PUTHSL
1174 FCB $0317
1175 FDB NONE
1176 RTS
1177
1140 * FUNCTION NOTASL ET AL 1178 * FUNCTION NOTASL ET AL
1141 TM7 CMPA #$40 1179 TM7 CMPA #$40
1142 BCS TM8 1180 BCS TM8
1143 CMPA #$49+1 1181 CMPA #$49+1
1144 BCC TM8 1182 BCC TM8
1166 RTS 1204 RTS
1167 ARY1 LDA #$8B 1205 ARY1 LDA #$8B
1168 LBSR PUTABX 1206 LBSR PUTABX
1169 LBRA LDAAX 1207 LBRA LDAAX
1170 ** 1208 **
1171 DSUBSC LDA #$3C 1209 DSUBSC LDA #$3C ','
1172 BSR SUBS1 1210 BSR SUBS1
1173 LDA #$3B 1211 LDA #$3B ')'
1174 PSHS A 1212 PSHS A
1175 BRA SUBS2 1213 BRA SUBS2
1176 SUBSC LDA #$3E 1214 SUBSC LDA #$3E
1177 SUBS1 PSHS A 1215 SUBS1 PSHS A
1178 LBSR WORD 1216 LBSR WORD
1179 LDA #$37 1217 LDA #$37 '('
1180 LBSR CHECK 1218 LBSR CHECK
1181 SUBS2 LBSR EXPR 1219 SUBS2 LBSR EXPR
1182 PULS A 1220 PULS A
1183 LBRA CHECK 1221 LBRA CHECK
1184 SUBSC1 LBSR WORD 1222 SUBSC1 LBSR WORD
1185 LDA #$36 1223 LDA #$36 '['
1186 LBSR CHECK 1224 LBSR CHECK
1187 LBSR LEXPR 1225 LBSR LEXPR
1188 LDB LSW 1226 LDB LSW
1189 BEQ SBS5 1227 BEQ SBS5
1190 LDB AMODE 1228 LDB AMODE
1191 BEQ SBS5 1229 BEQ SBS5
1192 LBSR OLOAD 1230 LBSR OLOAD
1193 SBS5 LDA #$3A 1231 SBS5 LDA #$3A ']'
1194 LBRA CHECK 1232 LBRA CHECK
1195 * MEM FUNCTION 1233 * MEM FUNCTION
1196 TM9 CMPA #6 1234 TM9 CMPA #6
1197 BNE TM10 1235 BNE TM10
1198 BSR DSUBSC 1236 BSR DSUBSC
1620 FCC "OD" 1658 FCC "OD"
1621 FCB $70,-'R','N','D' 1659 FCB $70,-'R','N','D'
1622 FCB $71,-'G','E','T' 1660 FCB $71,-'G','E','T'
1623 FCB $72,-'R' 1661 FCB $72,-'R'
1624 FCC "EAD" 1662 FCC "EAD"
1663 FCB $A2,-'S'
1664 FCC "SEEK"
1665 FCB $A3,-'S'
1666 FCC "SEEKR"
1667 FCB $A4,-'P'
1668 FCC "OSITION"
1669 FCB $A5,-'O'
1670 FCC "PEN"
1671 FCB $A6,-'O'
1672 FCC "PENM"
1625 WTBLEND 1673 WTBLEND
1626 1674
1627 ****** 1675 ******
1628 * SUPORTING ROUTINES 1676 * SUPORTING ROUTINES
1629 * & I/0 CONTROL 1677 * & I/0 CONTROL
1630 ** 1678 **
1631 1679
1632 crt0top 1680 crt0top
1633 1681
1634 **
1635 * PUSH LB & SET NEW LB
1636 **
1637 *PSHLB pshs y
1638 * leay ,x
1639 * leax a,x
1640 * sty ,x++
1641 * puls y,pc
1642 **
1643 * PULL LB
1644 **
1645 *
1646 *PULLB LDX ,--X
1647 * TSTA
1648 * RTS
1649 ** 1682 **
1650 * RND FUNCTION 1683 * RND FUNCTION
1651 ** 1684 **
1652 RND PSHS A 1685 RND PSHS A
1653 LDA RNDL 1686 LDA RNDL
1662 ADDA ,S+ 1695 ADDA ,S+
1663 STA RNDH 1696 STA RNDH
1664 PULS B 1697 PULS B
1665 MUL 1698 MUL
1666 INCA 1699 INCA
1700 NONE
1667 RTS 1701 RTS
1668 ** 1702 **
1669 * DVISITION SET MOD 1703 * DVISITION SET MOD
1670 ** 1704 **
1671 DIV STB WT1 1705 DIV STB WT1