home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG062.ARC / SC8024.ASC < prev    next >
Text File  |  1979-12-31  |  896b  |  65 lines
  1. VECT0    EQU    0B2H
  2. VECT2    EQU    0B6H
  3. BDOS    EQU    5
  4. BASIC    EQU    8048H
  5. MEMTOP    EQU    0A0H
  6. T6416    EQU    0E1H
  7. FILREG    EQU    85A7H
  8.     ORG    32000D
  9. INIT    LD    HL,(VECT0)
  10.     LD    (VECSAV),HL
  11.     LD    HL,OUT0
  12.     LD    (VECT0),HL
  13.     LD    HL,OUT2
  14.     LD    (VECT2),HL
  15.     LD    HL,INIT
  16.     LD    (MEMTOP),HL
  17.     CALL    V6416
  18.     RET
  19. OUT0    PUSH    AF
  20.     LD    A,(MODE)
  21.     OR    A
  22.     CALL    NZ,V6416
  23.     POP    AF
  24. OUT0CH    LD    HL,(VECSAV)
  25.     JP    (HL)
  26. OUT2    PUSH    AF
  27.     LD    A,(MODE)
  28.     OR    A
  29.     CALL    Z,V8024
  30.     POP    AF
  31. OUT2CH    LD    E,A
  32.     LD    C,2
  33.     JP    BDOS
  34. V6416    LD    A,0
  35.     LD    (MODE),A
  36.     LD    A,0CH
  37.     CALL    OUT0CH
  38.     LD    HL,T6416
  39.     JP    FILREG
  40. V8024    LD    A,0FFH
  41.     LD    (MODE),A
  42.     LD    A,1AH
  43.     CALL    OUT2CH
  44.     LD    HL,T8024
  45.     JP    FILREG
  46.     DB    6BH
  47.     DB    50H
  48.     DB    58H
  49.     DB    37H
  50.     DB    1BH
  51.     DB    5
  52.     DB    18H
  53.     DB    19H
  54.     DB    48H
  55.     DB    0AH
  56.     DB    2AH
  57.     DB    0AH
  58.     DB    20H
  59.     DB    0
  60.     DB    0
  61. T8024    DB    0
  62. MODE    DB    0
  63. VECSAV    DW    0
  64.     END
  65.