izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 04:58:05 +11:00
Code Issues 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!
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 )
(entry) _
( Update LATEST )