ô > CallTest  ô Test CALL in BBCBASIC-6502 : ( òassem 2à <: F Ýòassem POSNEWL=&FFE7:OSWRCH=&FFEE Z ã P=0 ¸ 1 d P%=&900 n [OPT P*3 x"LDA &600:JSR pr_hex:JSR OSNEWL ‚LDX &600:BEQ exit Œ!LDA #1:STA &70:LDA #6:STA &71 – .loop  !LDY #2:LDA (&70),Y:JSR pr_hex ªLDA #—":":JSR OSWRCH:DEY ´.lp2 ¾$LDA (&70),Y:STA &72,Y:JSR pr_hex ÈDEY:BPL lp2 ÒLDA #—":":JSR OSWRCH:LDY #3 Ü.lp3 æLDA (&72),Y:JSR pr_hex ðDEY:BPL lp3 úJSR OSNEWL INC &70:INC &70:INC &70 DEX:BNE loop  .exit "RTS , .pr_hex 6PHA:ROR A:ROR A:ROR A:ROR A @JSR pr_nyb:PLA J .pr_nyb T€ #15:CMP #10:BCC pr_dig ^ADC #6:.pr_dig hADC #—"0":JMP OSWRCH r]í |á ÿ