Hieno homma et toimii
Palautettakin on kiva saada
nyt tiedän et se toimii muillakin ko vaan mun koneella
Palautettakin on kiva saada
nyt tiedän et se toimii muillakin ko vaan mun koneella
C=Foorumin Usein Esitetyt Kysymykset:
http://www.com64.net/foorumi/index.php?action=faq
Tämä jakso sallii sinun katsoa tämän jäsenen kaikkia viestejä. Huomaa, että näet vain niiden alueiden viestit, joihin sinulla on nyt pääsy.
Näytä viestit Menu
*=$1000
LASKU
SED ;DESIMALI MODE ON
LDA LUKU
CLC
ADC #1 ;LUKU+1
STA LUKU
CLD ;DESIMAALI MODE OFF
JSR NUM ;NUMEROT TAI TEXT
JSR TIMELOOP ;PIENI TAUKO
LDA #13 ;TULOSTETAAN
JSR $FFD2 ;RETURN
LDA LUKU
BNE LASKU ;joko 100
LDA #"O"
JSR PRI
LDA #"K"
JSR PRI
JMP LOOP ;mennään odottamaan paluuta
;editoriin
LUKU .BYTE 0 ;luku 1-100
A3 .BYTE 3 ;jako 3
A5 .BYTE 5 ;jako 5
TIMELOOP ;LOOP OHJELMAN
LDX #1 ;HIDASTAMISEKSI
CM1 LDY #50
LDA #$50
CM CMP $D012
BNE CM
DEY
BNE CM
DEX
BNE CM1
RTS
LOOP ;ODOTELLAAN ctrl KEY
LDA $DC01
CMP #$FB
BNE LOOP
JMP $9000 ;paluu assempler ohjelmaan
PRI = $FFD2 ;käyttiksen print rutiini
HEX
.TEXT "0123456789ABCDEF" ;hex numero lista
NUM JSR JAOT ;tarkistetaan osuvatko jaot
CMP #1 ;a=1 joku jaoista osui
BEQ NUMOUT ;ei tulosteta numeroa
LDA LUKU ;numeroiden tulostus
PHA ;akku pinoon talteen
LSR A
LSR A
LSR A
LSR A ;0000xxxx/16
TAX
LDA HEX,X
JSR PRI
PLA
AND #$0F ;xxxx0000
TAX
LDA HEX,X
JSR PRI
NUMOUT RTS
JAOT LDA #0 ; akkuun 0 ettei sekoa paluussa
DEC A3
BNE JA2
LDA #3
STA A3
JSR FIZZ
JA2 DEC A5
BNE JAOUT
LDA #5
STA A5
JSR BUZZ
JAOUT RTS
FIZZ LDA #"F" ;TULOSTETAAN FIZZ
JSR PRI
LDA #"I"
JSR PRI
LDA #"Z"
JSR PRI
LDA #"Z"
JSR PRI
LDA #1
RTS
BUZZ LDA #"B" ;TULOSTETAAN BUZZ
JSR PRI
LDA #"U"
JSR PRI
LDA #"Z"
JSR PRI
LDA #"Z"
JSR PRI
LDA #1
RTS