home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
f
/
ftlogo.zip
/
FTLOGO2.LF
< prev
next >
Wrap
Text File
|
1989-09-25
|
1KB
|
49 lines
PPROP "REFRESH "PROCPKG "FTLOGO
PPROP "BLOAD "PROCPKG "FTLOGO
PPROP "MOTOR "PROCPKG "FTLOGO
PPROP "INIT "PROCPKG "FTLOGO
PPROP "SWITCH "PROCPKG "FTLOGO
PPROP "POTI "PROCPKG "FTLOGO
PPROP "MOTSTATUS "PROCPKG "FTLOGO
PPROP ".SYSTEM "BURY "TRUE
TO REFRESH
.CALL :BASE 135
END
TO BLOAD
.BLOAD "FTLOGO.BIN :BASE 0
.DEPOSIT :BASE 6 (.EXAMINE 4 * 16 10)
.DEPOSIT :BASE 7 (.EXAMINE 4 * 16 11)
.DEPOSIT :BASE 8 (1 + (.EXAMINE 4 * 16 10))
.DEPOSIT :BASE 9 (.EXAMINE 4 * 16 11)
END
TO MOTOR :NUM :DIR
.DEPOSIT :BASE 0 :NUM
.DEPOSIT :BASE 1 :DIR
.CALL :BASE 33
END
TO INIT
.CALL :BASE 10
END
TO SWITCH :NUM
.DEPOSIT :BASE 4 :NUM
.CALL :BASE 155
OUTPUT (.EXAMINE :BASE 4) = 1
END
TO POTI :NUM
.DEPOSIT :BASE 2 :NUM
.CALL :BASE 245
OUTPUT (.EXAMINE :BASE 2) + 256 * (.EXAMINE :BASE 3)
END
TO MOTSTATUS :NUM
OUTPUT REMAINDER (QUOTIENT (.EXAMINE :BASE 5) POWER 4 (:NUM - 1)) 4
END
MAKE "BASE 30000
MAKE "STARTUP [BLOAD INIT PACKAGE "FTLOGO [BLOAD REFRESH MOTSTATUS MOTOR POTI SWITCH INIT] BURY "FTLOGO]