Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/TL1os9.asm @ 176:6ef317714ae8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mopen in TL/1
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 15 Apr 2019 00:25:58 +0900
parents c83545730d6c
children 3770e86114aa
comparison
equal deleted inserted replaced
175:c83545730d6c 176:6ef317714ae8
593 LBSR PUTHSL 593 LBSR PUTHSL
594 FDB $0317 594 FDB $0317
595 FDB SPACEA 595 FDB SPACEA
596 RTS 596 RTS
597 ** 597 **
598 WR4 CMPA #$A9 598 WR4 CMPA #$69
599 BNE WR5 599 BNE WR5
600 LBSR SUBSC 600 LBSR SUBSC
601 LBSR PUTHSL 601 LBSR PUTHSL
602 FDB $0317 602 FDB $0317
603 FDB PUTCA 603 FDB PUTCA
1112 ** FUNCTION RND 1112 ** FUNCTION RND
1113 TM6 CMPA #$70 1113 TM6 CMPA #$70
1114 BNE TM61 1114 BNE TM61
1115 LBSR SUBSC 1115 LBSR SUBSC
1116 LBSR PUTHSL 1116 LBSR PUTHSL
1117 FCB $0317 1117 FDB $0317
1118 FDB RND 1118 FDB RND
1119 RTS 1119 RTS
1120 * FUNTION GET 1120 * FUNTION GET
1121 TM61 CMPA #$71 1121 TM61 CMPA #$71
1122 BNE TM62 1122 BNE TM62
1123 LBSR SUBSC 1123 LBSR SUBSC
1124 LBSR PUTHS 1124 LBSR PUTHS
1125 FDB $0297 1125 FDB $0297
1126 FCB INDN 1126 FCB INDN
1127 LBSR PUTHSL 1127 LBSR PUTHSL
1128 FCB $0317 1128 FDB $0317
1129 FDB getchar 1129 FDB getchar
1130 RTS 1130 RTS
1131 * FUNCTION READ etc 1131 * FUNCTION READ etc
1132 TM62 CMPA #$72 1132 TM62 CMPA #$72
1133 BNE TM63 1133 BNE TM63
1134 LBSR SUBSC 1134 LBSR SUBSC
1135 LBSR PUTHS 1135 LBSR PUTHS
1136 FDB $0297 1136 FDB $0297
1137 FDB INDN 1137 FDB INDN
1138 LBSR PUTHSL 1138 LBSR PUTHSL
1139 FCB $038D 1139 FDB $0317
1140 FDB GETDA 1140 FDB GETDA
1141 RTS 1141 RTS
1142 TM63 CMPA #$A2 seek 1142 TM63 CMPA #$A2 seek
1143 BNE TM64 1143 BNE TM64
1144 LBSR SUBSC 1144 LBSR DSUBSA
1145 LBSR PUTHSL 1145 tstb
1146 FCB $0317 1146 beq tmm0
1147 bsr aradr
1148 tmm0 LBSR PUTHSL
1149 FDB $0317
1147 FDB NONE 1150 FDB NONE
1148 RTS 1151 RTS
1149 TM64 CMPA #$A3 seekr 1152 TM64 CMPA #$A3 seekr
1150 BNE TM65 1153 BNE TM65
1151 LBSR SUBSC 1154 LBSR DSUBSC
1152 LBSR PUTHSL 1155 LBSR PUTHSL
1153 FCB $0317 1156 FDB $0317
1154 FDB NONE 1157 FDB NONE
1155 RTS 1158 RTS
1156 TM65 CMPA #$A4 position 1159 TM65 CMPA #$A4 position
1157 BNE TM66 1160 BNE TM66
1158 LBSR SUBSC 1161 LBSR DSUBSA
1159 LBSR PUTHSL 1162 tstb
1160 FCB $0317 1163 beq tmm1
1164 bsr aradr
1165 tmm1 LBSR PUTHSL
1166 FDB $0317
1161 FDB NONE 1167 FDB NONE
1162 RTS 1168 RTS
1163 TM66 CMPA #$A5 open 1169 TM66 CMPA #$A5 open
1164 BNE TM67 1170 BNE TM67
1165 LBSR SUBSC 1171 LBSR DSUBSC
1166 LBSR PUTHSL 1172 LBSR PUTHSL
1167 FCB $0317 1173 FDB $0317
1168 FDB NONE 1174 FDB NONE
1169 RTS 1175 RTS
1170 TM67 CMPA #$A6 openm 1176 TM67 CMPA #$A6 openm
1171 BNE TM7 1177 BNE TM7
1172 LBSR SUBSC 1178 LBSR DSUBSA
1173 LBSR PUTHSL 1179 tstb
1174 FCB $0317 1180 beq tmm2
1181 bsr aradr
1182 tmm2 LBSR PUTHSL
1183 FDB $0317
1175 FDB NONE 1184 FDB NONE
1176 RTS 1185 RTS
1177 1186 * ; pshs u; leau ?,[xy] ; tfr u,d ; puls u
1178 * FUNCTION NOTASL ET AL 1187 aradr LBSR PUTHS
1188 FCB 2,$34,$40
1189 ldb VAL
1190 lda #$33 leau
1191 tst GL
1192 beq aradr1
1193 addb #$20
1194 aradr1 LBSR PUTAB
1195 LBSR PUTHS
1196 FCB 4,$1f,$30,$35,$40
1197 RTS
1198
1199 * FUNCTION NOT ASL ET AL
1179 TM7 CMPA #$40 1200 TM7 CMPA #$40
1180 BCS TM8 1201 BCS TM8
1181 CMPA #$49+1 1202 CMPA #$49+1
1182 BCC TM8 1203 BCC TM8
1183 PSHS A 1204 PSHS A
1203 STA AMODE 1224 STA AMODE
1204 RTS 1225 RTS
1205 ARY1 LDA #$8B 1226 ARY1 LDA #$8B
1206 LBSR PUTABX 1227 LBSR PUTABX
1207 LBRA LDAAX 1228 LBRA LDAAX
1208 ** 1229
1230 ** f(x,y) y can be an array
1231 DSUBSA LDA #$3C ','
1232 BSR SUBS1
1233 LDA #$3B ')'
1234 PSHS A
1235 LBSR WORD
1236 clrb
1237 CMPA #$5
1238 BNE SUBS2
1239 incb b==1 array
1240 RTS
1241
1242 ** f(x,y)
1209 DSUBSC LDA #$3C ',' 1243 DSUBSC LDA #$3C ','
1210 BSR SUBS1 1244 BSR SUBS1
1211 LDA #$3B ')' 1245 LDA #$3B ')'
1212 PSHS A 1246 PSHS A
1213 BRA SUBS2 1247 BRA SUBS2
1214 SUBSC LDA #$3E 1248 SUBSC LDA #$3B ')'
1215 SUBS1 PSHS A 1249 SUBS1 PSHS A
1216 LBSR WORD 1250 LBSR WORD
1217 LDA #$37 '(' 1251 LDA #$37 '('
1218 LBSR CHECK 1252 LBSR CHECK
1219 SUBS2 LBSR EXPR 1253 SUBS2 LBSR EXPR
1231 SBS5 LDA #$3A ']' 1265 SBS5 LDA #$3A ']'
1232 LBRA CHECK 1266 LBRA CHECK
1233 * MEM FUNCTION 1267 * MEM FUNCTION
1234 TM9 CMPA #6 1268 TM9 CMPA #6
1235 BNE TM10 1269 BNE TM10
1270 LBSR PUTHS ; leas -1,s
1271 FCB 2,$32,$7F
1236 BSR DSUBSC 1272 BSR DSUBSC
1237 LBSR PUTHS 1273 LBSR PUTHS ; sta 1,s; lda [,s++]
1238 FDB $0997 1274 FDB $04,$a7,$61,$a8,$f1
1239 FCB WT2
1240 FDB $3297
1241 FCB WT1,$9E,WT1
1242 FDB $A600
1243 RTS 1275 RTS
1244 ** FOR EXPANTION 1276 ** FOR EXPANTION
1245 TM10 LBRA ERROR 1277 TM10 LBRA ERROR
1246 ** 1278 **
1247 * ADDRESS DEPENDENT CODE 1279 * ADDRESS DEPENDENT CODE