000001 0000 000002 0000 ; Start of Basic tokens 000003 0000 .segment .memory 000004 0000 .memory 000005 0400 .org h'0400 000006 0400 000007 0400 i.: .rs 1 000008 0401 char.: .rs 1 000009 0402 choice.: .rs 1 000010 0403 value.: .rs 1 000011 0404 matches.: .rs 1 000012 0405 ; Compiled basic program: example 000013 0405 000014 0000 .code 000015 0000 .org h'0000 000016 0000 000017 0000 start: 000018 0000 000019 0000 12038C lcall basint ; call any initialization code 000020 0003 .L10: 000021 0003 000022 0003 .L20: 000023 0003 000024 0003 .L30: 000025 0003 000026 0003 .L40: 000027 0003 000028 0003 .L50: 000029 0003 000030 0003 .L60: 000031 0003 7409 mov a,#9 000032 0005 120398 lcall print 000033 0008 744D mov a,#77 000034 000A 120398 lcall print 000035 000D 7441 mov a,#65 000036 000F 120398 lcall print 000037 0012 7454 mov a,#84 000038 0014 120398 lcall print 000039 0017 7443 mov a,#67 000040 0019 120398 lcall print 000041 001C 7448 mov a,#72 000042 001E 120398 lcall print 000043 0021 7420 mov a,#32 000044 0023 120398 lcall print 000045 0026 7447 mov a,#71 000046 0028 120398 lcall print 000047 002B 7441 mov a,#65 000048 002D 120398 lcall print 000049 0030 744D mov a,#77 000050 0032 120398 lcall print 000051 0035 7445 mov a,#69 000052 0037 120398 lcall print 000053 003A 740A mov a,#10 000054 003C 120398 lcall print 000055 003F 740D mov a,#13 000056 0041 120398 lcall print 000057 0044 .L70: 000058 0044 741A mov a,#26 000059 0046 900404 mov dptr,#matches. 000060 0049 F0 movx @dptr,a 000061 004A .L80: 000062 004A 7420 mov a,#32 000063 004C 120398 lcall print 000064 004F 746E mov a,#110 000065 0051 120398 lcall print 000066 0054 7475 mov a,#117 000067 0056 120398 lcall print 000068 0059 746D mov a,#109 000069 005B 120398 lcall print 000070 005E 7462 mov a,#98 000071 0060 120398 lcall print 000072 0063 7465 mov a,#101 000073 0065 120398 lcall print 000074 0068 7472 mov a,#114 000075 006A 120398 lcall print 000076 006D 7420 mov a,#32 000077 006F 120398 lcall print 000078 0072 746F mov a,#111 000079 0074 120398 lcall print 000080 0077 7466 mov a,#102 000081 0079 120398 lcall print 000082 007C 7420 mov a,#32 000083 007E 120398 lcall print 000084 0081 746D mov a,#109 000085 0083 120398 lcall print 000086 0086 7461 mov a,#97 000087 0088 120398 lcall print 000088 008B 7474 mov a,#116 000089 008D 120398 lcall print 000090 0090 7463 mov a,#99 000091 0092 120398 lcall print 000092 0095 7468 mov a,#104 000093 0097 120398 lcall print 000094 009A 7465 mov a,#101 000095 009C 120398 lcall print 000096 009F 7473 mov a,#115 000097 00A1 120398 lcall print 000098 00A4 7420 mov a,#32 000099 00A6 120398 lcall print 000100 00A9 7472 mov a,#114 000101 00AB 120398 lcall print 000102 00AE 7465 mov a,#101 000103 00B0 120398 lcall print 000104 00B3 746D mov a,#109 000105 00B5 120398 lcall print 000106 00B8 7461 mov a,#97 000107 00BA 120398 lcall print 000108 00BD 7469 mov a,#105 000109 00BF 120398 lcall print 000110 00C2 746E mov a,#110 000111 00C4 120398 lcall print 000112 00C7 7469 mov a,#105 000113 00C9 120398 lcall print 000114 00CC 746E mov a,#110 000115 00CE 120398 lcall print 000116 00D1 7467 mov a,#103 000117 00D3 120398 lcall print 000118 00D6 743A mov a,#58 000119 00D8 120398 lcall print 000120 00DB 7420 mov a,#32 000121 00DD 120398 lcall print 000122 00E0 .L90: 000123 00E0 900404 mov dptr,#matches. 000124 00E3 E0 movx a,@dptr 000125 00E4 900403 mov dptr,#value. 000126 00E7 F0 movx @dptr,a 000127 00E8 .L100: 000128 00E8 1202DD lcall .L1000 000129 00EB .L110: 000130 00EB 7420 mov a,#32 000131 00ED 120398 lcall print 000132 00F0 7465 mov a,#101 000133 00F2 120398 lcall print 000134 00F5 746E mov a,#110 000135 00F7 120398 lcall print 000136 00FA 7474 mov a,#116 000137 00FC 120398 lcall print 000138 00FF 7465 mov a,#101 000139 0101 120398 lcall print 000140 0104 7472 mov a,#114 000141 0106 120398 lcall print 000142 0109 7420 mov a,#32 000143 010B 120398 lcall print 000144 010E 7431 mov a,#49 000145 0110 120398 lcall print 000146 0113 742D mov a,#45 000147 0115 120398 lcall print 000148 0118 7434 mov a,#52 000149 011A 120398 lcall print 000150 011D 743A mov a,#58 000151 011F 120398 lcall print 000152 0122 7420 mov a,#32 000153 0124 120398 lcall print 000154 0127 .L120: 000155 0127 120280 lcall .L900 000156 012A .L130: 000157 012A 900403 mov dptr,#value. 000158 012D E0 movx a,@dptr 000159 012E 900402 mov dptr,#choice. 000160 0131 F0 movx @dptr,a 000161 0132 .L140: 000162 0132 900402 mov dptr,#choice. 000163 0135 E0 movx a,@dptr 000164 0136 C0E0 push acc 000165 0138 7404 mov a,#4 000166 013A C0E0 push acc 000167 013C D0F0 pop b 000168 013E D0E0 pop acc 000169 0140 C3 clr c 000170 0141 95F0 subb a,b 000171 0143 600D jz .C0000 000172 0145 A2D2 mov c,210 000173 0147 92F7 mov 247,c 000174 0149 65F0 xrl a,b 000175 014B 5480 anl a,#128 000176 014D 7003 jnz .C0000 000177 014F 0200EB ljmp .L110 000178 0152 .C0000: 000179 0152 .L150: 000180 0152 900402 mov dptr,#choice. 000181 0155 E0 movx a,@dptr 000182 0156 C0E0 push acc 000183 0158 7401 mov a,#1 000184 015A C0E0 push acc 000185 015C D0F0 pop b 000186 015E D0E0 pop acc 000187 0160 C3 clr c 000188 0161 95F0 subb a,b 000189 0163 A2D2 mov c,210 000190 0165 92F7 mov 247,c 000191 0167 65F0 xrl a,b 000192 0169 5480 anl a,#128 000193 016B 6003 jz .C0001 000194 016D 0200EB ljmp .L110 000195 0170 .C0001: 000196 0170 .L160: 000197 0170 900404 mov dptr,#matches. 000198 0173 E0 movx a,@dptr 000199 0174 C0E0 push acc 000200 0176 900402 mov dptr,#choice. 000201 0179 E0 movx a,@dptr 000202 017A C0E0 push acc 000203 017C D0F0 pop b 000204 017E D0E0 pop acc 000205 0180 C3 clr c 000206 0181 95F0 subb a,b 000207 0183 900404 mov dptr,#matches. 000208 0186 F0 movx @dptr,a 000209 0187 .L170: 000210 0187 900404 mov dptr,#matches. 000211 018A E0 movx a,@dptr 000212 018B C0E0 push acc 000213 018D 7400 mov a,#0 000214 018F C0E0 push acc 000215 0191 D0F0 pop b 000216 0193 D0E0 pop acc 000217 0195 95F0 subb a,b 000218 0197 7003 jnz .C0002 000219 0199 020228 ljmp .L230 000220 019C .C0002: 000221 019C .L175: 000222 019C 900404 mov dptr,#matches. 000223 019F E0 movx a,@dptr 000224 01A0 C0E0 push acc 000225 01A2 7400 mov a,#0 000226 01A4 C0E0 push acc 000227 01A6 D0F0 pop b 000228 01A8 D0E0 pop acc 000229 01AA C3 clr c 000230 01AB 95F0 subb a,b 000231 01AD A2D2 mov c,210 000232 01AF 92F7 mov 247,c 000233 01B1 65F0 xrl a,b 000234 01B3 5480 anl a,#128 000235 01B5 6003 jz .C0003 000236 01B7 020228 ljmp .L230 000237 01BA .C0003: 000238 01BA .L180: 000239 01BA 7420 mov a,#32 000240 01BC 120398 lcall print 000241 01BF 7449 mov a,#73 000242 01C1 120398 lcall print 000243 01C4 7427 mov a,#39 000244 01C6 120398 lcall print 000245 01C9 746C mov a,#108 000246 01CB 120398 lcall print 000247 01CE 746C mov a,#108 000248 01D0 120398 lcall print 000249 01D3 7420 mov a,#32 000250 01D5 120398 lcall print 000251 01D8 7474 mov a,#116 000252 01DA 120398 lcall print 000253 01DD 7461 mov a,#97 000254 01DF 120398 lcall print 000255 01E2 746B mov a,#107 000256 01E4 120398 lcall print 000257 01E7 7465 mov a,#101 000258 01E9 120398 lcall print 000259 01EC 743A mov a,#58 000260 01EE 120398 lcall print 000261 01F1 7420 mov a,#32 000262 01F3 120398 lcall print 000263 01F6 .L190: 000264 01F6 7405 mov a,#5 000265 01F8 C0E0 push acc 000266 01FA 900402 mov dptr,#choice. 000267 01FD E0 movx a,@dptr 000268 01FE C0E0 push acc 000269 0200 D0F0 pop b 000270 0202 D0E0 pop acc 000271 0204 C3 clr c 000272 0205 95F0 subb a,b 000273 0207 900403 mov dptr,#value. 000274 020A F0 movx @dptr,a 000275 020B .L200: 000276 020B 900404 mov dptr,#matches. 000277 020E E0 movx a,@dptr 000278 020F C0E0 push acc 000279 0211 900403 mov dptr,#value. 000280 0214 E0 movx a,@dptr 000281 0215 C0E0 push acc 000282 0217 D0F0 pop b 000283 0219 D0E0 pop acc 000284 021B C3 clr c 000285 021C 95F0 subb a,b 000286 021E 900404 mov dptr,#matches. 000287 0221 F0 movx @dptr,a 000288 0222 .L210: 000289 0222 1202DD lcall .L1000 000290 0225 .L220: 000291 0225 02004A ljmp .L80 000292 0228 .L230: 000293 0228 7420 mov a,#32 000294 022A 120398 lcall print 000295 022D 7453 mov a,#83 000296 022F 120398 lcall print 000297 0232 746F mov a,#111 000298 0234 120398 lcall print 000299 0237 7472 mov a,#114 000300 0239 120398 lcall print 000301 023C 7472 mov a,#114 000302 023E 120398 lcall print 000303 0241 7479 mov a,#121 000304 0243 120398 lcall print 000305 0246 7420 mov a,#32 000306 0248 120398 lcall print 000307 024B 7479 mov a,#121 000308 024D 120398 lcall print 000309 0250 746F mov a,#111 000310 0252 120398 lcall print 000311 0255 7475 mov a,#117 000312 0257 120398 lcall print 000313 025A 7420 mov a,#32 000314 025C 120398 lcall print 000315 025F 746C mov a,#108 000316 0261 120398 lcall print 000317 0264 746F mov a,#111 000318 0266 120398 lcall print 000319 0269 7473 mov a,#115 000320 026B 120398 lcall print 000321 026E 7465 mov a,#101 000322 0270 120398 lcall print 000323 0273 740A mov a,#10 000324 0275 120398 lcall print 000325 0278 740D mov a,#13 000326 027A 120398 lcall print 000327 027D .L240: 000328 027D 020003 ljmp .L60 000329 0280 .L900: 000330 0280 000331 0280 .L905: 000332 0280 7400 mov a,#0 000333 0282 900403 mov dptr,#value. 000334 0285 F0 movx @dptr,a 000335 0286 .L910: 000336 0286 1203A0 lcall read 000337 0289 900401 mov dptr,#char. 000338 028C F0 movx @dptr,a 000339 028D .L912: 000340 028D 900401 mov dptr,#char. 000341 0290 E0 movx a,@dptr 000342 0291 120398 lcall print 000343 0294 .L920: 000344 0294 900401 mov dptr,#char. 000345 0297 E0 movx a,@dptr 000346 0298 C0E0 push acc 000347 029A 740D mov a,#13 000348 029C C0E0 push acc 000349 029E D0F0 pop b 000350 02A0 D0E0 pop acc 000351 02A2 95F0 subb a,b 000352 02A4 7003 jnz .C0004 000353 02A6 0202D2 ljmp .L950 000354 02A9 .C0004: 000355 02A9 .L930: 000356 02A9 900403 mov dptr,#value. 000357 02AC E0 movx a,@dptr 000358 02AD C0E0 push acc 000359 02AF 740A mov a,#10 000360 02B1 D0F0 pop b 000361 02B3 A4 mul ab 000362 02B4 C0E0 push acc 000363 02B6 900401 mov dptr,#char. 000364 02B9 E0 movx a,@dptr 000365 02BA C0E0 push acc 000366 02BC 7430 mov a,#48 000367 02BE C0E0 push acc 000368 02C0 D0F0 pop b 000369 02C2 D0E0 pop acc 000370 02C4 C3 clr c 000371 02C5 95F0 subb a,b 000372 02C7 D0F0 pop b 000373 02C9 25F0 add a,b 000374 02CB 900403 mov dptr,#value. 000375 02CE F0 movx @dptr,a 000376 02CF .L940: 000377 02CF 020286 ljmp .L910 000378 02D2 .L945: 000379 02D2 000380 02D2 .L950: 000381 02D2 740A mov a,#10 000382 02D4 120398 lcall print 000383 02D7 740D mov a,#13 000384 02D9 120398 lcall print 000385 02DC .L960: 000386 02DC 22 ret 000387 02DD .L1000: 000388 02DD 000389 02DD .L1005: 000390 02DD 000391 02DD .L1010: 000392 02DD 7400 mov a,#0 000393 02DF 900400 mov dptr,#i. 000394 02E2 F0 movx @dptr,a 000395 02E3 7402 mov a,#2 000396 02E5 C0E0 push acc 000397 02E7 .N0000: 000398 02E7 .L1020: 000399 02E7 7402 mov a,#2 000400 02E9 C0E0 push acc 000401 02EB 900400 mov dptr,#i. 000402 02EE E0 movx a,@dptr 000403 02EF C0E0 push acc 000404 02F1 900403 mov dptr,#value. 000405 02F4 E0 movx a,@dptr 000406 02F5 C0E0 push acc 000407 02F7 740A mov a,#10 000408 02F9 C0E0 push acc 000409 02FB D0F0 pop b 000410 02FD D0E0 pop acc 000411 02FF 84 div ab 000412 0300 C0F0 push b 000413 0302 7430 mov a,#48 000414 0304 D0F0 pop b 000415 0306 25F0 add a,b 000416 0308 D082 pop dpl 000417 030A D083 pop dph 000418 030C F0 movx @dptr,a 000419 030D .L1030: 000420 030D 900403 mov dptr,#value. 000421 0310 E0 movx a,@dptr 000422 0311 C0E0 push acc 000423 0313 740A mov a,#10 000424 0315 C0E0 push acc 000425 0317 D0F0 pop b 000426 0319 D0E0 pop acc 000427 031B 84 div ab 000428 031C 900403 mov dptr,#value. 000429 031F F0 movx @dptr,a 000430 0320 .L1040: 000431 0320 900400 mov dptr,#i. 000432 0323 E0 movx a,@dptr 000433 0324 04 inc a 000434 0325 F0 movx @dptr,a 000435 0326 D0F0 pop b 000436 0328 C3 clr c 000437 0329 95F0 subb a,b 000438 032B 600A jz .C0005 000439 032D A2D2 mov c,210 000440 032F 92F7 mov 247,c 000441 0331 65F0 xrl a,b 000442 0333 5480 anl a,#128 000443 0335 6005 jz .C0006 000444 0337 .C0005: 000445 0337 C0F0 push b 000446 0339 0202E7 ljmp .N0000 000447 033C .C0006: 000448 033C .L1045: 000449 033C 000450 033C .L1050: 000451 033C 7400 mov a,#0 000452 033E 900400 mov dptr,#i. 000453 0341 F0 movx @dptr,a 000454 0342 7402 mov a,#2 000455 0344 C0E0 push acc 000456 0346 .N0100: 000457 0346 .L1060: 000458 0346 7402 mov a,#2 000459 0348 C0E0 push acc 000460 034A 7402 mov a,#2 000461 034C C0E0 push acc 000462 034E 900400 mov dptr,#i. 000463 0351 E0 movx a,@dptr 000464 0352 C0E0 push acc 000465 0354 D0F0 pop b 000466 0356 D0E0 pop acc 000467 0358 C3 clr c 000468 0359 95F0 subb a,b 000469 035B C0E0 push acc 000470 035D D082 pop dpl 000471 035F D083 pop dph 000472 0361 E0 movx a,@dptr 000473 0362 120398 lcall print 000474 0365 .L1070: 000475 0365 900400 mov dptr,#i. 000476 0368 E0 movx a,@dptr 000477 0369 04 inc a 000478 036A F0 movx @dptr,a 000479 036B D0F0 pop b 000480 036D C3 clr c 000481 036E 95F0 subb a,b 000482 0370 600A jz .C0007 000483 0372 A2D2 mov c,210 000484 0374 92F7 mov 247,c 000485 0376 65F0 xrl a,b 000486 0378 5480 anl a,#128 000487 037A 6005 jz .C0008 000488 037C .C0007: 000489 037C C0F0 push b 000490 037E 020346 ljmp .N0100 000491 0381 .C0008: 000492 0381 .L1075: 000493 0381 740A mov a,#10 000494 0383 120398 lcall print 000495 0386 740D mov a,#13 000496 0388 120398 lcall print 000497 038B .L1080: 000498 038B 22 ret 000499 038C .L2000: 000500 038C 000501 038C ; ======= end of program ======= 000502 038C ; 000503 038C ; Example.lib - for use with BAS051 000504 038C ; copyright (c) 1989 W. Washington 000505 038C ; 000506 038C ; 000507 038C 000508 038C basint: ; initialization code 000509 038C ; 000510 038C ; place any additional initization code here 000511 038C ; 000512 038C 759852 mov scon, #h'52 ; initialize timer for baud rate 000513 038F 758920 mov tmod, #h'20 000514 0392 758DFD mov th1, #-3 ; set timer1 for 9600 000515 0395 D28E setb tr1 ; start timer1 000516 0397 22 ret 000517 0398 000518 0398 print: ; output character in acc 000519 0398 3099FD jnb ti,print ; wait until tranmitter is availiable 000520 039B C299 clr ti ; clear transmitter ready flag 000521 039D F599 mov sbuf,a ; send character 000522 039F 22 ret 000523 03A0 000524 03A0 read: ; input character in acc routine 000525 03A0 3098FD jnb ri,read ; wait until receiver contains character 000526 03A3 C298 clr ri ; clear receiver flag 000527 03A5 E599 mov a,sbuf ; get character 000528 03A7 22 ret 000529 03A8 000530 03A8 000531 03A8 .end start .C0000 =0152 ACC.4 =00E4 P1 =0090 SM1 =009E .C0001 =0170 ACC.5 =00E5 P1.0 =0090 SM2 =009D .C0002 =019C ACC.6 =00E6 P1.1 =0091 SP =0081 .C0003 =01BA ACC.7 =00E7 P1.2 =0092 START =0000 .C0004 =02A9 B =00F0 P1.3 =0093 T2CON =00C8 .C0005 =0337 B.0 =00F0 P1.4 =0094 T2CON.0 =00C8 .C0006 =033C B.1 =00F1 P1.5 =0095 T2CON.1 =00C9 .C0007 =037C B.2 =00F2 P1.6 =0096 T2CON.2 =00CA .C0008 =0381 B.3 =00F3 P1.7 =0097 T2CON.3 =00CB .L10 =0003 B.4 =00F4 P2 =00A0 T2CON.4 =00CC .L100 =00E8 B.5 =00F5 P2.0 =00A0 T2CON.5 =00CD .L1000 =02DD B.6 =00F6 P2.1 =00A1 T2CON.6 =00CE .L1005 =02DD B.7 =00F7 P2.2 =00A2 T2CON.7 =00CF .L1010 =02DD BASINT =038C P2.3 =00A3 TB8 =009B .L1020 =02E7 CHAR. =0401 P2.4 =00A4 TCLK =00CC .L1030 =030D CHOICE. =0402 P2.5 =00A5 TCON =0088 .L1040 =0320 CPRL2 =00C8 P2.6 =00A6 TCON.0 =0088 .L1045 =033C CT2 =00C9 P2.7 =00A7 TCON.1 =0089 .L1050 =033C CY =00D7 P3 =00B0 TCON.2 =008A .L1060 =0346 DPH =0083 P3.0 =00B0 TCON.3 =008B .L1070 =0365 DPL =0082 P3.1 =00B1 TCON.4 =008C .L1075 =0381 EA =00AF P3.2 =00B2 TCON.5 =008D .L1080 =038B ES =00AC P3.3 =00B3 TCON.6 =008E .L110 =00EB ET0 =00A9 P3.4 =00B4 TCON.7 =008F .L120 =0127 ET1 =00AB P3.5 =00B5 TF0 =008D .L130 =012A ET2 =00AD P3.6 =00B6 TF1 =008F .L140 =0132 EX0 =00A8 P3.7 =00B7 TF2 =00CF .L150 =0152 EX1 =00AA PCON =0087 TH0 =008C .L160 =0170 EXEN2 =00CB PRINT =0398 TH1 =008D .L170 =0187 EXF2 =00CE PS =00BC TH2 =00CD .L175 =019C F0 =00D5 PSW =00D0 TI =0099 .L180 =01BA I. =0400 PSW.0 =00D0 TL0 =008A .L190 =01F6 IE =00A8 PSW.1 =00D1 TL1 =008B .L20 =0003 IE.0 =00A8 PSW.2 =00D2 TL2 =00CC .L200 =020B IE.1 =00A9 PSW.3 =00D3 TMOD =0089 .L2000 =038C IE.2 =00AA PSW.4 =00D4 TR0 =008C .L210 =0222 IE.3 =00AB PSW.5 =00D5 TR1 =008E .L220 =0225 IE.4 =00AC PSW.6 =00D6 TR2 =00CA .L230 =0228 IE.5 =00AD PSW.7 =00D7 TXD =00B1 .L240 =027D IE.7 =00AF PT0 =00B9 VALUE. =0403 .L30 =0003 IE0 =0089 PT1 =00BB .L40 =0003 IE1 =008B PT2 =00BD .L50 =0003 INT0 =00B2 PX0 =00B8 .L60 =0003 INT1 =00B3 PX1 =00BA .L70 =0044 IP =00B8 RB8 =009A .L80 =004A IP.0 =00B8 RCAP2H =00CB .L90 =00E0 IP.1 =00B9 RCAP2L =00CA .L900 =0280 IP.2 =00BA RCLK =00CD .L905 =0280 IP.3 =00BB READ =03A0 .L910 =0286 IP.4 =00BC REN =009C .L912 =028D IP.5 =00BD RI =0098 .L920 =0294 IT0 =0088 RS0 =00D3 .L930 =02A9 IT1 =008A RS1 =00D4 .L940 =02CF MATCHES.=0404 RXD =00B0 .L945 =02D2 OV =00D2 SBUF =0099 .L950 =02D2 P =00D0 SCON =0098 .L960 =02DC P0 =0080 SCON.0 =0098 .N0000 =02E7 P0.0 =0080 SCON.1 =0099 .N0100 =0346 P0.1 =0081 SCON.2 =009A AC =00D6 P0.2 =0082 SCON.3 =009B ACC =00E0 P0.3 =0083 SCON.4 =009C ACC.0 =00E0 P0.4 =0084 SCON.5 =009D ACC.1 =00E1 P0.5 =0085 SCON.6 =009E ACC.2 =00E2 P0.6 =0086 SCON.7 =009F ACC.3 =00E3 P0.7 =0087 SM0 =009F