home *** CD-ROM | disk | FTP | other *** search
/ The Don Maslin Archive / maslin_archive.zip / AARDVARK_Tape_Backups / maslin_c_d_3oct95 / ddrive / cpm / ldrbios.mac < prev    next >
Text File  |  1989-03-29  |  10KB  |  323 lines
  1.  
  2. ZREL/MAC V3.3
  3. Copyright 1984 MicroSmith Computer Technology
  4.  
  5. Pass 1
  6. Pass 2
  7.         .Z80                    ;set mode for M80
  8.         NAME    ('LDRBIO')
  9.         CSEG
  10.         ORG     0
  11. @CODE:
  12. ;
  13.         DSEG
  14.         ORG     0
  15. @DATA:
  16.         CSEG
  17.         JP      @L0
  18. @L9:
  19.         JP      @L1
  20.         JP      0E906H
  21.         JP      0E909H
  22.         JP      0E90CH
  23.         JP      0E90FH
  24.         JP      0E912H
  25.         JP      0E915H
  26.         JP      0E918H
  27.         JP      @L2
  28.         JP      0E91EH
  29.         JP      0E921H
  30.         JP      0E924H
  31.         JP      0E927H
  32.         JP      0E92AH
  33.         JP      0E92DH
  34.         JP      0E930H
  35.         JP      @L3
  36.         JP      @L3
  37.         JP      @L3
  38.         JP      @L4
  39.         JP      @L5
  40.         JP      @L6
  41.         JP      @L5
  42.         JP      @L7
  43.         JP      @L8
  44.         JP      @L5
  45.         JP      @L5
  46.         JP      @L5
  47.         JP      @L5
  48.         JP      @L1
  49.         JP      @L1
  50. @L0:
  51.         RET                     ;I      0C9H
  52. @L1:
  53.         LD      SP,0100H
  54.         LD      HL,@L9
  55.         LD      (01H),HL
  56.         LD      HL,(@MXTPA)
  57.         LD      (06H),HL
  58.         LD      A,0C3H
  59.         LD      (00H),A
  60.         LD      (05H),A
  61.         LD      B,024H
  62.         LD      HL,05CH
  63.         CALL    @L10
  64.         LD      HL,05CH
  65.         LD      (HL),01H
  66.         INC     HL              ;#      023H
  67.         LD      DE,@L11
  68.         LD      BC,0BH
  69.         CALL    @L8
  70.         LD      DE,05CH
  71.         LD      C,0FH
  72.         CALL    05H
  73.         OR      A               ;7      0B7H
  74.         JP      NZ,@L12
  75.         LD      DE,0100H
  76. @L14:
  77.         PUSH    DE              ;U      0D5H
  78.         LD      C,01AH
  79.         CALL    05H
  80.         LD      DE,05CH
  81.         LD      C,014H
  82.         CALL    05H
  83.         OR      A               ;7      0B7H
  84.         POP     DE              ;Q      0D1H
  85.         JP      NZ,@L13
  86.         LD      HL,080H
  87.         ADD     HL,DE           ;019H   019H
  88.         EX      DE,HL           ;k      0EBH
  89.         JP      @L14
  90. @L13:
  91.         CP      01H
  92.         JP      NZ,@L15
  93.         JP      0100H
  94. @L12:
  95.         LD      DE,@L16
  96.         JP      @L17
  97. @L15:
  98.         LD      DE,@L18
  99. @L17:
  100.         LD      C,09H
  101.         CALL    05H
  102.         LD      C,01H
  103.         CALL    05H
  104.         JP      @L1
  105. @L3:
  106.         LD      A,0FFH
  107. @L5:
  108.         RET                     ;I      0C9H
  109. @L7:
  110.         XOR     A               ;/      0AFH
  111.         RET                     ;I      0C9H
  112. @L4:
  113.         LD      HL,0FFFFH
  114.         RET                     ;I      0C9H
  115. @L6:
  116.         LD      HL,0FFFEH
  117.         RET                     ;I      0C9H
  118. @L8:
  119.         LD      A,(DE)          ;01AH   01AH
  120.         LD      (HL),A          ;w      077H
  121.         INC     HL              ;#      023H
  122.         INC     DE              ;013H   013H
  123.         DEC     BC              ;0BH    0BH
  124.         LD      A,B             ;x      078H
  125.         OR      C               ;1      0B1H
  126.         JP      NZ,@L8
  127.         RET                     ;I      0C9H
  128. @L2:
  129.         LD      HL,00H
  130.         LD      A,C             ;y      079H
  131.         CP      02H
  132.         RET     NC              ;P      0D0H
  133.         LD      B,E             ;C      043H
  134.         PUSH    BC              ;E      0C5H
  135.         CALL    0E91BH
  136.         POP     BC              ;A      0C1H
  137.         LD      A,L             ;}      07DH
  138.         OR      H               ;4      0B4H
  139.         RET     Z               ;H      0C8H
  140.         LD      (@DATA),HL
  141.         LD      L,C             ;i      069H
  142.         LD      H,00H
  143.         ADD     HL,HL           ;)      029H
  144.         ADD     HL,HL           ;)      029H
  145.         ADD     HL,HL           ;)      029H
  146.         ADD     HL,HL           ;)      029H
  147.         ADD     HL,HL           ;)      029H
  148.         ADD     HL,HL           ;)      029H
  149.         LD      DE,@L20
  150.         ADD     HL,DE           ;019H   019H
  151.         LD      A,B             ;x      078H
  152.         AND     01H
  153.         RET     NZ              ;@      0C0H
  154.         LD      (@L21),HL
  155.         LD      B,040H
  156.         CALL    @L10
  157.         LD      HL,(@DATA)
  158.         EX      DE,HL           ;k      0EBH
  159.         LD      HL,(@L21)
  160.         LD      BC,02H
  161.         CALL    @L8
  162.         LD      BC,0CH
  163.         ADD     HL,BC           ;TAB    09H
  164.         EX      DE,HL           ;k      0EBH
  165.         LD      BC,0AH
  166.         ADD     HL,BC           ;TAB    09H
  167.         EX      DE,HL           ;k      0EBH
  168.         LD      BC,04H
  169.         CALL    @L8
  170.         EX      DE,HL           ;k      0EBH
  171.         LD      BC,031H
  172.         LD      HL,(@L21)
  173.         ADD     HL,BC           ;TAB    09H
  174.         PUSH    HL              ;e      0E5H
  175.         EX      DE,HL           ;k      0EBH
  176.         LD      A,0FFH
  177.         LD      (DE),A          ;012H   012H
  178.         LD      (HL),E          ;s      073H
  179.         INC     HL              ;#      023H
  180.         LD      (HL),D          ;r      072H
  181.         INC     HL              ;#      023H
  182.         LD      (HL),0FFH
  183.         INC     HL              ;#      023H
  184.         LD      (HL),0FFH
  185.         LD      HL,(@DATA)
  186.         LD      BC,08H
  187.         ADD     HL,BC           ;TAB    09H
  188.         EX      DE,HL           ;k      0EBH
  189.         POP     HL              ;a      0E1H
  190.         LD      BC,0AH
  191.         ADD     HL,BC           ;TAB    09H
  192.         LD      BC,02H
  193.         CALL    @L8
  194.         EX      DE,HL           ;k      0EBH
  195.         LD      E,(HL)          ;^      05EH
  196.         INC     HL              ;#      023H
  197.         LD      D,(HL)          ;V      056H
  198.         LD      HL,(@L21)
  199.         LD      BC,0CH
  200.         ADD     HL,BC           ;TAB    09H
  201.         PUSH    HL              ;e      0E5H
  202.         LD      HL,(@L21)
  203.         LD      BC,020H
  204.         ADD     HL,BC           ;TAB    09H
  205.         POP     BC              ;A      0C1H
  206.         LD      A,L             ;}      07DH
  207.         LD      (BC),A          ;02H    02H
  208.         INC     BC              ;03H    03H
  209.         LD      A,H             ;|      07CH
  210.         LD      (BC),A          ;02H    02H
  211.         LD      BC,0FH
  212.         CALL    @L8
  213.         LD      HL,@L22
  214.         LD      B,0FH
  215.         CALL    @L10
  216.         LD      HL,@L23
  217.         LD      (@L24),HL
  218.         LD      HL,@L22
  219.         LD      (@L25),HL
  220.         LD      (HL),0FFH
  221.         LD      HL,(@L21)
  222.         RET                     ;I      0C9H
  223. @L10:
  224.         LD      (HL),00H
  225.         INC     HL              ;#      023H
  226.         DEC     B               ;05H    05H
  227.         JP      NZ,@L10
  228.         RET                     ;I      0C9H
  229. @L11:
  230.         LD      B,E             ;C      043H
  231.         LD      B,E             ;C      043H
  232.         LD      D,B             ;P      050H
  233.         JR      NZ,@CODE+01C7H
  234.         JR      NZ,@CODE+01C9H
  235.         JR      NZ,@CODE+01EEH
  236.         LD      C,A             ;O      04FH
  237.         LD      C,L             ;M      04DH
  238. @L16:
  239.         DEC     C               ;CR     0DH
  240.         LD      A,(BC)          ;LF     0AH
  241.         LD      B,D             ;B      042H
  242.         LD      C,C             ;I      049H
  243.         LD      C,A             ;O      04FH
  244.         LD      D,E             ;S      053H
  245.         JR      NZ,@CODE+0218H
  246.         LD      H,C             ;a      061H
  247.         LD      L,(HL)          ;n      06EH
  248.         DAA                     ;'      027H
  249.         LD      (HL),H          ;t      074H
  250.         JR      NZ,@CODE+022AH
  251.         LD      (HL),B          ;p      070H
  252.         LD      H,L             ;e      065H
  253.         LD      L,(HL)          ;n      06EH
  254.         JR      NZ,@CODE+0203H
  255.         LD      B,E             ;C      043H
  256.         LD      D,B             ;P      050H
  257.         LD      L,043H
  258.         LD      C,A             ;O      04FH
  259.         LD      C,L             ;M      04DH
  260.         JR      NZ,@CODE+01ECH
  261. @L18:
  262.         DEC     C               ;CR     0DH
  263.         LD      A,(BC)          ;LF     0AH
  264.         LD      B,D             ;B      042H
  265.         LD      C,C             ;I      049H
  266.         LD      C,A             ;O      04FH
  267.         LD      D,E             ;S      053H
  268.         JR      NZ,@CODE+0238H
  269.         LD      H,C             ;a      061H
  270.         LD      (HL),E          ;s      073H
  271.         JR      NZ,@CODE+0236H
  272.         LD      H,C             ;a      061H
  273.         LD      H,H             ;d      064H
  274.         JR      NZ,@CODE+024BH
  275.         LD      H,L             ;e      065H
  276.         LD      H,E             ;c      063H
  277.         LD      (HL),H          ;t      074H
  278.         LD      L,A             ;o      06FH
  279.         LD      (HL),D          ;r      072H
  280.         JR      NZ,@CODE+0248H
  281.         LD      L,(HL)          ;n      06EH
  282.         JR      NZ,@CODE+0225H
  283.         LD      B,E             ;C      043H
  284.         LD      D,B             ;P      050H
  285.         LD      L,043H
  286.         LD      C,A             ;O      04FH
  287.         LD      C,L             ;M      04DH
  288.         JR      NZ,@CODE+020EH
  289. ;
  290.         DSEG
  291.         ORG     02H
  292. @L21:
  293.         ORG     04H
  294. @L20:
  295.         ORG     084H
  296.         EXTERNAL @CIVEC
  297.         EXTERNAL @COVEC
  298.         EXTERNAL @AOVEC
  299.         EXTERNAL @LOVEC
  300.         EXTERNAL @BNKBF
  301.         EXTERNAL @CRDMA
  302.         EXTERNAL @CRDSK
  303.         EXTERNAL @FX
  304.         EXTERNAL @RESEL
  305.         EXTERNAL @VINFO
  306.         EXTERNAL @USRCD
  307.         EXTERNAL @ERMDE
  308.         EXTERNAL @DATE
  309.         EXTERNAL @HOUR
  310.         EXTERNAL @MIN
  311.         EXTERNAL @SEC
  312.         EXTERNAL @MXTPA
  313. ;
  314.         CSEG
  315. @L25    EQU     @DATA+018H
  316. @L24    EQU     @DATA+04EH
  317. @L23    EQU     @DATA+053H
  318. @L22    EQU     @DATA+044H
  319. ;
  320.         END     
  321.  
  322. No fatal errors
  323.