mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-17 07:08:05 +11:00
8 lines
216 B
Plaintext
8 lines
216 B
Plaintext
|
: COLS 80 ; : LINES 25 ;
|
||
|
|
CODE AT-XY ( x y )
|
||
|
|
( DH=row DL=col BH=page )
|
||
|
|
AX POPx, BX POPx, DX PUSHx, ( protect )
|
||
|
|
DH AL MOVrr, DL BL MOVrr, BX BX XORxx, AH 2 MOVri,
|
||
|
|
0x10 INT, DX POPx, ( unprotect )
|
||
|
|
;CODE
|