mirror of
https://github.com/irmen/prog8.git
synced 2024-07-24 22:29:15 +00:00
126 lines
2.1 KiB
Lua
126 lines
2.1 KiB
Lua
%import c64textio
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
sub start() {
|
|
|
|
;asmsub clear_screen (ubyte char @ A, ubyte color @ Y) clobbers(A) { ...}
|
|
; TODO dont cause name conflict if we define sub or sub with param 'color' or even a var 'color' later.
|
|
|
|
; sub color(...) {}
|
|
; sub other(ubyte color) {} ; TODO don't cause name conflict
|
|
|
|
byte b1
|
|
byte b2
|
|
byte b3
|
|
|
|
word w1
|
|
word w2
|
|
word w3
|
|
|
|
|
|
b2 = 13
|
|
b3 = 100
|
|
b1 = b3 / b2
|
|
txt.print_b(b1)
|
|
c64.CHROUT('\n')
|
|
|
|
b2 = -13
|
|
b3 = 100
|
|
b1 = b3 / b2
|
|
txt.print_b(b1)
|
|
c64.CHROUT('\n')
|
|
|
|
b2 = 13
|
|
b3 = -100
|
|
b1 = b3 / b2
|
|
txt.print_b(b1)
|
|
c64.CHROUT('\n')
|
|
|
|
b2 = -13
|
|
b3 = -100
|
|
b1 = b3 / b2
|
|
txt.print_b(b1)
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
b2 = 13
|
|
b3 = 100
|
|
b3 /= b2
|
|
txt.print_b(b3)
|
|
c64.CHROUT('\n')
|
|
|
|
b2 = -13
|
|
b3 = 100
|
|
b3 /= b2
|
|
txt.print_b(b3)
|
|
c64.CHROUT('\n')
|
|
|
|
b2 = 13
|
|
b3 = -100
|
|
b3 /= b2
|
|
txt.print_b(b3)
|
|
c64.CHROUT('\n')
|
|
|
|
b2 = -13
|
|
b3 = -100
|
|
b3 /= b2
|
|
txt.print_b(b3)
|
|
c64.CHROUT('\n')
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
|
|
|
|
|
|
w2 = 133
|
|
w3 = 20000
|
|
w1 = w3 / w2
|
|
txt.print_w(w1)
|
|
c64.CHROUT('\n')
|
|
|
|
w2 = -133
|
|
w3 = 20000
|
|
w1 = w3 / w2
|
|
txt.print_w(w1)
|
|
c64.CHROUT('\n')
|
|
|
|
w2 = 133
|
|
w3 = -20000
|
|
w1 = w3 / w2
|
|
txt.print_w(w1)
|
|
c64.CHROUT('\n')
|
|
|
|
w2 = -133
|
|
w3 = -20000
|
|
w1 = w3 / w2
|
|
txt.print_w(w1)
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
w2 = 133
|
|
w3 = 20000
|
|
w3 /= w2
|
|
txt.print_w(w3)
|
|
c64.CHROUT('\n')
|
|
|
|
w2 = -133
|
|
w3 = 20000
|
|
w3 /= w2
|
|
txt.print_w(w3)
|
|
c64.CHROUT('\n')
|
|
|
|
w2 = 133
|
|
w3 = -20000
|
|
w3 /= w2
|
|
txt.print_w(w3)
|
|
c64.CHROUT('\n')
|
|
|
|
w2 = -133
|
|
w3 = -20000
|
|
w3 /= w2
|
|
txt.print_w(w3)
|
|
c64.CHROUT('\n')
|
|
}
|
|
}
|