home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / zcpr2 / kp10nz2.lbr / BIOSPATD.ASM < prev    next >
Assembly Source File  |  1985-02-09  |  2KB  |  65 lines
  1. ;    ===================================================
  2. ;
  3. ;    ZCPR2 BIOS PATCH OVERLAY FOR THE KAYPRO 10
  4. ;
  5. ;    Version for CP/M 2.2D release
  6. ;
  7. ;    John C. Smith    Manlius, NY
  8. ;
  9. ;    Version 2.0    December 4, 1983
  10. ;
  11. ;    ===================================================;
  12. ;
  13. ;
  14. ;
  15.     ORG    0CC68H        ; New PUTSYS sign on msg
  16.     DB    0DH,0AH,'PUTSYS ZCPR2 V1.0',0DH,0AH,'$'
  17. ;
  18.     ORG    0EAADH        ; Add cold boot buffer
  19.     CALL    PATCH1        ;    initialization
  20. ;
  21.     ORG    0EAD6H        ; New sign on message
  22.     DB    1AH,0DH,0AH,'KAYPRO 10 CP/M 2.2D & ZCPR2'
  23.     DB    0DH,0AH,0
  24. ;
  25.     ORG    0EB72H        ; Delete CPM CCP
  26.     DB    0,0,0        ;    reset on warm boot
  27. ;
  28.     ORG    0EBFDH        ; Add GRAPHICS control
  29.     CALL    PATCH2        ;    and test patch
  30. ;
  31. ;    *** ZCPR2 INITIALIZATION ***
  32. ;
  33.     ORG    0ECADH        ; Overwrite CPM CCP patch
  34. PATCH1:    STA    0004H        ; Initialize Drive/User byte
  35.     CMA
  36.     STA    003EH        ; Set WHEEL BYTE
  37.     STA    004FH        ; and GRAPHICS BYTE
  38.     LXI    H,PATH        ;
  39.     LXI    D,0040H        ; Initialize External
  40.     LXI    B,7        ;    search path
  41.     DB    0EDH,0B0H    ;LDIR
  42.     LXI    H,MULTCMD    ;
  43.     LXI    D,0F500H    ; Initialize Multicommand
  44.     LXI    B,12        ;    buffer
  45.     DB    0EDH,0B0H    ;LDIR
  46.     LXI    H,NAMDIR    ;
  47.     LXI    D,0F300H    ; Initialize Named Directory
  48.     LXI    B,5        ;    buffer
  49.     DB    0EDH,0B0H    ;LDIR
  50.     RET
  51. ;
  52. PATCH2:    LDA    004FH        ; Get GRAPHICS BYTE
  53.     ORA    A        ; Is it set?
  54.     JNZ    R1        ; If so, jump out
  55.     MOV    A,C        ; If not, put char in A
  56.     ANI    7FH        ; ...mask out the eighth bit
  57.     MOV    C,A        ; ...put it back in C
  58. R1:    LDA    0003H        ; ...then get the IOBYTE
  59.     RET            ; and continue CONOUT routine
  60. ;
  61. PATH:        DB    1,'$',1,0,0
  62. MULTCMD:    DB    4,0F5H,0C8H,0,'STARTUP',0
  63. NAMDIR:        DB    50,0,0,0,0
  64.     END
  65.