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