SLIDE2.GIF
S0100: MOV SI,0080 MOV AL,[SI] CMP AL,0A JB 010C JMP 012E NOP S010C: MOV SI,005D MOV AL,[SI] CMP AL,52 JNZ 0123 MOV BP,0000 MOV BX,0000 JMP 017C S011E: DW 0 ;BP S0120: DW O ;BX S0123: MOV BP,[011E] MOV BX,[0120] JMP 017C S012E: MOV SI,005D CALL S014D ;TURN TAIL INTO BX MOV BX,[014A] PUSH BX MOV SI,006D CALL S014D ;TURN TAIL INTO BP MOV BP,[014A] POP BX JMP 017C RET ;146 S014A: DW 0 ;AX S014D: MOV WORD PTR [014A],0000 MOV CX,0004 MOV BX,1000 S0159: LODSB SUB AL,30 MOV AH,00 CMP AL,0A JB 0164 SUB AL,07 S0164: MUL BX ADD [014A],AX MOV BP,0010 MOV AX,BX MOV DX,0000 DIV BP MOV BX,AX LOOP 0159 S0178 C3 RET ;178 S017C: ;PLOT PIXELS ON SCREEN 630X200 COLOR SCREEN MOV AX,000E INT 10 S0181: MOV CX,0276 S0184: MOV DX,00C8 S0187: 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 ;PLOT PIXEL CX=COL DX=ROW INT 10 DEC DX JNZ 0187 LOOP 0184 PUSH CS POP DS MOV [011E],BP MOV [0120],BX PUSH BX PUSH BP PUSH BP PUSH BX MOV BH,00 MOV DX,0000 MOV AH,02 INT 10 POP AX CALL 01E1 ;PRINT TAIL1 MOV DL,3A MOV AH,02 ;PRNT ':' INT 21 POP AX CALL 01E1 ;PRINT TAIL2 POP BP POP BX CALL 0219 ;CHECK KEY STATUS JMP 0181 RET ;1E0 S01E1: MOV BP,1000 MOV CX,0004 PUSH CS POP DS MOV [1000],AX S01EC: MOV AX,[1000] MOV DX,0000 DIV BP MOV [1000],DX CMP AL,0A JNB 0200 ADD AL,30 JMP 0202 S0200: ADD AL,37 S0202: MOV DL,AL MOV AH,02 ;PRINT TAIL DIGIT INT 21 MOV AX,BP MOV DX,0000 MOV BP,0010 DIV BP MOV BP,AX LOOP 01EC RET ;216 S0219: MOV AH,01 ;KEY STATUS Z=NONE PRESSED INT 16 JZ 0219 MOV AH,08 ;2-DIGIT ARROW KES /2-ESC INT 21 INT 21 CMP AL,1B ;EXIT WITH ESC JZ 022D CALL 0238 ;FIND VALUE OF ARROW KEY RET ;22C S022D: POP AX CALL 026E ;SAVE NEW SETTINGS OF THIS FILE MOV AX,4C00 ;RET TO DOS INT 21 INT 20 ;236 S0238: CMP AL,48 JNZ 0241 SUB BX,+50 NOP RET ;240 S0241: CMP AL,50 JNZ 024A ADD BX,+50 NOP RET ;249 S024A: CMP AL,4D JNZ 0253 ADD BP,+50 NOP RET ;252 S0253: CMP AL,4B JNZ 025C SUB BP,+50 NOP RET ;25B S025C: RET ;25C S025E: DB 0D,0A,'SLIDE2.COM',0,0,0 S026E: MOV DX,025E PUSH CS POP DS MOV AL,02 MOV AH,3D ;OPEN FILE INT 21 JB 02A7 NOP PUSH AX ;==>>FILE HANDLE POP BX MOV CX,0190 MOV AH,40 ;WRITE FILE INT 21 MOV AH,3E ;CLOSE FILE INT 21 S0207: RET ;207
