home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol5n15.zip
/
120COLS.SCR
< prev
next >
Wrap
Text File
|
1986-08-05
|
696b
|
52 lines
N 120COLS.COM
A 100
CLD
SUB AX,AX
MOV ES,AX
ES:
LDS SI,[04A8] ; Get SAV_PTR
ES:
MOV WORD PTR [04A8],016C
ES:
MOV [04AA],CS ; Make it point here
PUSH CS
POP ES
MOV DI,016C ; Move addresses
MOV CX,001C
REPZ
MOVSB
ES:
LDS SI,[016C] ; Get parameter ptr
MOV DI,0188
MOV CX,05C0
REPZ ; Copy parameters
MOVSB
PUSH CS
POP DS
MOV WORD PTR [016C],0188
MOV [016E],CS
MOV SI,0149 ; Put new values in
MOV DI,0648
MOV CX,0023
REPZ
MOVSB
MOV DX,0748 ; Remain resident
INT 27 ; New values follow
DB 78,18,0E
DW 1800
DB 01,03,00,03
DB AB
DB 87,77,7D,22,78,27
DB 6C,1F,00,0D,06,07
DB 00,00,00,00,5E,2B
DB 5D,3C,0F,5E,0A,A3
DB FF
R CX
6C
W
Q