System information

015E CD0500 CALL BDOS
0161 C1D1E1 POP B! POP D! POP H; ENVIRONMENT RESTORED
0164 C9 RET
;
PCHAR: ;PRINT A CHARACTER
0165 E5D5C5 PUSH H! PUSH D! PUSH B; SAVED
0168 0E02 MVI C,TYPEF
016A 5F MOV E,A
016B CD0500 CALL BDOS
016E C1D1E1 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 CD6501 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'
0186 C38B01 JMP PRN
;
; GREATER OR EQUAL TO 10
0189 C637 P10: ADI 'A' - 10
018B CD6501 PRN: CALL PCHAR
018E C9 RET
;
PHEX: ;PRINT HEX CHAR IN REG A
018F F5 PUSH PSW
0190 0F RRC
0191 0F RRC
0192 0F RRC
0193 0F RRC
0194 CD7D01 CALL PNIB ;PRINT NIBBLE
5.4 A Sample File Dump Utility CP/M Operating System Manual
5-43