System information

012D E60F ANI 0FH ;CHECK LOW 4 BITS
012F C24401 JNZ NONUM
; PRINT LINE NUMBER
0132 CD7201 CALL CRLF
;
; CHECK FOR BREAK KEY
0135 CD5901 CALL BREAK
; ACCUM LSB = 1 IF CHARACTER READY
0138 0F RRC ;INTO CARRY
0139 DA5101 JC FINIS ;DON'T PRINT ANY MORE
;
013C 7C MOV A,H
013D CD8F01 CALL PHEX
0140 7D MOV A,L
0141 CD8F01 CALL PHEX
NONUM:
0144 23 INX H ;TO NEXT LINE NUMBER
0145 3E20 MVI A,' '
0147 CD6501 CALL PCHAR
014A 78 MOV A,B
014B CD8F01 CALL PHEX
014E C32301 JMP GLOOP
;
FINIS:
; END OF DUMP, RETURN TO CCP
; (NOTE THAT A JMP TO 0000H REBOOTS)
0151 CD7201 CALL CRLF
0154 2A1502 LHLD OLDSP
0157 F9 SPHL
; STACK POINTER CONTAINS CCP'S STACK LOCATION
0158 C9 RET ;TO THE CCP
;
;
; SUBROUTINES
;
BREAK: ;CHECK BREAK KEY (ACTUALLY ANY KEY WILL DO)
0159 E5D5C5 PUSH H! PUSH D! PUSH B; ENVIRONMENT SAVED
015C 0E0B MVI C,BRKF
5.4 A Sample File Dump Utility CP/M Operating System Manual
5-42