works 29f0x0 format
This commit is contained in:
+18
-25
@@ -3,6 +3,7 @@
|
||||
; dta c'Ala ma kota',$9b,0
|
||||
; next instructions
|
||||
print .proc
|
||||
stx ?_tmpx
|
||||
clc
|
||||
pla
|
||||
adc #$01
|
||||
@@ -22,40 +23,32 @@ print .proc
|
||||
?prt jsr $f2b0
|
||||
inw ?strv
|
||||
bne ?strv-1
|
||||
ldx ?_tmpx:#0
|
||||
rts
|
||||
.endp
|
||||
|
||||
printhex .proc
|
||||
jsr lHex
|
||||
sta ?printhextmp
|
||||
txa
|
||||
pha
|
||||
stx ?_tmpx
|
||||
:4 lsr
|
||||
jsr HEX2INT
|
||||
jsr $f2b0
|
||||
pla
|
||||
and #$0f
|
||||
jsr HEX2INT
|
||||
jsr $f2b0
|
||||
ldx ?_tmpx
|
||||
rts
|
||||
?_tmpx .byte 0
|
||||
|
||||
?printhextmp equ * +1
|
||||
lda #$ff
|
||||
jmp $f2b0
|
||||
.endp
|
||||
|
||||
lHex .proc
|
||||
|
||||
// po deklaracji procedury .PROC z parametrami, automatycznie wymuszone zostaje wykonanie
|
||||
// makra @PULL, ktore zdejmie za nas parametry ze stosu programowego i umiesci je w pamieci
|
||||
// od adresu @PROC_VARS_ADR, etykiecie parametru LOW zostaje przypisany adres @PROC_VARS_ADR
|
||||
|
||||
pha
|
||||
:4 lsr @
|
||||
|
||||
jsr HEX2INT
|
||||
|
||||
tax ; wynik dzialania w regX
|
||||
|
||||
pla
|
||||
and #$0f
|
||||
|
||||
HEX2INT SED
|
||||
HEX2INT
|
||||
php
|
||||
sei
|
||||
SED
|
||||
CMP #$0A
|
||||
ADC #'0'
|
||||
CLD
|
||||
plp
|
||||
; wynik dzialania w regA
|
||||
rts
|
||||
.endp
|
||||
|
||||
Reference in New Issue
Block a user