1 REM Ins{nd av Kristoffer Eriksson <5357>    1987-12-11 19.37.10 (KERMIT)
; Fil: CONSPACK.ASM
; Av:  Kristoffer Eriksson, "SKE" <5357>, 1987.
;
;-Ver--/-Datum----/-Sign-/-Kommentar----------------------------------
; 1.00 / 87-07-16 / SKE  /
;
; Rutiner f|r INPUT och PRINT till fil 0, normalt bildsk{rm och tangentbord.
; Fil 0 {r l{mpligare {n CONREAD och CONWRITE, t ex n{r det k|rs i REMOTE.

            EXTERN ConsInit, ConsRead, ConsWrite, ConsGet, ConsLU

ChkLU:      = 43
IO:         = 90
Iocm.Rda:   = 3    ; "INPUT"
Iocm.Wra:   = 4    ; "PRINT"
Iocm.Rdc:   = 5    ; "GET"

ConsLU:     DEFW   0

ConsInit:   XOR    A
            CALL   ChkLU              ; Hitta LU-blocket f|r fil nr 0.
            RET    C
            LD     (ConsLU),IX
            RET

ConsRead:   LD     A,Iocm.Rda
            JR     X1

ConsGet:    LD     A,Iocm.Rdc
            JR     X1

ConsWrite:  LD     A,Iocm.Wra
X1:         LD     IX,(ConsLU)
            JP     IO