home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital News 2
/
Digital_News_2_1988_-_de_Side_B.d64
/
................
< prev
next >
Wrap
Text File
|
2022-10-26
|
1KB
|
89 lines
$0400+16
sty $0400+17
jsr $ffa5
sta shi
jsr hex
stx $0400+14
sty $0400+15
ok
jsr $ffe1
bne trt
jmp ende
trt lda $af
jsr hex
stx $0400+23
sty $0400+24
lda $ae
jsr hex
stx $0400+25
sty $0400+26
jsr $ffa5
bit $90
bne ende
ldy #$00
sei
sty $01
sta (slo),y
dey
sty $01
cli
inc slo
bne ok
inc shi
kkb bne ok
ende jsr $ffc3
jsr $ffe7
jmp $f642
nam .text "a"
;routine zur ausgabe eines bytes
;hexzahl wird als decimalzahl
;ausgegeben. wert muss im akku stehen
; (w) by mws
hex pha
lsr a
lsr a
lsr a
lsr a
jsr loop
tax
pla
jsr loop
tay
rts
loop and #$0f
cmp #$0a
clc
bmi minus
adc #$07
minus adc #$30
and #$3f
rts
print .text "loading from $...."
.text " to $...."
.byte 0