?0 EQU $20
?1 EQU $80
?2 EQU $0D
?3 EQU $0A
printdec EQU *
 TSX
 LDD 2,X
 LDY #5
 LDX #10
?4 IDIV ;
 PSHB ;
 LDD #10
 XGDX
 DEY
 BNE ?4
 LDAB #5
?5 PULA
 ADDA #'0'
 BSR ?6
 DECB
 BNE ?5
 LDAA #?2
 BSR ?6
 LDAA #?3
 BSR ?6
 RTS
?6 EQU *
 LDX #BASE
 BRCLR SCSR,X,?1,*
 STAA SCDR,X
 RTS
getchar EQU *
 LDX #BASE
 BRCLR SCSR,X;?0,*
 LDAB SCDR,X
 CLRA
 RTS