works 29f0x0 format

This commit is contained in:
Jakub Husak
2023-01-14 11:48:41 +01:00
parent 9197267cfb
commit 46d71033c3
7 changed files with 168 additions and 64 deletions
+18 -25
View File
@@ -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