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 / NUBYE / NUBY-SUP.LBR / TRANWL.PQT / TRANWL.PAT
Text File  |  2000-06-30  |  3KB  |  131 lines
  1.  
  2.                                 NUBYE PATCH
  3.                                     for
  4.                              TRANTOR (WL) BIOS
  5.  
  6.      Systems  with  the Trantor (WL) bios will need to incorporate  the 
  7.      following patches into your personal copy of NUBYE.   
  8.  
  9.                              - Tom Brady
  10.  
  11.                ---------------------------------------------
  12.  
  13. CCPL    EQU    0        ; Number of sectors for CCP size (norm=8)
  14.  
  15.         Systems  with Trantor (WL) bios should set this NUBYE equate to 
  16.      0 and install the patches shown shown below.    For older versions 
  17.      of  Trantor  bios,   start with 24 and work down  until  it  stops  
  18.      working  (typically  24 or 16).   An updated Trantor (WL) bios  is 
  19.      advised for RCP/M use if running a large BBS program.
  20.  
  21.                ---------------------------------------------
  22.  
  23.         Simple   to fix up NUBYE for your system - just  use  WordStar,  
  24.      or  similar  and  insert this block of code in place of  the  code 
  25.      already in NUBYE (i.e. the entire BEGIN section).
  26.  
  27.  
  28. ; Prepare to branch to the NUBYE program
  29. ;
  30. BEGIN:    LHLD    BDOS+1
  31.     PUSH    H
  32.     LXI    D,BEGOBJ
  33.     LHLD    OFFSET        ; Get prgram offset
  34.     DAD    D        ; Form address of new BDOS address
  35.     SHLD    BDOS+1        ; Update BDOS vector
  36.     PUSH    H        ; Find where it's at
  37.     CALL    FNDWL
  38.     POP    D
  39.     JC    NOWL
  40.     MOV    M,E
  41.     INX    H
  42.     MOV    M,D
  43. ;
  44. NOWL:    XCHG
  45.     INX    H
  46.     POP    D
  47.     MOV    M,E
  48.     INX    H
  49.     MOV    M,D
  50.     INX    H
  51.     PCHL            ; Jump to relocated NUBYE program
  52. ;
  53. HHSIG    EQU    12
  54. HSSIG    EQU    14
  55. HHSHL    EQU    16
  56. HLSHL    EQU    18
  57. HBSHL    EQU    36
  58. HDRVR    EQU    22
  59. HPCT    EQU    25
  60. PCMGR    EQU    4*2
  61. WWHSIG    EQU    'W'
  62. WWLSIG    EQU    'H'
  63. SIGWBT    EQU    'B'
  64. SIGUB    EQU    'L'
  65. SIGSD    EQU    'S'
  66. ;
  67. ;
  68. ; FNDWL...
  69. ;  Input: none:
  70. ;  Output:
  71. ;    CY set.  Trantor Universal Bios is not loaded
  72. ;    CY clr.  HL -> var where adrs of lowest shell has to
  73. ;               be stored.
  74. ;         BC -> lowest shell.
  75. ;    DE is preserved.
  76. ;
  77. FNDWL:    PUSH    D
  78. ;
  79. ; Scan downwards from High memory trying to find
  80. ; any WW shell.
  81. ;
  82.     LXI    B,0FF06H
  83. ;
  84. ASHELL:    LXI    H,HHSIG
  85.     DAD    B
  86.     MOV    A,M
  87.     CPI    WWHSIG
  88.     JNZ    NSHELL
  89.     INX    H
  90.     MOV    A,M
  91.     CPI    WWLSIG
  92.     JZ    WWLINK
  93. ;
  94. NSHELL:    DCR    B
  95.     LDA    7
  96.     DCR    A
  97.     CMP    B
  98.     JC    ASHELL
  99.     STC
  100.     POP    D
  101.     RET
  102. ;
  103. ; Locate the Warm boot shell.
  104. ;
  105. WWLINK:    LXI    H,HSSIG
  106.     DAD    B
  107.     MOV    A,M
  108.     CPI    SIGWBT
  109.     JZ    WBFND
  110.     LXI    H,HHSHL
  111.     DAD    B
  112.     MOV    C,M
  113.     INX    H
  114.     MOV    B,M
  115.     JMP    WWLINK
  116. ;
  117. ; Build pointer to wb.lowestshell
  118. ;
  119. WBFND:    LXI    H,HBSHL
  120.     DAD    B
  121.     ORA    A
  122. WLEXIT:    POP    D
  123.     RET
  124. ;
  125. ;
  126. ; The following table defines the 3-byte load instructions used in the
  127. ; 8080 instruction set.
  128.  
  129.                ---------------------------------------------
  130.                                     end
  131.