From 496826cdc4539e83c077169f72f92bab141afff4 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Mon, 22 Jun 2020 06:53:30 -0400
Subject: [PATCH] pcat: implement AT-XY

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!
---
 recipes/pcat/xcomp.fs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/recipes/pcat/xcomp.fs b/recipes/pcat/xcomp.fs
index d8f738c..690a20d 100644
--- a/recipes/pcat/xcomp.fs
+++ b/recipes/pcat/xcomp.fs
@@ -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 )