mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
64 lines
1.6 KiB
64 lines
1.6 KiB
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
|
|
|
|
|