mirror of
https://github.com/catseye/SixtyPical.git
synced 2024-11-22 01:32:13 +00:00
Add example program that suggests we've got the arguments backwards.
This commit is contained in:
parent
dcc944d732
commit
2d767e9fe7
74
eg/rudiments/cmp.60p
Normal file
74
eg/rudiments/cmp.60p
Normal file
@ -0,0 +1,74 @@
|
||||
// Should print ENLGG
|
||||
|
||||
word w1
|
||||
word w2
|
||||
|
||||
define chrout routine
|
||||
inputs a
|
||||
trashes a
|
||||
@ 65490
|
||||
|
||||
define main routine
|
||||
outputs w1, w2
|
||||
trashes a, x, y, z, n, c, v
|
||||
{
|
||||
copy 4000, w1
|
||||
copy 4000, w2
|
||||
|
||||
cmp w1, w2
|
||||
if z {
|
||||
ld a, 69 // E
|
||||
call chrout
|
||||
} else {
|
||||
ld a, 78 // N
|
||||
call chrout
|
||||
}
|
||||
|
||||
copy 4000, w1
|
||||
copy 4001, w2
|
||||
|
||||
cmp w1, w2
|
||||
if z {
|
||||
ld a, 69 // E
|
||||
call chrout
|
||||
} else {
|
||||
ld a, 78 // N
|
||||
call chrout
|
||||
}
|
||||
|
||||
copy 20000, w1
|
||||
copy 20001, w2
|
||||
|
||||
cmp w1, w2
|
||||
if c {
|
||||
ld a, 71 // G
|
||||
call chrout
|
||||
} else {
|
||||
ld a, 76 // L
|
||||
call chrout
|
||||
}
|
||||
|
||||
copy 20001, w1
|
||||
copy 20001, w2
|
||||
|
||||
cmp w1, w2
|
||||
if c {
|
||||
ld a, 71 // G
|
||||
call chrout
|
||||
} else {
|
||||
ld a, 76 // L
|
||||
call chrout
|
||||
}
|
||||
|
||||
copy 20002, w1
|
||||
copy 20001, w2
|
||||
|
||||
cmp w1, w2
|
||||
if c {
|
||||
ld a, 71 // G
|
||||
call chrout
|
||||
} else {
|
||||
ld a, 76 // L
|
||||
call chrout
|
||||
}
|
||||
}
|
Loading…
Reference in New Issue
Block a user