asm80 asmedit.asm INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 1 LOC OBJ LINE SOURCE STATEMENT 1 ; DA8085 Version 1.3C3 2 ; Disassembly of asmedit.bin 3 ; File is 1792D[00700H] bytes 4 ; Disassembled on Sun Dec 15 15:00:52 2024 5 6 7 ; Out of Range Label Definitions 8 0000 9 RESET EQU 00000H ; 0003 10 IOBYT EQU 00003H ; 0004 11 A0004 EQU 00004H ; 0011 12 A0011 EQU 00011H ; 0100 13 A0100 EQU 00100H ; 01FF 14 A01FF EQU 001FFH ; 03FF 15 A03FF EQU 003FFH ; 04FF 16 A04FF EQU 004FFH ; 1F80 17 BPTR EQU 01F80H ; 1F82 18 A1F82 EQU 01F82H ; 1F83 19 A1F83 EQU 01F83H ; 1F84 20 A1F84 EQU 01F84H ; 322A 21 A322A EQU 0322AH ; 3806 22 J_RI EQU 03806H ; 3809 23 J_CO EQU 03809H ; 380C 24 J_PO EQU 0380CH ; 381E 25 J_START EQU 0381EH ; 3821 26 J_COMP EQU 03821H ; 3824 27 J_NULL EQU 03824H ; 3827 28 J_TRAN EQU 03827H ; 382A 29 J_LER EQU 0382AH ; 382D 30 J_BLK EQU 0382DH ; 3830 31 J_CRLF EQU 03830H ; 3833 32 J_EXPR EQU 03833H ; 3836 33 J_HILO EQU 03836H ; 3839 34 J_LADR EQU 03839H ; 383C 35 J_LBYTE EQU 0383CH ; 383F 36 J_NIBBLE EQU 0383FH ; 3842 37 J_PBYTE EQU 03842H ; 3845 38 J_PEOL EQU 03845H ; 3848 39 J_TI EQU 03848H ; CDC3 40 ACDC3 EQU 0CDC3H ; 41 42 ; Port Definitions 43 0000 44 TTYIO EQU 00000H ; 0001 45 TTYSC EQU 00001H ; 0002 46 P0002 EQU 00002H ; 0003 47 P0003 EQU 00003H ; 0004 48 CRTIO EQU 00004H ; 0005 49 CRTSC EQU 00005H ; 0006 50 P0006 EQU 00006H ; 00D6 51 P00D6 EQU 000D6H ; 00DE 52 P00DE EQU 000DEH ; 00FF 53 P00FF EQU 000FFH ; 54 INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 2 LOC OBJ LINE SOURCE STATEMENT 55 ASEG 56 57 ; ASCII character equates 58 0008 59 BS EQU 008H 0009 60 HT EQU 009H 000A 61 LF EQU 00AH 000D 62 CR EQU 00DH 63 64 ; 160 symbols defined 65 66 ; Origin set to 3000H, Binary file delta set to 0000 3000 67 ORG 03000H 68 3000 C30000 69 RE3000: JMP RESET 3003 C30000 70 JMP RESET 3006 C3FA35 71 JMP J35FA 3009 C33936 72 JMP J3639 300C C30000 73 JMP RESET 300F C35A36 74 JMP J365A 3012 C30000 75 JMP RESET 3015 C30000 76 JMP RESET 3018 C30000 77 JMP RESET 78 301B C39933 79 RE301B: JMP J3399 80 301E C36E34 81 RE301E: JMP J346E 82 3021 C3B934 83 RE3021: JMP J34B9 84 3024 C31E35 85 RE3024: JMP J351E 86 3027 C3B935 87 RE3027: JMP J35B9 302A C36A35 88 JMP J356A 89 302D C33630 90 RE302D: JMP J3036 91 3030 C37536 92 RE3030: JMP J3675 3033 C30000 93 JMP RESET 94 3036 0E03 95 J3036: MVI C,003H 3038 CD3338 96 CALL J_EXPR 303B E1 97 POP H 303C 7D 98 MOV A,L 303D FE03 99 CPI 003H 303F D22A38 100 JNC J_LER 3042 32841F 101 STA A1F84 3045 E1 102 POP H 3046 22821F 103 SHLD A1F82 3049 E1 104 POP H 304A 22801F 105 SHLD BPTR 304D C3DA30 106 JMP J30DA 107 3050 2A801F 108 GNBYTE: LHLD BPTR 3053 7E 109 MOV A,M INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 3 LOC OBJ LINE SOURCE STATEMENT 3054 23 110 INX H 3055 22801F 111 SHLD BPTR 3058 C9 112 RET 113 3059 3C 114 C3059: INR A 305A E607 115 ANI 007H 305C FE06 116 CPI 006H 305E DA6330 117 JC J3063 3061 C603 118 ADI 003H 119 3063 FE05 120 J3063: CPI 005H 3065 DA6A30 121 JC J306A 3068 C602 122 ADI 002H 123 306A C641 124 J306A: ADI 'A' 306C 4F 125 MOV C,A 306D C39430 126 JMP OIO 127 3070 0604 128 C3070: MVI B,004H 129 3072 4E 130 J3072: MOV C,M 3073 CD9430 131 CALL OIO 3076 23 132 INX H 3077 05 133 DCR B 3078 C27230 134 JNZ J3072 307B 0E20 135 MVI C,' ' 307D C39430 136 JMP OIO 137 3080 F5 138 OBYTE: PUSH PSW 3081 0F 139 RRC 3082 0F 140 RRC 3083 0F 141 RRC 3084 0F 142 RRC 3085 E60F 143 ANI 00FH 3087 CD8D30 144 CALL CONV 308A F1 145 POP PSW 308B E60F 146 ANI 00FH 147 308D C690 148 CONV: ADI 090H 308F 27 149 DAA 3090 CE40 150 ACI '@' 3092 27 151 DAA 3093 4F 152 MOV C,A 153 3094 3A841F 154 OIO: LDA A1F84 3097 A7 155 ANA A 3098 CA0938 156 JZ J_CO 309B 3D 157 DCR A 309C CA0C38 158 JZ J_PO 309F CD0C38 159 CALL J_PO 30A2 C30938 160 JMP J_CO 161 30A5 7A 162 HIREG: MOV A,D 30A6 E638 163 ANI '8' 30A8 0F 164 RRC INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 4 LOC OBJ LINE SOURCE STATEMENT 30A9 0F 165 RRC 30AA 0F 166 RRC 30AB C9 167 RET 168 30AC CDA530 169 C30AC: CALL HIREG 30AF 87 170 ADD A 30B0 4F 171 MOV C,A 30B1 218933 172 LXI H,A3389 30B4 09 173 DAD B 30B5 4E 174 MOV C,M 30B6 CD9430 175 CALL OIO 30B9 23 176 INX H 30BA 4E 177 MOV C,M 30BB CD9430 178 CALL OIO 30BE 0E20 179 MVI C,' ' 30C0 CD9430 180 CALL OIO 30C3 C39430 181 JMP OIO 182 30C6 CDA530 183 C30C6: CALL HIREG 30C9 E606 184 ANI 006H 30CB FE06 185 CPI 006H 30CD C25930 186 JNZ C3059 30D0 0E53 187 MVI C,'S' 30D2 CD9430 188 CALL OIO 30D5 0E50 189 MVI C,'P' 30D7 C39430 190 JMP OIO 191 30DA 0E0D 192 J30DA: MVI C,CR 30DC CD9430 193 CALL OIO 30DF 0E0A 194 MVI C,LF 30E1 CD9430 195 CALL OIO 30E4 2A821F 196 LHLD A1F82 30E7 EB 197 XCHG 30E8 2A801F 198 LHLD BPTR 30EB 2B 199 DCX H 30EC CD3638 200 CALL J_HILO 30EF DA1E38 201 JC J_START 30F2 0E2E 202 MVI C,'.' 30F4 CD9430 203 CALL OIO 30F7 7C 204 MOV A,H 30F8 CD8030 205 CALL OBYTE 30FB 7D 206 MOV A,L 30FC CD8030 207 CALL OBYTE 30FF 0E20 208 MVI C,' ' 3101 CD9430 209 CALL OIO 3104 CD9430 210 CALL OIO 3107 CD5030 211 CALL GNBYTE 310A 57 212 MOV D,A 310B 218C32 213 LXI H,A328C 310E 011100 214 LXI B,A0011 215 3111 BE 216 J3111: CMP M 3112 CA7E32 217 JZ J327E 3115 23 218 INX H 3116 0D 219 DCR C INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 5 LOC OBJ LINE SOURCE STATEMENT 3117 C21131 220 JNZ J3111 311A 0E0A 221 MVI C,LF 222 311C BE 223 J311C: CMP M 311D CA6032 224 JZ J3260 3120 23 225 INX H 3121 0D 226 DCR C 3122 C21C31 227 JNZ J311C 3125 0E06 228 MVI C,006H 229 3127 BE 230 J3127: CMP M 3128 CA4332 231 JZ J3243 312B 23 232 INX H 312C 0D 233 DCR C 312D C22731 234 JNZ J3127 3130 E6C0 235 ANI 0C0H 3132 FE40 236 CPI '@' 3134 CA2932 237 JZ J3229 3137 FE80 238 CPI 080H 3139 CA1A32 239 JZ J321A 313C 7A 240 MOV A,D 313D E6C7 241 ANI 0C7H 313F D604 242 SUI 004H 3141 CA0B32 243 JZ J320B 3144 3D 244 DCR A 3145 CA0532 245 JZ J3205 3148 3D 246 DCR A 3149 CAF131 247 JZ J31F1 314C 7A 248 MOV A,D 314D E6C0 249 ANI 0C0H 314F CABD31 250 JZ J31BD 3152 7A 251 MOV A,D 3153 E6C7 252 ANI 0C7H 3155 D6C0 253 SUI 0C0H 3157 CAB231 254 JZ J31B2 315A D602 255 SUI 002H 315C CAA731 256 JZ J31A7 315F D602 257 SUI 002H 3161 CA9431 258 JZ J3194 3164 D603 259 SUI 003H 3166 CA8531 260 JZ J3185 3169 7A 261 MOV A,D 316A E607 262 ANI 007H 316C 4F 263 MOV C,A 316D 218033 264 LXI H,A3380 3170 09 265 DAD B 3171 CD7030 266 CALL C3070 3174 CDA530 267 CALL HIREG 3177 FE06 268 CPI 006H 3179 C21432 269 JNZ J3214 317C 217D33 270 LXI H,A337D 317F CD7030 271 CALL C3070 3182 C3DA30 272 JMP J30DA 273 3185 217933 274 J3185: LXI H,A3379 INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 6 LOC OBJ LINE SOURCE STATEMENT 3188 CD7030 275 CALL C3070 318B CDA530 276 CALL HIREG 318E CD8030 277 CALL OBYTE 3191 C3DA30 278 JMP J30DA 279 3194 0E43 280 J3194: MVI C,'C' 3196 CD9430 281 CALL OIO 3199 CDAC30 282 CALL C30AC 283 319C 0E2E 284 J319C: MVI C,'.' 319E CD9430 285 CALL OIO 31A1 CD5132 286 CALL C3251 31A4 C3DA30 287 JMP J30DA 288 31A7 0E4A 289 J31A7: MVI C,'J' 31A9 CD9430 290 CALL OIO 31AC CDAC30 291 CALL C30AC 31AF C39C31 292 JMP J319C 293 31B2 0E52 294 J31B2: MVI C,'R' 31B4 CD9430 295 CALL OIO 31B7 CDAC30 296 CALL C30AC 31BA C3DA30 297 JMP J30DA 298 31BD 216133 299 J31BD: LXI H,A3361 31C0 7A 300 MOV A,D 31C1 E60F 301 ANI 00FH 31C3 3D 302 DCR A 31C4 CADB31 303 JZ J31DB 31C7 FE04 304 CPI 004H 31C9 DACE31 305 JC J31CE 31CC D605 306 SUI 005H 307 31CE 87 308 J31CE: ADD A 31CF 87 309 ADD A 31D0 4F 310 MOV C,A 31D1 09 311 DAD B 31D2 CD7030 312 CALL C3070 31D5 CDC630 313 CALL C30C6 31D8 C3DA30 314 JMP J30DA 315 31DB CD7030 316 J31DB: CALL C3070 31DE CDC630 317 CALL C30C6 31E1 0E2C 318 MVI C,',' 31E3 CD9430 319 CALL OIO 31E6 0E30 320 MVI C,'0' 31E8 CD9430 321 CALL OIO 31EB CD5132 322 CALL C3251 31EE C37632 323 JMP J3276 324 31F1 215D33 325 J31F1: LXI H,A335D 31F4 CD7030 326 CALL C3070 31F7 CDA530 327 CALL HIREG 31FA CD5930 328 CALL C3059 31FD 0E2C 329 MVI C,',' INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 7 LOC OBJ LINE SOURCE STATEMENT 31FF CD9430 330 CALL OIO 3202 C36B32 331 JMP J326B 332 3205 215933 333 J3205: LXI H,A3359 3208 C30E32 334 JMP J320E 335 320B 215533 336 J320B: LXI H,A3355 337 320E CD7030 338 J320E: CALL C3070 3211 CDA530 339 CALL HIREG 340 3214 CD5930 341 J3214: CALL C3059 3217 C3DA30 342 JMP J30DA 343 321A 7A 344 J321A: MOV A,D 321B E638 345 ANI '8' 321D 0F 346 RRC 321E 4F 347 MOV C,A 321F 213533 348 LXI H,A3335 3222 09 349 DAD B 3223 CD7030 350 CALL C3070 3226 C33A32 351 JMP J323A 352 3229 213133 353 J3229: LXI H,A3331 322C CD7030 354 CALL C3070 322F CDA530 355 CALL HIREG 3232 CD5930 356 CALL C3059 3235 0E2C 357 MVI C,',' 3237 CD9430 358 CALL OIO 359 323A 7A 360 J323A: MOV A,D 323B E607 361 ANI 007H 323D CD5930 362 CALL C3059 3240 C3DA30 363 JMP J30DA 364 3243 79 365 J3243: MOV A,C 3244 87 366 ADD A 3245 87 367 ADD A 3246 4F 368 MOV C,A 3247 211533 369 LXI H,A3315 324A 09 370 DAD B 324B CD7030 371 CALL C3070 324E C39C31 372 JMP J319C 373 3251 CD5030 374 C3251: CALL GNBYTE 3254 57 375 MOV D,A 3255 CD5030 376 CALL GNBYTE 3258 CD8030 377 CALL OBYTE 325B 7A 378 MOV A,D 325C CD8030 379 CALL OBYTE 325F C9 380 RET 381 3260 79 382 J3260: MOV A,C 3261 87 383 ADD A 3262 87 384 ADD A INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 8 LOC OBJ LINE SOURCE STATEMENT 3263 4F 385 MOV C,A 3264 21ED32 386 LXI H,A32ED 3267 09 387 DAD B 3268 CD7030 388 CALL C3070 389 326B 0E30 390 J326B: MVI C,'0' 326D CD9430 391 CALL OIO 3270 CD5030 392 CALL GNBYTE 3273 CD8030 393 CALL OBYTE 394 3276 0E48 395 J3276: MVI C,'H' 3278 CD9430 396 CALL OIO 327B C3DA30 397 JMP J30DA 398 327E 79 399 J327E: MOV A,C 327F 87 400 ADD A 3280 87 401 ADD A 3281 4F 402 MOV C,A 3282 21A932 403 LXI H,A32A9 3285 09 404 DAD B 3286 CD7030 405 CALL C3070 3289 C3DA30 406 JMP J30DA 407 328C 00 408 A328C: DB 000H, 007H, 00FH, 017H, 01FH, 027H, 02FH, 037H ;328C-000H 007H 00FH 017 H 01FH ''' '/' '7' 328D 07 328E 0F 328F 17 3290 1F 3291 27 3292 2F 3293 37 3294 3F 409 DB 03FH, 076H, 0C9H, 0E3H, 0E9H, 0EBH, 0F3H, 0F9H ;3294-'?' 'v' 0C9H 0E3H 0E9H 0EBH 0F3H 0F9H 3295 76 3296 C9 3297 E3 3298 E9 3299 EB 329A F3 329B F9 329C FB 410 DB 0FBH, 0C6H, 0CEH, 0D3H, 0D6H, 0DBH, 0DEH, 0E6H ;329C-0FBH 0C6H 0CEH 0D3 H 0D6H 0DBH 0DEH 0E6H 329D C6 329E CE 329F D3 32A0 D6 32A1 DB 32A2 DE 32A3 E6 32A4 EE 411 DB 0EEH, 0F6H, 0FEH, 022H, 02AH ;32A4-0EEH 0F6H 0FEH '"' '*' 32A5 F6 32A6 FE 32A7 22 32A8 2A INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 9 LOC OBJ LINE SOURCE STATEMENT 32A9 32 412 A32A9: DB 032H, 03AH, 0C3H, 0CDH ;32A9-'2' ':' 0C3H 0CDH 32AA 3A 32AB C3 32AC CD 32AD 45492020 413 DB 'EI SPHLDI XCHGPCHLXTHLRET HLT CMC STC CMA DAA RAR RAL ' ;32AD- 32B1 5350484C 32B5 44492020 32B9 58434847 32BD 5043484C 32C1 5854484C 32C5 52455420 32C9 484C5420 32CD 434D4320 32D1 53544320 32D5 434D4120 32D9 44414120 32DD 52415220 32E1 52414C20 32E5 52524320 414 DB 'RRC RLC ' ;32E5- 32E9 524C4320 32ED 4E4F5020 415 A32ED: DB 'NOP CPI ORI XRI ANI SBI IN SUI OUT ACI ' ;32ED- 32F1 43504920 32F5 4F524920 32F9 58524920 32FD 414E4920 3301 53424920 3305 494E2020 3309 53554920 330D 4F555420 3311 41434920 3315 41444920 416 A3315: DB 'ADI CALLJMP LDA STA LHLDSHLD' ;3315- 3319 43414C4C 331D 4A4D5020 3321 4C444120 3325 53544120 3329 4C484C44 332D 53484C44 3331 4D4F5620 417 A3331: DB 'MOV ' ;3331- 3335 41444420 418 A3335: DB 'ADD ADC SUB SBB ANA XRA ORA CMP ' ;3335- 3339 41444320 333D 53554220 3341 53424220 3345 414E4120 3349 58524120 334D 4F524120 3351 434D5020 3355 494E5220 419 A3355: DB 'INR ' ;3355- 3359 44435220 420 A3359: DB 'DCR ' ;3359- 335D 4D564920 421 A335D: DB 'MVI ' ;335D- 3361 4C584920 422 A3361: DB 'LXI STAXINX DAD LDAXDCX ' ;3361- 3365 53544158 3369 494E5820 336D 44414420 3371 4C444158 3375 44435820 INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 10 LOC OBJ LINE SOURCE STATEMENT 3379 52535420 423 A3379: DB 'RST ' ;3379- 337D 505357 424 A337D: DB 'PSW' ;337D- 3380 20504F50 425 A3380: DB ' POP PUSH' ;3380- 3384 20505553 3388 48 3389 4E5A5A20 426 A3389: DB 'NZZ NCC POPEP M ' ;3389- 338D 4E434320 3391 504F5045 3395 50204D20 3399 CD4838 427 J3399: CALL J_TI 339C F5 428 PUSH PSW 339D CD4838 429 CALL J_TI 33A0 FE2C 430 CPI ',' 33A2 C22A38 431 JNZ J_LER 33A5 F1 432 POP PSW 33A6 FE32 433 CPI '2' 33A8 0E02 434 MVI C,002H 33AA CA2438 435 JZ J_NULL 33AD FE34 436 CPI '4' 33AF CAB733 437 JZ J33B7 33B2 FE38 438 CPI '8' 33B4 C22A38 439 JNZ J_LER 440 33B7 0E03 441 J33B7: MVI C,003H 33B9 CD3338 442 CALL J_EXPR 33BC CD3038 443 CALL J_CRLF 33BF 3E30 444 MVI A,'0' 33C1 D301 445 OUT TTYSC 33C3 3E00 446 MVI A,0 33C5 320400 447 STA A0004 33C8 D3FF 448 OUT P00FF 33CA C1 449 POP B 33CB D1 450 POP D 33CC E1 451 POP H 33CD E5 452 PUSH H 33CE D5 453 PUSH D 33CF C5 454 PUSH B 455 33D0 CD5C34 456 J33D0: CALL C345C 33D3 AE 457 XRA M 33D4 A6 458 ANA M 33D5 C2E733 459 JNZ J33E7 33D8 03 460 INX B 33D9 CD3638 461 CALL J_HILO 33DC D2D033 462 JNC J33D0 33DF C3F433 463 JMP J33F4 464 33E2 CD5C34 465 J33E2: CALL C345C 33E5 AE 466 XRA M 33E6 A6 467 ANA M 468 33E7 C40335 469 J33E7: CNZ C3503 33EA 03 470 INX B 33EB CD3638 471 CALL J_HILO 33EE D2E233 472 JNC J33E2 INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 11 LOC OBJ LINE SOURCE STATEMENT 33F1 C32A38 473 JMP J_LER 474 33F4 3A0400 475 J33F4: LDA A0004 33F7 FE64 476 CPI 'd' 33F9 C20E34 477 JNZ J340E 33FC 01FF04 478 LXI B,A04FF 479 33FF CD5334 480 J33FF: CALL C3453 3402 0B 481 DCX B 3403 78 482 MOV A,B 3404 A7 483 ANA A 3405 C2FF33 484 JNZ J33FF 3408 C1 485 POP B 3409 D1 486 POP D 340A E1 487 POP H 340B C3EE34 488 JMP J34EE 489 340E 210400 490 J340E: LXI H,A0004 3411 34 491 INR M 3412 7E 492 MOV A,M 3413 D3FF 493 OUT P00FF 3415 C1 494 POP B 3416 D1 495 POP D 3417 E1 496 POP H 3418 E5 497 PUSH H 3419 D5 498 PUSH D 341A C5 499 PUSH B 500 341B 7E 501 J341B: MOV A,M 341C 2F 502 CMA 341D D303 503 OUT P0003 341F 79 504 MOV A,C 3420 2F 505 CMA 3421 D302 506 OUT P0002 3423 78 507 MOV A,B 3424 2F 508 CMA 3425 07 509 RLC 3426 07 510 RLC 3427 07 511 RLC 3428 07 512 RLC 3429 E630 513 ANI '0' 342B F640 514 ORI '@' 342D D301 515 OUT TTYSC 342F 00 516 NOP 3430 00 517 NOP 3431 F680 518 ORI 080H 3433 D301 519 OUT TTYSC 3435 CD5334 520 CALL C3453 3438 E670 521 ANI 'p' 343A D301 522 OUT TTYSC 343C 03 523 INX B 343D CD3638 524 CALL J_HILO 3440 D21B34 525 JNC J341B 3443 3E00 526 MVI A,0 3445 D301 527 OUT TTYSC INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 12 LOC OBJ LINE SOURCE STATEMENT 3447 265A 528 MVI H,'Z' 529 3449 CD5334 530 J3449: CALL C3453 344C 25 531 DCR H 344D C24934 532 JNZ J3449 3450 C3F433 533 JMP J33F4 534 3453 D5 535 C3453: PUSH D 3454 1E4E 536 MVI E,'N' 537 3456 1D 538 J3456: DCR E 3457 C25634 539 JNZ J3456 345A D1 540 POP D 345B C9 541 RET 542 345C 78 543 C345C: MOV A,B 345D 2F 544 CMA 345E 07 545 RLC 345F 07 546 RLC 3460 07 547 RLC 3461 07 548 RLC 3462 E630 549 ANI '0' 3464 D301 550 OUT TTYSC 3466 79 551 MOV A,C 3467 2F 552 CMA 3468 D302 553 OUT P0002 346A DB02 554 IN P0002 346C 2F 555 CMA 346D C9 556 RET 557 346E CD4838 558 J346E: CALL J_TI 3471 F5 559 PUSH PSW 3472 CD4838 560 CALL J_TI 3475 FE2C 561 CPI ',' 3477 C22A38 562 JNZ J_LER 347A F1 563 POP PSW 347B FE32 564 CPI '2' 347D CA2738 565 JZ J_TRAN 3480 FE34 566 CPI '4' 3482 C28B34 567 JNZ J348B 3485 11FF01 568 LXI D,A01FF 3488 C39334 569 JMP J3493 570 348B FE38 571 J348B: CPI '8' 348D C22A38 572 JNZ J_LER 3490 11FF03 573 LXI D,A03FF 574 3493 D5 575 J3493: PUSH D 3494 0E01 576 MVI C,001H 3496 CD3338 577 CALL J_EXPR 3499 CD3038 578 CALL J_CRLF 349C D1 579 POP D 349D E1 580 POP H 349E 010000 581 LXI B,RESET 34A1 19 582 DAD D INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 13 LOC OBJ LINE SOURCE STATEMENT 34A2 EB 583 XCHG 34A3 3E1E 584 MVI A,01EH 34A5 D301 585 OUT TTYSC 586 34A7 CD5C34 587 J34A7: CALL C345C 34AA 77 588 MOV M,A 34AB BE 589 CMP M 34AC C22A38 590 JNZ J_LER 34AF 03 591 INX B 34B0 CD3638 592 CALL J_HILO 34B3 D2A734 593 JNC J34A7 34B6 C31E38 594 JMP J_START 595 34B9 CD4838 596 J34B9: CALL J_TI 34BC F5 597 PUSH PSW 34BD CD4838 598 CALL J_TI 34C0 FE2C 599 CPI ',' 34C2 C22A38 600 JNZ J_LER 34C5 F1 601 POP PSW 34C6 FE32 602 CPI '2' 34C8 CA2138 603 JZ J_COMP 34CB FE34 604 CPI '4' 34CD C2D634 605 JNZ J34D6 34D0 11FF01 606 LXI D,A01FF 34D3 C3DE34 607 JMP J34DE 608 34D6 FE38 609 J34D6: CPI '8' 34D8 C22A38 610 JNZ J_LER 34DB 11FF03 611 LXI D,A03FF 612 34DE D5 613 J34DE: PUSH D 34DF 0E01 614 MVI C,001H 34E1 CD3338 615 CALL J_EXPR 34E4 CD3038 616 CALL J_CRLF 34E7 D1 617 POP D 34E8 E1 618 POP H 34E9 19 619 DAD D 34EA EB 620 XCHG 34EB 010000 621 LXI B,RESET 622 34EE 3E30 623 J34EE: MVI A,'0' 34F0 D301 624 OUT TTYSC 625 34F2 CD5C34 626 J34F2: CALL C345C 34F5 BE 627 CMP M 34F6 C40635 628 CNZ C3506 34F9 03 629 INX B 34FA CD3638 630 CALL J_HILO 34FD D2F234 631 JNC J34F2 3500 C31E38 632 JMP J_START 633 3503 CD5C34 634 C3503: CALL C345C 635 3506 C5 636 C3506: PUSH B 3507 F5 637 PUSH PSW INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 14 LOC OBJ LINE SOURCE STATEMENT 3508 CD3038 638 CALL J_CRLF 350B CD3938 639 CALL J_LADR 350E CD2D38 640 CALL J_BLK 3511 7E 641 MOV A,M 3512 CD3C38 642 CALL J_LBYTE 3515 CD2D38 643 CALL J_BLK 3518 F1 644 POP PSW 3519 CD3C38 645 CALL J_LBYTE 351C C1 646 POP B 351D C9 647 RET 648 351E CD4838 649 J351E: CALL J_TI 3521 F5 650 PUSH PSW 3522 0D 651 DCR C 3523 CD3338 652 CALL J_EXPR 3526 E1 653 POP H 3527 F1 654 POP PSW 3528 FE2C 655 CPI ',' 352A CA3A35 656 JZ J353A 352D FE20 657 CPI ' ' 352F C22A38 658 JNZ J_LER 659 3532 CD0638 660 J3532: CALL J_RI 3535 FEFF 661 CPI 0FFH 3537 C23235 662 JNZ J3532 663 353A CD0638 664 J353A: CALL J_RI 353D FE2A 665 CPI '*' 353F CA1E38 666 JZ J_START 3542 CD6235 667 CALL C3562 3545 CA3A35 668 JZ J353A 3548 CD3F38 669 CALL J_NIBBLE 354B DA2A38 670 JC J_LER 354E 07 671 RLC 354F 07 672 RLC 3550 07 673 RLC 3551 07 674 RLC 3552 4F 675 MOV C,A 3553 CD0638 676 CALL J_RI 3556 CD3F38 677 CALL J_NIBBLE 3559 DA2A38 678 JC J_LER 355C 81 679 ADD C 355D 77 680 MOV M,A 355E 23 681 INX H 355F C33A35 682 JMP J353A 683 3562 A7 684 C3562: ANA A 3563 C8 685 RZ 3564 FE0D 686 CPI CR 3566 C8 687 RZ 3567 FE0A 688 CPI LF 3569 C9 689 RET 690 356A 060A 691 J356A: MVI B,LF 692 INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 15 LOC OBJ LINE SOURCE STATEMENT 356C CD0638 693 J356C: CALL J_RI 356F FE47 694 CPI 'G' 3571 C26A35 695 JNZ J356A 3574 05 696 DCR B 3575 C26C35 697 JNZ J356C 698 3578 CD0638 699 J3578: CALL J_RI 357B FE45 700 CPI 'E' 357D C8 701 RZ 357E FE42 702 CPI 'B' 3580 C27835 703 JNZ J3578 3583 3601 704 MVI M,001H 705 3585 CD0638 706 J3585: CALL J_RI 3588 FE4C 707 CPI 'L' 358A CAA735 708 JZ J35A7 358D FE4E 709 CPI 'N' 358F CAA735 710 JZ J35A7 3592 FE58 711 CPI 'X' 3594 CAA735 712 JZ J35A7 3597 FE48 713 CPI 'H' 3599 CAA635 714 JZ J35A6 359C FE50 715 CPI 'P' 359E CAA635 716 JZ J35A6 35A1 FE2E 717 CPI '.' 35A3 C22A38 718 JNZ J_LER 719 35A6 37 720 J35A6: STC 721 35A7 7E 722 J35A7: MOV A,M 35A8 17 723 RAL 35A9 77 724 MOV M,A 35AA D28535 725 JNC J3585 35AD CD0638 726 CALL J_RI 35B0 FE46 727 CPI 'F' 35B2 C22A38 728 JNZ J_LER 35B5 23 729 INX H 35B6 C37835 730 JMP J3578 731 35B9 CD3338 732 J35B9: CALL J_EXPR 35BC CDEE35 733 CALL C35EE 35BF 0EFF 734 MVI C,0FFH 35C1 CD0C38 735 CALL J_PO 35C4 CDEE35 736 CALL C35EE 35C7 D1 737 POP D 35C8 E1 738 POP H 35C9 E5 739 PUSH H 35CA D5 740 PUSH D 741 35CB 0620 742 J35CB: MVI B,' ' 743 35CD 7E 744 J35CD: MOV A,M 35CE D5 745 PUSH D 35CF CD4238 746 CALL J_PBYTE 35D2 D1 747 POP D INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 16 LOC OBJ LINE SOURCE STATEMENT 35D3 CD3638 748 CALL J_HILO 35D6 DAE335 749 JC J35E3 35D9 05 750 DCR B 35DA C2CD35 751 JNZ J35CD 35DD CD4538 752 CALL J_PEOL 35E0 C3CB35 753 JMP J35CB 754 35E3 0E2A 755 J35E3: MVI C,'*' 35E5 CD0C38 756 CALL J_PO 35E8 CDEE35 757 CALL C35EE 35EB C31E38 758 JMP J_START 759 35EE 0614 760 C35EE: MVI B,014H 35F0 0E00 761 MVI C,0 762 35F2 CD0C38 763 J35F2: CALL J_PO 35F5 05 764 DCR B 35F6 C2F235 765 JNZ J35F2 35F9 C9 766 RET 767 35FA D5 768 J35FA: PUSH D 35FB 3EFE 769 MVI A,0FEH 35FD D305 770 OUT CRTSC 35FF 00 771 NOP 3600 3EFF 772 MVI A,0FFH 3602 D305 773 OUT CRTSC 3604 16FF 774 MVI D,0FFH 775 3606 CD2C36 776 J3606: CALL C362C 3609 C20636 777 JNZ J3606 360C 1604 778 MVI D,004H 360E CD2436 779 CALL J3624 3611 DB04 780 IN CRTIO 3613 5F 781 MOV E,A 3614 16FF 782 MVI D,0FFH 783 3616 CD2C36 784 J3616: CALL C362C 3619 CA1636 785 JZ J3616 361C 16FF 786 MVI D,0FFH 361E CD2436 787 CALL J3624 3621 7B 788 MOV A,E 3622 D1 789 POP D 3623 C9 790 RET 791 3624 15 792 J3624: DCR D 3625 3E00 793 MVI A,0 3627 BA 794 CMP D 3628 C8 795 RZ 3629 C32436 796 JMP J3624 797 362C DB05 798 C362C: IN CRTSC 362E E601 799 ANI 001H 3630 F5 800 PUSH PSW 3631 15 801 DCR D 3632 AF 802 XRA A INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 17 LOC OBJ LINE SOURCE STATEMENT 3633 BA 803 CMP D 3634 CA2A38 804 JZ J_LER 3637 F1 805 POP PSW 3638 C9 806 RET 807 3639 DB05 808 J3639: IN CRTSC 363B E640 809 ANI '@' 363D C23936 810 JNZ J3639 3640 3EFB 811 MVI A,0FBH 3642 D305 812 OUT CRTSC 813 3644 DB05 814 J3644: IN CRTSC 3646 E640 815 ANI '@' 3648 CA4436 816 JZ J3644 364B 3EFF 817 MVI A,0FFH 364D D305 818 OUT CRTSC 819 364F DB05 820 J364F: IN CRTSC 3651 E680 821 ANI 080H 3653 C24F36 822 JNZ J364F 3656 DB06 823 IN P0006 3658 2F 824 CMA 3659 C9 825 RET 826 365A DB05 827 J365A: IN CRTSC 365C E620 828 ANI ' ' 365E C25A36 829 JNZ J365A 3661 79 830 MOV A,C 3662 2F 831 CMA 3663 D306 832 OUT P0006 3665 3EF7 833 MVI A,0F7H 3667 D305 834 OUT CRTSC 835 3669 DB05 836 J3669: IN CRTSC 366B E620 837 ANI ' ' 366D CA6936 838 JZ J3669 3670 3EFF 839 MVI A,0FFH 3672 D305 840 OUT CRTSC 3674 C9 841 RET 842 3675 0E01 843 J3675: MVI C,001H 3677 CD3338 844 CALL J_EXPR 367A C1 845 POP B 367B 79 846 MOV A,C 367C A7 847 ANA A 367D CA2A38 848 JZ J_LER 3680 FE08 849 CPI BS 3682 D22A38 850 JNC J_LER 3685 32841F 851 STA A1F84 3688 07 852 RLC 3689 07 853 RLC 368A 67 854 MOV H,A 368B 2EFF 855 MVI L,0FFH 368D 22821F 856 SHLD A1F82 3690 2EF8 857 MVI L,0F8H INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 18 LOC OBJ LINE SOURCE STATEMENT 3692 54 858 MOV D,H 3693 5D 859 MOV E,L 860 3694 36FF 861 J3694: MVI M,0FFH 3696 2C 862 INR L 3697 C29436 863 JNZ J3694 369A 210001 864 LXI H,A0100 865 369D CDDD36 866 J369D: CALL C36DD 36A0 12 867 STAX D 36A1 1C 868 INR E 36A2 3A831F 869 LDA A1F83 36A5 D604 870 SUI 004H 36A7 BC 871 CMP H 36A8 D29D36 872 JNC J369D 36AB C605 873 ADI 005H 36AD 47 874 MOV B,A 36AE 210001 875 LXI H,A0100 36B1 CDE136 876 CALL C36E1 36B4 2F 877 CMA 36B5 12 878 STAX D 36B6 CD3038 879 CALL J_CRLF 36B9 2A821F 880 LHLD A1F82 36BC 2EF8 881 MVI L,0F8H 36BE 1600 882 MVI D,0 883 36C0 7A 884 J36C0: MOV A,D 36C1 86 885 ADD M 36C2 57 886 MOV D,A 36C3 CD3C38 887 CALL J_LBYTE 36C6 0E2C 888 MVI C,',' 36C8 CD0938 889 CALL J_CO 36CB 2C 890 INR L 36CC 7D 891 MOV A,L 36CD BB 892 CMP E 36CE DAC036 893 JC J36C0 36D1 210001 894 LXI H,A0100 36D4 CDE136 895 CALL C36E1 36D7 CD3C38 896 CALL J_LBYTE 36DA C31E38 897 JMP J_START 898 36DD 7C 899 C36DD: MOV A,H 36DE C604 900 ADI 004H 36E0 47 901 MOV B,A 902 36E1 0E00 903 C36E1: MVI C,0 904 36E3 79 905 J36E3: MOV A,C 36E4 86 906 ADD M 36E5 4F 907 MOV C,A 36E6 23 908 INX H 36E7 7C 909 MOV A,H 36E8 B8 910 CMP B 36E9 DAE336 911 JC J36E3 36EC 79 912 MOV A,C INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 19 LOC OBJ LINE SOURCE STATEMENT 36ED C9 913 RET 36EE 00 914 NOP 36EF 00 915 NOP 36F0 00 916 NOP 36F1 00 917 NOP 36F2 00 918 NOP 36F3 00 919 NOP 36F4 00 920 NOP 36F5 00 921 NOP 36F6 00 922 NOP 36F7 00 923 NOP 36F8 00 924 NOP 36F9 00 925 NOP 36FA 00 926 NOP 36FB 00 927 NOP 36FC 00 928 NOP 36FD 00 929 NOP 36FE 00 930 NOP 36FF 00 931 NOP 932 933 END PUBLIC SYMBOLS EXTERNAL SYMBOLS USER SYMBOLS A0004 A 0004 A0011 A 0011 A0100 A 0100 A01FF A 01FF A03FF A 03FF A04FF A 04FF A1F82 A 1F82 A1F83 A 1F83 A1F84 A 1F84 A322A A 322A A328C A 328C A32A9 A 32A9 A32ED A 32ED A3315 A 3315 A3331 A 3331 A3335 A 3335 A3355 A 3355 A3359 A 3359 A335D A 335D A3361 A 3361 A3379 A 3379 A337D A 337D A3380 A 3380 A3389 A 3389 ACDC3 A CDC3 BPTR A 1F80 BS A 0008 C3059 A 3059 C3070 A 3070 C30AC A 30AC C30C6 A 30C6 C3251 A 3251 C3453 A 3453 C345C A 345C C3503 A 3503 C3506 A 3506 C3562 A 3562 C35EE A 35EE C362C A 362C C36DD A 36DD C36E1 A 36E1 CONV A 308D CR A 000D CRTIO A 0004 CRTSC A 0005 GNBYTE A 3050 HIREG A 30A5 HT A 0009 IOBYT A 0003 J3036 A 3036 J3063 A 3063 J306A A 306A J3072 A 3072 J30DA A 30DA J3111 A 3111 J311C A 311C J3127 A 3127 J3185 A 3185 J3194 A 3194 J319C A 319C J31A7 A 31A7 J31B2 A 31B2 J31BD A 31BD J31CE A 31CE J31DB A 31DB J31F1 A 31F1 J3205 A 3205 J320B A 320B J320E A 320E J3214 A 3214 J321A A 321A J3229 A 3229 J323A A 323A J3243 A 3243 J3260 A 3260 J326B A 326B J3276 A 3276 J327E A 327E J3399 A 3399 J33B7 A 33B7 J33D0 A 33D0 J33E2 A 33E2 J33E7 A 33E7 J33F4 A 33F4 J33FF A 33FF J340E A 340E J341B A 341B J3449 A 3449 J3456 A 3456 J346E A 346E J348B A 348B J3493 A 3493 J34A7 A 34A7 J34B9 A 34B9 J34D6 A 34D6 J34DE A 34DE J34EE A 34EE J34F2 A 34F2 J351E A 351E J3532 A 3532 J353A A 353A J356A A 356A J356C A 356C J3578 A 3578 J3585 A 3585 J35A6 A 35A6 J35A7 A 35A7 J35B9 A 35B9 J35CB A 35CB J35CD A 35CD J35E3 A 35E3 J35F2 A 35F2 J35FA A 35FA J3606 A 3606 J3616 A 3616 J3624 A 3624 J3639 A 3639 J3644 A 3644 J364F A 364F J365A A 365A J3669 A 3669 J3675 A 3675 J3694 A 3694 J369D A 369D J36C0 A 36C0 J36E3 A 36E3 J_BLK A 382D J_CO A 3809 J_COMP A 3821 J_CRLF A 3830 J_EXPR A 3833 J_HILO A 3836 J_LADR A 3839 J_LBYTE A 383C J_LER A 382A J_NIBBLE A 383F J_NULL A 3824 J_PBYTE A 3842 J_PEOL A 3845 J_PO A 380C J_RI A 3806 J_START A 381E J_TI A 3848 J_TRAN A 3827 LF A 000A OBYTE A 3080 OIO A 3094 P0002 A 0002 P0003 A 0003 P0006 A 0006 INTEL ASM80 V4.1 MODULE [2024-12-15 15:01] PAGE 20 USER SYMBOLS (cont) P00D6 A 00D6 P00DE A 00DE P00FF A 00FF RE3000 A 3000 RE301B A 301B RE301E A 301E RE3021 A 3021 RE3024 A 3024 RE3027 A 3027 RE302D A 302D RE3030 A 3030 RESET A 0000 TTYIO A 0000 TTYSC A 0001 ASSEMBLY COMPLETE, NO ERRORS