home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MS DOS Archives 1
/
MS-DOS_Archives_Volume_One_Walnut_Creek.iso
/
msdos
/
graphics
/
int_70h.arc
/
INT-DEMO.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-12-03
|
16KB
|
412 lines
PAGE 60, 132
TITLE Testing the TSR graphics interupt
CSEG SEGMENT
ORG 100H
ASSUME CS:CSEG, DS:CSEG, SS:CSEG
START: MOV AX, CS ; setup for INT 70h: get the segment and
LEA BX, Lines ; offset of the data
INT 70H ; call graphics interupt
MOV AH, 7 ; DOS function to get a key
INT 21H ; wait for a keyboard hit
MOV AX, CS ; setupt for INT 70h
LEA BX, Reset
INT 70H ; call graphics interupt
INT 20H ; stop this program
Lines DB 11h ; turn on graphics
DB 61h ; clear page 1
DB 51h ; set active page to 1
DB 31h ; plot a point
DW 9, 140
DB 31h ; plot a point
DW 10, 140
DB 31h
DW 11, 140
DB 31h ; plot a point
DW 9, 141
DB 31h ; plot a point
DW 10, 141
DB 31h
DW 11, 141
DB 31h ; plot a point
DW 39, 170
DB 31h ; plot a point
DW 40, 170
DB 31h
DW 41, 170
DB 31h ; plot a point
DW 39, 171
DB 31h ; plot a point
DW 40, 171
DB 31h
DW 41, 171
DB 31h ; plot a point
DW 9, 200
DB 31h ; plot a point
DW 10, 200
DB 31h ; plot a point
DW 11, 200
DB 31h ; plot a point
DW 9, 201
DB 31h ; plot a point
DW 10, 201
DB 31h ; plot a point
DW 11, 201
DB 31h ; plot a point
DW 689, 140
DB 31h ; plot a point
DW 690, 140
DB 31h ; plot a point
DW 691, 140
DB 31h ; plot a point
DW 689, 141
DB 31h ; plot a point
DW 690, 141
DB 31h ; plot a point
DW 691, 141
DB 31h ; plot a point
DW 659, 170
DB 31h ; plot a point
DW 660, 170
DB 31h ; plot a point
DW 661, 170
DB 31h ; plot a point
DW 659, 171
DB 31h ; plot a point
DW 660, 171
DB 31h ; plot a point
DW 661, 171
DB 31h ; plot a point
DW 689, 200
DB 31h ; plot a point
DW 690, 200
DB 31h ; plot a point
DW 691, 200
DB 31h ; plot a point
DW 689, 201
DB 31h ; plot a point
DW 690, 201
DB 31h ; plot a point
DW 691, 201
DB 42h ; draw a line (XOR)
DW 0, 0, 700, 340
DB 42h ; draw a line (XOR)
DW 10, 0, 690, 340
DB 42h ; draw a line (XOR)
DW 20, 0, 680, 340
DB 42h ; draw a line (XOR)
DW 30, 0, 670, 340
DB 42h ; draw a line (XOR)
DW 40, 0, 660, 340
DB 42h ; draw a line (XOR)
DW 50, 0, 650, 340
DB 42h ; draw a line (XOR)
DW 60, 0, 640, 340
DB 42h ; draw a line (XOR)
DW 70, 0, 630, 340
DB 42h ; draw a line (XOR)
DW 80, 0, 620, 340
DB 42h ; draw a line (XOR)
DW 90, 0, 610, 340
DB 42h ; draw a line (XOR)
DW 100, 0, 600, 340
DB 42h ; draw a line (XOR)
DW 110, 0, 590, 340
DB 42h ; draw a line (XOR)
DW 120, 0, 580, 340
DB 42h ; draw a line (XOR)
DW 130, 0, 570, 340
DB 42h ; draw a line (XOR)
DW 140, 0, 560, 340
DB 42h ; draw a line (XOR)
DW 150, 0, 550, 340
DB 42h ; draw a line (XOR)
DW 160, 0, 540, 340
DB 42h ; draw a line (XOR)
DW 170, 0, 530, 340
DB 42h ; draw a line (XOR)
DW 180, 0, 520, 340
DB 42h ; draw a line (XOR)
DW 190, 0, 510, 340
DB 42h ; draw a line (XOR)
DW 200, 0, 500, 340
DB 42h ; draw a line (XOR)
DW 210, 0, 490, 340
DB 42h ; draw a line (XOR)
DW 220, 0, 480, 340
DB 42h ; draw a line (XOR)
DW 230, 0, 470, 340
DB 42h ; draw a line (XOR)
DW 240, 0, 460, 340
DB 42h ; draw a line (XOR)
DW 250, 0, 450, 340
DB 42h ; draw a line (XOR)
DW 260, 0, 440, 340
DB 42h ; draw a line (XOR)
DW 270, 0, 430, 340
DB 42h ; draw a line (XOR)
DW 280, 0, 420, 340
DB 42h ; draw a line (XOR)
DW 290, 0, 410, 340
DB 42h ; draw a line (XOR)
DW 300, 0, 400, 340
DB 42h ; draw a line (XOR)
DW 310, 0, 390, 340
DB 42h ; draw a line (XOR)
DW 320, 0, 380, 340
DB 42h ; draw a line (XOR)
DW 330, 0, 370, 340
DB 42h ; draw a line (XOR)
DW 340, 0, 360, 340
DB 42h ; draw a line (XOR)
DW 350, 0, 350, 340
DB 42h ; draw a line (XOR)
DW 360, 0, 340, 340
DB 42h ; draw a line (XOR)
DW 370, 0, 330, 340
DB 42h ; draw a line (XOR)
DW 380, 0, 320, 340
DB 42h ; draw a line (XOR)
DW 390, 0, 310, 340
DB 42h ; draw a line (XOR)
DW 400, 0, 300, 340
DB 42h ; draw a line (XOR)
DW 410, 0, 290, 340
DB 42h ; draw a line (XOR)
DW 420, 0, 280, 340
DB 42h ; draw a line (XOR)
DW 430, 0, 270, 340
DB 42h ; draw a line (XOR)
DW 440, 0, 260, 340
DB 42h ; draw a line (XOR)
DW 450, 0, 250, 340
DB 42h ; draw a line (XOR)
DW 460, 0, 240, 340
DB 42h ; draw a line (XOR)
DW 470, 0, 230, 340
DB 42h ; draw a line (XOR)
DW 480, 0, 220, 340
DB 42h ; draw a line (XOR)
DW 490, 0, 210, 340
DB 42h ; draw a line (XOR)
DW 500, 0, 200, 340
DB 42h ; draw a line (XOR)
DW 510, 0, 190, 340
DB 42h ; draw a line (XOR)
DW 520, 0, 180, 340
DB 42h ; draw a line (XOR)
DW 530, 0, 170, 340
DB 42h ; draw a line (XOR)
DW 540, 0, 160, 340
DB 42h ; draw a line (XOR)
DW 550, 0, 150, 340
DB 42h ; draw a line (XOR)
DW 560, 0, 140, 340
DB 42h ; draw a line (XOR)
DW 570, 0, 130, 340
DB 42h ; draw a line (XOR)
DW 580, 0, 120, 340
DB 42h ; draw a line (XOR)
DW 590, 0, 110, 340
DB 42h ; draw a line (XOR)
DW 600, 0, 100, 340
DB 42h ; draw a line (XOR)
DW 610, 0, 90, 340
DB 42h ; draw a line (XOR)
DW 620, 0, 80, 340
DB 42h ; draw a line (XOR)
DW 630, 0, 70, 340
DB 42h ; draw a line (XOR)
DW 640, 0, 60, 340
DB 42h ; draw a line (XOR)
DW 650, 0, 50, 340
DB 42h ; draw a line (XOR)
DW 660, 0, 40, 340
DB 42h ; draw a line (XOR)
DW 670, 0, 30, 340
DB 42h ; draw a line (XOR)
DW 680, 0, 20, 340
DB 42h ; draw a line (XOR)
DW 690, 0, 10, 340
DB 42h ; draw a line (XOR)
DW 700, 0, 0, 340
DB 42h ; draw a line (XOR)
DW 5, 0, 695, 340
DB 42h ; draw a line (XOR)
DW 15, 0, 685, 340
DB 42h ; draw a line (XOR)
DW 25, 0, 675, 340
DB 42h ; draw a line (XOR)
DW 35, 0, 665, 340
DB 42h ; draw a line (XOR)
DW 45, 0, 655, 340
DB 42h ; draw a line (XOR)
DW 55, 0, 645, 340
DB 42h ; draw a line (XOR)
DW 65, 0, 635, 340
DB 42h ; draw a line (XOR)
DW 75, 0, 625, 340
DB 42h ; draw a line (XOR)
DW 85, 0, 615, 340
DB 42h ; draw a line (XOR)
DW 95, 0, 605, 340
DB 42h ; draw a line (XOR)
DW 105, 0, 595, 340
DB 42h ; draw a line (XOR)
DW 115, 0, 585, 340
DB 42h ; draw a line (XOR)
DW 125, 0, 575, 340
DB 42h ; draw a line (XOR)
DW 135, 0, 565, 340
DB 42h ; draw a line (XOR)
DW 145, 0, 555, 340
DB 42h ; draw a line (XOR)
DW 155, 0, 545, 340
DB 42h ; draw a line (XOR)
DW 165, 0, 535, 340
DB 42h ; draw a line (XOR)
DW 175, 0, 525, 340
DB 42h ; draw a line (XOR)
DW 185, 0, 515, 340
DB 42h ; draw a line (XOR)
DW 195, 0, 505, 340
DB 42h ; draw a line (XOR)
DW 205, 0, 495, 340
DB 42h ; draw a line (XOR)
DW 215, 0, 485, 340
DB 42h ; draw a line (XOR)
DW 225, 0, 475, 340
DB 42h ; draw a line (XOR)
DW 235, 0, 465, 340
DB 42h ; draw a line (XOR)
DW 245, 0, 455, 340
DB 42h ; draw a line (XOR)
DW 255, 0, 445, 340
DB 42h ; draw a line (XOR)
DW 265, 0, 435, 340
DB 42h ; draw a line (XOR)
DW 275, 0, 425, 340
DB 42h ; draw a line (XOR)
DW 285, 0, 415, 340
DB 42h ; draw a line (XOR)
DW 295, 0, 405, 340
DB 42h ; draw a line (XOR)
DW 305, 0, 395, 340
DB 42h ; draw a line (XOR)
DW 315, 0, 385, 340
DB 42h ; draw a line (XOR)
DW 325, 0, 375, 340
DB 42h ; draw a line (XOR)
DW 335, 0, 365, 340
DB 42h ; draw a line (XOR)
DW 345, 0, 355, 340
DB 42h ; draw a line (XOR)
DW 355, 0, 345, 340
DB 42h ; draw a line (XOR)
DW 365, 0, 335, 340
DB 42h ; draw a line (XOR)
DW 375, 0, 325, 340
DB 42h ; draw a line (XOR)
DW 385, 0, 315, 340
DB 42h ; draw a line (XOR)
DW 395, 0, 305, 340
DB 42h ; draw a line (XOR)
DW 405, 0, 295, 340
DB 42h ; draw a line (XOR)
DW 415, 0, 285, 340
DB 42h ; draw a line (XOR)
DW 425, 0, 275, 340
DB 42h ; draw a line (XOR)
DW 435, 0, 265, 340
DB 42h ; draw a line (XOR)
DW 445, 0, 255, 340
DB 42h ; draw a line (XOR)
DW 455, 0, 245, 340
DB 42h ; draw a line (XOR)
DW 465, 0, 235, 340
DB 42h ; draw a line (XOR)
DW 475, 0, 225, 340
DB 42h ; draw a line (XOR)
DW 485, 0, 215, 340
DB 42h ; draw a line (XOR)
DW 495, 0, 205, 340
DB 42h ; draw a line (XOR)
DW 505, 0, 195, 340
DB 42h ; draw a line (XOR)
DW 515, 0, 185, 340
DB 42h ; draw a line (XOR)
DW 525, 0, 175, 340
DB 42h ; draw a line (XOR)
DW 535, 0, 165, 340
DB 42h ; draw a line (XOR)
DW 545, 0, 155, 340
DB 42h ; draw a line (XOR)
DW 555, 0, 145, 340
DB 42h ; draw a line (XOR)
DW 565, 0, 135, 340
DB 42h ; draw a line (XOR)
DW 575, 0, 125, 340
DB 42h ; draw a line (XOR)
DW 585, 0, 115, 340
DB 42h ; draw a line (XOR)
DW 595, 0, 105, 340
DB 42h ; draw a line (XOR)
DW 605, 0, 95, 340
DB 42h ; draw a line (XOR)
DW 615, 0, 85, 340
DB 42h ; draw a line (XOR)
DW 625, 0, 75, 340
DB 42h ; draw a line (XOR)
DW 635, 0, 65, 340
DB 42h ; draw a line (XOR)
DW 645, 0, 55, 340
DB 42h ; draw a line (XOR)
DW 655, 0, 45, 340
DB 42h ; draw a line (XOR)
DW 665, 0, 35, 340
DB 42h ; draw a line (XOR)
DW 675, 0, 25, 340
DB 42h ; draw a line (XOR)
DW 685, 0, 15, 340
DB 42h ; draw a line (XOR)
DW 695, 0, 5, 340
DB 00 ; end interupt code
Reset DB 20h ; text on (page 0)
DB 00 ; end interupt code
CSEG ENDS
END START
END