mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 14:11:48 -06:00
64 lines
1.6 KiB
Plaintext
64 lines
1.6 KiB
Plaintext
page
|
||
|
||
; Library: RCPID for Z34RCP
|
||
; Author: Carson Wilson
|
||
; Version: 1.0
|
||
; Date: September 29, 1989
|
||
; Changes: ID appended with 'C' if CLED is present
|
||
;
|
||
; Author: Carson Wilson
|
||
; Version: 1.0
|
||
; Date: September 14, 1988
|
||
;
|
||
; Function: Build the name of the RCP and append it at the end of the
|
||
; file at label RCPID. This serves two purposes: first it
|
||
; allows the 'H' command to describe which RCP is active,
|
||
; second, the string identifies the actual end of the RCP
|
||
; in memory.
|
||
;
|
||
; ------------------------------------------------------------------------
|
||
|
||
; Macros to build RCP ID for Help command
|
||
|
||
; Under SLR and compatible assemblers, the RCP name reflects the
|
||
; RCP size, e.g., "RCP-21F" means the RCP occupies 21 records.
|
||
|
||
if SLR
|
||
rcpid macro
|
||
rcplen defl RCPend - RCPbegin
|
||
fulrecs equ rcplen / 128 ; Full records
|
||
lastr equ [rcplen mod 128 + 127]/128 ; Last record, if any
|
||
ttlrecs equ fulrecs + lastr
|
||
|
||
db 'RCP-'
|
||
db ttlrecs / 10 + '0' ; Tens of records
|
||
db ttlrecs mod 10 + '0' ; Ones
|
||
db rcptype ; 'F', 'H', etc. from RCP.LIB
|
||
if cledon
|
||
db 'C' ; Distinguish CLED versions
|
||
endif
|
||
db 0 ; ID string terminator
|
||
endm
|
||
|
||
else ; Non-SLR
|
||
rcpid macro
|
||
db 'RCP-'
|
||
db rcptype
|
||
db 0
|
||
endm
|
||
endif ; SLR
|
||
|
||
; -----------------------------------------------------------------------
|
||
|
||
; Name of RCP
|
||
|
||
; This block allows the 'H' command and/or the SHOW utility to display a name
|
||
; and version number for this RCP as well as the commands that are supported.
|
||
; It also generates a unique string marking the end of the RCP module.
|
||
|
||
rcpname:
|
||
rcpid
|
||
|
||
; End of RCPID.LIB
|
||
|
||
|