AAAAaaaaarrrrggghhh..... xD
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