1
0
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:
Chris Pressey 2018-11-23 23:11:06 +00:00
parent dcc944d732
commit 2d767e9fe7

74
eg/rudiments/cmp.60p Normal file
View 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
}
}