izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

pcat: implement AT-XY

Browse Source 
VE works! well, at this point, we can say that Collapse OS runs on
PC/AT. A little cleanup and docs writing and we're done!
This commit is contained in:
Virgil Dupras 2020-06-22 06:53:30 -04:00
parent f76d30b6fe
commit 496826cdc4
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
recipes/pcat/xcomp.fs
View File

@ -50,6 +50,13 @@ CODE 13H ( ax bx cx dx -- ax bx cx dx )
8 RSHIFT 1+ FDHEADS C! 8 RSHIFT 1+ FDHEADS C!
0x3f AND FDSPT C! 0x3f AND FDSPT C!
; ;
: 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
380 LOAD ( xcomp core high ) 380 LOAD ( xcomp core high )
(entry) _ (entry) _
( Update LATEST ) ( Update LATEST )