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 / CPM / ZCPR2 / KP10NZ2.LBR / BIOSPATF.ASM < prev    next >
Assembly Source File  |  2000-06-30  |  2KB  |  65 lines
  1. ;    ===================================================
  2. ;
  3. ;    ZCPR2 BIOS PATCH OVERLAY FOR THE KAYPRO 10
  4. ;
  5. ;    Version for the CP/M 2.2F Release
  6. ;
  7. ;    John C. Smith    Manlius, NY
  8. ;    
  9. ;    Version 2.0    December 4, 1983
  10. ;
  11. ;    ===================================================
  12. ;
  13. ;
  14. ;
  15.     ORG    0CC6AH        ; New PUTSYS sign on msg
  16.     DB    0DH,0AH,'PUTSYS ZCPR2 2.2F',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.2F & 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    0ECBEH        ; 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,1,0FH,0
  62. MULTCMD:    DB    4,0F5H,0C8H,0,'STARTUP',0
  63. NAMDIR:        DB    50,0,0,0,0
  64.     END
  65.