home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Syzygy Magazine 6
/
Syzygy_Magazine_6_1999___pl_Disk_2_of_3_Side_A.atr
/
printf.arc
/
PRINTF.ASM
next >
Wrap
Assembly Source File
|
1999-01-22
|
2KB
|
1 lines
* Procedura PRINTF do artykulu:¢* "Retro - o mazaniu po ekranie"¢¢* (p) 1998 Lizard/Filodendron^BBSL¢¢printf equ *¢_off_ equ $15¢_strv_ equ $32¢_vecv_ equ $34¢_dtav_ equ $36¢_soff_ equ $38¢_aux_ equ $39¢¢* clc¢ pla¢* adc #$01¢ sta _strv_¢ pla¢* adc #$00¢ sta _strv_+1¢¢* ldy #$ff¢ ldy #$00 | usun, gdy wy-¢ | zej brak REMa¢_cnt_ iny¢ lda (_strv_),y¢ bne _cnt_¢¢ sec¢ tya¢ adc _strv_¢ sta _vecv_¢ lda #$00¢ adc _strv_+1¢ sta _vecv_+1¢¢* ldy #$00 | patrz wyzej¢ ldy #$01¢_prt_ lda (_strv_),y¢ beq _ext_¢ iny¢ sty _off_¢¢ cmp #'%'¢ beq _spc_¢¢_put_ jsr putchr¢_nxt_ ldy _off_¢ bne _prt_¢¢_ext_ jmp (_vecv_)¢¢_spc_ lda (_strv_),y¢ cmp #'%'¢ beq _ppc_¢ and #$5f¢ cmp #'X'¢ beq _whx_¢ cmp #'B'¢ beq _bdc_¢ cmp #'D'¢ beq _wdc_¢ cmp #'S'¢ beq _str_¢¢ lda #'%'¢ dta b($2c)¢_ppc_ inc _off_ ; %%¢ bne _put_¢¢_str_ jsr _gad_ ; %S¢_psb_ lda (_dtav_),y¢ beq _nxt_¢ sty _soff_¢ jsr putchr¢ ldy _soff_¢ iny¢ bne _psb_¢¢_whx_ jsr _gwd_ ; %X¢ jsr _b2hex¢ lda $d4¢ jsr _b2hex¢ bne _nxt_¢¢_wdc_ jsr _gwd_ ; %D¢ jmp _cnv_¢¢_bdc_ jsr _gad_ ; %B¢ sty $d5¢¢_cnv_ jsr $d9aa¢ jsr $d8e6¢¢ ldy #$00¢_pnd_ lda ($f3),y¢ php¢ and #$7f¢ sty _aux_¢ jsr putchr¢ ldy _aux_¢ iny¢ plp¢ bpl _pnd_¢ bmi _nxt_¢¢_gwd_ jsr _gad_¢ iny¢ lda (_dtav_),y¢ sta $d5¢ rts¢¢_gad_ inc _off_¢ ldx #$fe¢ ldy #$00¢_mvc_ lda (_vecv_),y¢ sta _dtav_+2,x¢ inc _vecv_¢ bne _skp_¢ inc _vecv_+1¢_skp_ inx¢ bmi _mvc_¢¢ lda (_dtav_),y¢ sta $d4¢ rts¢¢_b2hex pha¢ lsr @¢ lsr @¢ lsr @¢ lsr @¢ jsr _cpt_¢ pla¢ and #$0f¢_cpt_ cmp #$0a¢ sed¢ adc #'0'¢ cld¢¢putchr tay¢ lda $0347¢ pha¢ lda $0346¢ pha¢ tya¢ rts¢