diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/fib-new.s | 46 | ||||
| -rw-r--r-- | test/lex.s | 40 | ||||
| -rw-r--r-- | test/reg-transfer.s | 23 |
3 files changed, 72 insertions, 37 deletions
diff --git a/test/fib-new.s b/test/fib-new.s index 43538a0..ed0aa50 100644 --- a/test/fib-new.s +++ b/test/fib-new.s @@ -7,59 +7,57 @@ ; Variables for thread 0. .org $0 x: - .qword $0 + .byte $0 y: - .qword $0 + .byte $0 z: - .qword $0 + .byte $0 ; Variables for thread 1. x2: - .qword $0 + .byte $0 y2: - .qword $0 + .byte $0 z2: - .qword $0 + .byte $0 .org $1000 init: cps ; Clear the Processor Status register. - start: lda #$0 ; Clear the accumulator. ldy #$1 ; y=1. - sty.q y ; Store y into memory. + sty y ; Store y into memory. fib: ldx #$0 ; x=0. - ldx.q x ; Output the value of x. - adc.q y ; Add x with y. - sta.q z ; z=x+y - ldy.q y - sty.q x ; x=y. - sta.q y ; y=z. - lda.q x + ldx x ; Output the value of x. + adc y ; Add x with y. + sta z ; z=x+y + ldy y + sty x ; x=y. + sta y ; y=z. + lda x bcs start ; Start all over again, if the carry flag was set. jmp fib ; Otherwise, keep looping. .org $2000 init2: cps ; Clear the Processor Status register. - start2: lda #$0 ; Clear the accumulator. ldy #$1 ; y2=1. - sty.q y2 ; Store y into memory. + sty y2 ; Store y into memory. fib2: ldx #$0 ; x2=0. - ldx.q x2 ; Output the value of x2. - adc.q y2 ; Add x2 with y2. - sta.q z2 ; z2=x2+y2 - ldy.q y2 - sty.q x2 ; x2=y2. - sta.q y2 ; y2=z2. - lda.q x2 + ldx x2 ; Output the value of x2. + adc y2 ; Add x2 with y2. + sta z2 ; z2=x2+y2 + ldy y2 + sty x2 ; x2=y2. + sta y2 ; y2=z2. + lda x2 bcs start2 ; Start all over again, if the carry flag was set. jmp fib2 ; Otherwise, keep looping. diff --git a/test/lex.s b/test/lex.s new file mode 100644 index 0000000..543a3d8 --- /dev/null +++ b/test/lex.s @@ -0,0 +1,40 @@ +; aaaaaaaaaaaaaaaaa +SYM = $10 +SYM1 = 10 +SYM2 = %00000010 +.org $A000 +; String Literals/Constants. +tok: + .byte "dab" +msg: + .byte "oof, you divided a, and b on me.\n" +string: + .byte "Please, type something.\n" +string2: + .byte "You typed, " +.org $1000 +lex: + .byte $0 +.org $2000 +lex2: + .qword lex +cmd_buf: + .word $0 + +.org $8000 +reset: + cps ; cool, and eboc + lda #SYM ; nice symbols + sta lex ; great label + sta (lex2), y ; the pointers are cia niggers + sta (lex2, x) ; >mfw pointer to array is accessed as a pointer array + sta (lex2) ; normal pointer + sta lex, y ; arrays are good + sta lex, x ; same with this one + sta $1000 ; lol + lda.w #cmd_buf+8; + +a +.org $A000 +v +q diff --git a/test/reg-transfer.s b/test/reg-transfer.s index 580020c..abedc5b 100644 --- a/test/reg-transfer.s +++ b/test/reg-transfer.s @@ -2,21 +2,18 @@ ; ; by mr b0nk 500 <b0nk @b0nk.xyz> -cps -inc ; Increment the accumulator. -tay ; Transfer the accumulator to the y register. -tax ; Do the same thing, but with the x register. -jmp $1 ; Loop forever. - .org $8000 -cps -inc ; Increment the accumulator. -tay ; Transfer the accumulator to the y register. -tax ; Do the same thing, but with the x register. -jmp $1 ; Loop forever. +reset: + cps +bench: + inc ; Increment the accumulator. + tay ; Transfer the accumulator to the y register. + tax ; Do the same thing, but with the x register. + tab ; + jmp bench ; Loop forever. -.org $FF50 -.qword $8000 +.org $FFC0 +.qword reset ; Execute the program. done |