System information

SETUP: ;SET UP FILE
; OPEN THE FILE FOR INPUT
01C1 AF XRA A ;ZERO TO ACCUM
01C2 327C00 STA FCBCR ;CLEAR CURRENT RECORD
;
01C5 115C00 LXI D,FCB
01C8 0E0F MVI C,OPENF
01CA CD0500 CALL BDOS
; 255 IN ACCUM IF OPEN ERROR
01CD C9 RET
;
DISKR: ;READ DISK FILE RECORD
01CE E5D5C5 PUSH H! PUSH D! PUSH B
01D1 115C00 LXI D,FCB
01D4 0E14 MVI C,READF
01D6 CD0500 CALL BDOS
01D9 C1D1E1 POP B! POP D! POP H
01DC C9 RET
;
; FIXED MESSAGE AREA
01DD 46494C4520SIGNON: DB 'FILE DUMP VERSION 1.4$'
01F3 0D0A4E4F20OPNMSG: DB CR,LF,'NO INPUT FILE PRESENT ON DISK$'
; VARIABLE AREA
0213 IBP: DS 2 ;INPUT BUFFER POINTER
0215 OLDSP: DS 2 ;ENTRY SP VALUE FROM CCP
; STACK AREA
0217 DS 64 ;RESERVE 32 LEVEL STACK
STKTOP:
;
0257 END
5.4 A Sample File Dump Utility CP/M Operating System Manual
5-45