;
;       monitor routines and variable that can be used by other programs
;       FP-2010-11-21 (www.philipse.info)
;
reset   equ     00000h
wrtsp   equ     00003h                  ; write space to output
wrtzv   equ     00005h                  ; write character to output
redzv   equ     00008h                  ; get key from keyboard
wrtcr   equ     0000bh                  ; write cr lf to output
chizv   equ     00014h                  ; check if key pressed
wrtdx   equ     00017h                  ; write R2 x character from R1 to output
zb1vr   equ     0001dh                  ; zero branch to addres at zb1a
cmtbsv  equ     00022h                  ; compare to bytes
ictbsv  equ     00024h                  ; increment two bytes
dctbsv  equ     00026h                  ; decrement two bytes
pstbsv  equ     00028h                  ;
pltbsv  equ     0002Ah                  ;
adtbsv  equ     0002Ch                  ;
sbtbsv  equ     0002Eh                  ;
tinprv  equ     00030h                  ;
tehexv  equ     00032h                  ;
gthexv  equ     00034h                  ;
wrtbsv  equ     00036h                  ;
wchexv  equ     00038h                  ;
chescv  equ     0003Ah                  ;
zb2vr   equ     0003ch                  ; zero branch to addres at zb2a after clearing R0
zb2vra  equ     0003dh                  ; zero branch to addres at zb2a
inprt   equ     0014Bh                  ;
error   equ     00196h                  ; error with message
errorb  equ     0019Fh                  ; error without meassage
monml   equ     001B7h                  ;
chhxd   equ     00289h                  ;
chhxda  equ     00293h                  ;
chhxdd  equ     002B1h                  ;
inmem   equ     002B8h                  ;
cgmem   equ     00301h                  ;
momem   equ     00320h                  ;
vymem   equ     0035Dh                  ;
setqp   equ     0052Dh                  ;
gomem   equ     0053Eh                  ;
dpbnk   equ     00547h                  ;
prmem   equ     00550h                  ;
ioptrs  equ     005A2h                  ; i/o pointers, acon list
chinp   equ     005E0h                  ; check for key from keyboard
keyin   equ     005E6h                  ; get key from keboard
wchar   equ     005FAh                  ; char to screen
;
; monitor variables that can be used by other programs
;
zb1a    equ     00EE0h                  ; zero branch indirect addres vector
zb2a    equ     00EE2h                  ; zero branch indirect addres vector
cmad    equ     00EE4h                  ; command address
eret    equ     00EE6h                  ; error return pointer
ioad    equ     00EE8h                  ; indirect output address
iiad    equ     00EEAh                  ; indirect input address
icad    equ     00EECh                  ; indirect check input address
upstre  equ     00EF0h                  ; screen border upper
lestre  equ     00EF1h                  ; screen border left
loenre  equ     00EF2h                  ; screen border lower
rienre  equ     00EF3h                  ; screen border rigth
comres  equ     00EF6h                  ; command compare
cpores  equ     00EF7h                  ; copy of c-port output
stad    equ     00EF8h                  ; start address
enad    equ     00EFAh                  ; end address
toad    equ     00EFCh                  ; tagret address
tbsr    equ     00EFEh                  ; two bytes value
;
        END
