home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug084.arc / BEEMON.ASC < prev    next >
Text File  |  1979-12-31  |  8KB  |  496 lines
  1. ;    *** MICROBEE MONITOR V2.0   12/8/83  ***
  2. CTRC    EQU    03H
  3. CLS    EQU    0CH
  4. ACR    EQU    0DH
  5. ALF    EQU    0AH
  6. CTRH    EQU    08H
  7. CTRS    EQU    13H
  8. CTRX    EQU    18H
  9. DEL    EQU    7FH
  10. PROMPT    EQU    '.'
  11. BUFLEN    EQU    128D
  12. EXIT    EQU    8021H        ;BACK TO BASIC  ??
  13.     ORG    0400H
  14. MONITR    LD    SP,STK
  15.     CALL    BOOT        ;JUST CLEAR THE SCREEN
  16.     CALL    INTRO        ;INTRODUCTION
  17. ;    *** MAIN PROGRAM OF THE MONITOR ***
  18. MON1    CALL    CRLF
  19.     LD    C,PROMPT
  20.     CALL    PUTCH
  21.     LD    HL,BUFF
  22.     CALL    GETLN
  23.     LD    A,(BUFF)
  24.     CP    ACR
  25.     CALL    NZ,SCANER
  26.     JP    MON1        ;GO AGAIN
  27. ;**** SUBROUTINES  ****
  28. GETLN    LD    E,0
  29. GETLN1    CALL    CONIN
  30.     CP    ' '
  31.     JP     C,GETLN4
  32.     CP    'Z'+1
  33.     JP    C,GETLN2
  34.     AND    5FH
  35. GETLN2    LD    (HL),A
  36.     LD    A,BUFLEN
  37.     CP    E
  38.     RET    Z
  39.     LD    A,(HL)
  40.     INC    HL
  41.     INC    E
  42.     LD    C,A
  43.     CALL    PUTCH
  44.     JP    GETLN1
  45. GETLN4    CP    CTRH
  46.     JP    Z,GETLN5
  47.     CP    CTRX
  48.     JP    Z,CLLINE
  49.     CP    ACR
  50.     JP    NZ,GETLN1
  51.     LD    (HL),A
  52. CRLF    LD    C,ACR
  53.     CALL    PUTCH
  54.     LD    C,ALF
  55.     CALL    PUTCH
  56.     RET
  57. GETLN5    LD    A,E
  58.     OR    A
  59.     JP    Z,GETLN1
  60.     LD    C,CTRH
  61.     CALL    CONOUT
  62.     LD    C,' '
  63.     CALL     CONOUT
  64.     LD    C,CTRH
  65.     CALL    CONOUT
  66.     DEC    E
  67.     DEC    HL
  68.     JP    GETLN1
  69. CLLINE    LD    C,CTRH
  70. CLINE1    LD    A,E
  71.     OR    A
  72.     JP    Z,GETLN
  73.     CALL    CONOUT
  74.     LD    C,' '
  75.     CALL    CONOUT
  76.     LD    C,CTRH
  77.     CALL    CONOUT
  78.     DEC    HL
  79.     DEC    E
  80.     JP    NZ,CLINE1
  81.     JP    GETLN
  82. ;
  83. PUTCH    CALL    CONOUT
  84.     CALL    CONST
  85. ëOR    A
  86.     RET    Z
  87.     CALL    CONIN
  88.     CP    CTRS
  89.     JP    Z,PAWZ
  90.     JP    MON1
  91. PAWZ    CALL    CONIN
  92.     CP    CTRC
  93.     JP    Z,MON1
  94.     RET
  95. ;**** SIMPLE SCANNER *****
  96. SCANER    LD    HL,BUFF
  97.     LD    A,(HL)
  98.     INC    HL
  99.     LD    (CURSOR),HL
  100.     SUB    'A'
  101.     JP    C,ERROR
  102.     CP    'Z'-'A'+1
  103.     JP    NC,ERROR
  104.     ADD    A,A
  105.     LD    HL,TABLE
  106.     LD    D,0
  107.     LD    E,A
  108.     ADD    HL,DE
  109.     LD    E,(HL)
  110.     INC    HL
  111.     LD    D,(HL)
  112.     EX    DE,HL
  113.     JP    (HL)
  114. TABLE    DW    ERROR
  115.     DW    BREAK
  116.     DW    ERROR
  117.     DW    DUMP
  118.     DW    EXIT
  119.     DW    ERROR
  120.     DW    GO
  121.     DW    HELP        ;CALL INTRO COMMANDS
  122.     DW    ERROR
  123.     DW    ERROR
  124.     DW    ERROR
  125.     DW    ERROR
  126.     DW    ERROR
  127.     DW    ERROR
  128.     DW    ERROR
  129.     DW    ERROR
  130.     DW    ERROR
  131.     DW    RESUME
  132.     DW    SUBST
  133.     DW    ERROR
  134.     DW    ERROR
  135.     DW    ERROR
  136.     DW    ERROR
  137.     DW    ERROR
  138.     DW    ERROR
  139.     DW    ERROR
  140. ;  ** ERROR HANDLER **
  141. ERROR    LD    C,'?'
  142.     CALL    CONOUT
  143.     CALL    CRLF
  144.     JP    MON1
  145. ;** SCANNER TOOLS **
  146. SPSKIP    LD    HL,(CURSOR)
  147. SPSKL    LD    A,(HL)
  148.     INC    HL
  149.     CP    ACR
  150.     JP    Z,ERROR
  151.     CP    ' '
  152.     JP    Z,SPSKL
  153.     CP    ','
  154.     JP    Z,SPSKL
  155. ;    CP    TAB    ;MAY HAVE TO CHANGE THIS
  156. ;    JP    Z,SPSKL
  157.     DEC    HL
  158.     LD    (CURSOR),HL
  159.     RET
  160. GETPAR    PUSH    DE
  161.     PUSH    BC
  162.     LD    HL,0
  163. GP1    CALL    GETCHR
  164.     CALLëGP2
  165.     JP    C,GP3
  166.     ADD    HL,HL
  167.     ADD    HL,HL
  168.     ADD    HL,HL
  169.     ADD    HL,HL
  170.     OR    L
  171.     LD    L,A
  172.     JP    GP1
  173. GP2    SUB    '0'
  174.     RET    C
  175.     CP    'F'-'0'+1
  176.     CCF
  177.     RET    C
  178.     CP    10
  179.     CCF
  180.     RET    NC
  181.     SUB    'A'-'9'-1
  182.     RET
  183. GP3    CALL    UNGETC
  184.     POP    BC
  185.     POP    DE
  186.     RET
  187. ; ** GETCHAR AND UNGETCH **
  188. GETCHR    PUSH    HL
  189.     LD    HL,(CURSOR)
  190.     LD    A,(HL)
  191.     INC    HL
  192.     LD    (CURSOR),HL
  193.     POP    HL
  194.     RET
  195. UNGETC    PUSH    HL
  196.     LD    HL,(CURSOR)
  197.     DEC    HL
  198.     LD    (CURSOR),HL
  199.     POP    HL
  200.     RET
  201. DUMP    CALL    SPSKIP
  202.     CALL    GETPAR
  203.     EX    DE,HL
  204.     CALL    SPSKIP
  205.     CALL    GETPAR
  206.     EX    DE,HL
  207. D0    PUSH    HL
  208.     CALL    H16        ;PRINT INIT ADDRESS
  209.     CALL    TAB        ;TAB ACROSS 2 SPACES
  210. D1    LD    A,(HL)        ;GET BYTE FROM MEMORY
  211.     CALL    H8        ;
  212.     LD    C,' '        ;PRINT A       
  213.     CALL    PUTCH
  214.     INC    HL        ;POINT TO NEXT BYTE
  215.     CALL    D8        ;REACHED THE END ?
  216.     JP    C,D2        ;DUMP REMAINING ASCII 
  217.     LD    A,L        ;
  218.     AND    0FH        ;MASK LOWER BITS
  219.     JP    NZ,D1        ;IF NOT ZERO KEEP DUMPING
  220. D2    LD    C,' '        ;ELSE SPACE AND DUMP
  221.     CALL    PUTCH        ;ASCII
  222.     POP    HL        ;GET BASE POINTER
  223. D4    LD    A,(HL)        ;GET CHAR FROM MEMORY
  224.     AND    7FH        ;STRIP MSB
  225.     CP    ' '        ;IF LESS THAN SPACE THEN
  226.     CALL    M,D7        ;REPLACE WITH DOT
  227.     LD    C,A
  228.     CALL     PUTCH        ;OUTPUT CHAR
  229.     INC    HL        ;POINT TO NEXT BYTE
  230.     CALL    D8        ;
  231.     JP    C,CRLF
  232. D5    LD    A,L
  233.     AND    0FH
  234.     JP    NZ,D4
  235.     CALL    CRLF
  236.     JP    D0
  237. ; 
  238. ;          ** HEX OUTPUT SUBROUTINES  **
  239. D7    LD    A,'.'        ;PRINT DOT
  240.     RET
  241. D8    LD    A,E
  242.     SUB    L
  243.     LD    A,D
  244.     SBC    A,H
  245.     RET
  246. H16    LD    A,H
  247.     CALL    H8
  248.     LD    A,L
  249. H8    PUSH    AF
  250.     RRCA
  251.     RRCA
  252.     RRCA
  253.     RRCA
  254.     CALL    H4
  255.     POP    AF
  256. H4    AND     0FH        ;MASK OUT UNWANTED NIBBLE
  257.     ADD    A,'0'        ;CONVERT IT TO ASCII
  258.     CP    '9'+1        ;IF > 9 THEN ADJUST IT TO
  259.     CALL    P,HADJ        ;BE A HEX DIGIT
  260.     LD    C,A
  261.     CALL    PUTCH
  262.     RET
  263. HADJ    ADD    A,'A'-1-'9'    ;MAKE UP THE DIFFERENCE
  264.     RET
  265. ;      ** ROUTINE TO PROVIDE A TAB OF 2 SPACES **
  266. TAB    LD    A,' '        ;8 SPACES
  267.     LD    C,A        ;PUT SPACE IN C
  268.     CALL    CONOUT        ;SPACE
  269.     LD    C,A
  270.     CALL    CONOUT        ;ANOTHER SPACE
  271.     RET
  272. ;   ** SUBSTITUTE MEMORY ROUTINE **
  273. SUBST    CALL    SPSKIP
  274.     CALL    GETPAR
  275. SUBST1    CALL    H16
  276.     LD    C,' '
  277.     CALL    PUTCH
  278.     PUSH    HL
  279.     LD    A,(HL)
  280.     CALL    H8
  281.     LD    C,' ' 
  282.     CALL    PUTCH
  283.     LD    HL,BUFF
  284.     CALL    GETLN
  285.     LD    HL,BUFF
  286.     LD    (CURSOR),HL
  287.     LD    A,(HL)
  288.     CP    '.'
  289.     JP    Z,MON1
  290.     CP    ACR
  291.     JP    Z,SUBST2
  292.     CALL    GETPAR
  293.     LD    A,L
  294.     POP    HL
  295.     LD    (HL),A
  296.     INC    HL
  297.     JP    SUBST1
  298. SUBST2    POP    HL
  299.     INC    HL
  300.     JP    SUBST1
  301. ; 
  302. ;  ** GO TO MEMORY LOCATION AND RUN PROGRAM **
  303. GO    CALL    SPSKIP
  304.     CALL    GETPAR
  305.     EX    DE,HL
  306.     LD    HL,WBOOT
  307.     PUSH    HL
  308.     EX    DE,HL
  309.     JP    (HL)
  310. ;**** BREAKPOINT COMMAND ****
  311. BREAK    CALL    SPSKIP
  312.     CALL    GETPAR
  313.     LD    A,(HL)
  314.     LD    (INSTR),A
  315.     LD    (HL),000EFH
  316.     LD    (TEMPAD),HL
  317.     RET
  318. ;***** TRAP ROUTINE *****
  319. TRAP    EX    (SP),HL
  320.     DEC    HL
  321.     LD    (TEMPAD),HL
  322.     PUSH    DE
  323.     PUSH    BC
  324.     PUSH    AF
  325.     LD    HL,0
  326.     ADD    HL,SP
  327.     LD    A,(HL)
  328.     CALL    FLPRT
  329.     CALL    ILPRT
  330.     DEFM    ' A= 0'
  331.     INC    HL
  332.     LD    A,(HL)
  333.     CALL    H8
  334.     CALL    ILPRT
  335.     DEFM    ' BC= 0'
  336.     CALL    TRL
  337.     CALL    ILPRT
  338.     DEFM    ' DE= 0'
  339.     CALL    TRL
  340.     CALL    ILPRT
  341.     DEFM    ' HL= 0'
  342.     CALL    TRL
  343.     CALL    ILPRT
  344.     DEFM    ' SP= 0'
  345.     LD    HL,8
  346.     ADD    HL,SP
  347.     CALL    H16
  348.     CALL    ILPRT
  349.     DEFM    ' PC= 0'
  350.     LD    HL,(TEMPAD)
  351.     CALL    H16
  352.     LD    HL,(TEMPAD)
  353.     LD    (LASTBR),HL
  354.     LD    A,(INSTR)
  355.     LD    (HL),A
  356.     JP     MON1
  357. TRL    INC    HL
  358.     INC    HL
  359.     LD    A,(HL)
  360.     CALL    H8
  361.     DEC    HL
  362.     LD    A,(HL)
  363.     CALL    H8
  364.     INC    HL
  365.     RET
  366. FLPRT    LD    D,8
  367. FLL    RLA
  368.     LD    B,A
  369.     LD    A,'0'
  370.     ADC    A,0
  371.     LD    C,A
  372.     CALL    PUTCH
  373.     LD    A,B
  374.     DEC    D
  375.     JP    NZ,FLL
  376.     RET
  377. ILPRT    EX    (SP),HL
  378. ILL    LD    A,(HL)
  379.     CP    '0'
  380.     JP    Z,ILEX
  381.     LD    C,A
  382.     CALL    PUTCH
  383.     INC    HL
  384.     JP    ILL
  385. ILEX    INC    HL
  386.     EX    (SP),HL
  387.     RET
  388. ;**** RESUME COMMAND ****
  389. RESUME    POP    AF
  390.     POP    AF
  391.     POP    BC
  392.     POP    DE
  393.     LD    HL,(LASTBR)
  394.     EX    (SP),HL
  395.     RET
  396. ;**** INTRODUCTION ****
  397. INTRO    LD    HL,MSG0
  398.     CALL    MESS
  399.     CALL    CRLF     
  400.     CALL    CRLF
  401.     LD    HL,MSG1
  402.     CALL    MESS
  403.     CALL    CRLF
  404. HELP    CALL    CRLF    ;HELP COMMAND CALLS TO HERE
  405.     LD    HL,MSG2
  406.     CALL    MESS
  407.     CALL    CRLF
  408.     LD    HL,MSG7
  409.     CALL    MESS
  410.     CALL    CRLF
  411.     LD     HL,MSG3
  412.     CALL    MESS
  413.     CALL    CRLF
  414.     LD    HL,MSG6
  415.     CALL    MESS
  416.     CALL    CRLF
  417.     LD    HL,MSG5
  418.     CALL    MESS
  419.     CALL    CRLF
  420.     LD    HL,MSG9
  421.     CALL    MESS
  422.     CALL    CRLF
  423.     LD    HL,MSG8
  424.     CALL    MESS
  425.     CALL    CRLF
  426.     LD    HL,MSG4
  427.     CALL     MESS
  428.     CALL    CRLF
  429.     CALL    CRLF
  430.     RET
  431. ;**** ROUTINE TO PRINT MESSAGES ON THE SCREEN ****
  432. MESS    LD    A,(HL)
  433.     CP      '$'    ;CHECK FOR TERMINATION CONDITION
  434.     RET    Z    ;TERMINATION CONDITION
  435.     LD    C,A    ;GET READY FOR PRINTING
  436.     CALL    CONOUT    ;PRINT IT
  437.     INC    HL    ;POINT TO NEXT CHARACTER
  438.     JP    MESS    ;GO AGAIN
  439. ;**** FAKE BIOS ****
  440. ;  JUMP TABLE
  441. FBIOS    JP    BOOT
  442.     JP    WBOOT
  443.     JP    CONST
  444.     JP    CONIN
  445.     JP    CONOUT
  446.     JP    LIST
  447.     JP    PUNCH
  448.     JP    READER
  449. BOOT    LD    A,0C3H        ;CODE FOR JUMP INSTRUCTION    
  450.     LD    (00028H),A
  451.     LD    HL,TRAP
  452.     LD    (00029H),HL
  453.     LD    C,CLS        ;CLEAR THE SCREEN
  454.     CALL    CONOUT
  455.     RET
  456. WBOOT    LD    SP,STK
  457.     JP    MON1
  458. ;      I/O  ROUTINES
  459. CONST    CALL    8009H    ;MICROBEE MCHINL ROUTINE
  460.     LD    A,0    ;RETURN WITH 00H IF NO CH AVAIL
  461.     RET    Z
  462.     DEC    A    ;RETURN WITH FFH IF CHAR AVAIL
  463.     RET
  464. CONIN    CALL    8006H    ;MICROBEE MCHINW ROUTINE
  465.     AND    7FH    ;STRIP HIGH BIT
  466.     RET
  467. CONOUT    LD    B,C    ;PUT CHAR INTO C READY FOR CALL
  468.     CALL    800CH    ;TO MICROBEE ROUTINE DGOS_VDR
  469.     RET
  470. LIST    LD    A,C     ;NEED PRINTER ROUTINE
  471.     RET
  472. PUNCH    RET        ;TO BE INSERTED
  473. READER     RET
  474. ;
  475. ;***  NECESSARY CONSTANTS ***
  476. BUFF    DS    128
  477.     DS    64
  478. STK    EQU    $
  479. CURSOR    DS    2
  480. INSTR    DS    1
  481. TEMPAD    DS    2
  482. LASTBR    DS    2
  483. ;
  484. ;**** INTRODUCTION MESSAGES ****
  485. MSG0    DEFM    '             <<<<     BEE-MON  V2.0     >>>>$'
  486. MSG1    DEFM    '          Converted by Ian D. Jolly, August 1983$'
  487. MSG2    DEFM    '                        Commands...$'
  488. MSG3    DEFM    '                 (2) D(ump) XXXX,YYYY$'
  489. MSG4    DEFM    '                 (7) S(ubstitute) XXXX$'
  490. MSG5    DEFM    '                 (4) G(o) XXXX$'
  491. MSG6    DEFM    '                 (3) E(xit) to Basic$'
  492. MSG7    DEFM    '                 (1) B(reakpoint) XXXX$'
  493. MSG8    DEFM    '                 (6) R(esume) after Breakpoint$'
  494. MSG9    DEFM    '                 (5) H(elp)$'
  495.     END
  496.