User`s guide

;
finis:
; end of dump
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
0l5e cd0500 call bdos
0161 cidlel pop b! pop d! pop h; environment restored
0164 c9 ret
pchar: ;print a character
0165 e5d5c5 push h! push d! push b; saved
0188 0e02 mvi c,typef
016a 5f mov e ,a
016b cd0500 call bdos
016e cidlel pop b! pop d! pop h; restored
0171 c9 ret
crlf:
0172 3e0d mvi a,cr
0174 cd6501 call pchar
0177 3e0a mvi a,lf
0179 cdBS0l call pchar
017c c9 ret
pnib: ;print nibble in reg a
017d e60f ani 0fh ;low 4 bits
017f fe0a cpi 10
0181 d28901 jnc p10
; less than or equal to 9
0184 c630 adi '0'
0188 c38b01 jmp prn
; greater 0r equal t0 10
0189 c637 pl0: adi 'a' - 10
018b cd6501prn: call pchar
018e c9 ret
4-7
4.2 A Sample File Dump Utility CP/M 3 Programmer's Guide