M0100: MOV SI,0080 MOV AL,[SI] CMP AL,0A JB 010C JMP 012E ;2-TAILS ARE LONG ENOUGH M010C: MOV SI,005D MOV AL,[SI] CMP AL,52 JNZ 0123 MOV BP,0000 ;RESET BP/BX ==0 MOV BX,0000 JMP 017C M011E: DW 0 ;BP STORE M0120: DW 0 ;BX M0123: ;GET STORED BX/BP MOV BP,[011E] MOV BX,[0120] JMP 017C M012E: MOV SI,005D CALL 014D ;CONVERT HEX TAIL1 TO DEC MOV BX,[014A] PUSH BX MOV SI,006D CALL 014D ;CONVERT HEX TAIL2 TO DEC MOV BP,[014A] POP BX JMP 017C RET ;146 M014A: DW 0 ;AX M014D: MOV WORD PTR [014A],0000 MOV CX,0004 MOV BX,1000 M0159: LODSB SUB AL,30 MOV AH,00 CMP AL,0A JB 0164 SUB AL,07 ;HEX LETTERS M0164: MUL BX ADD [014A],AX MOV BP,0010 MOV AX,BX MOV DX,0000 DIV BP MOV BX,AX LOOP 0159 RET ;178 M017C: MOV AX,000E INT 10 M0181: MOV CX,0276 M0184: MOV DX,00C8 M0187: PUSH CX PUSH DX PUSH ES MOV DI,DX MOV SI,CX ADD CX,BP ADD DX,BX PUSH DX POP DS PUSH CX POP ES MOV CX,[BP+SI] MOV DX,[BX+DI] PUSH DX POP ES PUSH CX POP DI MOV AL,[DI] AND AL,0F POP ES POP DX POP CX MOV AH,0C INT 10 DEC DX JNZ 0187 LOOP 0184 PUSH CS POP DS MOV [011E],BP MOV [0120],BX MOV AH,01 INT 16 JNZ 01D6 ;KEY TOUCHED CALL 01FC ;PRNT SEGMENT:OFFSET JMP 0181 ;LOOP M01CA: DB 'MEMMAP.COM',0,'$' M01D6: ;SAVE FILE BX/BP MOV DX,01CA PUSH CS POP DS MOV AL,02 MOV AH,3D ;OPEN FILE INT 21 JB 01F4 PUSH AX ;==>>HANDLE# POP BX MOV CX,0180 MOV DX,0100 MOV AH,40 ;WRITE FILE INT 21 MOV AH,3E ;CLOSE FILE INT 21 M01F4: MOV AX,4C00 INT 21 INT 20 RET ;1FB M01FC: ADD BP,0200 ;INC BP CMP BP,FC00 JB 0217 CLC MOV BP,0000 ADD BX,00C8 CMP BX,FD00 ;INC BX JB 0217 JMP 0115 ;RESET M0217: PUSH BX PUSH BP PUSH BP PUSH BX MOV BH,00 MOV DX,0000 MOV AH,02 ;SET CURSOR INT 10 POP AX CALL 023A ;PRNT TAIL1 MOV DL,3A MOV AH,02 ;PRNT ':' INT 21 POP AX CALL 023A ;PRNT TAIL2 POP BP POP BX RET ;234 M0237: DW 0;ax M023A: MOV BP,1000 MOV CX,0004 PUSH CS POP DS MOV [0237],AX M0245: MOV AX,[0237] MOV DX,0000 DIV BP MOV [0237],DX CMP AL,0A JNB 0259 ADD AL,30 JMP 025B M0259: ADD AL,37 M025B: MOV DL,AL MOV AH,02 ;prnt tail digit INT 21 MOV AX,BP MOV DX,0000 MOV BP,0010 DIV BP MOV BP,AX LOOP 0245 RET ;26f
