URL
https://opencores.org/ocsvn/am9080_cpu_based_on_microcoded_am29xx_bit-slices/am9080_cpu_based_on_microcoded_am29xx_bit-slices/trunk
Subversion Repositories am9080_cpu_based_on_microcoded_am29xx_bit-slices
[/] [am9080_cpu_based_on_microcoded_am29xx_bit-slices/] [trunk/] [prog/] [zout/] [altmon.bds] - Rev 3
Compare with Previous | Blame | View Log
binary-debuggable-source0000 0000 f altmon.asm0000 0000 s ;-------------------------------------------------------------------------0000 0000 s ; ALTMON.ASM - 1K ROM monitor for the Altair 8800.0000 0000 s ;0000 0000 s ; This monitor is based on the 2.0C monitor from Vector Graphic. The0000 0000 s ; original version has been updated to use Altair 2SIO serial ports0000 0000 s ; for I/O and several commands have been added and/or modified.0000 0000 s ;0000 0000 s ; A typical location for this PROM in an Altair is at F800, though0000 0000 s ; it can be assembled at most any address. The stack is typically0000 0000 s ; placed at the top of the minimum RAM you expect to have in your0000 0000 s ; system.0000 0000 s ;0000 0000 s ; Version Date Author0000 0000 s ; ------- ---------- ---------------------------------------0000 0000 s ; 1.0 01/10/2016 Mike Douglas (Original)0000 0000 s ;0000 0000 s ; 1.1 02/29/2016 Mike Douglas0000 0000 s ; Fix bug in DUMP code that caused improper range of bytes0000 0000 s ; to display. Also in DUMP, display '.' for all characters0000 0000 s ; 7Fh or above.0000 0000 s ;0000 0000 s ; Initialize 2nd 2SIO port so that loading of Intel HEX0000 0000 s ; files works over the 2nd port. Only flush hex file0000 0000 s ; input on the console serial port to free up code space0000 0000 s ; and because it's not really required for the 2nd port.0000 0000 s ;0000 0000 s ;-------------------------------------------------------------------------0000 0000 s ;0000 0000 s ; Following is a summary of changes from the original VG 2.0c monitor:0000 0000 s ;0000 0000 s ; All commands immediately echo a full command name as soon as the0000 0000 s ; first command letter is typed (e.g., typing "M" immediately0000 0000 s ; displays "MOVE"). This makes it easier to identify commands0000 0000 s ; without a list of commands present.0000 0000 s ;0000 0000 s ; The ESC key can be pressed to abort input or commands as in0000 0000 s ; the later 4.x monitors from VG. The original ctrl-c abort is0000 0000 s ; still present as well.0000 0000 s ;0000 0000 s ; The B (boot) command jumps to the Altair disk boot loader PROM0000 0000 s ; at FF00 instead of the North Star boot ROM.0000 0000 s ;0000 0000 s ; A (ASCII dump) command removed and D (hex dump) updated to display0000 0000 s ; both hex and ASCII.0000 0000 s ;0000 0000 s ; X (exchange) command changed to the E command.0000 0000 s ;0000 0000 s ; H command added to load Intel hex file via either serial port0000 0000 s ; on a 2SIO. The L (load and go from tape) does a hex file load0000 0000 s ; as well (all tape commands eliminated).0000 0000 s ;0000 0000 s ; J treated as jump (i.e., go to) command instead of jump to North0000 0000 s ; Star DOS.0000 0000 s ;0000 0000 s ; K treated as fill memory with "K"onstant instead of jump to zero0000 0000 s ; (was the Z command which has been removed).0000 0000 s ;0000 0000 s ; R command sizes RAM (i.e., runs the N non-destructive memory test)0000 0000 s ; Was previously a read from cassette command. All cassette commands0000 0000 s ; have been removed.0000 0000 s ;0000 0000 s ; The Y command (Vector Graphic relocating loader) command has been0000 0000 s ; removed.0000 0000 s ;0000 0000 s ; The T test memory command skips the 256 byte page the stack is on0000 0000 s ; to prevent crashing the program. A "." pacifier is displayed0000 0000 s ; after each cycle through the memory test range is completed0000 0000 s ;0000 0000 s ;-------------------------------------------------------------------------0000 0000 s ;0000 0000 s ; Command Summary:0000 0000 s ;0000 0000 s ; B jump to Altair disk boot loader (FF00)0000 0000 s ; C SSSS FFFF CCCC compare blocks0000 0000 s ; D SSSS FFFF dump in hex and ASCII0000 0000 s ; E SSSS FFFF DDDD exchange block0000 0000 s ; F SSSS FFFF DD DD find two byte sequence0000 0000 s ; G SSSS go to and execute0000 0000 s ; H P load Intel hex file from 2SIO port 0 or 10000 0000 s ; I PP input from I/O port0000 0000 s ; J SSSS go to and execute (G)0000 0000 s ; K SSSS FFFF DD fill with "K"onstant0000 0000 s ; L P load Intel hex file from 2SIO port 0 or 10000 0000 s ; M SSSS FFFF DDDD move block0000 0000 s ; N non destructive memory test (size RAM)0000 0000 s ; O PP DD output to port0000 0000 s ; P LLLL program memory0000 0000 s ; Q SSSS FFFF compute checksum0000 0000 s ; R non destructive memory test (size RAM)0000 0000 s ; S SSSS FFFF DD search for single byte sequence0000 0000 s ; T SSSS FFFF test memory0000 0000 s ;0000 0000 s ;-------------------------------------------------------------------------0000 0000 s ;0000 0000 s ; Memory location equates0000 0000 s0400 0400 s org 00400h ;ROM location0400 0400 s0400 0400 s SPTR equ 0ffffh ;stack pointer (use 256 byte boundary)0400 0400 s SIOPORT equ SPTR-32 ;2SIO port used for hex load0400 0400 s BOOT equ 0ff00h ;Altair disk boot loader ROM0400 0400 s0400 0400 s ; 88-2SIO equates0400 0400 s0400 0400 s CONS equ 10h ;console status port0400 0400 s COND equ 11h ;console data port0400 0400 s TBE equ 2 ;transmit buffer entry0400 0400 s RDA equ 1 ;receive data available0400 0400 s0400 0400 s ; Misc Equates0400 0400 s0400 0400 s CR equ 13 ;ASCII carriage return0400 0400 s LF equ 10 ;ASCII line feed0400 0400 s CTRLC equ 3 ;ASCII control-c0400 0400 s ESC equ 27 ;ASCII ESCAPE0400 0400 s0400 0400 s ;---------------------------------------------------------0400 0400 s ; monit - monitor entry point0400 0400 s ;---------------------------------------------------------0400 0400 d 3e030400 0400 s monit mvi a,3 ;reset 6850 uart0402 0402 d d3100402 0402 s out CONS0404 0404 d d3120404 0404 s out CONS+2 ;2nd 2SIO port as well0406 0406 d 3e110406 0406 s mvi a,11h ;8N20408 0408 d d3100408 0408 s out CONS040a 040a d d312040a 040a s out CONS+2 ;2nd 2SIO port as well040c 040c s040c 040c d 31ffff040c 040c s lxi sp,SPTR040f 040f d cda507040f 040f s call dspMsg ;display welcome banner0412 0412 d 0d0a0a414c544d4f4e20312eb10412 0412 s db CR,LF,LF,'ALTMON 1.','1'+80h041f 041f s041f 041f s ; start - command processing loop041f 041f s041f 041f d 31ffff041f 041f s start lxi sp,SPTR ;re-init stack pointer0422 0422 d 211f040422 0422 s lxi h,start ;RET's go back to start0425 0425 d e50425 0425 s push h0426 0426 s0426 0426 d cd63070426 0426 s call crlf ;display '*' prompt after CR/LF0429 0429 d 3e2a0429 0429 s mvi a,'*'042b 042b d cd4807042b 042b s call ptcn042e 042e s042e 042e d cdbc07042e 042e s call getCon ;read command from keyboard0431 0431 d e65f0431 0431 s ani 05FH ;lower case to upper case0433 0433 d fe420433 0433 s cpi 'B'0435 0435 d d80435 0435 s rc ;too small0436 0436 d fe550436 0436 s cpi 'U'0438 0438 d d00438 0438 s rnc ;too large0439 0439 s0439 0439 d 21c0040439 0439 s lxi h,cmdTbl+100h-2*'B' ;'B' indexes to start of cmdtbl043c 043c d 87043c 043c s add a ;2 bytes per entry043d 043d d 85043d 043d s add l043e 043e d 6f043e 043e s mov l,a043f 043f s043f 043f d 5e043f 043f s mov e,m ;e=lsb of jump address0440 0440 d 230440 0440 s inx h0441 0441 d 560441 0441 s mov d,m ;d=high byte of jump address0442 0442 d eb0442 0442 s xchg0443 0443 d e90443 0443 s pchl ;away we go0444 0444 s0444 0444 s ; Command Table0444 0444 s0444 0444 d 76040444 0444 s cmdTbl dw doboot ;B jump to Altair disk boot loader0446 0446 d cf050446 0446 s dw compr ;C SSSS FFFF CCCC compare blocks0448 0448 d f1040448 0448 s dw disp ;D SSSS FFFF dump in hex044a 044a d 8f05044a 044a s dw exchg ;E SSSS FFFF DDDD exchange block044c 044c d fb05044c 044c s dw srch2 ;F SSSS FFFF DD DD two byte search044e 044e d 6a04044e 044e s dw exec ;G SSSS go to and execute0450 0450 d 76060450 0450 s dw hexLoad ;H P load Intel hex file from port0452 0452 d 5c060452 0452 s dw pinpt ;I PP input from I/O port0454 0454 d 6a040454 0454 s dw exec ;J SSSS jump to and execute (G)0456 0456 d 69050456 0456 s dw fill ;K SSSS FFFF DD fill RAM with "k"onstant0458 0458 d 76060458 0458 s dw hexLoad ;L P load Intel hex file from port045a 045a d 8405045a 045a s dw moveb ;M SSSS FFFF DDDD move block045c 045c d b605045c 045c s dw ndmt ;N non destructive memory test (RAM size)045e 045e d 3f06045e 045e s dw poutp ;O PP DD output to port0460 0460 d 32050460 0460 s dw pgm ;P LLLL program memory0462 0462 d 80040462 0462 s dw chksum ;Q SSSS FFFF compute checksum0464 0464 d b6050464 0464 s dw ndmt ;R non destructive memory test (RAM size)0466 0466 d ef050466 0466 s dw srch1 ;S SSSS FFFF DD search for single byte0468 0468 d 99040468 0468 s dw tmem ;T SSSS FFFF test memory046a 046a s046a 046a s ;--------------------------------------------------------------------------046a 046a s ; exec (G or J) - execute the program at the address046a 046a s ;--------------------------------------------------------------------------046a 046a d cda507046a 046a s exec call dspMsg046d 046d d 474f54cf046d 046d s db 'GOT','O'+80h0471 0471 s0471 0471 d cd20070471 0471 s call ahex ;read address from keyboard0474 0474 d eb0474 0474 s xchg0475 0475 d e90475 0475 s pchl0476 0476 s0476 0476 s ;--------------------------------------------------------------------------0476 0476 s ; doBoot (B) - boot floppy disk by jumping to DBL PROM at FF000476 0476 s ;--------------------------------------------------------------------------0476 0476 d cda5070476 0476 s doBoot call dspMsg0479 0479 d 424f4fd40479 0479 s db 'BOO','T'+80h047d 047d s047d 047d d c300ff047d 047d s jmp BOOT0480 0480 s0480 0480 s ;--------------------------------------------------------------------------0480 0480 s ; chksum (Q) - compute checksum0480 0480 s ;--------------------------------------------------------------------------0480 0480 d cda5070480 0480 s chksum call dspMsg0483 0483 d 435355cd0483 0483 s db 'CSU','M'+80h0487 0487 s0487 0487 d cd1d070487 0487 s call tahex048a 048a d 0600048a 048a s mvi b,0 ;start checksum = 0048c 048c s048c 048c d 7e048c 048c s csloop mov a,m ;get data from memory048d 048d d 80048d 048d s add b ;add to checksum048e 048e d 47048e 048e s mov b,a048f 048f d cdea07048f 048f s call bmp0492 0492 d c28c040492 0492 s jnz csloop ;repeat loop0495 0495 s0495 0495 d 780495 0495 s mov a,b ;a=checksum0496 0496 d c379070496 0496 s jmp pt2 ;print checksum and exit0499 0499 s0499 0499 s ;--------------------------------------------------------------------------0499 0499 s ; tmem (T) - memory test routine0499 0499 s ;--------------------------------------------------------------------------0499 0499 d cda5070499 0499 s tmem call dspMsg049c 049c d 544553d4049c 049c s db 'TES','T'+80h04a0 04a0 s04a0 04a0 d cd1d0704a0 04a0 s call tahex ;read addresses04a3 04a3 d 015a5a04a3 04a3 s lxi b,05a5ah ;init b,c04a6 04a6 s04a6 04a6 d 3e2e04a6 04a6 s cycl mvi a,'.' ;display '.' before each cycle04a8 04a8 d cd480704a8 04a8 s call ptcn04ab 04ab d cde20404ab 04ab s call rndm04ae 04ae d c504ae 04ae s push b ;keep all registers04af 04af d e504af 04af s push h04b0 04b0 d d504b0 04b0 s push d04b1 04b1 s04b1 04b1 d 7c04b1 04b1 s tlop mov a,h ;on stack page?04b2 04b2 d fefe04b2 04b2 s cpi (SPTR shr 8)-1 ;compare to msb of stack04b4 04b4 d cabb0404b4 04b4 s jz skipWr ;in stack, skip write04b7 04b7 d cde20404b7 04b7 s call rndm04ba 04ba d 7004ba 04ba s mov m,b ;write in memory04bb 04bb d cdea0704bb 04bb s skipWr call bmp04be 04be d c2b10404be 04be s jnz tlop ;repeat loop04c1 04c1 s04c1 04c1 d d104c1 04c1 s pop d04c2 04c2 d e104c2 04c2 s pop h ;restore original04c3 04c3 d c104c3 04c3 s pop b ;values04c4 04c4 d e504c4 04c4 s push h04c5 04c5 d d504c5 04c5 s push d04c6 04c6 s04c6 04c6 d 7c04c6 04c6 s rlop mov a,h ;on stack page?04c7 04c7 d fefe04c7 04c7 s cpi (SPTR shr 8)-1 ;compare to msb of stack04c9 04c9 d cad40404c9 04c9 s jz skipRd ;in stack, skip the read04cc 04cc d cde20404cc 04cc s call rndm ;generate new sequence04cf 04cf d 7e04cf 04cf s mov a,m ;read memory04d0 04d0 d b804d0 04d0 s cmp b ;compare memory04d1 04d1 d c46d0704d1 04d1 s cnz err ;call error routine04d4 04d4 d cdea0704d4 04d4 s skipRd call bmp04d7 04d7 d c2c60404d7 04d7 s jnz rlop04da 04da s04da 04da d d104da 04da s pop d04db 04db d e104db 04db s pop h04dc 04dc d cdc70704dc 04dc s call pause04df 04df d c3a60404df 04df s jmp cycl04e2 04e2 s04e2 04e2 s ; rndm - this routine generates random numbers04e2 04e2 s04e2 04e2 d 7804e2 04e2 s rndm mov a,b ;look at b04e3 04e3 d e6b404e3 04e3 s ani 0b4h ;mask bits04e5 04e5 d a704e5 04e5 s ana a ;clear carry04e6 04e6 d eaea0404e6 04e6 s jpe peve ;jump if even04e9 04e9 d 3704e9 04e9 s stc04ea 04ea d 7904ea 04ea s peve mov a,c ;look at c04eb 04eb d 1704eb 04eb s ral ;rotate carry in04ec 04ec d 4f04ec 04ec s mov c,a ;restore c04ed 04ed d 7804ed 04ed s mov a,b ;look at b04ee 04ee d 1704ee 04ee s ral ;rotate carry in04ef 04ef d 4704ef 04ef s mov b,a ;restore b04f0 04f0 d c904f0 04f0 s ret ;return with new b,c04f1 04f1 s04f1 04f1 s ;--------------------------------------------------------------------------04f1 04f1 s ; disp (D) - display memory contents04f1 04f1 s ;--------------------------------------------------------------------------04f1 04f1 d cda50704f1 04f1 s disp call dspMsg04f4 04f4 d 44554dd004f4 04f4 s db 'DUM','P'+80h04f8 04f8 s04f8 04f8 d cd1d0704f8 04f8 s call tahex ;read addresses04fb 04fb s04fb 04fb d e504fb 04fb s dmpLine push h ;save address at start of line04fc 04fc d 0e1004fc 04fc s mvi c,16 ;16 locations per line04fe 04fe d cd810704fe 04fe s call ptad ;print current address0501 0501 s0501 0501 s ; dump line in hex0501 0501 s0501 0501 d 7e0501 0501 s dmpHex mov a,m ;a=byte to display0502 0502 d cd79070502 0502 s call pt2 ;display it0505 0505 d cd46070505 0505 s call spce0508 0508 d 230508 0508 s inx h0509 0509 d 0d0509 0509 s dcr c ;decrement line byte count050a 050a d c20105050a 050a s jnz dmpHex ;loop until 16 bytes done050d 050d s050d 050d s ; dump line in ASCII050d 050d s050d 050d d cd4607050d 050d s call spce0510 0510 d e10510 0510 s pop h ;hl->start of line0511 0511 d 0e100511 0511 s mvi c,16 ;16 locations per line0513 0513 s0513 0513 d 7e0513 0513 s dmpAsc mov a,m ;a=byte to display0514 0514 d fe7f0514 0514 s cpi 7Fh ;test if >= 7Fh0516 0516 d d21e050516 0516 s jnc dspDot ;non printable, show '.'0519 0519 s0519 0519 d fe200519 0519 s cpi ' ' ;displayable character?051b 051b d d22005051b 051b s jnc dspAsc ;yes, go display it051e 051e s051e 051e d 3e2e051e 051e s dspDot mvi a,'.' ;display '.' instead0520 0520 s0520 0520 d cd48070520 0520 s dspAsc call ptcn ;display the character0523 0523 d cdea070523 0523 s call bmp ;increment hl, possibly de0526 0526 d 0d0526 0526 s dcr c ;decrement line byte count0527 0527 d c213050527 0527 s jnz dmpAsc ;loop until 16 bytes done052a 052a s052a 052a d cdea07052a 052a s call bmp ;done?052d 052d d c8052d 052d s rz ;yes052e 052e d 2b052e 052e s dcx h ;undo extra bump of hl052f 052f d c3fb04052f 052f s jmp dmpLine ;do another line0532 0532 s0532 0532 s ;--------------------------------------------------------------------------0532 0532 s ; pgm (P) - program memory0532 0532 s ;--------------------------------------------------------------------------0532 0532 d cda5070532 0532 s pgm call dspMsg0535 0535 d 5047cd0535 0535 s db 'PG','M'+80h0538 0538 s0538 0538 d cd20070538 0538 s call ahex ;read address053b 053b d eb053b 053b s xchg053c 053c d cd6307053c 053c s call crlf053f 053f s053f 053f d 7e053f 053f s pglp mov a,m ;read memory0540 0540 d cd79070540 0540 s call pt2 ;print 2 digits0543 0543 d 3e2d0543 0543 s mvi a,'-' ;load dash0545 0545 d cd48070545 0545 s call ptcn ;print dash0548 0548 s0548 0548 d cdb3070548 0548 s crig call rdcn ;get user input054b 054b d fe20054b 054b s cpi ' ' ;space054d 054d d ca6505054d 054d s jz con2 ;skip if space0550 0550 d fe0d0550 0550 s cpi CR ;skip if CR0552 0552 d c25b050552 0552 s jnz con10555 0555 d cd63070555 0555 s call crlf ;print CR,LF0558 0558 d c348050558 0558 s jmp crig ;back for more055b 055b s055b 055b d eb055b 055b s con1 xchg ;HL->DE055c 055c d 210000055c 055c s lxi h,0 ;get 16 bit zero055f 055f d 0e02055f 055f s mvi c,2 ;count 2 digits0561 0561 d cd28070561 0561 s call ahexNr ;convert to hex (no read)0564 0564 d 730564 0564 s mov m,e0565 0565 d 230565 0565 s con2 inx h0566 0566 d c33f050566 0566 s jmp pglp0569 0569 s0569 0569 s ;--------------------------------------------------------------------------0569 0569 s ; fill (K) - fill memory with a constant0569 0569 s ;--------------------------------------------------------------------------0569 0569 d cda5070569 0569 s fill call dspMsg056c 056c d 46494ccc056c 056c s db 'FIL','L'+80h0570 0570 s0570 0570 d cd1d070570 0570 s call tahex ;read addresses0573 0573 d e50573 0573 s push h ;start addr on stack0574 0574 d 0e020574 0574 s mvi c,2 ;reading 2 digits0576 0576 d cd22070576 0576 s call ahe0 ;input fill byte0579 0579 d eb0579 0579 s xchg ;byte to write from e to l057a 057a d e3057a 057a s xthl ;hl=start addr, stack=fill byte057b 057b d c1057b 057b s pop b ;c=fill byte from stack057c 057c s057c 057c d 71057c 057c s zloop mov m,c ;write into memory057d 057d d cdea07057d 057d s call bmp ;compare address, increment h0580 0580 d c80580 0580 s rz0581 0581 d c37c050581 0581 s jmp zloop0584 0584 s0584 0584 s ;--------------------------------------------------------------------------0584 0584 s ; moveb (M) - move a block of memory0584 0584 s ; exchg (E) - exhange block of memory0584 0584 s ;--------------------------------------------------------------------------0584 0584 d cda5070584 0584 s moveb call dspMsg0587 0587 d 4d4f56c50587 0587 s db 'MOV','E'+80h058b 058b d af058b 058b s xra a ;a=0 means "move" command058c 058c d c39605058c 058c s jmp doMove058f 058f s058f 058f d cda507058f 058f s exchg call dspMsg0592 0592 d 455843c80592 0592 s db 'EXC','H'+80h0596 0596 s ;a returned <> 0 means "exchange" command0596 0596 s0596 0596 d 470596 0596 s doMove mov b,a ;save move/exchange flag in b0597 0597 d cd1d070597 0597 s call tahex ;read addresses059a 059a d e5059a 059a s push h059b 059b d cd2007059b 059b s call ahex059e 059e d eb059e 059e s xchg059f 059f d e3059f 059f s xthl ;HL->start, DE->end, stack has dest05a0 05a0 s05a0 05a0 d 4e05a0 05a0 s mloop mov c,m ;c=byte from source05a1 05a1 d e305a1 05a1 s xthl ;hl->destination05a2 05a2 s05a2 05a2 d 7805a2 05a2 s mov a,b ;move or exchange?05a3 05a3 d b705a3 05a3 s ora a05a4 05a4 d caab0505a4 05a4 s jz nexch ;0 means move only05a7 05a7 s05a7 05a7 d 7e05a7 05a7 s mov a,m ;a=from destination05a8 05a8 d e305a8 05a8 s xthl ;hl->source05a9 05a9 d 7705a9 05a9 s mov m,a ;move destination to source05aa 05aa d e305aa 05aa s xthl ;hl->destination05ab 05ab s05ab 05ab d 7105ab 05ab s nexch mov m,c ;move source to destination05ac 05ac d 2305ac 05ac s inx h ;increment destination05ad 05ad d e305ad 05ad s xthl ;hl->source05ae 05ae d cdea0705ae 05ae s call bmp ;increment source and compare to end05b1 05b1 d c2a00505b1 05b1 s jnz mloop05b4 05b4 s05b4 05b4 d e105b4 05b4 s pop h ;remove temp pointer from stack05b5 05b5 d c905b5 05b5 s ret ;and exit05b6 05b6 s05b6 05b6 s ;--------------------------------------------------------------------------05b6 05b6 s ; ndmt (N or R) - non destructive memory test (size RAM)05b6 05b6 s ;--------------------------------------------------------------------------05b6 05b6 d cda50705b6 05b6 s ndmt call dspMsg05b9 05b9 d 52414d544fd005b9 05b9 s db 'RAMTO','P'+80h05bf 05bf s05bf 05bf d 21ffff05bf 05bf s lxi h,0ffffh ;start at zero05c2 05c2 s05c2 05c2 d 2305c2 05c2 s ndlop inx h05c3 05c3 d 7e05c3 05c3 s mov a,m ;read from address in hl05c4 05c4 d 4705c4 05c4 s mov b,a ;save original value in b05c5 05c5 d 2f05c5 05c5 s cma ;form and write inverted value05c6 05c6 d 7705c6 05c6 s mov m,a05c7 05c7 d be05c7 05c7 s cmp m ;read and compare05c8 05c8 d 7005c8 05c8 s mov m,b ;restore original value05c9 05c9 d cac20505c9 05c9 s jz ndlop ;keep going if still RAM05cc 05cc s05cc 05cc d c36d0705cc 05cc s jmp err ;display end of RAM05cf 05cf s05cf 05cf s ;--------------------------------------------------------------------------05cf 05cf s ; compr (C) - compare two blocks of memory05cf 05cf s ;--------------------------------------------------------------------------05cf 05cf d cda50705cf 05cf s compr call dspMsg05d2 05d2 d 434f4dd005d2 05d2 s db 'COM','P'+80h05d6 05d6 s05d6 05d6 d cd1d0705d6 05d6 s call tahex ;read addresses05d9 05d9 d e505d9 05d9 s push h ;source start on stack05da 05da d cd200705da 05da s call ahex05dd 05dd d eb05dd 05dd s xchg ;de=source end, hl=compare start05de 05de s05de 05de d 7e05de 05de s vmlop mov a,m ;a=compare byte05df 05df d 2305df 05df s inx h05e0 05e0 d e305e0 05e0 s xthl ;hl->source byte05e1 05e1 d be05e1 05e1 s cmp m ;same?05e2 05e2 d 4605e2 05e2 s mov b,m ;b=source byte05e3 05e3 d c46d0705e3 05e3 s cnz err ;display the error05e6 05e6 d cdea0705e6 05e6 s call bmp ;increment pointers05e9 05e9 d e305e9 05e9 s xthl ;hl->compare byte05ea 05ea d c2de0505ea 05ea s jnz vmlop05ed 05ed s05ed 05ed d e105ed 05ed s pop h ;remove temp pointer from stack05ee 05ee d c905ee 05ee s ret ;and exit05ef 05ef s05ef 05ef s ;--------------------------------------------------------------------------05ef 05ef s ; srch1 (S) - search for one byte05ef 05ef s ; srch2 (F) - search for two bytes05ef 05ef s ;--------------------------------------------------------------------------05ef 05ef d cda50705ef 05ef s srch1 call dspMsg05f2 05f2 d 46494e44b105f2 05f2 s db 'FIND','1'+80h05f7 05f7 d af05f7 05f7 s xra a ;zero flag means one byte search05f8 05f8 d c3030605f8 05f8 s jmp doSrch05fb 05fb s05fb 05fb d cda50705fb 05fb s srch2 call dspMsg05fe 05fe d 46494e44b205fe 05fe s db 'FIND','2'+80h0603 0603 s ;a returned <> 0 means two byte search0603 0603 s0603 0603 d f50603 0603 s doSrch push psw ;save 1/2 byte flag on stack0604 0604 d cd1d070604 0604 s call tahex0607 0607 s0607 0607 d e50607 0607 s push h ;save h, getting 1st byte to find0608 0608 d 0e020608 0608 s mvi c,2 ;reading 2 hex digits060a 060a d cd2207060a 060a s call ahe0 ;060d 060d d eb060d 060d s xchg ;h=code, d=f060e 060e d 45060e 060e s mov b,l ;put code in b060f 060f d e1060f 060f s pop h ;restore h0610 0610 s0610 0610 d f10610 0610 s pop psw ;a=one/two byte flag0611 0611 d b70611 0611 s ora a ;zero true if one byte search0612 0612 d f50612 0612 s push psw0613 0613 d ca1f060613 0613 s jz cont0616 0616 s0616 0616 d e50616 0616 s push h ;save h, getting 2nd byte to find0617 0617 d 0e020617 0617 s mvi c,20619 0619 d cd22070619 0619 s call ahe0061c 061c d eb061c 061c s xchg061d 061d d 4d061d 061d s mov c,l061e 061e d e1061e 061e s pop h061f 061f s061f 061f d 7e061f 061f s cont mov a,m ;read memory0620 0620 d b80620 0620 s cmp b ;compare to code0621 0621 d c237060621 0621 s jnz skp ;skip if no compare0624 0624 s0624 0624 d f10624 0624 s pop psw ;a=one/two byte flag0625 0625 d b70625 0625 s ora a ;zero true if one byte serach0626 0626 d f50626 0626 s push psw0627 0627 d ca31060627 0627 s jz obcp062a 062a s062a 062a d 23062a 062a s inx h ;two byte search062b 062b d 7e062b 062b s mov a,m062c 062c d 2b062c 062c s dcx h062d 062d d b9062d 062d s cmp c062e 062e d c23706062e 062e s jnz skp0631 0631 s0631 0631 d 230631 0631 s obcp inx h0632 0632 d 7e0632 0632 s mov a,m ;read next byte0633 0633 d 2b0633 0633 s dcx h ;decr address0634 0634 d cd6d070634 0634 s call err ;print data found0637 0637 s0637 0637 d cdea070637 0637 s skp call bmp ;check if done063a 063a d c21f06063a 063a s jnz cont ;back for more063d 063d d f1063d 063d s pop psw ;remove flag saved on stack063e 063e d c9063e 063e s ret063f 063f s063f 063f s ;--------------------------------------------------------------------------063f 063f s ; poutp (O) - output data to a port063f 063f s ;--------------------------------------------------------------------------063f 063f d cda507063f 063f s poutp call dspMsg0642 0642 d 4f55d40642 0642 s db 'OU','T'+80h0645 0645 s0645 0645 d 0e020645 0645 s mvi c,20647 0647 d cd22070647 0647 s call ahe0 ;port number in e064a 064a s064a 064a d 0e02064a 064a s mvi c,2064c 064c d cd2207064c 064c s call ahe0 ;port to l, data in e064f 064f s064f 064f d 55064f 064f s mov d,l ;d=port0650 0650 d 21cfff0650 0650 s lxi h,SPTR-30h ;form OUT nn, RET in memory at h0653 0653 d 36c90653 0653 s mvi m,0c9h ;RET opcode0655 0655 d 2b0655 0655 s dcx h0656 0656 d 720656 0656 s mov m,d ;output port for OUT instruction0657 0657 d 2b0657 0657 s dcx h0658 0658 d 36d30658 0658 s mvi m,0D3H ;OUT opcode065a 065a d 7b065a 065a s mov a,e065b 065b d e9065b 065b s pchl ;call OUT, RET065c 065c s065c 065c s ;--------------------------------------------------------------------------065c 065c s ; pinpt (I) - input data from a port065c 065c s ;--------------------------------------------------------------------------065c 065c d cda507065c 065c s pinpt call dspMsg065f 065f d 49ce065f 065f s db 'I','N'+80h0661 0661 s0661 0661 d 0e020661 0661 s mvi c,20663 0663 d cd22070663 0663 s call ahe0 ;port number to e0666 0666 s0666 0666 d 21cfff0666 0666 s lxi h,SPTR-30H ;form IN nn, RET in memory at h0669 0669 d 36c90669 0669 s mvi m,0C9H ;RET opcode066b 066b d 2b066b 066b s dcx h066c 066c d 73066c 066c s mov m,e ;input port of IN instruction066d 066d d 2b066d 066d s dcx h066e 066e d 36db066e 066e s mvi m,0DBH ;IN opcode0670 0670 d cdcdff0670 0670 s call SPTR-32H0673 0673 d c379070673 0673 s jmp pt20676 0676 s0676 0676 s ;---------------------------------------------------------------------0676 0676 s ; hexLoad (H or L) - load intel hex through 2SIO serial port 0 or 10676 0676 s ;---------------------------------------------------------------------0676 0676 d cda5070676 0676 s hexload call dspMsg0679 0679 d 4845584c4f41c40679 0679 s db 'HEXLOA','D'+80h0680 0680 s0680 0680 d 0e010680 0680 s mvi c,1 ;read one hex digit0682 0682 d cd22070682 0682 s call ahe0 ;digit is in e0685 0685 d 21dfff0685 0685 s lxi h,SIOPORT ;hl->location on stack to save port0688 0688 d 730688 0688 s mov m,e ;SIOPORT = 0 or 10689 0689 s0689 0689 s ; rcvLine - receive a hex file line0689 0689 s0689 0689 d cd63070689 0689 s rcvLine call crlf068c 068c d 0e00068c 068c s mvi c,0 ;clear echo character flag068e 068e s068e 068e d cdf306068e 068e s wtMark call getChar ;read next character0691 0691 d d63a0691 0691 s sui ':' ;record marker?0693 0693 d c28e060693 0693 s jnz wtMark ;no, keep looking0696 0696 s0696 0696 s ; Have start of new record. Save the byte count and load address.0696 0696 s ; The load address is echoed to the screen so the user can0696 0696 s ; see the file load progress.0696 0696 s0696 0696 d 570696 0696 s mov d,a ;init checksum in D to zero0697 0697 s0697 0697 d cdd5060697 0697 s call iByte ;input two hex digits (byte count)069a 069a d 7b069a 069a s mov a,e ;test for zero byte count069b 069b d b7069b 069b s ora a069c 069c d cac306069c 069c s jz flush ;count of 0 means end069f 069f s069f 069f d 43069f 069f s mov b,e ;B = byte count on line06a0 06a0 s06a0 06a0 d 0c06a0 06a0 s inr c ;set echo flag for address bytes06a1 06a1 d cdd50606a1 06a1 s call iByte ;get MSB of address06a4 06a4 d 6306a4 06a4 s mov h,e ;H = address MSB06a5 06a5 d cdd50606a5 06a5 s call iByte ;get LSB of address06a8 06a8 d 6b06a8 06a8 s mov l,e ;L = address LSB06a9 06a9 d 0d06a9 06a9 s dcr c ;clear echo flag06aa 06aa s06aa 06aa d cdd50606aa 06aa s call iByte ;ignore/discard record type06ad 06ad s06ad 06ad s ; Receive the data bytes of the record and move to memory06ad 06ad s06ad 06ad d cdd50606ad 06ad s data call iByte ;read a data byte (2 hex digits)06b0 06b0 d 7306b0 06b0 s mov m,e ;store in memory06b1 06b1 d 2306b1 06b1 s inx h06b2 06b2 d 0506b2 06b2 s dcr b06b3 06b3 d c2ad0606b3 06b3 s jnz data06b6 06b6 s06b6 06b6 s ; Validate checksum06b6 06b6 s06b6 06b6 d cdd50606b6 06b6 s call iByte ;read and add checksum06b9 06b9 d ca890606b9 06b9 s jz rcvLine ;checksum good, receive next line06bc 06bc s06bc 06bc d cda50706bc 06bc s call dspMsg ;display error message06bf 06bf d 204552d206bf 06bf s db ' ER','R'+80h06c3 06c3 s ;fall into flush06c3 06c3 s06c3 06c3 s ; flush - flush rest of file as it comes in until no characters06c3 06c3 s ; received for about 1/4 second to prevent incoming file06c3 06c3 s ; data looking like typed monitor commands. Only the console06c3 06c3 s ; port needs to be flushed.06c3 06c3 s06c3 06c3 d db1106c3 06c3 s flush in COND ;clear possible received char06c5 06c5 d 11b12806c5 06c5 s lxi d,10417 ;.25s timeout for 48 cycle loop06c8 06c8 s06c8 06c8 d db1006c8 06c8 s flshLp in CONS ;(10) look for character on console06ca 06ca d 0f06ca 06ca s rrc ;(4) data flag in carry06cb 06cb d dac30606cb 06cb s jc flush ;(10) data received, restart06ce 06ce s06ce 06ce d 1b06ce 06ce s dcx d ;(5) decrement timeout06cf 06cf d 7a06cf 06cf s mov a,d ;(5)06d0 06d0 d b306d0 06d0 s ora e ;(4)06d1 06d1 d c2c80606d1 06d1 s jnz flshLp ;(10) loop until zero06d4 06d4 d c906d4 06d4 s ret ;done06d5 06d5 s06d5 06d5 s ;-----------------------------------------------------------06d5 06d5 s ; iByte - read two ascii hex bytes and return binary06d5 06d5 s ; value in e.06d5 06d5 s ;-----------------------------------------------------------06d5 06d5 d cdf30606d5 06d5 s iByte call getChar ;get a character06d8 06d8 d cdeb0606d8 06d8 s call asc2Bin ;ascii hex digit to binary06db 06db d 8706db 06db s add a ;put in msn, zero lsn06dc 06dc d 8706dc 06dc s add a06dd 06dd d 8706dd 06dd s add a06de 06de d 8706de 06de s add a06df 06df d 5f06df 06df s mov e,a ;save byte with MSN in E06e0 06e0 s06e0 06e0 s ; 2nd byte (LSN)06e0 06e0 s06e0 06e0 d cdf30606e0 06e0 s call getChar ;get a character06e3 06e3 d cdeb0606e3 06e3 s call asc2Bin ;ascii hex digit to binary06e6 06e6 d 8306e6 06e6 s add e ;combine msn and lsn06e7 06e7 d 5f06e7 06e7 s mov e,a ;save in EH06e8 06e8 d 8206e8 06e8 s add d ;add character to checksum06e9 06e9 d 5706e9 06e9 s mov d,a06ea 06ea d c906ea 06ea s ret06eb 06eb s06eb 06eb s ;-------------------------------------------------------------06eb 06eb s ; asc2Bin - ASCII hex digit to binary conversion. Digit06eb 06eb s ; passed in a, returned in a. Errors ignored as checksum06eb 06eb s ; will eventually kick this out.06eb 06eb s ;-------------------------------------------------------------06eb 06eb d d63006eb 06eb s asc2Bin sui '0' ;'0' to 006ed 06ed d fe0a06ed 06ed s cpi 10 ;0-9 ?06ef 06ef d d806ef 06ef s rc06f0 06f0 s06f0 06f0 d d60706f0 06f0 s sui 7 ;'A-F' to A-F06f2 06f2 d c906f2 06f2 s ret06f3 06f3 s06f3 06f3 s ;-------------------------------------------------------------06f3 06f3 s ; getChar - read a character from the 2SIO port specified in06f3 06f3 s ; SIOPORT. The character is also echoed to the console port06f3 06f3 s ; if the echo flag (c) is set (non-zero)06f3 06f3 s ;-------------------------------------------------------------06f3 06f3 d c506f3 06f3 s getChar push b ;save b,c06f4 06f4 d 3adfff06f4 06f4 s lda SIOPORT ;a=pseudo port to use06f7 06f7 d b706f7 06f7 s ora a ;port zero?06f8 06f8 d c2040706f8 06f8 s jnz inWait1 ;no, use port 106fb 06fb s06fb 06fb s ; in through 1st port (0) on 2SIO06fb 06fb s06fb 06fb d cdd60706fb 06fb s inWait0 call cntlc ;test for character from console06fe 06fe d cafb0606fe 06fe s jz inWait00701 0701 d c30f070701 0701 s jmp haveChr0704 0704 s0704 0704 s ; in through 2nd port (1) on 2SIO, check for ctrl-c on console0704 0704 s ; while waiting0704 0704 s0704 0704 d cdd6070704 0704 s inWait1 call cntlc ;look for ctrl-c on console0707 0707 d db120707 0707 s in CONS+2 ;wait for character on 2nd 2SIO0709 0709 d 0f0709 0709 s rrc ;data flag in carry070a 070a d d20407070a 070a s jnc inWait1070d 070d d db13070d 070d s in COND+2 ;a=character read070f 070f s070f 070f s ; process new character in a. Echo to console if c is non-zero070f 070f s070f 070f d 47070f 070f s haveChr mov b,a ;save character in b0710 0710 d 790710 0710 s mov a,c ;echo flag (c) set?0711 0711 d b70711 0711 s ora a0712 0712 d ca1a070712 0712 s jz noEcho ;no echo0715 0715 s0715 0715 d 780715 0715 s mov a,b ;a=character to send0716 0716 d c10716 0716 s pop b ;restore b,c0717 0717 d c348070717 0717 s jmp ptcn ;display character and exit071a 071a s071a 071a d 78071a 071a s noEcho mov a,b ;a=byte read071b 071b d c1071b 071b s pop b ;restore b,c071c 071c d c9071c 071c s ret071d 071d s071d 071d s ;********************************************************************071d 071d s ;071d 071d s ; Type conversion, input, output subroutines071d 071d s ;071d 071d s ;********************************************************************071d 071d s071d 071d s ;------------------------------------------------------------071d 071d s ; tahex - read two 16 bit addresses. 1st returned in HL, 2nd in DE071d 071d s ;------------------------------------------------------------071d 071d d cd2007071d 071d s tahex call ahex ;get first address param0720 0720 s ;fall into ahex to get 2nd param0720 0720 s0720 0720 s ;------------------------------------------------------------0720 0720 s ; ahex - read up to 4 hex digits to binary, return in de0720 0720 s ;------------------------------------------------------------0720 0720 d 0e040720 0720 s ahex mvi c,4 ;count of 4 digits0722 0722 d 2100000722 0722 s ahe0 lxi h,0 ;16 bit zero0725 0725 d cdb3070725 0725 s ahe1 call rdcn ;read a byte0728 0728 d fe300728 0728 s ahexNr cpi '0'072a 072a d da1f04072a 072a s jc start ;below '0', abort072d 072d d fe3a072d 072d s cpi ':'072f 072f d d45607072f 072f s cnc alph0732 0732 d 290732 0732 s dad h0733 0733 d 290733 0733 s dad h0734 0734 d 290734 0734 s dad h0735 0735 d 290735 0735 s dad h0736 0736 d d6300736 0736 s sui '0' ;ascii bias0738 0738 d fe0a0738 0738 s cpi 10 ;digit 0-10073a 073a d da3f07073a 073a s jc alf073d 073d d d607073d 073d s sui 7 ;alpha bias073f 073f d 85073f 073f s alf add l0740 0740 d 6f0740 0740 s mov l,a0741 0741 d 0d0741 0741 s dcr c0742 0742 d c225070742 0742 s jnz ahe1 ;keep reading0745 0745 d eb0745 0745 s xchg ;result in de0746 0746 s ;fall through to print a space0746 0746 s ;------------------------------------------------------------0746 0746 s ; spce - print a space0746 0746 s ; ptcn - print character passed in a0746 0746 s ;------------------------------------------------------------0746 0746 d 3e200746 0746 s spce mvi a,' ' ;print space0748 0748 d f50748 0748 s ptcn push psw0749 0749 s0749 0749 d db100749 0749 s ptlop in CONS ;wait for OK to transmit074b 074b d e602074b 074b s ani TBE074d 074d d ca4907074d 074d s jz ptlop0750 0750 s0750 0750 d f10750 0750 s pop psw ;recover a0751 0751 d e67f0751 0751 s ani 07fh ;get rid of msbit0753 0753 d d3110753 0753 s out COND ;and print it0755 0755 d c90755 0755 s ret ;return from ptcn0756 0756 s0756 0756 s ;------------------------------------------------------------0756 0756 s ; alph - verify valid hex digit, abort to command loop if not0756 0756 s ;------------------------------------------------------------0756 0756 d fe410756 0756 s alph cpi 'A'0758 0758 d da1f040758 0758 s jc start075b 075b d e65f075b 075b s ani 05fh075d 075d d fe47075d 075d s cpi 'G'075f 075f d d21f04075f 075f s jnc start0762 0762 d c90762 0762 s ret0763 0763 s0763 0763 s ;------------------------------------------------------------0763 0763 s ; crlf - print CR/LF0763 0763 s ;------------------------------------------------------------0763 0763 d 3e0d0763 0763 s crlf mvi a,CR0765 0765 d cd48070765 0765 s call ptcn0768 0768 d 3e0a0768 0768 s mvi a,LF076a 076a d c34807076a 076a s jmp ptcn076d 076d s076d 076d s ;------------------------------------------------------------076d 076d s ; err - display the address in hl followed by the value076d 076d s ; in b, then the value in a.076d 076d s ;------------------------------------------------------------076d 076d d f5076d 076d s err push psw ;save A076e 076e d cd8107076e 076e s call ptad ;print address0771 0771 d 780771 0771 s mov a,b ;print B0772 0772 d cd79070772 0772 s call pt20775 0775 d cd46070775 0775 s call spce0778 0778 d f10778 0778 s pop psw ;print A0779 0779 d f50779 0779 s pt2 push psw077a 077a d cd9307077a 077a s call binh077d 077d d f1077d 077d s pop psw077e 077e d c39707077e 077e s jmp binl0781 0781 s0781 0781 s ;------------------------------------------------------------0781 0781 s ; ptad - display the address in h0781 0781 s ;------------------------------------------------------------0781 0781 d cd63070781 0781 s ptad call crlf ;print cr,lf0784 0784 d cdc7070784 0784 s call pause0787 0787 d 7c0787 0787 s mov a,h ;print0788 0788 d cd79070788 0788 s call pt2 ;ascii078b 078b d 7d078b 078b s mov a,l ;codes078c 078c d cd7907078c 078c s call pt2 ;for078f 078f d cd4607078f 078f s call spce ;address0792 0792 d c90792 0792 s ret0793 0793 s0793 0793 s ;------------------------------------------------------------0793 0793 s ; binh - print MSN of byte passed in A0793 0793 s ; binl - print LSN of byte passed in A0793 0793 s ;------------------------------------------------------------0793 0793 d 1f0793 0793 s binh rar0794 0794 d 1f0794 0794 s rar0795 0795 d 1f0795 0795 s rar0796 0796 d 1f0796 0796 s rar0797 0797 d e60f0797 0797 s binl ani 0fh ;low 4 bits0799 0799 d c6300799 0799 s adi '0' ;ascii bias079b 079b d fe3a079b 079b s cpi 03ah ;digit 0-9079d 079d d da4807079d 079d s jc ptcn07a0 07a0 d c60707a0 07a0 s adi 7 ;digit A-F07a2 07a2 d c3480707a2 07a2 s jmp ptcn07a5 07a5 s07a5 07a5 s ;------------------------------------------------------------07a5 07a5 s ; dspMsg - display in-line message. String terminated by byte07a5 07a5 s ; with msbit set.07a5 07a5 s ;------------------------------------------------------------07a5 07a5 d e107a5 07a5 s dspMsg pop h ;hl->string to display07a6 07a6 s07a6 07a6 d 7e07a6 07a6 s dspLoop mov a,m ;a=next character to display07a7 07a7 d cd480707a7 07a7 s call ptcn ;display character07aa 07aa d b607aa 07aa s ora m ;MSB set? (last byte)07ab 07ab d 2307ab 07ab s inx h ;point to next character07ac 07ac d f2a60707ac 07ac s jp dspLoop ;no, keep looping07af 07af s07af 07af d cd460707af 07af s call spce ;display a trailing space07b2 07b2 d e907b2 07b2 s pchl ;return past the string07b3 07b3 s07b3 07b3 s ;------------------------------------------------------------07b3 07b3 s ; rdcn - read from console to A with echo to screen07b3 07b3 s ; getCon - read from console to A without echo07b3 07b3 s ;------------------------------------------------------------07b3 07b3 d cdbc0707b3 07b3 s rdcn call getCon ;get character from console07b6 07b6 d fe1b07b6 07b6 s cpi ESC ;ESC confuses smart terminals07b8 07b8 d c807b8 07b8 s rz ; so don't echo escape07b9 07b9 d c3480707b9 07b9 s jmp ptcn ;echo onto printer07bc 07bc s07bc 07bc d db1007bc 07bc s getCon in CONS ;read keyboard status07be 07be d 0f07be 07be s rrc ;data available flag in carry07bf 07bf d d2bc0707bf 07bf s jnc getCon07c2 07c2 s07c2 07c2 d db1107c2 07c2 s in COND ;read from keyboard07c4 07c4 d e67f07c4 07c4 s ani 07fh ;strip off msb07c6 07c6 d c907c6 07c6 s ret07c7 07c7 s07c7 07c7 s ;------------------------------------------------------------07c7 07c7 s ; pause - pause/resume with spacebar. Also look for a ctrl-c07c7 07c7 s ; or ESC to abort.07c7 07c7 s ;------------------------------------------------------------07c7 07c7 d cdd60707c7 07c7 s pause call cntlc ;look for abort or other character07ca 07ca d fe2007ca 07ca s cpi ' '07cc 07cc d c007cc 07cc s rnz ;return if not space or abort07cd 07cd s07cd 07cd d cdd60707cd 07cd s ploop call cntlc ;loop here until space or abort pressed07d0 07d0 d fe2007d0 07d0 s cpi ' '07d2 07d2 d c2cd0707d2 07d2 s jnz ploop07d5 07d5 d c907d5 07d5 s ret07d6 07d6 s07d6 07d6 s ;------------------------------------------------------------07d6 07d6 s ; cntlc - see if a character has been typed. If not, return07d6 07d6 s ; zero true. If ctrl-c or ESC typed, abort and return to07d6 07d6 s ; the command loop. Otherwise, return the character typed.07d6 07d6 s ;------------------------------------------------------------07d6 07d6 d db1007d6 07d6 s cntlc in CONS ;anything typed?07d8 07d8 d e60107d8 07d8 s ani RDA07da 07da d c807da 07da s rz ;no, exit with zero true07db 07db s07db 07db d db1107db 07db s in COND ;get the typed character07dd 07dd d e67f07dd 07dd s ani 07fh07df 07df d fe0307df 07df s cpi CTRLC ;abort with ctrl-c (2.0 style)07e1 07e1 d ca1f0407e1 07e1 s jz start07e4 07e4 d fe1b07e4 07e4 s cpi ESC ;or ESC (4.x style)07e6 07e6 d ca1f0407e6 07e6 s jz start07e9 07e9 d c907e9 07e9 s ret07ea 07ea s07ea 07ea s ;------------------------------------------------------------07ea 07ea s ; bmp - compare address and increment h. Return zero true07ea 07ea s ; if hl=de. Once hl=de, then de is incremented each time07ea 07ea s ; so the comparison remains true for subsequent calls.07ea 07ea s ;------------------------------------------------------------07ea 07ea d 7b07ea 07ea s bmp mov a,e ;compare lsb's of hl,de07eb 07eb d 9507eb 07eb s sub l07ec 07ec d c2f10707ec 07ec s jnz goon ;not equal07ef 07ef s07ef 07ef d 7a07ef 07ef s mov a,d ;compare msb's of hl,de07f0 07f0 d 9c07f0 07f0 s sbb h ;gives zero true if equal07f1 07f1 s07f1 07f1 d 2307f1 07f1 s goon inx h ;increment hl07f2 07f2 d c007f2 07f2 s rnz ;exit if hl <> de yet07f3 07f3 s07f3 07f3 d 1307f3 07f3 s inx d ;increase de as well so it will07f4 07f4 d c907f4 07f4 s ret ; still be equal next time07f5 07f5 s07f5 07f5 s end000a v lf000d v cr0779 a pt2073f a alf0001 v rda0002 v tbe001b v esc07ea a bmp0532 a pgm076d a err0637 a skp0722 a ahe00725 a ahe1055b a con10565 a con206ad a data0793 a binh0011 v cond046a a exec0720 a ahex0763 a crlf0569 a fill0781 a ptad0548 a crig04a6 a cycl0746 a spce07b3 a rdcn0631 a obcp0756 a alph04f1 a disp04e2 a rndm04ea a peve0010 v consff00 v boot0748 a ptcn05b6 a ndmt0499 a tmem053f a pglp061f a cont0797 a binl07f1 a goon04c6 a rlop04b1 a tlopffff v sptr05ef a srch105fb a srch2058f a exchg07d6 a cntlc05ab a nexch0003 v ctrlc0584 a moveb071d a tahex05c2 a ndlop07c7 a pause06d5 a ibyte05cf a compr06c3 a flush0400 a monit05a0 a mloop07cd a ploop065c a pinpt041f a start05de a vmlop0749 a ptlop057c a zloop063f a poutp0444 a cmdtbl0513 a dmpasc071a a noecho0520 a dspasc07bc a getcon0603 a dosrch0501 a dmphex0476 a doboot0728 a ahexnr06c8 a flshlp0596 a domove0480 a chksum04d4 a skiprd07a5 a dspmsg051e a dspdot048c a csloop068e a wtmark04bb a skipwr06eb a asc2bin06fb a inwait00704 a inwait106f3 a getchar070f a havechr0676 a hexload04fb a dmpline0689 a rcvline07a6 a dsploopffdf v sioport