From 34b9bda535d475dd80fd70481fb7ba525b8c58bd Mon Sep 17 00:00:00 2001 From: mrb0nk500 Date: Thu, 20 Feb 2020 18:18:50 -0500 Subject: Finished SuBAsm's screen editor. Which I am now calling, SuBEditor. --- test/fib-new.s | 73 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 73 insertions(+) create mode 100644 test/fib-new.s (limited to 'test/fib-new.s') diff --git a/test/fib-new.s b/test/fib-new.s new file mode 100644 index 0000000..43538a0 --- /dev/null +++ b/test/fib-new.s @@ -0,0 +1,73 @@ +; Name: fib.s +; Description: Computes the Fibbonacci sequence. +; +; Written in Sux Assembly +; by mr b0nk 500 + +; Variables for thread 0. +.org $0 +x: + .qword $0 +y: + .qword $0 +z: + .qword $0 + +; Variables for thread 1. +x2: + .qword $0 +y2: + .qword $0 +z2: + .qword $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. + +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 + 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. + +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 + bcs start2 ; Start all over again, if the carry flag was set. + jmp fib2 ; Otherwise, keep looping. + +.org $FFC0 +.qword init +; Set up the thread vectors. +.org $FF50 +.qword init2 +; Execute the program. +done + -- cgit v1.2.3-13-gbd6f