10
20
30 :
40 PROCassem
50 END
60 :
70 DEFPROCassem
80 OSNEWL=&FFE7:OSWRCH=&FFEE
90 FOR P=0 TO 1
100 P%=&900
110 [OPT P*3
120 LDA &600:JSR pr_hex:JSR OSNEWL
130 LDX &600:BEQ exit
140 LDA #1:STA &70:LDA #6:STA &71
150 .loop
160 LDY #2:LDA (&70),Y:JSR pr_hex
170 LDA #ASC":":JSR OSWRCH:DEY
180 .lp2
190 LDA (&70),Y:STA &72,Y:JSR pr_hex
200 DEY:BPL lp2
210 LDA #ASC":":JSR OSWRCH:LDY #3
220 .lp3
230 LDA (&72),Y:JSR pr_hex
240 DEY:BPL lp3
250 JSR OSNEWL
260 INC &70:INC &70:INC &70
270 DEX:BNE loop
280 .exit
290 RTS
300 .pr_hex
310 PHA:ROR A:ROR A:ROR A:ROR A
320 JSR pr_nyb:PLA
330 .pr_nyb
340 AND #15:CMP #10:BCC pr_dig
350 ADC #6:.pr_dig
360 ADC #ASC"0":JMP OSWRCH
370 ]NEXT
380 ENDPROC