home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / zsys / znode-12 / i / pacsrc2a.lbr / PATCH.IZC / PATCH.INC
Encoding:
Text File  |  1993-06-12  |  1.4 KB  |  83 lines
  1.  
  2. ;-------------------------------------------------------------
  3. ;PATCH AREA
  4. ;This code uses Qterm.Z, a patch area for Qterm.com v. 4.2 by
  5. ; David Goodenough.  All variables which are copied directly
  6. ; from the source code of Qterm.Z begin with '_'.
  7. ;Also note that Z80MR recognizes only the first six characters
  8. ; of labels.
  9. ;This version hard-coded for Royal alphaTronic PC (lrb)
  10. ;-------------------------------------------------------------
  11.  
  12.     ORG    0100h
  13.     JP    _START
  14. _KBDSTS:
  15.     JP    0006h
  16. _KBDIN:
  17.     JP    0009h
  18. _SCROUT:
  19.     JP    000Ch
  20.     JP    _DECOJ
  21.  
  22.     ORG    01CEh
  23. _SPEED:    DB    04h
  24.  
  25.     ORG    01D0h
  26. _SIGNON:
  27.     DB    'Royal alphaTronic PC',NULL    ; (lrb)
  28.  
  29.     ORG    01F0h
  30. _CLRS:    DB    ESC,'T71',NULL   ; (lrb)
  31.  
  32.     ORG    0200h
  33. _MOVETO:
  34.     PUSH    HL
  35.     LD    C,ESC
  36.     CALL    _SCROUT
  37.     LD    C,'Y'       ; (lrb)
  38.     CALL    _SCROUT
  39.     POP    HL
  40.     PUSH     HL
  41.     LD    A,H
  42.     CALL    _MT1
  43.     POP    HL
  44.     LD    A,L
  45. _MT1:    ADD    A,SPC
  46.     LD    C,A
  47.     CALL    _SCROUT
  48.     RET
  49. ;------------------------------
  50. BiosMSB    EQU    0002h
  51.     ORG    0500h
  52. _DECOJ:    JP    _DECOUT
  53.     ORG    0506h
  54. _START:    LD    A,(BiosMSB)
  55.     LD    (_KBDSTS+2),A
  56.     LD    (_KBDIN+2),A
  57.     LD    (_SCROUT+2),A
  58.     JP    GAME
  59. _DECOUT:
  60.     LD    B,1
  61.     LD    A,0
  62.     LD    C,06    ;counter
  63.             ;honors 6 LSB of L only!!!!!
  64. _DO2:    RR    L
  65.     JR    NC,_DO1
  66.     ADD    A,B
  67.     DAA
  68. _DO1:    PUSH    AF
  69.     LD    A,B
  70.     ADD    A,A
  71.     DAA
  72.     LD    B,A       ;double B
  73.     POP    AF
  74.     DEC    C
  75.     JR    NZ,_DO2
  76.     CALL    PRTHEX
  77.  
  78.     RET
  79.  
  80. ;End of the Qterm patch area
  81.  
  82.  
  83.