Here is the code: /*Code deleted because apparently we are not allowed to post it */
.area PROG (ABS)
.org 0x100
.globl program
keyboard .equ #0xFF02
screen .equ #0xFF00
limit: .word 0
limit2000: .word 0
limitx2: .word 0
num: .word 0
numorg: .word 0
countread: .word 0
cont: .word 2 ;conter for the load loop
contt: .word -2 ;used for offset over X pointer
contn: .word -2000
contnt: .word -2000
primeA: .word 1
primeB: .word 1
primeC: .word 1
square1: .word 1
square2: .word 1
squareo: .word 1
valX: .word 2000
tmp: .byte 0
tmp2: .word 0
tmp3: .word 0
temp: .byte 0
program:
ldx #2000
start:
ldb keyboard
cmpb #'\n
beq end
cmpb #0x7F
beq backspace
subb #0x30
stb tmp
ldd limit
lda #10
mul
std tmp2
clra
ldb tmp
std tmp3
ldd tmp2
addd tmp3
std limit
std ,X++
ldb countread
decb
stb countread
bra start
backspace:
lda #8
sta screen
sta screen
lda #'
sta screen
sta screen
lda #8
sta screen
sta screen
ldb countread
cmpb #0
beq start
lda #8
sta screen
lda #'
sta screen
lda #8
sta screen
ldd ,--x
ldd -2,x
std limit
ldb countread
incb
stb countread
bra start
end:
lda #'\0
sta ,X
ldb countread
cmpb #0
beq empty
andcc #0b11111011
ldd limit
addd #2000
std limit2000
addd limit2000
std limitx2
ldd limit
ldx #2000
bra load
empty:
orcc #0b00000100
puls A,PC
load:
ldd cont
std ,x++
addd #1
std cont
ldd contn
subd #2
std contn
ldd cont
cmpd limit
blo load
ldd contn
std contnt
ldd contn
addd #2
bra findNextPrime
ponerX0:
ldx #2000
bra ctd3
findNextPrime:
leax 2,x
ldx #2000
findnp:
ldd primeA
addd #1
std primeA
ldd contt
addd #2
std contt
ldd d,x
cmpd #0
beq findnp
std primeA
bra deleteMultiples
square:
ldd square1
subd #1
std square1
ldd square2
addd primeB
std square2
cmpd limit
lbhs printPrimes
ldd square1
cmpd #1
bne square
bra ctd2
deleteMultiples:
std square1
std square2
std primeB
bra square
ctd2:
ldd square2
std primeB
std primeC
ldd #0
std valX
ldd primeA
cmpd #2
bne ponerX0
ctd3:
ldd square2
lslb
rola
ctd:
leax 2,x
subd #2
std primeC
ldd valX
addd #2
std valX
ldd primeC
cmpd #4
bne ctd
ldd #0
std ,x
deleteNum:
ldd primeA
lslb
rola
delete1Num:
leax 2,x
subd #2
std primeC
ldd valX
addd #2
std valX
ldd primeC
cmpd #0
bne delete1Num
ldd #0
std ,x
ldd valX
cmpd limitx2
lbhs findNextPrime
bra deleteNum
printPrimes:
ldd #-2
std cont
ldx #2000
printPrimesL:
ldd cont
addd #2
std cont
ldd d,x
std num
cmpd #0
bne printString
ldd cont
cmpd limitx2
blo printPrimesL
lbra finish
printString:
ldd num
std numorg
cmpd #500
lblo less500
cmpd #700
blo less700
cmpd #900
blo less900
std temp
ldb #'9
stb screen
ldd temp
subd #900
lbra twoDigits
less900:
cmpd #800
blo less800
std temp
ldb #'8
stb screen
ldd temp
subd #800
lbra twoDigits
less800:
std temp
ldb #'7
stb screen
ldd temp
subd #700
lbra twoDigits
less700:
cmpd #600
blo less600
std temp
ldb #'6
stb screen
ldd temp
subd #600
lbra twoDigits
less600:
std temp
ldb #'5
stb screen
ldd temp
subd #500
lbra twoDigits
less500:
cmpd #300
blo less300
cmpd #400
blo less400
std temp
ldb #'4
stb screen
ldd temp
subd #400
lbra twoDigits
less400:
std temp
ldb #'3
stb screen
ldd temp
subd #300
lbra oneDigit
less300:
cmpd #200
blo less200
std temp
ldb #'2
stb screen
ldd temp
subd #200
lbra twoDigits
less200:
cmpd #100
blo twoDigits
std temp
ldb #'1
stb screen
ldd temp
subd #100
twoDigits:
cmpd #50
blo less50
cmpd #70
blo less70
cmpd #90
blo less90
std temp
ldb #'9
stb screen
ldd temp
subd #90
lbra oneDigit
less90:
cmpd #80
blo less80
std temp
ldb #'8
stb screen
ldd temp
subd #80
lbra oneDigit
less80:
std temp
ldb #'7
stb screen
ldd temp
subd #70
lbra oneDigit
less70:
cmpd #60
blo less60
std temp
ldb #'6
stb screen
ldd temp
subd #60
lbra oneDigit
less60:
std temp
ldb #'5
stb screen
ldd temp
subd #50
lbra oneDigit
less50:
cmpd #30
blo less30
cmpd #40
blo less40
std temp
ldb #'4
stb screen
ldd temp
subd #40
lbra oneDigit
less40:
std temp
ldb #'3
stb screen
ldd temp
subd #30
lbra oneDigit
less30:
cmpd #20
blo less20
std temp
ldb #'2
stb screen
ldd temp
subd #20
lbra oneDigit
less20:
cmpd #10
blo less10
std temp
ldb #'1
stb screen
ldd temp
subd #10
bra oneDigit
less10:
std temp
ldd numorg
cmpd #10
blo oneDigit
ldb #'0
stb screen
ldd temp
oneDigit:
addd #48
stb screen
ldb #'
stb screen
lbra printPrimesL
finish: clra
sta 0xFF01
.org 0xFFFE
.word program
