From ea7adb9397b73e29792727290c55f4e3e4c11a6c Mon Sep 17 00:00:00 2001 From: "drohne235@googlemail.com" Date: Mon, 18 Apr 2011 17:07:12 +0000 Subject: [PATCH] --- zubehör/PropForth/PropForth.spin | 6547 ----------------- zubehör/PropForth/PropForthPart1.f | 1132 --- zubehör/PropForth/PropForthPart2.f | 311 - zubehör/sphinx/hive-port/codegen/codegen.spin | 1072 --- zubehör/sphinx/hive-port/linker/link.spin | 616 -- .../sphinx/hive-port/tokenizer/bintree.spin | 238 - .../sphinx/hive-port/tokenizer/fltmath.spin | 219 - .../sphinx/hive-port/tokenizer/fltstr.spin | 534 -- .../sphinx/hive-port/tokenizer/keywords.spin | 530 -- zubehör/sphinx/hive-port/tokenizer/led.spn | 7 - zubehör/sphinx/hive-port/tokenizer/lex.spin | 564 -- .../sphinx/hive-port/tokenizer/stringx.spin | 43 - .../sphinx/hive-port/tokenizer/tokenizr.spin | 430 -- .../dokumentation/codegenbin.htm | 235 - .../spinx100225-ori/dokumentation/lexbin.htm | 235 - .../spinx100225-ori/dokumentation/linkbin.htm | 235 - .../spinx100225-ori/dokumentation/sobstory.htm | 271 - .../dokumentation/sphinxbin.htm | 235 - .../the-sphinx-operating-environment.htm | 258 - .../spinx100225-ori/sphinx0/fdserial.spin | 316 - .../sphinx/spinx100225-ori/sphinx0/isxfs.spin | 80 - .../sphinx/spinx100225-ori/sphinx0/sphinx.spin | 370 - .../sphinx/spinx100225-ori/sphinx0/sxfile.spin | 98 - .../sphinx/spinx100225-ori/sphinx0/sxfs.spin | 874 --- .../sphinx/spinx100225-ori/sphinx0/sxfs2.spin | 529 -- .../sphinx/spinx100225-ori/sphinx0/sxkb.spin | 728 -- .../spinx100225-ori/sphinx0/sxsdspiq.spin | 334 - .../sphinx/spinx100225-ori/sphinx0/sxtv.spin | 916 --- .../sphinx/spinx100225-ori/sphinx1/codegen.bin | Bin 16532 -> 0 bytes .../spinx100225-ori/sphinx1/cogcheck.spn | 27 - .../sphinx/spinx100225-ori/sphinx1/combokb.sob | Bin 1529 -> 0 bytes .../sphinx/spinx100225-ori/sphinx1/copy.spn | 68 - .../sphinx/spinx100225-ori/sphinx1/del.spn | 246 - .../sphinx/spinx100225-ori/sphinx1/dir.spn | 220 - .../sphinx/spinx100225-ori/sphinx1/echo.spn | 41 - zubehör/sphinx/spinx100225-ori/sphinx1/ed.spn | 569 -- .../spinx100225-ori/sphinx1/fdserial.sob | Bin 791 -> 0 bytes .../sphinx/spinx100225-ori/sphinx1/gr_demo.spn | 246 - .../spinx100225-ori/sphinx1/graphics.sob | Bin 4290 -> 0 bytes .../spinx100225-ori/sphinx1/graphics.spn | 1669 ----- .../sphinx/spinx100225-ori/sphinx1/hello1.spn | 12 - .../sphinx/spinx100225-ori/sphinx1/hello2.spn | 11 - .../sphinx/spinx100225-ori/sphinx1/isxfs.sob | Bin 453 -> 0 bytes .../sphinx/spinx100225-ori/sphinx1/isxkb.sob | Bin 122 -> 0 bytes .../sphinx/spinx100225-ori/sphinx1/isxtv.sob | Bin 372 -> 0 bytes .../sphinx/spinx100225-ori/sphinx1/lex.bin | Bin 9552 -> 0 bytes .../sphinx/spinx100225-ori/sphinx1/link.bin | Bin 3808 -> 0 bytes .../spinx100225-ori/sphinx1/mouseiso.sob | Bin 930 -> 0 bytes .../sphinx/spinx100225-ori/sphinx1/sphinx.bin | Bin 10628 -> 0 bytes .../sphinx/spinx100225-ori/sphinx1/sxfile.sob | Bin 668 -> 0 bytes zubehör/sphinx/spinx100225-ori/sphinx1/tv.sob | Bin 1282 -> 0 bytes .../sphinx/spinx100225-ori/sphinx1/tv_text.sob | Bin 740 -> 0 bytes .../spinx100225-ori/sphinx1/tvtexted.spn | 245 - .../sphinx/spinx100225-ori/sphinx2/bintree.spn | 238 - .../sphinx/spinx100225-ori/sphinx2/codegen.spn | 1072 --- .../sphinx/spinx100225-ori/sphinx2/eval.spn | 216 - .../sphinx/spinx100225-ori/sphinx2/fltmath.spn | 219 - .../sphinx/spinx100225-ori/sphinx2/fltstr.spn | 534 -- .../sphinx/spinx100225-ori/sphinx2/isxfs.spn | 80 - .../sphinx/spinx100225-ori/sphinx2/isxtv.spn | 96 - .../spinx100225-ori/sphinx2/keywords.spn | 530 -- .../sphinx/spinx100225-ori/sphinx2/kwdefs.spn | 274 - .../sphinx/spinx100225-ori/sphinx2/lex.spn | 166 - .../sphinx/spinx100225-ori/sphinx2/link.spn | 616 -- .../sphinx/spinx100225-ori/sphinx2/methods.spn | 1172 --- .../sphinx/spinx100225-ori/sphinx2/sphinx.spn | 367 - .../sphinx/spinx100225-ori/sphinx2/stringx.spn | 43 - .../sphinx/spinx100225-ori/sphinx2/sxfile.spin | 98 - .../sphinx/spinx100225-ori/sphinx2/sxfs.spn | 871 --- .../sphinx/spinx100225-ori/sphinx2/sxfs2.spn | 529 -- .../sphinx/spinx100225-ori/sphinx2/sxkb.spn | 728 -- .../spinx100225-ori/sphinx2/sxsdspiq.spn | 334 - .../sphinx/spinx100225-ori/sphinx2/sxtv.spn | 916 --- .../sphinx/spinx100225-ori/sphinx2/symbols.spn | 83 - .../spinx100225-ori/sphinx2/tokenizr.spn | 430 -- .../spinx100225-ori/sphinx2/tokenrdr.spn | 272 - 76 files changed, 31195 deletions(-) delete mode 100644 zubehör/PropForth/PropForth.spin delete mode 100644 zubehör/PropForth/PropForthPart1.f delete mode 100644 zubehör/PropForth/PropForthPart2.f delete mode 100644 zubehör/sphinx/hive-port/codegen/codegen.spin delete mode 100644 zubehör/sphinx/hive-port/linker/link.spin delete mode 100644 zubehör/sphinx/hive-port/tokenizer/bintree.spin delete mode 100644 zubehör/sphinx/hive-port/tokenizer/fltmath.spin delete mode 100644 zubehör/sphinx/hive-port/tokenizer/fltstr.spin delete mode 100644 zubehör/sphinx/hive-port/tokenizer/keywords.spin delete mode 100644 zubehör/sphinx/hive-port/tokenizer/led.spn delete mode 100644 zubehör/sphinx/hive-port/tokenizer/lex.spin delete mode 100644 zubehör/sphinx/hive-port/tokenizer/stringx.spin delete mode 100644 zubehör/sphinx/hive-port/tokenizer/tokenizr.spin delete mode 100644 zubehör/sphinx/spinx100225-ori/dokumentation/codegenbin.htm delete mode 100644 zubehör/sphinx/spinx100225-ori/dokumentation/lexbin.htm delete mode 100644 zubehör/sphinx/spinx100225-ori/dokumentation/linkbin.htm delete mode 100644 zubehör/sphinx/spinx100225-ori/dokumentation/sobstory.htm delete mode 100644 zubehör/sphinx/spinx100225-ori/dokumentation/sphinxbin.htm delete mode 100644 zubehör/sphinx/spinx100225-ori/dokumentation/the-sphinx-operating-environment.htm delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx0/fdserial.spin delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx0/isxfs.spin delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx0/sphinx.spin delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx0/sxfile.spin delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx0/sxfs.spin delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx0/sxfs2.spin delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx0/sxkb.spin delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx0/sxsdspiq.spin delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx0/sxtv.spin delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/codegen.bin delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/cogcheck.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/combokb.sob delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/copy.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/del.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/dir.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/echo.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/ed.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/fdserial.sob delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/gr_demo.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/graphics.sob delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/graphics.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/hello1.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/hello2.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/isxfs.sob delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/isxkb.sob delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/isxtv.sob delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/lex.bin delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/link.bin delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/mouseiso.sob delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/sphinx.bin delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/sxfile.sob delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/tv.sob delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/tv_text.sob delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx1/tvtexted.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/bintree.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/codegen.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/eval.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/fltmath.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/fltstr.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/isxfs.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/isxtv.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/keywords.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/kwdefs.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/lex.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/link.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/methods.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/sphinx.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/stringx.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/sxfile.spin delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/sxfs.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/sxfs2.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/sxkb.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/sxsdspiq.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/sxtv.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/symbols.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/tokenizr.spn delete mode 100644 zubehör/sphinx/spinx100225-ori/sphinx2/tokenrdr.spn diff --git a/zubehör/PropForth/PropForth.spin b/zubehör/PropForth/PropForth.spin deleted file mode 100644 index 67891cb..0000000 --- a/zubehör/PropForth/PropForth.spin +++ /dev/null @@ -1,6547 +0,0 @@ - - -{{ - -Copyright (c) 2009 Sal Sanci - -Permission is hereby granted, free of charge, to any person obtaining a copy -of this software and associated documentation files (the "Software"), to deal -in the Software without restriction, including without limitation the rights -to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -copies of the Software, and to permit persons to whom the Software is -furnished to do so, subject to the following conditions: - -The above copyright notice and this permission notice shall be included in -all copies or substantial portions of the Software. - -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -THE SOFTWARE. - - - -Yet Another Forth - -PropForth is built on SpinForth and is really rev 2 of SpinForth. There have been many changes. As opposed to describing -them all, suffice it to say PropForth is really tuned to freeing up as many cog longs as possible. Found this was the -resource that was of most limit. Of course this is always traded against performance, and the performance considered -was compile performance. - -This forth is case sensitive!!!!!! BIG CHANGE! - -By default there are now 161 longs free in the cog. The stacks are still in the cogs, and this takes up 64 longs, -32 for the data stack and 32 for the return stack. Found this tradeoff to be worth it. - -The core of function is kept small, and functions like debugging can be loaded in if they are needed. - -There is a forth time slicer available for background tasks, and it can respond to items that are need service -on the order of hundreds of milliseconds or more. - -It is a cooperative time slicer and works by long running routines calling _fslice. The forth kernel words -key? emit? all call _fslice. - -When PropForth starts, cog 0 is the spin cog which starts everything up, and then loads the serial driver (57.6Kb if you need -different modify in the main spin startup routine), in cog 7 and starts cog 6 as a PropForth cogs. - - -There is a coopreative time slicer for the assembler, aslicer. An example of this is the serial driver which -load into cog 7. aslicer slices up between forth, the bit receive, the bit transmit, and the circular buffer -manager for received characters. The forth slicer which runs, and monitors for CTLa, CTLb and CTLc. -Cog 7 still has juice left over! - -57.6K Baud is ok no delays necessary. - -THIS IS NOT AN ANSI FORTH! -It is a minimal forth tuned for the propeller. However most words adhere to the ANSI standard. - -Locks 0 - 1 are allocated by the spin startup code are by forth. -0 - the forth dictionary -1 - the eeprom - -Forth is a language which I like for microcontrollers. It is intended to allow interactive development -on the microcontroller. - -The Propeller architecture is different enough from the norm to require a slightly different Forth. -So this is uniquely developed for the propeller. If you don't like it, the source follows. Indulge yourself. - -Names are case unique in THIS forth, so aCount and acount are NOT the same, in this implementation the max -length for a name is 31 characters. Names are stored as a counted string. 1 byte for the length, and up to 31 bytes -for the name. The upper bits are used as follows. -$80 - 0 - this is an assembler word - 1 - this is a forth word -$40 - 0 - this is not an immediate word - 1 - this is an immediate word -$20 - 0 - do not execute in interactive mode if the immediate word flag is set - 1 - execute this word in intercactive mode if the immediate flag is set - -Be sure these flags are masked if you are manipulating names with the counted string routines. - -The cog memory is used for the assembler code and variables to run Forth, a 32 long stack, -and a 32 long return stack. There are about 160 free registers for code and data in each cog running forth. -Memory accesses in forth are ! (store) and @ (fetch). All memory access to the cog are long. They are done via ! and @ - -Naming conventions: - -cog: - a_xxx - a forth word, an address poiting to code which can be executed as forth word - c_xxx - cog code, point to code, but can not be executed as a forth word, for instance a subroutine - v_xxx - a cog long, points to a variable - -The execption to this is the special cog registers, which are named exactly as they are in the propeller -documentation. eg par, phsa, ctra, etc. - -Of course given the nature of self-modifying code, these names may be used otherwise - - -cogdata: - -Each cog has a 256 byte area assigned to it, and this area is used forth cog specific data. Though this are is in -main memory there is an agreed upon isolation. When a cog is started the par register points to this 256 byte area. - - -cogdata long mc ex mcCount (main cog) m! m@ - word mcw ex mcwCount (main cog word) w! w@ - char mcc ex mccCount (main cog char) c! c@ - - -The forth dictionary is stored in main memory and is shared. So updating the dictionary requires it be -locked so only one cog at a time can update the dictionary. Variables can be defined in the dictionary -or in the cog. - -In the cog, there is only a long variable. - -In main memory, variables can be a long (32 bits), a word (16 bits). The most efficient -are words. This forth is implemented using words. Longs need to be long aligned and can waste bytes. - - -main memory: - -Main memory can be accessed as a long, m! m@, a word, w! w@, and as a character c! c@ , - -There is an area of main memory reserved for each cog, the cogdata area. The PAR register is -initialized with the start of the 256 bytes allocated to each cog. This area is where IO communcation is done, -and system variables for each cog are stored. - -Naming convention: -cog long a ex aCount ! @ - -cogdata long mc ex mcCount (main cog) m! m@ - word mcw ex mcwCount (main cog word) w! w@ - char mcc ex mccCount (main cog char) c! c@ - -dictionary long ms ex msCount (main shared) m! m@ - word msw ex mswCount (main shared word) w! w@ - char msc ex mscCount (main shared char) c! c@ - -This is done to clearly differentiate how a variable should be accessed. Strange bugs happen if these are -confused and the naming convention helps. - -There is stack and return stack checking for overflow and underflow. -For the stack, this only occurs on words which access more then the top item on the stack. -So using c@ with an empty stack will return a value and not trigger stack checking. However -c! with an empty stack will trigger a stack underflow. -Trade between size performance and error checking, seemed reasonable. - - -2009 AUG 14, on vacation had time for a few changes. The assembler divide is now a 64bit divided by 32 bits and -yields a 32 bit result and remainder. Very useful in conjuction with the 64 bit multiply, allows scaling of counter -values easily. - -Added underflow/overflow detection, useful for understanding what is going on. Fixed a few minor bugs. - - -}} -CON - - _clkmode = xtal1 + pll16x - _xinfreq = 5_000_000 - _cogDataSize = 256 - _wordMASK = $FFFF - _buffer_length = 256 'can be 2, 4, 8, 16, 32, 64, 128, 256 - _buffer_mask = _buffer_length - 1 - -VAR - -OBJ - -PUB Main | key -{{ -Start the serial port rx pin - 31, tx pin - 30, 115KBaud -If ok start forth, providing we can can a lock resource -}} - key := locknew - key := locknew - stPtr := ((@stTop - @a_base) /4) - 1 ' and initialize values for forth - rsPtr := ((@rsTop - @a_base) /4) - 1 - IP := WORD[ @cm_fstartPFA + 2] - WORD[ @mswDictendPFA + 2] := @ForthDictEnd - WORD[ @mswMemendPFA + 2] := @ForthMemoryEnd - WORD[ @ffcogPFA + 2] := 6 - WORD[ @lfcogPFA + 2] := 6 - v_bitticks := clkfreq / 57600 - v_rxmask := 1 << 31 - v_txmask := 1 << 30 - v_rxbuff := @serentryPFA - v_in := @inCONPFA + 2 - v_out := @outCONPFA + 2 - coginit(7, @serentryPFA, @cogdataPFA + (7 * _cogDataSize)) - coginit(6, @entryPFA, @cogdataPFA + (6 * _cogDataSize)) -{{ - Stop cog zero, or comment this out to keep spin running -}} - cogstop( 0) -DAT - -'*********************************** -'* Assembly language serial driver * -'*********************************** - - org 0 -' -' -' Entry -' -serentryPFA - mov task1Ptr,#transmit - mov task2Ptr,#task2Code - or dira , v_txmask -' -' Receive -' -receive jmpret task0Ptr, task1Ptr 'run a chunk of transmit code, then return - - test v_rxmask , ina wz - if_nz jmp # receive - - mov rxbits , # 9 'ready to receive byte - mov rxcnt , v_bitticks - mov rxcnt , cnt '+ the current clock - -:bit add rxcnt , v_bitticks 'ready for the middle of the bit period - -:wait jmpret task0Ptr, task1Ptr 'run a chuck of transmit code, then return - - mov t1 , rxcnt 'check if bit receive period done - sub t1 , cnt - cmps t1 , # 0 wc - if_nc jmp #:wait - - test v_rxmask , ina wc 'receive bit on rx pin into carry - rcr rxdata , # 1 'shift carry into receiver - djnz rxbits , # :bit 'go get another bit till done - - if_nc jmp # receive 'abort if no stop bit - - shr rxdata , # 32-9 'justify and trim received byte - and rxdata , # $FF - - add v_rxh , v_rxbuff 'plus the buffer offset - wrbyte rxdata , v_rxh 'write the byte - sub v_rxh , v_rxbuff - add v_rxh ,# 1 'update rx_head - and v_rxh , # _buffer_mask - - jmp # receive 'byte done, receive next byte -' -' -' Transmit -' -transmit jmpret task1Ptr, task2Ptr 'run a chunk of receive code, then return - rdword txdata, v_in - test txdata, #$100 wz - if_nz jmp #transmit - mov t1 , #$100 - wrword t1 , v_in - - or txdata,#$100 'or in a stop bit - shl txdata,#2 - or txdata,#1 'or in a idle line state and a start bit - mov txbits,#11 - mov txcnt,cnt - -:bit shr txdata,#1 wc - muxc outa , v_txmask - add txcnt , v_bitticks 'ready next cnt - -:wait jmpret task1Ptr, task2Ptr 'run a chunk of receive code, then return - - mov t1,txcnt 'check if bit transmit period done - sub t1,cnt - cmps t1,#0 wc - if_nc jmp #:wait - - djnz txbits,#:bit 'another bit to transmit? - - jmp #transmit 'byte done, transmit next byte - -task2Code - jmpret task2Ptr, task0Ptr - cmp v_rxh , v_rxt wz - if_z jmp #task2Code - mov t1 , v_out - rdword t2 , t1 wz - if_nz rdword t3 , t2 - if_nz test t3 , # $100 wz - if_z jmp #task2Code - - add v_rxt , v_rxbuff 'plus the buffer offset - rdbyte t3 , v_rxt 'write the byte - sub v_rxt , v_rxbuff - add v_rxt ,# 1 - wrword t3 , t2 'update rx_head - and v_rxt , # _buffer_mask - jmp #task2Code - -v_rxh long 0 -v_rxt long 0 -v_bitticks long 0 -v_rxmask long 0 -v_txmask long 0 -v_rxbuff long 0 -v_in long 0 -v_out long 0 -' -' Uninitialized data -' - -task0Ptr res 1 -task1Ptr res 1 -task2Ptr res 1 -t1 res 1 -t2 res 1 -t3 res 1 - -rxdata res 1 -rxbits res 1 -rxcnt res 1 - - -txbuff res 1 -txdata res 1 -txbits res 1 -txcnt res 1 - - -a_base - org 0 -{{ - -Assembler Code -entry - abs is effectively a nop on stTOS initialized to zero - -Assembler routines which correspond to forth words are documented in the forth area - -}} -entryPFA - - jmp #a_next -a_ifunc - rdword treg1, IP - movi a_ifunci, treg1 - add IP, #2 - call #a_stpoptreg -a_ifunci - and stTOS, treg1 - jmp #a_next - -a_ifuncone - rdword treg1, IP - movi a_ifunc1i, treg1 - add IP, #2 -a_ifunc1i - abs stTOS, stTOS - jmp #a_next - -a_ifunctwo - rdword treg1, IP - movi a_ifunc2i, treg1 - add IP, #2 - call #a_stpoptreg -a_ifunc2i - abs stTOS, treg1 -a_drop - call #a_stPop - jmp #a_next - -a_at - movs a_atget, stTOS - nop ' necessary, really needs to be documented -a_atget mov stTOS, stTOS - jmp #a_next -a_bang - movd a_bangput, stTOS - call #a_stPop -a_bangput mov stTOS, stTOS - jmp #a_drop -a_branch - rdword treg1,IP ' the next word - add IP, treg1 ' add the offset - and IP , fAddrMask - jmp #a_next -a_doconw - call #a_stPush - rdword stTOS, IP - jmp #a_exit -a_dovar - add IP, #3 - andn IP, #3 ' align to a long boundary -a_dovarw - call #a_stPush - mov stTOS, IP - jmp #a_exit -a_literal - call #a_stPush - add IP, #3 - andn IP, #3 ' align to a long boundary - rdlong stTOS, IP - add IP, #4 - jmp #a_next -a_docon - call #a_stPush - add IP, #3 - andn IP, #3 ' align to a long boundary - rdlong stTOS, IP - jmp #a_exit -a_dup - call #a_stPush - jmp #a_next - -' treg1 - cstr2 (name) -' stTOS - cstr1 (name) -' uses treg2, treg4, and treg5 -' z flag set if strings are equal - -c_streq -c_streq5 - mov treg4 , # $1F -' length of cstr2 (name) - rdbyte treg2 , treg1 wz -' length of cstr2 (name) - truncate to appropriate length - if_nz and treg2 , treg4 wz -' length of cstr1 (name) - if_nz rdbyte treg5 , stTOS wz -' length of cstr1 (name) - truncate to appropriate length - if_nz and treg5 , treg4 wz -' if either length is 0, move -1 into length of cstr1 to cause a mismatch - if_z mov treg5 , fLongMask - cmp treg2 , treg5 wz - if_nz jmp # c_streq7 -a_cstreqloop - add stTOS , # 1 - rdbyte treg4 , stTOS - add treg1 , # 1 -a_cstreqlp - if_never jmpret a_stPop_ret, # a_stPop_ret ' when task manager is loaded these addresses wil be patched - rdbyte treg5 , treg1 - cmp treg4 , treg5 wz - if_z djnz treg2 , # a_cstreqloop -c_streq7 -c_streq_ret - ret - -' a_nameeq (name name -- t/f) -a_nameeq - movs c_streq5 , # $1F - jmp # a_nameeq4 -' a_cstreq (cstr1 cstr2 -- t/f) -a_cstreq - movs c_streq5 , # $FF -a_nameeq4 - call #a_stpoptreg -' treg1 - cstr2 -' stTOS - dict cstr1 - jmpret c_streq_ret , # c_streq - muxz stTOS , fLongMask - jmp # a_next - -a_fin - call #a_stpoptreg - mov treg6 , treg1 - mov treg3 , stTOS - movs c_streq5 , # $1F -' treg6 - cstr -' treg3 - nfa -a_finlp - if_never jmpret a_stPop_ret, # a_stPop_ret ' when task manager is loaded these addresses wil be patched -' treg1 - nfa -' stTOS - cstr - mov treg1 , treg6 - mov stTOS , treg3 - jmpret c_streq_ret , # c_streq - if_nz jmp # a_fin2 -a_fin1 - mov stTOS , treg3 - jmp # a_next -a_fin2 - mov treg2 , treg3 - sub treg2 , # 2 - rdword treg3 , treg2 wz - if_z jmp # a_fin1 - jmp # a_finlp - -a_eq - call #a_stpoptreg - cmp treg1, stTOS wz, wc - muxz stTOS, fLongMask - jmp #a_next -a_gt - '( n1 n2 -- flag ) - call #a_stpoptreg ' flag is true if and only if n1 is greater than n2 - cmps stTOS, treg1 wz, wc - if_a neg stTOS, #1 - if_be mov stTOS, #0 - jmp #a_next -a_hubop - call #a_stpoptreg - hubop stTOS, treg1 wr,wc - muxc treg1, fLongMask - call #a_stPush - mov stTOS, treg1 - jmp #a_next -a_litw - call #a_stPush - rdword stTOS, IP -a_litw1 - add IP, #2 - jmp #a_next -a_lt - '( n1 n2 -- flag ) - call #a_stpoptreg ' flag is true if and only if n1 is less than n2 - cmps stTOS, treg1 wz, wc - if_b neg stTOS, #1 - if_ae mov stTOS, #0 - jmp #a_next -a_exit - call #a_rsPop - mov IP, treg5 -' jmp #a_next SINCE WE ARE ALREADY THERE -a_next - if_never jmpret a_stPop_ret, # a_stPop_ret ' when task manager is loaded these addresses wil be patched -a_debugonoff - if_never jmpret a_dum_ret, # a_dum ' when debug is loaded this address will be patched - - rdword treg1,IP ' the next word - test treg1, fMask wz - if_z add IP, #2 ' if the one of the hi bits is not set, it is an assembler word, inc IP - if_z jmp treg1 - rdword treg1, IP ' otherwise it is a forth word - mov treg5, IP - add treg5, #2 - mov IP, treg1 - call #a_rsPush - jmp #a_next -a_over - call #a_stpoptreg - mov treg2, stTOS - call #a_stPush - mov stTOS, treg1 - call #a_stPush - mov stTOS, treg2 - jmp #a_next -a_mpx - and stTOS, ina wz - muxnz stTOS, fLongMask - jmp # a_next - -a_mpxh - jmp # a_mpxex wz - -a_mpxl - test stTOS, #0 wz -a_mpxex - muxnz outa, stTOS - jmp # a_drop - -a_rot - call #a_stpoptreg - mov treg2, stTOS - call #a_stPop - mov treg3, stTOS - - mov stTOS, treg2 - call #a_stPush - mov stTOS, treg1 - call #a_stPush - mov stTOS, treg3 - jmp #a_next -a_rgt - call #a_rsPop - call #a_stPush - mov stTOS, treg5 - jmp #a_next -a_twogtr - mov treg5, stTOS - call #a_stPop - call #a_rsPush -a_gtr - mov treg5, stTOS - call #a_stPop - call #a_rsPush - jmp #a_next -a_lparenlooprparen - mov treg1, #1 - jmp #a_lparenpluslooprparen1 -a_lparenpluslooprparen - call #a_stpoptreg -a_lparenpluslooprparen1 - call #a_rsPop - mov treg2, treg5 - call #a_rsPop - add treg5, treg1 - cmp treg2, treg5 wc ,wz - if_a call #a_rsPush ' branch - if_a mov treg5, treg2 ' branch - if_a call #a_rsPush ' branch - if_a jmp #a_branch - jmp #a_litw1 - -a_swap - call #a_stpoptreg - mov treg2, stTOS - mov stTOS, treg1 - call #a_stPush - mov stTOS, treg2 - jmp #a_next - -a_umstar - call #a_stpoptreg - mov treg4, #0 - mov treg2, #0 - mov treg3, #0 -a_umstarlp - if_never jmpret a_stPop_ret, # a_stPop_ret ' when task manager is loaded these addresses wil be patched - shr stTOS, #1 wz,wc - if_nc jmp #a_umstar1 - add treg4, treg1 wc - addx treg2, treg3 -a_umstar1 - shl treg1, #1 wc - rcl treg3, #1 - if_nz jmp #a_umstarlp - mov stTOS, treg4 - call #a_stPush - mov stTOS, treg2 - jmp #a_next -a_umslashmod - call #a_stpoptreg - mov treg6, stTOS - call #a_stPop - mov treg3, #$40 - mov treg2, #0 -a_umslashmodlp - if_never jmpret a_stPop_ret, # a_stPop_ret ' when task manager is loaded these addresses wil be patched - shl stTOS, #1 wc ' dividend - rcl treg6, #1 wc - - rcl treg2, #1 wc ' hi bit from dividend - - if_c sub treg2, treg1 - if_nc cmpsub treg2, treg1 wc ' cmp divisor - - rcl treg4, #1 ' treg1 - quotient - djnz treg3, #a_umslashmodlp - mov stTOS, treg2 - call #a_stPush - mov stTOS, treg4 - jmp #a_next -a_zbranch - call #a_stpoptreg - cmp treg1, #0 wz ' is the TOS zero? - if_z jmp #a_branch - jmp #a_litw1 - -a_reset - if_never jmpret a_stPop_ret, # a_stPop_ret ' when task manager is loaded these addresses will be patched - wrlong fLongMask , par - wrword treg6 , par - coginit resetDreg - -{{ - -a_stPush - push stTOS on to stack - -}} -a_stPush - if_never jmpret a_stPop_ret, # a_stPop_ret ' when task manager is loaded these addresses wil be patched - movd a_stPush1, stPtr - cmp stPtr, #stBot wc - if_b mov treg6 , # $11 - if_b jmp # a_reset -a_stPush1 mov stPtr, stTOS - sub stPtr, #1 -a_stPush_ret - ret -{{ - -a_rsPush - push treg5 on to return stack - -}} -a_rsPush - if_never jmpret a_stPop_ret, # a_stPop_ret ' when task manager is loaded these addresses wil be patched - movd a_rsPush1, rsPtr - cmp rsPtr, #rsBot wc - if_b mov treg6 , # $12 - if_b jmp # a_reset -a_rsPush1 mov treg1, treg5 - sub rsPtr, #1 -a_rsPush_ret - ret - -{{ - -a_stpoptreg - move stTOS to treg1, and pop stTOS from stack - -}} -a_stpoptreg - mov treg1, stTOS -{{ - -a_stPop - pop stTOS from stack - -}} -a_stPop - if_never jmpret a_stPop_ret, # a_stPop_ret ' when task manager is loaded these addresses wil be patched - add stPtr, #1 - movs a_stPop1, stPtr - cmp stPtr, #stTop wc,wz - if_ae mov treg6 , # $21 - if_ae jmp # a_reset -a_stPop1 mov stTOS, stPtr -a_stPop_ret -a_stpoptreg_ret - ret - -{{ - -a_rsPop - pop treg5 from return stack - -}} -a_rsPop - if_never jmpret a_stPop_ret, # a_stPop_ret ' when task manager is loaded these addresses wil be patched - add rsPtr, #1 - movs a_rsPop1, rsPtr - cmp rsPtr, #rsTop wc,wz - if_ae mov treg6 , # $22 - if_ae jmp # a_reset -a_rsPop1 -a_dum - mov treg5, treg1 -a_dum_ret -a_rsPop_ret - ret - - -' -' variables used by the forth interpreter, do not change the order or size -- or if you do, be really careful and update the forth code -' -varStart -fMask long $FE00 ' 0 -fAddrMask long $7FFF ' 1 -fLongMask long $FFFFFFFF ' 2 -resetDreg long 0 ' 3 -IP long 0 ' 4 -stPtr long 0 ' 5 -rsPtr long 0 ' 6 -stTOS long 0 ' 7 - -treg1 long 0 ' 8 working reg -treg2 long 0 ' 9 working reg -treg3 long 0 ' a working reg -treg4 long 0 ' b working reg -treg5 long 0 ' c working reg / call parameter reg -treg6 long 0 ' d working reg -stBot ' e -{{ -These variables are overlapped with the cog data area variables to save space -}} -cogdataPFA - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 ' e - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 ' 1e -stTop ' 2e -rsBot - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 ' 2e - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 ' 3e -rsTop ' 4e - - -varEnd - -{{ - -cogdata - -This data area is used for 2 purposes. -The first is for inByte, outByte, debugCmd and debugValue - these are used to commincate with the spin program -which routes IO to/from the serial port. They can also be used between forths running on different cogs. - -The second purpose is for variables which are unique to each instance of forth, like >in, pad, etc... - -Variables can be defined here for each forth or in cog memory. Since cog memory is at a premium, "slow" variables -are defined here. - -}} -'cogdataPFA long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 ' 256 bytes cog 0 -' long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 -' long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 -' long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 ' 256 bytes cog 1 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 ' 256 bytes cog 2 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 ' 256 bytes cog 3 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 ' 256 bytes cog 4 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 ' 256 bytes cog 5 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 ' 256 bytes cog 6 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 ' 256 bytes cog 7 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 -{{ - -Start of the Forth Dicitonary - -Dictionary Entry Structure - - there is no code pointer, it is inherent -LinkField - points to the previous name field in the dictionary - word -NameField - byte - length of the name field (lo 5 bits) - - bit 7 ($80) set if it is a forth word - - bit 6 ($40) set if it is an immediate word - - bit 4 ($20) set if it is an eXecute word - execute this word in interactive mode as well - if the immediate flag is set - bytes - the actual name - - if the name is a word constant, and it starts with ca_ the spinMaker assumes it to be a reference to the cog data - space and sets the constant to be (name - a_base) /4. If it starts with cm_ it is assumed to be a main memory - reference and the constant is set to be namePFA +$10 (SPIN BUG? requires the +$10) - if the name is an assembler word the address is set to (a_name - a_base)/4 assembler names are not constants, they - are a different type of dictionary entry - -ParameterField - the list of addresses to execute, and literals for a forth word - - if it is a forth word one ofthe hi bit ($FE00) will be set - - assembler addresses are always < 512 - - this of course means that the ForthDictStart must have at least 512 bytes used before it, since this is only - 128 longs, and the assembler code, and forth stacks are before this, this is not an issue - - if it is an assembler word there is only 1 word and it is the assembler address - - -Generated form forth code from here on in - written in forth spin generated -*************************************************************************************************************** -*************************************************************************************************************** -*************************************************************************************************************** -}} - -ForthDictStart - - word 0 -mswHereNFA byte $87,"mswHere" -mswHerePFA word (@a_dovarw - @a_base)/4 - word $0000 - - word @mswHereNFA + $10 -mswDictendNFA byte $8A,"mswDictend" -mswDictendPFA word (@a_dovarw - @a_base)/4 - word $7FFF - - word @mswDictendNFA + $10 -mswMemendNFA byte $89,"mswMemend" -mswMemendPFA word (@a_dovarw - @a_base)/4 - word $7FFF - - word @mswMemendNFA + $10 -vxcogNFA byte $85,"vxcog" -vxcogPFA word (@a_dovarw - @a_base)/4 - word $FFFF - - word @vxcogNFA + $10 -ffcogNFA byte $85,"ffcog" -ffcogPFA word (@a_dovarw - @a_base)/4 - word $0005 - - word @ffcogNFA + $10 -lfcogNFA byte $85,"lfcog" -lfcogPFA word (@a_dovarw - @a_base)/4 - word $0006 - - word @lfcogNFA + $10 -cm_serentryNFA byte $8B,"cm_serentry" -cm_serentryPFA word (@a_doconw - @a_base)/4 - word @serentryPFA + $10 - - word @cm_serentryNFA + $10 -cm_entryNFA byte $88,"cm_entry" -cm_entryPFA word (@a_doconw - @a_base)/4 - word @entryPFA + $10 - - word @cm_entryNFA + $10 -cm_cogdataNFA byte $8A,"cm_cogdata" -cm_cogdataPFA word (@a_doconw - @a_base)/4 - word @cogdataPFA + $10 - - word @cm_cogdataNFA + $10 -cm_cqNFA byte $85,"cm_cq" -cm_cqPFA word (@a_doconw - @a_base)/4 - word @cqPFA + $10 - - word @cm_cqNFA + $10 -cm_dqNFA byte $85,"cm_dq" -cm_dqPFA word (@a_doconw - @a_base)/4 - word @dqPFA + $10 - - word @cm_dqNFA + $10 -ca_a_exitNFA byte $89,"ca_a_exit" -ca_a_exitPFA word (@a_doconw - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @ca_a_exitNFA + $10 -ca_a_dovarwNFA byte $8B,"ca_a_dovarw" -ca_a_dovarwPFA word (@a_doconw - @a_base)/4 - word (@a_dovarw - @a_base)/4 - - word @ca_a_dovarwNFA + $10 -ca_a_doconwNFA byte $8B,"ca_a_doconw" -ca_a_doconwPFA word (@a_doconw - @a_base)/4 - word (@a_doconw - @a_base)/4 - - word @ca_a_doconwNFA + $10 -ca_a_branchNFA byte $8B,"ca_a_branch" -ca_a_branchPFA word (@a_doconw - @a_base)/4 - word (@a_branch - @a_base)/4 - - word @ca_a_branchNFA + $10 -ca_a_litwNFA byte $89,"ca_a_litw" -ca_a_litwPFA word (@a_doconw - @a_base)/4 - word (@a_litw - @a_base)/4 - - word @ca_a_litwNFA + $10 -ca_a_twogtrNFA byte $88,"ca_a_2>r" -ca_a_twogtrPFA word (@a_doconw - @a_base)/4 - word (@a_twogtr - @a_base)/4 - - word @ca_a_twogtrNFA + $10 -ca_a_lparenlooprparenNFA byte $8B,"ca_a_(loop)" -ca_a_lparenlooprparenPFA word (@a_doconw - @a_base)/4 - word (@a_lparenlooprparen - @a_base)/4 - - word @ca_a_lparenlooprparenNFA + $10 -ca_a_lparenpluslooprparenNFA byte $8C,"ca_a_(+loop)" -ca_a_lparenpluslooprparenPFA word (@a_doconw - @a_base)/4 - word (@a_lparenpluslooprparen - @a_base)/4 - - word @ca_a_lparenpluslooprparenNFA + $10 -ca_a_zbranchNFA byte $8C,"ca_a_0branch" -ca_a_zbranchPFA word (@a_doconw - @a_base)/4 - word (@a_zbranch - @a_base)/4 - - word @ca_a_zbranchNFA + $10 -ca_a_dovarNFA byte $8A,"ca_a_dovar" -ca_a_dovarPFA word (@a_doconw - @a_base)/4 - word (@a_dovar - @a_base)/4 - - word @ca_a_dovarNFA + $10 -ca_a_doconNFA byte $8A,"ca_a_docon" -ca_a_doconPFA word (@a_doconw - @a_base)/4 - word (@a_docon - @a_base)/4 - - word @ca_a_doconNFA + $10 -ca_a_literalNFA byte $8C,"ca_a_literal" -ca_a_literalPFA word (@a_doconw - @a_base)/4 - word (@a_literal - @a_base)/4 - - word @ca_a_literalNFA + $10 -ca_a_debugonoffNFA byte $8F,"ca_a_debugonoff" -ca_a_debugonoffPFA word (@a_doconw - @a_base)/4 - word (@a_debugonoff - @a_base)/4 - - word @ca_a_debugonoffNFA + $10 -ca_a_resetNFA byte $8A,"ca_a_reset" -ca_a_resetPFA word (@a_doconw - @a_base)/4 - word (@a_reset - @a_base)/4 - - word @ca_a_resetNFA + $10 -ca_a_ifuncNFA byte $8A,"ca_a_ifunc" -ca_a_ifuncPFA word (@a_doconw - @a_base)/4 - word (@a_ifunc - @a_base)/4 - - word @ca_a_ifuncNFA + $10 -ca_a_ifunconeNFA byte $8B,"ca_a_ifunc1" -ca_a_ifunconePFA word (@a_doconw - @a_base)/4 - word (@a_ifuncone - @a_base)/4 - - word @ca_a_ifunconeNFA + $10 -ca_a_ifunctwoNFA byte $8B,"ca_a_ifunc2" -ca_a_ifunctwoPFA word (@a_doconw - @a_base)/4 - word (@a_ifunctwo - @a_base)/4 - - word @ca_a_ifunctwoNFA + $10 -ca_a_umstarlpNFA byte $8D,"ca_a_umstarlp" -ca_a_umstarlpPFA word (@a_doconw - @a_base)/4 - word (@a_umstarlp - @a_base)/4 - - word @ca_a_umstarlpNFA + $10 -ca_a_umslashmodlpNFA byte $91,"ca_a_umslashmodlp" -ca_a_umslashmodlpPFA word (@a_doconw - @a_base)/4 - word (@a_umslashmodlp - @a_base)/4 - - word @ca_a_umslashmodlpNFA + $10 -ca_a_cstreqlpNFA byte $8D,"ca_a_cstreqlp" -ca_a_cstreqlpPFA word (@a_doconw - @a_base)/4 - word (@a_cstreqlp - @a_base)/4 - - word @ca_a_cstreqlpNFA + $10 -ca_a_finlpNFA byte $8A,"ca_a_finlp" -ca_a_finlpPFA word (@a_doconw - @a_base)/4 - word (@a_finlp - @a_base)/4 - - word @ca_a_finlpNFA + $10 -ca_a_stPushNFA byte $8B,"ca_a_stPush" -ca_a_stPushPFA word (@a_doconw - @a_base)/4 - word (@a_stPush - @a_base)/4 - - word @ca_a_stPushNFA + $10 -ca_a_stPush_retNFA byte $8F,"ca_a_stPush_ret" -ca_a_stPush_retPFA word (@a_doconw - @a_base)/4 - word (@a_stPush_ret - @a_base)/4 - - word @ca_a_stPush_retNFA + $10 -ca_a_rsPushNFA byte $8B,"ca_a_rsPush" -ca_a_rsPushPFA word (@a_doconw - @a_base)/4 - word (@a_rsPush - @a_base)/4 - - word @ca_a_rsPushNFA + $10 -ca_a_rsPush_retNFA byte $8F,"ca_a_rsPush_ret" -ca_a_rsPush_retPFA word (@a_doconw - @a_base)/4 - word (@a_rsPush_ret - @a_base)/4 - - word @ca_a_rsPush_retNFA + $10 -ca_a_stPopNFA byte $8A,"ca_a_stPop" -ca_a_stPopPFA word (@a_doconw - @a_base)/4 - word (@a_stPop - @a_base)/4 - - word @ca_a_stPopNFA + $10 -ca_a_stPoptregNFA byte $8E,"ca_a_stPoptreg" -ca_a_stPoptregPFA word (@a_doconw - @a_base)/4 - word (@a_stPoptreg - @a_base)/4 - - word @ca_a_stPoptregNFA + $10 -ca_a_stPop_retNFA byte $8E,"ca_a_stPop_ret" -ca_a_stPop_retPFA word (@a_doconw - @a_base)/4 - word (@a_stPop_ret - @a_base)/4 - - word @ca_a_stPop_retNFA + $10 -ca_a_stPoptreg_retNFA byte $92,"ca_a_stPoptreg_ret" -ca_a_stPoptreg_retPFA word (@a_doconw - @a_base)/4 - word (@a_stPoptreg_ret - @a_base)/4 - - word @ca_a_stPoptreg_retNFA + $10 -ca_a_rsPopNFA byte $8A,"ca_a_rsPop" -ca_a_rsPopPFA word (@a_doconw - @a_base)/4 - word (@a_rsPop - @a_base)/4 - - word @ca_a_rsPopNFA + $10 -ca_a_rsPop_retNFA byte $8E,"ca_a_rsPop_ret" -ca_a_rsPop_retPFA word (@a_doconw - @a_base)/4 - word (@a_rsPop_ret - @a_base)/4 - - word @ca_a_rsPop_retNFA + $10 -ca_a_nextNFA byte $89,"ca_a_next" -ca_a_nextPFA word (@a_doconw - @a_base)/4 - word (@a_next - @a_base)/4 - - word @ca_a_nextNFA + $10 -ca_varStartNFA byte $8B,"ca_varStart" -ca_varStartPFA word (@a_doconw - @a_base)/4 - word (@varStart - @a_base)/4 - - word @ca_varStartNFA + $10 -ca_varEndNFA byte $89,"ca_varEnd" -ca_varEndPFA word (@a_doconw - @a_base)/4 - word (@varEnd - @a_base)/4 - - word @ca_varEndNFA + $10 -_cvNFA byte $83,"_cv" -_cvPFA word @ca_varStartPFA + $10 - word @plusPFA + $10 - word (@a_exit - @a_base)/4 - - word @_cvNFA + $10 -fMaskNFA byte $85,"fMask" -fMaskPFA word @zPFA + $10 - word @_cvPFA + $10 - word (@a_exit - @a_base)/4 - - word @fMaskNFA + $10 -fAddrMaskNFA byte $89,"fAddrMask" -fAddrMaskPFA word (@a_litw - @a_base)/4 - word $0001 - word @_cvPFA + $10 - word (@a_exit - @a_base)/4 - - word @fAddrMaskNFA + $10 -fLongMaskNFA byte $89,"fLongMask" -fLongMaskPFA word (@a_litw - @a_base)/4 - word $0002 - word @_cvPFA + $10 - word (@a_exit - @a_base)/4 - - word @fLongMaskNFA + $10 -resetDregNFA byte $89,"resetDreg" -resetDregPFA word (@a_litw - @a_base)/4 - word $0003 - word @_cvPFA + $10 - word (@a_exit - @a_base)/4 - - word @resetDregNFA + $10 -IPNFA byte $82,"IP" -IPPFA word (@a_litw - @a_base)/4 - word $0004 - word @_cvPFA + $10 - word (@a_exit - @a_base)/4 - - word @IPNFA + $10 -stPtrNFA byte $85,"stPtr" -stPtrPFA word (@a_litw - @a_base)/4 - word $0005 - word @_cvPFA + $10 - word (@a_exit - @a_base)/4 - - word @stPtrNFA + $10 -rsPtrNFA byte $85,"rsPtr" -rsPtrPFA word (@a_litw - @a_base)/4 - word $0006 - word @_cvPFA + $10 - word (@a_exit - @a_base)/4 - - word @rsPtrNFA + $10 -stTOSNFA byte $85,"stTOS" -stTOSPFA word (@a_litw - @a_base)/4 - word $0007 - word @_cvPFA + $10 - word (@a_exit - @a_base)/4 - - word @stTOSNFA + $10 -tregoneNFA byte $85,"treg1" -tregonePFA word (@a_litw - @a_base)/4 - word $0008 - word @_cvPFA + $10 - word (@a_exit - @a_base)/4 - - word @tregoneNFA + $10 -stBotNFA byte $85,"stBot" -stBotPFA word (@a_litw - @a_base)/4 - word $000E - word @_cvPFA + $10 - word (@a_exit - @a_base)/4 - - word @stBotNFA + $10 -stTopNFA byte $85,"stTop" -stTopPFA word (@a_litw - @a_base)/4 - word $002E - word @_cvPFA + $10 - word (@a_exit - @a_base)/4 - - word @stTopNFA + $10 -rsBotNFA byte $85,"rsBot" -rsBotPFA word @stTopPFA + $10 - word (@a_exit - @a_base)/4 - - word @rsBotNFA + $10 -rsTopNFA byte $85,"rsTop" -rsTopPFA word (@a_litw - @a_base)/4 - word $004E - word @_cvPFA + $10 - word (@a_exit - @a_base)/4 - - word @rsTopNFA + $10 -blNFA byte $82,"bl" -blPFA word (@a_doconw - @a_base)/4 - word $0020 - - word @blNFA + $10 -minusoneNFA byte $82,"-1" -minusonePFA word (@a_docon - @a_base)/4 - long $FFFFFFFF - - word @minusoneNFA + $10 -zNFA byte $81,"0" -zPFA word (@a_doconw - @a_base)/4 - word $0000 - - word @zNFA + $10 -parNFA byte $83,"par" -parPFA word (@a_doconw - @a_base)/4 - word $01F0 - - word @parNFA + $10 -cntNFA byte $83,"cnt" -cntPFA word (@a_doconw - @a_base)/4 - word $01F1 - - word @cntNFA + $10 -inaNFA byte $83,"ina" -inaPFA word (@a_doconw - @a_base)/4 - word $01F2 - - word @inaNFA + $10 -outaNFA byte $84,"outa" -outaPFA word (@a_doconw - @a_base)/4 - word $01F4 - - word @outaNFA + $10 -diraNFA byte $84,"dira" -diraPFA word (@a_doconw - @a_base)/4 - word $01F6 - - word @diraNFA + $10 -ctraNFA byte $84,"ctra" -ctraPFA word (@a_doconw - @a_base)/4 - word $01F8 - - word @ctraNFA + $10 -ctrbNFA byte $84,"ctrb" -ctrbPFA word (@a_doconw - @a_base)/4 - word $01F9 - - word @ctrbNFA + $10 -frqaNFA byte $84,"frqa" -frqaPFA word (@a_doconw - @a_base)/4 - word $01FA - - word @frqaNFA + $10 -frqbNFA byte $84,"frqb" -frqbPFA word (@a_doconw - @a_base)/4 - word $01FB - - word @frqbNFA + $10 -phsaNFA byte $84,"phsa" -phsaPFA word (@a_doconw - @a_base)/4 - word $01FC - - word @phsaNFA + $10 -phsbNFA byte $84,"phsb" -phsbPFA word (@a_doconw - @a_base)/4 - word $01FD - - word @phsbNFA + $10 -vcfgNFA byte $84,"vcfg" -vcfgPFA word (@a_doconw - @a_base)/4 - word $01FE - - word @vcfgNFA + $10 -vsclNFA byte $84,"vscl" -vsclPFA word (@a_doconw - @a_base)/4 - word $01FF - - word @vsclNFA + $10 -mswKeyTONFA byte $88,"mswKeyTO" -mswKeyTOPFA word (@a_dovarw - @a_base)/4 - word $0500 - - word @mswKeyTONFA + $10 -cnipNFA byte $C4,"cnip" -cnipPFA word @mswHerePFA + $10 - word @watPFA + $10 - word @twominusPFA + $10 - word (@a_dup - @a_base)/4 - word @watPFA + $10 - word (@a_over - @a_base)/4 - word @twominusPFA + $10 - word @wbangPFA + $10 - word @mswHerePFA + $10 - word @wbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @cnipNFA + $10 -ifuncNFA byte $05,"ifunc" -ifuncPFA word (@a_ifunc - @a_base)/4 - - word @ifuncNFA + $10 -ifunconeNFA byte $06,"ifunc1" -ifunconePFA word (@a_ifuncone - @a_base)/4 - - word @ifunconeNFA + $10 -ifunctwoNFA byte $06,"ifunc2" -ifunctwoPFA word (@a_ifunctwo - @a_base)/4 - - word @ifunctwoNFA + $10 -finNFA byte $03,"fin" -finPFA word (@a_fin - @a_base)/4 - - word @finNFA + $10 -mpxNFA byte $03,"mpx" -mpxPFA word (@a_mpx - @a_base)/4 - - word @mpxNFA + $10 -mpxlNFA byte $04,"mpxl" -mpxlPFA word (@a_mpxl - @a_base)/4 - - word @mpxlNFA + $10 -mpxhNFA byte $04,"mpxh" -mpxhPFA word (@a_mpxh - @a_base)/4 - - word @mpxhNFA + $10 -nameeqNFA byte $05,"name=" -nameeqPFA word (@a_nameeq - @a_base)/4 - - word @nameeqNFA + $10 -cstreqNFA byte $05,"cstr=" -cstreqPFA word (@a_cstreq - @a_base)/4 - - word @cstreqNFA + $10 -absNFA byte $83,"abs" -absPFA word (@a_ifuncone - @a_base)/4 - word $0151 - word (@a_exit - @a_base)/4 - - word @absNFA + $10 -andNFA byte $83,"and" -andPFA word (@a_ifunc - @a_base)/4 - word $00C1 - word (@a_exit - @a_base)/4 - - word @andNFA + $10 -andnNFA byte $84,"andn" -andnPFA word (@a_ifunc - @a_base)/4 - word $00C9 - word (@a_exit - @a_base)/4 - - word @andnNFA + $10 -bangdNFA byte $82,"!d" -bangdPFA word (@a_ifunc - @a_base)/4 - word $00A9 - word (@a_exit - @a_base)/4 - - word @bangdNFA + $10 -bangiNFA byte $82,"!i" -bangiPFA word (@a_ifunc - @a_base)/4 - word $00B1 - word (@a_exit - @a_base)/4 - - word @bangiNFA + $10 -bangsNFA byte $82,"!s" -bangsPFA word (@a_ifunc - @a_base)/4 - word $00A1 - word (@a_exit - @a_base)/4 - - word @bangsNFA + $10 -matNFA byte $82,"m@" -matPFA word (@a_ifuncone - @a_base)/4 - word $0011 - word (@a_exit - @a_base)/4 - - word @matNFA + $10 -catNFA byte $82,"c@" -catPFA word (@a_ifuncone - @a_base)/4 - word $0001 - word (@a_exit - @a_base)/4 - - word @catNFA + $10 -watNFA byte $82,"w@" -watPFA word (@a_ifuncone - @a_base)/4 - word $0009 - word (@a_exit - @a_base)/4 - - word @watNFA + $10 -atNFA byte $01,"@" -atPFA word (@a_at - @a_base)/4 - - word @atNFA + $10 -mbangNFA byte $82,"m!" -mbangPFA word (@a_ifunctwo - @a_base)/4 - word $0010 - word (@a_exit - @a_base)/4 - - word @mbangNFA + $10 -cbangNFA byte $82,"c!" -cbangPFA word (@a_ifunctwo - @a_base)/4 - word $0000 - word (@a_exit - @a_base)/4 - - word @cbangNFA + $10 -wbangNFA byte $82,"w!" -wbangPFA word (@a_ifunctwo - @a_base)/4 - word $0008 - word (@a_exit - @a_base)/4 - - word @wbangNFA + $10 -bangNFA byte $01,"!" -bangPFA word (@a_bang - @a_base)/4 - - word @bangNFA + $10 -branchNFA byte $06,"branch" -branchPFA word (@a_branch - @a_base)/4 - - word @branchNFA + $10 -hubopNFA byte $05,"hubop" -hubopPFA word (@a_hubop - @a_base)/4 - - word @hubopNFA + $10 -doconwNFA byte $06,"doconw" -doconwPFA word (@a_doconw - @a_base)/4 - - word @doconwNFA + $10 -doconNFA byte $05,"docon" -doconPFA word (@a_docon - @a_base)/4 - - word @doconNFA + $10 -dovarwNFA byte $06,"dovarw" -dovarwPFA word (@a_dovarw - @a_base)/4 - - word @dovarwNFA + $10 -dovarNFA byte $05,"dovar" -dovarPFA word (@a_dovar - @a_base)/4 - - word @dovarNFA + $10 -dropNFA byte $04,"drop" -dropPFA word (@a_drop - @a_base)/4 - - word @dropNFA + $10 -dupNFA byte $03,"dup" -dupPFA word (@a_dup - @a_base)/4 - - word @dupNFA + $10 -eqNFA byte $01,"=" -eqPFA word (@a_eq - @a_base)/4 - - word @eqNFA + $10 -exitNFA byte $04,"exit" -exitPFA word (@a_exit - @a_base)/4 - - word @exitNFA + $10 -gtNFA byte $01,">" -gtPFA word (@a_gt - @a_base)/4 - - word @gtNFA + $10 -litwNFA byte $04,"litw" -litwPFA word (@a_litw - @a_base)/4 - - word @litwNFA + $10 -literalNFA byte $07,"literal" -literalPFA word (@a_literal - @a_base)/4 - - word @literalNFA + $10 -lshiftNFA byte $86,"lshift" -lshiftPFA word (@a_ifunc - @a_base)/4 - word $0059 - word (@a_exit - @a_base)/4 - - word @lshiftNFA + $10 -ltNFA byte $01,"<" -ltPFA word (@a_lt - @a_base)/4 - - word @ltNFA + $10 -maxNFA byte $83,"max" -maxPFA word (@a_ifunc - @a_base)/4 - word $0081 - word (@a_exit - @a_base)/4 - - word @maxNFA + $10 -minNFA byte $83,"min" -minPFA word (@a_ifunc - @a_base)/4 - word $0089 - word (@a_exit - @a_base)/4 - - word @minNFA + $10 -minusNFA byte $81,"-" -minusPFA word (@a_ifunc - @a_base)/4 - word $0109 - word (@a_exit - @a_base)/4 - - word @minusNFA + $10 -orNFA byte $82,"or" -orPFA word (@a_ifunc - @a_base)/4 - word $00D1 - word (@a_exit - @a_base)/4 - - word @orNFA + $10 -overNFA byte $04,"over" -overPFA word (@a_over - @a_base)/4 - - word @overNFA + $10 -plusNFA byte $81,"+" -plusPFA word (@a_ifunc - @a_base)/4 - word $0101 - word (@a_exit - @a_base)/4 - - word @plusNFA + $10 -rotNFA byte $03,"rot" -rotPFA word (@a_rot - @a_base)/4 - - word @rotNFA + $10 -ratNFA byte $82,"r@" -ratPFA word @rsPtrPFA + $10 - word (@a_at - @a_base)/4 - word @twoplusPFA + $10 - word (@a_at - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @ratNFA + $10 -rshiftNFA byte $86,"rshift" -rshiftPFA word (@a_ifunc - @a_base)/4 - word $0051 - word (@a_exit - @a_base)/4 - - word @rshiftNFA + $10 -rashiftNFA byte $87,"rashift" -rashiftPFA word (@a_ifunc - @a_base)/4 - word $0071 - word (@a_exit - @a_base)/4 - - word @rashiftNFA + $10 -rgtNFA byte $02,"r>" -rgtPFA word (@a_rgt - @a_base)/4 - - word @rgtNFA + $10 -gtrNFA byte $02,">r" -gtrPFA word (@a_gtr - @a_base)/4 - - word @gtrNFA + $10 -twogtrNFA byte $03,"2>r" -twogtrPFA word (@a_twogtr - @a_base)/4 - - word @twogtrNFA + $10 -zbranchNFA byte $07,"0branch" -zbranchPFA word (@a_zbranch - @a_base)/4 - - word @zbranchNFA + $10 -lparenlooprparenNFA byte $06,"(loop)" -lparenlooprparenPFA word (@a_lparenlooprparen - @a_base)/4 - - word @lparenlooprparenNFA + $10 -lparenpluslooprparenNFA byte $07,"(+loop)" -lparenpluslooprparenPFA word (@a_lparenpluslooprparen - @a_base)/4 - - word @lparenpluslooprparenNFA + $10 -swapNFA byte $04,"swap" -swapPFA word (@a_swap - @a_base)/4 - - word @swapNFA + $10 -umstarNFA byte $03,"um*" -umstarPFA word (@a_umstar - @a_base)/4 - - word @umstarNFA + $10 -umslashmodNFA byte $06,"um/mod" -umslashmodPFA word (@a_umslashmod - @a_base)/4 - - word @umslashmodNFA + $10 -uslashmodNFA byte $85,"u/mod" -uslashmodPFA word @zPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_umslashmod - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @uslashmodNFA + $10 -xorNFA byte $83,"xor" -xorPFA word (@a_ifunc - @a_base)/4 - word $00D9 - word (@a_exit - @a_base)/4 - - word @xorNFA + $10 -waitcntNFA byte $87,"waitcnt" -waitcntPFA word (@a_ifunc - @a_base)/4 - word $01F1 - word (@a_exit - @a_base)/4 - - word @waitcntNFA + $10 -waitpeqNFA byte $87,"waitpeq" -waitpeqPFA word (@a_ifunctwo - @a_base)/4 - word $01E0 - word (@a_exit - @a_base)/4 - - word @waitpeqNFA + $10 -waitpneNFA byte $87,"waitpne" -waitpnePFA word (@a_ifunctwo - @a_base)/4 - word $01E8 - word (@a_exit - @a_base)/4 - - word @waitpneNFA + $10 -vfcogNFA byte $85,"vfcog" -vfcogPFA word (@a_dup - @a_base)/4 - word @ffcogPFA + $10 - word @watPFA + $10 - word @lfcogPFA + $10 - word @watPFA + $10 - word @betweenPFA + $10 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word (@a_drop - @a_base)/4 - word @ffcogPFA + $10 - word @watPFA + $10 - word (@a_exit - @a_base)/4 - - word @vfcogNFA + $10 -rebootNFA byte $86,"reboot" -rebootPFA word (@a_litw - @a_base)/4 - word $00FF - word @zPFA + $10 - word (@a_hubop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @rebootNFA + $10 -cogstopNFA byte $87,"cogstop" -cogstopPFA word (@a_litw - @a_base)/4 - word $0003 - word (@a_hubop - @a_base)/4 - word @twodropPFA + $10 - word (@a_exit - @a_base)/4 - - word @cogstopNFA + $10 -cogresetNFA byte $88,"cogreset" -cogresetPFA word (@a_litw - @a_base)/4 - word $0007 - word @andPFA + $10 - word (@a_dup - @a_base)/4 - word @cogstopPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_dup - @a_base)/4 - word @cogdPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0100 - word @zPFA + $10 - word @fillPFA + $10 - word (@a_litw - @a_base)/4 - word $0010 - word @lshiftPFA + $10 - word @cm_entryPFA + $10 - word (@a_litw - @a_base)/4 - word $0002 - word @lshiftPFA + $10 - word @orPFA + $10 - word @orPFA + $10 - word (@a_litw - @a_base)/4 - word $0002 - word (@a_hubop - @a_base)/4 - word @twodropPFA + $10 - word @cogDebugvaluePFA + $10 - word (@a_litw - @a_base)/4 - word $8000 - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word (@a_dup - @a_base)/4 - word @matPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0004 - word @leavePFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF4 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @cogresetNFA + $10 -resetNFA byte $85,"reset" -resetPFA word @mydictlockPFA + $10 - word @watPFA + $10 - word @zgtPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000C - word (@a_litw - @a_base)/4 - word $0001 - word @mydictlockPFA + $10 - word @wbangPFA + $10 - word @freedictPFA + $10 - word @cogidPFA + $10 - word @cogresetPFA + $10 - word (@a_exit - @a_base)/4 - - word @resetNFA + $10 -disioNFA byte $85,"disio" -disioPFA word @cogEmitptrPFA + $10 - word @zPFA + $10 - word (@a_swap - @a_base)/4 - word @wbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @disioNFA + $10 -connioNFA byte $86,"connio" -connioPFA word (@a_litw - @a_base)/4 - word $0007 - word @andPFA + $10 - word @cogInbytePFA + $10 - word (@a_swap - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0007 - word @andPFA + $10 - word @cogEmitptrPFA + $10 - word @wbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @connioNFA + $10 -gtcogNFA byte $84,">cog" -gtcogPFA word @cogCONPFA + $10 - word @watPFA + $10 - word @disioPFA + $10 - word @inCONPFA + $10 - word (@a_over - @a_base)/4 - word @cogEmitptrPFA + $10 - word @wbangPFA + $10 - word (@a_dup - @a_base)/4 - word @cogInbytePFA + $10 - word @outCONPFA + $10 - word @wbangPFA + $10 - word @cogCONPFA + $10 - word @wbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @gtcogNFA + $10 -cogCONNFA byte $86,"cogCON" -cogCONPFA word (@a_dovarw - @a_base)/4 - word $0006 - - word @cogCONNFA + $10 -inCONNFA byte $85,"inCON" -inCONPFA word (@a_dovarw - @a_base)/4 - word $0100 - - word @inCONNFA + $10 -outCONNFA byte $86,"outCON" -outCONPFA word (@a_dovarw - @a_base)/4 - word $0000 - - word @outCONNFA + $10 -ctlCONNFA byte $86,"ctlCON" -ctlCONPFA word (@a_dovarw - @a_base)/4 - word $0000 - - word @ctlCONNFA + $10 -clkfreqNFA byte $87,"clkfreq" -clkfreqPFA word @zPFA + $10 - word @matPFA + $10 - word (@a_exit - @a_base)/4 - - word @clkfreqNFA + $10 -paratNFA byte $85,"parat" -paratPFA word @parPFA + $10 - word (@a_at - @a_base)/4 - word @plusPFA + $10 - word (@a_exit - @a_base)/4 - - word @paratNFA + $10 -cogdNFA byte $84,"cogd" -cogdPFA word (@a_litw - @a_base)/4 - word $0007 - word @andPFA + $10 - word (@a_litw - @a_base)/4 - word $0008 - word @lshiftPFA + $10 - word @cm_cogdataPFA + $10 - word @plusPFA + $10 - word (@a_exit - @a_base)/4 - - word @cogdNFA + $10 -mcwInbyteNFA byte $89,"mcwInbyte" -mcwInbytePFA word @zPFA + $10 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcwInbyteNFA + $10 -cogInbyteNFA byte $89,"cogInbyte" -cogInbytePFA word @cogdPFA + $10 - word (@a_exit - @a_base)/4 - - word @cogInbyteNFA + $10 -mcwEmitptrNFA byte $8A,"mcwEmitptr" -mcwEmitptrPFA word (@a_litw - @a_base)/4 - word $0002 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcwEmitptrNFA + $10 -cogEmitptrNFA byte $8A,"cogEmitptr" -cogEmitptrPFA word @cogdPFA + $10 - word @twoplusPFA + $10 - word (@a_exit - @a_base)/4 - - word @cogEmitptrNFA + $10 -mcwStateNFA byte $88,"mcwState" -mcwStatePFA word (@a_litw - @a_base)/4 - word $0004 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcwStateNFA + $10 -compileqNFA byte $88,"compile?" -compileqPFA word @mcwStatePFA + $10 - word @watPFA + $10 - word @zltgtPFA + $10 - word (@a_exit - @a_base)/4 - - word @compileqNFA + $10 -mcwDebugcmdNFA byte $8B,"mcwDebugcmd" -mcwDebugcmdPFA word (@a_litw - @a_base)/4 - word $0006 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcwDebugcmdNFA + $10 -cogDebugcmdNFA byte $8B,"cogDebugcmd" -cogDebugcmdPFA word @cogdPFA + $10 - word (@a_litw - @a_base)/4 - word $0006 - word @plusPFA + $10 - word (@a_exit - @a_base)/4 - - word @cogDebugcmdNFA + $10 -mcwDebugvalueNFA byte $8D,"mcwDebugvalue" -mcwDebugvaluePFA word (@a_litw - @a_base)/4 - word $0008 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcwDebugvalueNFA + $10 -cogDebugvalueNFA byte $8D,"cogDebugvalue" -cogDebugvaluePFA word @cogdPFA + $10 - word (@a_litw - @a_base)/4 - word $0008 - word @plusPFA + $10 - word (@a_exit - @a_base)/4 - - word @cogDebugvalueNFA + $10 -mcwBaseNFA byte $87,"mcwBase" -mcwBasePFA word (@a_litw - @a_base)/4 - word $000C - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcwBaseNFA + $10 -mcwAhereNFA byte $88,"mcwAhere" -mcwAherePFA word (@a_litw - @a_base)/4 - word $000E - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcwAhereNFA + $10 -execwordNFA byte $88,"execword" -execwordPFA word (@a_litw - @a_base)/4 - word $0010 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @execwordNFA + $10 -executeNFA byte $87,"execute" -executePFA word (@a_dup - @a_base)/4 - word @fMaskPFA + $10 - word (@a_at - @a_base)/4 - word @andPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000A - word @IPPFA + $10 - word (@a_bang - @a_base)/4 - word (@a_branch - @a_base)/4 - word $0014 - word @execwordPFA + $10 - word @wbangPFA + $10 - word @ca_a_exitPFA + $10 - word @execwordPFA + $10 - word @twoplusPFA + $10 - word @wbangPFA + $10 - word @execwordPFA + $10 - word @IPPFA + $10 - word (@a_bang - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @executeNFA + $10 -mcwgtoutNFA byte $87,"mcw>out" -mcwgtoutPFA word (@a_litw - @a_base)/4 - word $0014 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcwgtoutNFA + $10 -mcwgtinNFA byte $86,"mcw>in" -mcwgtinPFA word (@a_litw - @a_base)/4 - word $0016 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcwgtinNFA + $10 -mydictlockNFA byte $8A,"mydictlock" -mydictlockPFA word (@a_litw - @a_base)/4 - word $0018 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mydictlockNFA + $10 -mcwFsliceptrNFA byte $8C,"mcwFsliceptr" -mcwFsliceptrPFA word (@a_litw - @a_base)/4 - word $001A - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcwFsliceptrNFA + $10 -mcLastcntNFA byte $89,"mcLastcnt" -mcLastcntPFA word (@a_litw - @a_base)/4 - word $001C - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcLastcntNFA + $10 -mcFslicecntNFA byte $8B,"mcFslicecnt" -mcFslicecntPFA word (@a_litw - @a_base)/4 - word $0020 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcFslicecntNFA + $10 -_fSlicerNFA byte $88,"_fSlicer" -_fSlicerPFA word @cntPFA + $10 - word (@a_at - @a_base)/4 - word (@a_dup - @a_base)/4 - word @mcLastcntPFA + $10 - word @matPFA + $10 - word @plusPFA + $10 - word @mcFslicecntPFA + $10 - word @matPFA + $10 - word @maxPFA + $10 - word @mcFslicecntPFA + $10 - word @mbangPFA + $10 - word @negatePFA + $10 - word @mcLastcntPFA + $10 - word @mbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @_fSlicerNFA + $10 -_fSliceNFA byte $87,"_fSlice" -_fSlicePFA word @mcwFsliceptrPFA + $10 - word @watPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0008 - word @executePFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @_fSliceNFA + $10 -mcPadNFA byte $85,"mcPad" -mcPadPFA word (@a_litw - @a_base)/4 - word $0024 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcPadNFA + $10 -cogPadNFA byte $86,"cogPad" -cogPadPFA word @cogdPFA + $10 - word (@a_litw - @a_base)/4 - word $0024 - word @plusPFA + $10 - word (@a_exit - @a_base)/4 - - word @cogPadNFA + $10 -_pclrNFA byte $85,"_pclr" -_pclrPFA word (@a_dup - @a_base)/4 - word @padsizePFA + $10 - word @plusPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_twogtr - @a_base)/4 - word (@a_literal - @a_base)/4 - long $20202020 - word @iPFA + $10 - word @mbangPFA + $10 - word (@a_litw - @a_base)/4 - word $0004 - word (@a_lparenpluslooprparen - @a_base)/4 - word $FFF0 - word (@a_exit - @a_base)/4 - - word @_pclrNFA + $10 -cogPadclrNFA byte $89,"cogPadclr" -cogPadclrPFA word @cogPadPFA + $10 - word @_pclrPFA + $10 - word (@a_exit - @a_base)/4 - - word @cogPadclrNFA + $10 -padgtinNFA byte $86,"pad>in" -padgtinPFA word @mcwgtinPFA + $10 - word @watPFA + $10 - word @mcPadPFA + $10 - word @plusPFA + $10 - word (@a_exit - @a_base)/4 - - word @padgtinNFA + $10 -namemaxNFA byte $87,"namemax" -namemaxPFA word (@a_litw - @a_base)/4 - word $001F - word (@a_exit - @a_base)/4 - - word @namemaxNFA + $10 -padsizeNFA byte $87,"padsize" -padsizePFA word (@a_litw - @a_base)/4 - word $0080 - word (@a_exit - @a_base)/4 - - word @padsizeNFA + $10 -mcwTzNFA byte $85,"mcwT0" -mcwTzPFA word (@a_litw - @a_base)/4 - word $00A4 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcwTzNFA + $10 -mcwToneNFA byte $85,"mcwT1" -mcwTonePFA word (@a_litw - @a_base)/4 - word $00A6 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcwToneNFA + $10 -mcTNFA byte $83,"mcT" -mcTPFA word (@a_litw - @a_base)/4 - word $00A8 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcTNFA + $10 -mcNumpadNFA byte $88,"mcNumpad" -mcNumpadPFA word (@a_litw - @a_base)/4 - word $00C0 - word @paratPFA + $10 - word (@a_exit - @a_base)/4 - - word @mcNumpadNFA + $10 -padgtoutNFA byte $87,"pad>out" -padgtoutPFA word @mcwgtoutPFA + $10 - word @watPFA + $10 - word @mcNumpadPFA + $10 - word @plusPFA + $10 - word (@a_exit - @a_base)/4 - - word @padgtoutNFA + $10 -numpadsizeNFA byte $8A,"numpadsize" -numpadsizePFA word (@a_litw - @a_base)/4 - word $0030 - word (@a_exit - @a_base)/4 - - word @numpadsizeNFA + $10 -keytoNFA byte $85,"keyto" -keytoPFA word @zPFA + $10 - word @mswKeyTOPFA + $10 - word @watPFA + $10 - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word @keyqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000A - word (@a_drop - @a_base)/4 - word @keyPFA + $10 - word @minusonePFA + $10 - word @leavePFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF0 - word (@a_exit - @a_base)/4 - - word @keytoNFA + $10 -emitqNFA byte $85,"emit?" -emitqPFA word @_fSlicePFA + $10 - word @mcwEmitptrPFA + $10 - word @watPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0010 - word @watPFA + $10 - word (@a_litw - @a_base)/4 - word $0100 - word @andPFA + $10 - word @zltgtPFA + $10 - word (@a_branch - @a_base)/4 - word $0006 - word (@a_drop - @a_base)/4 - word @minusonePFA + $10 - word (@a_exit - @a_base)/4 - - word @emitqNFA + $10 -emitNFA byte $84,"emit" -emitPFA word @emitqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFFC - word (@a_litw - @a_base)/4 - word $00FF - word @andPFA + $10 - word @mcwEmitptrPFA + $10 - word @watPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0008 - word @wbangPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @twodropPFA + $10 - word (@a_exit - @a_base)/4 - - word @emitNFA + $10 -keyqNFA byte $84,"key?" -keyqPFA word @_fSlicePFA + $10 - word @mcwInbytePFA + $10 - word @watPFA + $10 - word (@a_litw - @a_base)/4 - word $0100 - word @andPFA + $10 - word @zeqPFA + $10 - word (@a_exit - @a_base)/4 - - word @keyqNFA + $10 -keyNFA byte $83,"key" -keyPFA word @keyqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFFC - word @mcwInbytePFA + $10 - word @watPFA + $10 - word (@a_litw - @a_base)/4 - word $0100 - word @mcwInbytePFA + $10 - word @wbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @keyNFA + $10 -fkeyqNFA byte $85,"fkey?" -fkeyqPFA word @mcwInbytePFA + $10 - word @watPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0100 - word @andPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word @zPFA + $10 - word (@a_branch - @a_base)/4 - word $000C - word (@a_litw - @a_base)/4 - word $0100 - word @mcwInbytePFA + $10 - word @wbangPFA + $10 - word @minusonePFA + $10 - word (@a_exit - @a_base)/4 - - word @fkeyqNFA + $10 -nipNFA byte $83,"nip" -nipPFA word (@a_swap - @a_base)/4 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @nipNFA + $10 -tuckNFA byte $84,"tuck" -tuckPFA word (@a_swap - @a_base)/4 - word (@a_over - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @tuckNFA + $10 -twodupNFA byte $84,"2dup" -twodupPFA word (@a_over - @a_base)/4 - word (@a_over - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @twodupNFA + $10 -twodropNFA byte $85,"2drop" -twodropPFA word (@a_drop - @a_base)/4 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @twodropNFA + $10 -threedropNFA byte $85,"3drop" -threedropPFA word (@a_drop - @a_base)/4 - word (@a_drop - @a_base)/4 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @threedropNFA + $10 -uslashNFA byte $82,"u/" -uslashPFA word @uslashmodPFA + $10 - word @nipPFA + $10 - word (@a_exit - @a_base)/4 - - word @uslashNFA + $10 -ustarNFA byte $82,"u*" -ustarPFA word (@a_umstar - @a_base)/4 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @ustarNFA + $10 -invertNFA byte $86,"invert" -invertPFA word @minusonePFA + $10 - word @xorPFA + $10 - word (@a_exit - @a_base)/4 - - word @invertNFA + $10 -negateNFA byte $86,"negate" -negatePFA word (@a_ifuncone - @a_base)/4 - word $0149 - word (@a_exit - @a_base)/4 - - word @negateNFA + $10 -zeqNFA byte $82,"0=" -zeqPFA word @zPFA + $10 - word (@a_eq - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @zeqNFA + $10 -ltgtNFA byte $82,"<>" -ltgtPFA word (@a_eq - @a_base)/4 - word @invertPFA + $10 - word (@a_exit - @a_base)/4 - - word @ltgtNFA + $10 -zltgtNFA byte $83,"0<>" -zltgtPFA word @zeqPFA + $10 - word @invertPFA + $10 - word (@a_exit - @a_base)/4 - - word @zltgtNFA + $10 -zltNFA byte $82,"0<" -zltPFA word @zPFA + $10 - word (@a_lt - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @zltNFA + $10 -zgtNFA byte $82,"0>" -zgtPFA word @zPFA + $10 - word (@a_gt - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @zgtNFA + $10 -oneplusNFA byte $82,"1+" -oneplusPFA word (@a_litw - @a_base)/4 - word $0001 - word @plusPFA + $10 - word (@a_exit - @a_base)/4 - - word @oneplusNFA + $10 -oneminusNFA byte $82,"1-" -oneminusPFA word (@a_litw - @a_base)/4 - word $0001 - word @minusPFA + $10 - word (@a_exit - @a_base)/4 - - word @oneminusNFA + $10 -twoplusNFA byte $82,"2+" -twoplusPFA word (@a_litw - @a_base)/4 - word $0002 - word @plusPFA + $10 - word (@a_exit - @a_base)/4 - - word @twoplusNFA + $10 -fourplusNFA byte $82,"4+" -fourplusPFA word (@a_litw - @a_base)/4 - word $0004 - word @plusPFA + $10 - word (@a_exit - @a_base)/4 - - word @fourplusNFA + $10 -twominusNFA byte $82,"2-" -twominusPFA word (@a_litw - @a_base)/4 - word $0002 - word @minusPFA + $10 - word (@a_exit - @a_base)/4 - - word @twominusNFA + $10 -twostarNFA byte $82,"2*" -twostarPFA word (@a_litw - @a_base)/4 - word $0001 - word @lshiftPFA + $10 - word (@a_exit - @a_base)/4 - - word @twostarNFA + $10 -twoslashNFA byte $82,"2/" -twoslashPFA word (@a_litw - @a_base)/4 - word $0001 - word @rashiftPFA + $10 - word (@a_exit - @a_base)/4 - - word @twoslashNFA + $10 -rottwoNFA byte $84,"rot2" -rottwoPFA word (@a_rot - @a_base)/4 - word (@a_rot - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @rottwoNFA + $10 -gteqNFA byte $82,">=" -gteqPFA word @twodupPFA + $10 - word (@a_gt - @a_base)/4 - word @rottwoPFA + $10 - word (@a_eq - @a_base)/4 - word @orPFA + $10 - word (@a_exit - @a_base)/4 - - word @gteqNFA + $10 -lteqNFA byte $82,"<=" -lteqPFA word @twodupPFA + $10 - word (@a_lt - @a_base)/4 - word @rottwoPFA + $10 - word (@a_eq - @a_base)/4 - word @orPFA + $10 - word (@a_exit - @a_base)/4 - - word @lteqNFA + $10 -zgteqNFA byte $83,"0>=" -zgteqPFA word (@a_dup - @a_base)/4 - word @zPFA + $10 - word (@a_gt - @a_base)/4 - word (@a_swap - @a_base)/4 - word @zeqPFA + $10 - word @orPFA + $10 - word (@a_exit - @a_base)/4 - - word @zgteqNFA + $10 -wplusbangNFA byte $83,"w+!" -wplusbangPFA word (@a_dup - @a_base)/4 - word @watPFA + $10 - word (@a_rot - @a_base)/4 - word @plusPFA + $10 - word (@a_swap - @a_base)/4 - word @wbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @wplusbangNFA + $10 -orcbangNFA byte $84,"orc!" -orcbangPFA word (@a_dup - @a_base)/4 - word @catPFA + $10 - word (@a_rot - @a_base)/4 - word @orPFA + $10 - word (@a_swap - @a_base)/4 - word @cbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @orcbangNFA + $10 -andcbangNFA byte $85,"andc!" -andcbangPFA word (@a_dup - @a_base)/4 - word @catPFA + $10 - word (@a_rot - @a_base)/4 - word @andPFA + $10 - word (@a_swap - @a_base)/4 - word @cbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @andcbangNFA + $10 -betweenNFA byte $87,"between" -betweenPFA word @rottwoPFA + $10 - word (@a_over - @a_base)/4 - word @lteqPFA + $10 - word @rottwoPFA + $10 - word @gteqPFA + $10 - word @andPFA + $10 - word (@a_exit - @a_base)/4 - - word @betweenNFA + $10 -crNFA byte $82,"cr" -crPFA word (@a_litw - @a_base)/4 - word $000D - word @emitPFA + $10 - word (@a_exit - @a_base)/4 - - word @crNFA + $10 -spaceNFA byte $85,"space" -spacePFA word @blPFA + $10 - word @emitPFA + $10 - word (@a_exit - @a_base)/4 - - word @spaceNFA + $10 -spacesNFA byte $86,"spaces" -spacesPFA word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0010 - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word @spacePFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFFC - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @spacesNFA + $10 -dothexNFA byte $84,".hex" -dothexPFA word (@a_litw - @a_base)/4 - word $000F - word @andPFA + $10 - word (@a_litw - @a_base)/4 - word $0030 - word @plusPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0039 - word (@a_gt - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0008 - word (@a_litw - @a_base)/4 - word $0007 - word @plusPFA + $10 - word @emitPFA + $10 - word (@a_exit - @a_base)/4 - - word @dothexNFA + $10 -dotbyteNFA byte $85,".byte" -dotbytePFA word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0004 - word @rshiftPFA + $10 - word @dothexPFA + $10 - word @dothexPFA + $10 - word (@a_exit - @a_base)/4 - - word @dotbyteNFA + $10 -dotwordNFA byte $85,".word" -dotwordPFA word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0008 - word @rshiftPFA + $10 - word @dotbytePFA + $10 - word @dotbytePFA + $10 - word (@a_exit - @a_base)/4 - - word @dotwordNFA + $10 -dotlongNFA byte $85,".long" -dotlongPFA word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0010 - word @rshiftPFA + $10 - word @dotwordPFA + $10 - word @dotwordPFA + $10 - word (@a_exit - @a_base)/4 - - word @dotlongNFA + $10 -boundsNFA byte $86,"bounds" -boundsPFA word (@a_over - @a_base)/4 - word @plusPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @boundsNFA + $10 -alignlNFA byte $86,"alignl" -alignlPFA word (@a_litw - @a_base)/4 - word $0003 - word @plusPFA + $10 - word (@a_literal - @a_base)/4 - long $FFFFFFFC - word @andPFA + $10 - word (@a_exit - @a_base)/4 - - word @alignlNFA + $10 -alignwNFA byte $86,"alignw" -alignwPFA word @oneplusPFA + $10 - word (@a_literal - @a_base)/4 - long $FFFFFFFE - word @andPFA + $10 - word (@a_exit - @a_base)/4 - - word @alignwNFA + $10 -catplusplusNFA byte $84,"c@++" -catplusplusPFA word (@a_dup - @a_base)/4 - word @catPFA + $10 - word (@a_swap - @a_base)/4 - word @oneplusPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @catplusplusNFA + $10 -ctolowerNFA byte $88,"ctolower" -ctolowerPFA word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0041 - word (@a_litw - @a_base)/4 - word $005A - word @betweenPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word (@a_litw - @a_base)/4 - word $0020 - word @orPFA + $10 - word (@a_exit - @a_base)/4 - - word @ctolowerNFA + $10 -ctoupperNFA byte $88,"ctoupper" -ctoupperPFA word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0061 - word (@a_litw - @a_base)/4 - word $007A - word @betweenPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word (@a_litw - @a_base)/4 - word $00DF - word @andPFA + $10 - word (@a_exit - @a_base)/4 - - word @ctoupperNFA + $10 -todigitNFA byte $87,"todigit" -todigitPFA word @ctoupperPFA + $10 - word (@a_litw - @a_base)/4 - word $0030 - word @minusPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0009 - word (@a_gt - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0016 - word (@a_litw - @a_base)/4 - word $0007 - word @minusPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $000A - word (@a_lt - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0004 - word @minusonePFA + $10 - word (@a_exit - @a_base)/4 - - word @todigitNFA + $10 -isdigitNFA byte $87,"isdigit" -isdigitPFA word @todigitPFA + $10 - word (@a_dup - @a_base)/4 - word @zgteqPFA + $10 - word (@a_swap - @a_base)/4 - word @mcwBasePFA + $10 - word @watPFA + $10 - word (@a_lt - @a_base)/4 - word @andPFA + $10 - word (@a_exit - @a_base)/4 - - word @isdigitNFA + $10 -isunumberNFA byte $89,"isunumber" -isunumberPFA word @boundsPFA + $10 - word @minusonePFA + $10 - word @rottwoPFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word @catPFA + $10 - word @isdigitPFA + $10 - word @andPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF6 - word (@a_exit - @a_base)/4 - - word @isunumberNFA + $10 -unumberNFA byte $87,"unumber" -unumberPFA word @boundsPFA + $10 - word @zPFA + $10 - word @rottwoPFA + $10 - word (@a_twogtr - @a_base)/4 - word @mcwBasePFA + $10 - word @watPFA + $10 - word @ustarPFA + $10 - word @iPFA + $10 - word @catPFA + $10 - word @todigitPFA + $10 - word @plusPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF0 - word (@a_exit - @a_base)/4 - - word @unumberNFA + $10 -numberNFA byte $86,"number" -numberPFA word (@a_over - @a_base)/4 - word @catPFA + $10 - word (@a_litw - @a_base)/4 - word $002D - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0016 - word @oneminusPFA + $10 - word @zPFA + $10 - word @maxPFA + $10 - word (@a_swap - @a_base)/4 - word @oneplusPFA + $10 - word (@a_swap - @a_base)/4 - word @unumberPFA + $10 - word @negatePFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @unumberPFA + $10 - word (@a_exit - @a_base)/4 - - word @numberNFA + $10 -isnumberNFA byte $88,"isnumber" -isnumberPFA word (@a_over - @a_base)/4 - word @catPFA + $10 - word (@a_litw - @a_base)/4 - word $002D - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $000E - word @oneminusPFA + $10 - word @zPFA + $10 - word @maxPFA + $10 - word (@a_swap - @a_base)/4 - word @oneplusPFA + $10 - word (@a_swap - @a_base)/4 - word @isunumberPFA + $10 - word (@a_exit - @a_base)/4 - - word @isnumberNFA + $10 -dotstrNFA byte $84,".str" -dotstrPFA word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0020 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word @catPFA + $10 - word (@a_litw - @a_base)/4 - word $0020 - word @maxPFA + $10 - word (@a_litw - @a_base)/4 - word $007F - word @minPFA + $10 - word @emitPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFEC - word (@a_branch - @a_base)/4 - word $0004 - word @twodropPFA + $10 - word (@a_exit - @a_base)/4 - - word @dotstrNFA + $10 -npfxNFA byte $84,"npfx" -npfxPFA word @namelenPFA + $10 - word (@a_rot - @a_base)/4 - word @namelenPFA + $10 - word (@a_rot - @a_base)/4 - word @twodupPFA + $10 - word (@a_gt - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0024 - word @minPFA + $10 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word @catplusplusPFA + $10 - word @iPFA + $10 - word @catPFA + $10 - word @ltgtPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word (@a_drop - @a_base)/4 - word @zPFA + $10 - word @leavePFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFEC - word @zltgtPFA + $10 - word (@a_branch - @a_base)/4 - word $0008 - word @twodropPFA + $10 - word @twodropPFA + $10 - word @zPFA + $10 - word (@a_exit - @a_base)/4 - - word @npfxNFA + $10 -namelenNFA byte $87,"namelen" -namelenPFA word @catplusplusPFA + $10 - word @namemaxPFA + $10 - word @andPFA + $10 - word (@a_exit - @a_base)/4 - - word @namelenNFA + $10 -cmoveNFA byte $85,"cmove" -cmovePFA word (@a_dup - @a_base)/4 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word @threedropPFA + $10 - word (@a_branch - @a_base)/4 - word $0010 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word @catplusplusPFA + $10 - word @iPFA + $10 - word @cbangPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF8 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @cmoveNFA + $10 -namecopyNFA byte $88,"namecopy" -namecopyPFA word (@a_over - @a_base)/4 - word @namelenPFA + $10 - word @oneplusPFA + $10 - word @nipPFA + $10 - word @cmovePFA + $10 - word (@a_exit - @a_base)/4 - - word @namecopyNFA + $10 -ccopyNFA byte $85,"ccopy" -ccopyPFA word (@a_over - @a_base)/4 - word @catPFA + $10 - word @oneplusPFA + $10 - word @cmovePFA + $10 - word (@a_exit - @a_base)/4 - - word @ccopyNFA + $10 -cappendNFA byte $87,"cappend" -cappendPFA word (@a_dup - @a_base)/4 - word (@a_dup - @a_base)/4 - word @catPFA + $10 - word @plusPFA + $10 - word @oneplusPFA + $10 - word @rottwoPFA + $10 - word (@a_over - @a_base)/4 - word @catPFA + $10 - word (@a_over - @a_base)/4 - word @catPFA + $10 - word @plusPFA + $10 - word (@a_swap - @a_base)/4 - word @cbangPFA + $10 - word (@a_dup - @a_base)/4 - word @catPFA + $10 - word (@a_swap - @a_base)/4 - word @oneplusPFA + $10 - word @rottwoPFA + $10 - word @cmovePFA + $10 - word (@a_exit - @a_base)/4 - - word @cappendNFA + $10 -cappendcNFA byte $88,"cappendc" -cappendcPFA word (@a_dup - @a_base)/4 - word @catPFA + $10 - word @oneplusPFA + $10 - word (@a_over - @a_base)/4 - word @cbangPFA + $10 - word (@a_dup - @a_base)/4 - word @catPFA + $10 - word @plusPFA + $10 - word @cbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @cappendcNFA + $10 -cappendnNFA byte $88,"cappendn" -cappendnPFA word (@a_swap - @a_base)/4 - word @lthashPFA + $10 - word @hashsPFA + $10 - word @hashgtPFA + $10 - word (@a_swap - @a_base)/4 - word @cappendPFA + $10 - word (@a_exit - @a_base)/4 - - word @cappendnNFA + $10 -cappendncNFA byte $89,"cappendnc" -cappendncPFA word (@a_swap - @a_base)/4 - word @lthashPFA + $10 - word @hashsPFA + $10 - word @hashgtPFA + $10 - word (@a_over - @a_base)/4 - word @cappendPFA + $10 - word @blPFA + $10 - word (@a_swap - @a_base)/4 - word @cappendcPFA + $10 - word (@a_exit - @a_base)/4 - - word @cappendncNFA + $10 -cogXNFA byte $84,"cogX" -cogXPFA word @vfcogPFA + $10 - word (@a_dup - @a_base)/4 - word @cogInbytePFA + $10 - word (@a_dup - @a_base)/4 - word @watPFA + $10 - word (@a_litw - @a_base)/4 - word $0100 - word @andPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFF4 - word @rottwoPFA + $10 - word (@a_dup - @a_base)/4 - word @cogPadclrPFA + $10 - word @cogPadPFA + $10 - word @oneplusPFA + $10 - word (@a_swap - @a_base)/4 - word @catplusplusPFA + $10 - word (@a_rot - @a_base)/4 - word (@a_swap - @a_base)/4 - word @cmovePFA + $10 - word (@a_litw - @a_base)/4 - word $000D - word (@a_swap - @a_base)/4 - word @wbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @cogXNFA + $10 -cogXONFA byte $85,"cogXO" -cogXOPFA word @zPFA + $10 - word @outCONPFA + $10 - word @wbangPFA + $10 - word @cogidPFA + $10 - word (@a_dup - @a_base)/4 - word @oneplusPFA + $10 - word @vfcogPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_rot - @a_base)/4 - word @connioPFA + $10 - word @cogXPFA + $10 - word (@a_exit - @a_base)/4 - - word @cogXONFA + $10 -qqqNFA byte $83,"???" -qqqPFA word @dqPFA + $10 - byte $03,"???" - word (@a_exit - @a_base)/4 - - word @qqqNFA + $10 -dotstrnameNFA byte $88,".strname" -dotstrnamePFA word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $000A - word @namelenPFA + $10 - word @dotstrPFA + $10 - word (@a_branch - @a_base)/4 - word $0006 - word (@a_drop - @a_base)/4 - word @qqqPFA + $10 - word (@a_exit - @a_base)/4 - - word @dotstrnameNFA + $10 -dotcstrNFA byte $85,".cstr" -dotcstrPFA word @catplusplusPFA + $10 - word @dotstrPFA + $10 - word (@a_exit - @a_base)/4 - - word @dotcstrNFA + $10 -dqNFA byte $82,"dq" -dqPFA word (@a_rgt - @a_base)/4 - word @catplusplusPFA + $10 - word @twodupPFA + $10 - word @plusPFA + $10 - word @alignwPFA + $10 - word (@a_gtr - @a_base)/4 - word @dotstrPFA + $10 - word (@a_exit - @a_base)/4 - - word @dqNFA + $10 -iNFA byte $81,"i" -iPFA word @rsPtrPFA + $10 - word (@a_at - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0003 - word @plusPFA + $10 - word (@a_at - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @iNFA + $10 -jNFA byte $81,"j" -jPFA word @rsPtrPFA + $10 - word (@a_at - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0005 - word @plusPFA + $10 - word (@a_at - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @jNFA + $10 -iboundNFA byte $86,"ibound" -iboundPFA word @rsPtrPFA + $10 - word (@a_at - @a_base)/4 - word @twoplusPFA + $10 - word (@a_at - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @iboundNFA + $10 -jboundNFA byte $86,"jbound" -jboundPFA word @rsPtrPFA + $10 - word (@a_at - @a_base)/4 - word @fourplusPFA + $10 - word (@a_at - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @jboundNFA + $10 -lastiqNFA byte $86,"lasti?" -lastiqPFA word @rsPtrPFA + $10 - word (@a_at - @a_base)/4 - word @twoplusPFA + $10 - word (@a_at - @a_base)/4 - word @oneminusPFA + $10 - word @rsPtrPFA + $10 - word (@a_at - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0003 - word @plusPFA + $10 - word (@a_at - @a_base)/4 - word (@a_eq - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @lastiqNFA + $10 -lastjqNFA byte $86,"lastj?" -lastjqPFA word @rsPtrPFA + $10 - word (@a_at - @a_base)/4 - word @fourplusPFA + $10 - word (@a_at - @a_base)/4 - word @oneminusPFA + $10 - word @rsPtrPFA + $10 - word (@a_at - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0005 - word @plusPFA + $10 - word (@a_at - @a_base)/4 - word (@a_eq - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @lastjqNFA + $10 -setiNFA byte $84,"seti" -setiPFA word @rsPtrPFA + $10 - word (@a_at - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0003 - word @plusPFA + $10 - word (@a_bang - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @setiNFA + $10 -setjNFA byte $84,"setj" -setjPFA word @rsPtrPFA + $10 - word (@a_at - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0005 - word @plusPFA + $10 - word (@a_bang - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @setjNFA + $10 -eolqNFA byte $84,"eol?" -eolqPFA word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $000A - word (@a_eq - @a_base)/4 - word (@a_over - @a_base)/4 - word (@a_litw - @a_base)/4 - word $000D - word (@a_eq - @a_base)/4 - word @orPFA + $10 - word (@a_exit - @a_base)/4 - - word @eolqNFA + $10 -bsqNFA byte $83,"bs?" -bsqPFA word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0008 - word (@a_eq - @a_base)/4 - word (@a_over - @a_base)/4 - word (@a_litw - @a_base)/4 - word $007F - word (@a_eq - @a_base)/4 - word @orPFA + $10 - word (@a_exit - @a_base)/4 - - word @bsqNFA + $10 -fillNFA byte $84,"fill" -fillPFA word @rottwoPFA + $10 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word (@a_dup - @a_base)/4 - word @iPFA + $10 - word @cbangPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF8 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @fillNFA + $10 -nfagtlfaNFA byte $87,"nfa>lfa" -nfagtlfaPFA word @twominusPFA + $10 - word (@a_exit - @a_base)/4 - - word @nfagtlfaNFA + $10 -nfagtpfaNFA byte $87,"nfa>pfa" -nfagtpfaPFA word (@a_litw - @a_base)/4 - word $7FFF - word @andPFA + $10 - word @namelenPFA + $10 - word @plusPFA + $10 - word @alignwPFA + $10 - word (@a_exit - @a_base)/4 - - word @nfagtpfaNFA + $10 -nfagtnextNFA byte $88,"nfa>next" -nfagtnextPFA word @nfagtlfaPFA + $10 - word @watPFA + $10 - word (@a_exit - @a_base)/4 - - word @nfagtnextNFA + $10 -lastnfaNFA byte $87,"lastnfa" -lastnfaPFA word @mswlastnfaPFA + $10 - word @watPFA + $10 - word (@a_exit - @a_base)/4 - - word @lastnfaNFA + $10 -fnamecharqNFA byte $8A,"fnamechar?" -fnamecharqPFA word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0020 - word (@a_gt - @a_base)/4 - word (@a_swap - @a_base)/4 - word (@a_litw - @a_base)/4 - word $007F - word (@a_lt - @a_base)/4 - word @andPFA + $10 - word (@a_exit - @a_base)/4 - - word @fnamecharqNFA + $10 -fpfagtnfaNFA byte $88,"fpfa>nfa" -fpfagtnfaPFA word (@a_litw - @a_base)/4 - word $7FFF - word @andPFA + $10 - word @oneminusPFA + $10 - word @oneminusPFA + $10 - word (@a_dup - @a_base)/4 - word @catPFA + $10 - word @fnamecharqPFA + $10 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFF4 - word (@a_exit - @a_base)/4 - - word @fpfagtnfaNFA + $10 -apfagtnfaNFA byte $88,"apfa>nfa" -apfagtnfaPFA word @lastnfaPFA + $10 - word @twodupPFA + $10 - word @nfagtpfaPFA + $10 - word @watPFA + $10 - word (@a_eq - @a_base)/4 - word (@a_over - @a_base)/4 - word @catPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word @andPFA + $10 - word @zeqPFA + $10 - word @andPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word @minusonePFA + $10 - word (@a_branch - @a_base)/4 - word $0008 - word @nfagtnextPFA + $10 - word (@a_dup - @a_base)/4 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFD8 - word @nipPFA + $10 - word (@a_exit - @a_base)/4 - - word @apfagtnfaNFA + $10 -pfagtnfaNFA byte $87,"pfa>nfa" -pfagtnfaPFA word (@a_dup - @a_base)/4 - word @fMaskPFA + $10 - word (@a_at - @a_base)/4 - word @andPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word @fpfagtnfaPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @apfagtnfaPFA + $10 - word (@a_exit - @a_base)/4 - - word @pfagtnfaNFA + $10 -acceptNFA byte $86,"accept" -acceptPFA word (@a_litw - @a_base)/4 - word $0003 - word @maxPFA + $10 - word @twodupPFA + $10 - word @blPFA + $10 - word @fillPFA + $10 - word @oneminusPFA + $10 - word (@a_swap - @a_base)/4 - word @oneplusPFA + $10 - word (@a_swap - @a_base)/4 - word @boundsPFA + $10 - word @zPFA + $10 - word @keyPFA + $10 - word @eolqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000C - word @crPFA + $10 - word (@a_drop - @a_base)/4 - word @minusonePFA + $10 - word (@a_branch - @a_base)/4 - word $0052 - word @bsqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $002E - word (@a_drop - @a_base)/4 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0020 - word (@a_litw - @a_base)/4 - word $0008 - word @emitPFA + $10 - word @blPFA + $10 - word @emitPFA + $10 - word (@a_litw - @a_base)/4 - word $0008 - word @emitPFA + $10 - word @oneminusPFA + $10 - word (@a_swap - @a_base)/4 - word @oneminusPFA + $10 - word @blPFA + $10 - word (@a_over - @a_base)/4 - word @cbangPFA + $10 - word (@a_swap - @a_base)/4 - word @zPFA + $10 - word (@a_branch - @a_base)/4 - word $0020 - word @blPFA + $10 - word @maxPFA + $10 - word (@a_dup - @a_base)/4 - word @emitPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_gtr - @a_base)/4 - word (@a_over - @a_base)/4 - word @cbangPFA + $10 - word @oneplusPFA + $10 - word @twodupPFA + $10 - word @oneplusPFA + $10 - word (@a_eq - @a_base)/4 - word (@a_rgt - @a_base)/4 - word @oneplusPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $FF9C - word @nipPFA + $10 - word @nipPFA + $10 - word (@a_exit - @a_base)/4 - - word @acceptNFA + $10 -parseNFA byte $85,"parse" -parsePFA word @padsizePFA + $10 - word @mcwgtinPFA + $10 - word @watPFA + $10 - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0008 - word @zPFA + $10 - word (@a_branch - @a_base)/4 - word $0020 - word @zPFA + $10 - word @twodupPFA + $10 - word @padgtinPFA + $10 - word @plusPFA + $10 - word @catPFA + $10 - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0008 - word @minusonePFA + $10 - word (@a_branch - @a_base)/4 - word $0006 - word @oneplusPFA + $10 - word @zPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFE6 - word @nipPFA + $10 - word (@a_exit - @a_base)/4 - - word @parseNFA + $10 -skipblNFA byte $86,"skipbl" -skipblPFA word @padgtinPFA + $10 - word @catPFA + $10 - word @blPFA + $10 - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0016 - word @mcwgtinPFA + $10 - word @watPFA + $10 - word @oneplusPFA + $10 - word (@a_dup - @a_base)/4 - word @mcwgtinPFA + $10 - word @wbangPFA + $10 - word @padsizePFA + $10 - word (@a_eq - @a_base)/4 - word (@a_branch - @a_base)/4 - word $0004 - word @minusonePFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFDC - word (@a_exit - @a_base)/4 - - word @skipblNFA + $10 -nextwordNFA byte $88,"nextword" -nextwordPFA word @padsizePFA + $10 - word @mcwgtinPFA + $10 - word @watPFA + $10 - word (@a_gt - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0012 - word @padgtinPFA + $10 - word @catPFA + $10 - word @mcwgtinPFA + $10 - word @watPFA + $10 - word @plusPFA + $10 - word @oneplusPFA + $10 - word @mcwgtinPFA + $10 - word @wbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @nextwordNFA + $10 -parsewordNFA byte $89,"parseword" -parsewordPFA word @skipblPFA + $10 - word @parsePFA + $10 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0014 - word @mcwgtinPFA + $10 - word @watPFA + $10 - word @oneminusPFA + $10 - word @twodupPFA + $10 - word @mcPadPFA + $10 - word @plusPFA + $10 - word @cbangPFA + $10 - word @mcwgtinPFA + $10 - word @wbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @parsewordNFA + $10 -parseblNFA byte $87,"parsebl" -parseblPFA word @blPFA + $10 - word @parsewordPFA + $10 - word @zltgtPFA + $10 - word (@a_exit - @a_base)/4 - - word @parseblNFA + $10 -padnwNFA byte $85,"padnw" -padnwPFA word @nextwordPFA + $10 - word @parseblPFA + $10 - word (@a_exit - @a_base)/4 - - word @padnwNFA + $10 -parsenwNFA byte $87,"parsenw" -parsenwPFA word @parseblPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000A - word @padgtinPFA + $10 - word @nextwordPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @zPFA + $10 - word (@a_exit - @a_base)/4 - - word @parsenwNFA + $10 -padclrNFA byte $86,"padclr" -padclrPFA word @padnwPFA + $10 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFFA - word (@a_exit - @a_base)/4 - - word @padclrNFA + $10 -findNFA byte $84,"find" -findPFA word @lastnfaPFA + $10 - word (@a_over - @a_base)/4 - word (@a_fin - @a_base)/4 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0048 - word @nipPFA + $10 - word (@a_dup - @a_base)/4 - word @nfagtpfaPFA + $10 - word (@a_over - @a_base)/4 - word @catPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word @andPFA + $10 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0004 - word @watPFA + $10 - word (@a_swap - @a_base)/4 - word @catPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0040 - word @andPFA + $10 - word (@a_zbranch - @a_base)/4 - word $001C - word (@a_litw - @a_base)/4 - word $0020 - word @andPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000A - word (@a_litw - @a_base)/4 - word $0002 - word (@a_branch - @a_base)/4 - word $0006 - word (@a_litw - @a_base)/4 - word $0001 - word (@a_branch - @a_base)/4 - word $0006 - word (@a_drop - @a_base)/4 - word @minusonePFA + $10 - word (@a_exit - @a_base)/4 - - word @findNFA + $10 -lthashNFA byte $82,"<#" -lthashPFA word @numpadsizePFA + $10 - word @mcwgtoutPFA + $10 - word @wbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @lthashNFA + $10 -hashgtNFA byte $82,"#>" -hashgtPFA word (@a_drop - @a_base)/4 - word @numpadsizePFA + $10 - word @mcwgtoutPFA + $10 - word @watPFA + $10 - word @minusPFA + $10 - word @minusonePFA + $10 - word @mcwgtoutPFA + $10 - word @wplusbangPFA + $10 - word @padgtoutPFA + $10 - word @cbangPFA + $10 - word @padgtoutPFA + $10 - word (@a_exit - @a_base)/4 - - word @hashgtNFA + $10 -tocharNFA byte $86,"tochar" -tocharPFA word (@a_litw - @a_base)/4 - word $001F - word @andPFA + $10 - word (@a_litw - @a_base)/4 - word $0030 - word @plusPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0039 - word (@a_gt - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0008 - word (@a_litw - @a_base)/4 - word $0007 - word @plusPFA + $10 - word (@a_exit - @a_base)/4 - - word @tocharNFA + $10 -hashNFA byte $81,"#" -hashPFA word @mcwBasePFA + $10 - word @watPFA + $10 - word @uslashmodPFA + $10 - word (@a_swap - @a_base)/4 - word @tocharPFA + $10 - word @minusonePFA + $10 - word @mcwgtoutPFA + $10 - word @wplusbangPFA + $10 - word @padgtoutPFA + $10 - word @cbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @hashNFA + $10 -hashsNFA byte $82,"#s" -hashsPFA word @hashPFA + $10 - word (@a_dup - @a_base)/4 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFF8 - word (@a_exit - @a_base)/4 - - word @hashsNFA + $10 -dotNFA byte $81,"." -dotPFA word (@a_dup - @a_base)/4 - word @zltPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000A - word (@a_litw - @a_base)/4 - word $002D - word @emitPFA + $10 - word @negatePFA + $10 - word @lthashPFA + $10 - word @hashsPFA + $10 - word @hashgtPFA + $10 - word @dotcstrPFA + $10 - word (@a_litw - @a_base)/4 - word $0020 - word @emitPFA + $10 - word (@a_exit - @a_base)/4 - - word @dotNFA + $10 -cogidNFA byte $85,"cogid" -cogidPFA word @minusonePFA + $10 - word (@a_litw - @a_base)/4 - word $0001 - word (@a_hubop - @a_base)/4 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @cogidNFA + $10 -locknewNFA byte $87,"locknew" -locknewPFA word @minusonePFA + $10 - word (@a_litw - @a_base)/4 - word $0004 - word (@a_hubop - @a_base)/4 - word @minusonePFA + $10 - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0006 - word (@a_drop - @a_base)/4 - word @minusonePFA + $10 - word (@a_exit - @a_base)/4 - - word @locknewNFA + $10 -lockretNFA byte $87,"lockret" -lockretPFA word (@a_litw - @a_base)/4 - word $0005 - word (@a_hubop - @a_base)/4 - word @twodropPFA + $10 - word (@a_exit - @a_base)/4 - - word @lockretNFA + $10 -locksetNFA byte $87,"lockset" -locksetPFA word (@a_litw - @a_base)/4 - word $0006 - word (@a_hubop - @a_base)/4 - word @nipPFA + $10 - word (@a_exit - @a_base)/4 - - word @locksetNFA + $10 -lockclrNFA byte $87,"lockclr" -lockclrPFA word (@a_litw - @a_base)/4 - word $0007 - word (@a_hubop - @a_base)/4 - word @nipPFA + $10 - word (@a_exit - @a_base)/4 - - word @lockclrNFA + $10 -lockdictqNFA byte $89,"lockdict?" -lockdictqPFA word @mydictlockPFA + $10 - word @watPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0010 - word (@a_litw - @a_base)/4 - word $0001 - word @mydictlockPFA + $10 - word @wplusbangPFA + $10 - word @minusonePFA + $10 - word (@a_branch - @a_base)/4 - word $001C - word @zPFA + $10 - word @locksetPFA + $10 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0010 - word (@a_litw - @a_base)/4 - word $0001 - word @mydictlockPFA + $10 - word @wbangPFA + $10 - word @minusonePFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @zPFA + $10 - word (@a_exit - @a_base)/4 - - word @lockdictqNFA + $10 -freedictNFA byte $88,"freedict" -freedictPFA word @mydictlockPFA + $10 - word @watPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $001A - word @oneminusPFA + $10 - word (@a_dup - @a_base)/4 - word @mydictlockPFA + $10 - word @wbangPFA + $10 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word @zPFA + $10 - word @lockclrPFA + $10 - word (@a_drop - @a_base)/4 - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @freedictNFA + $10 -lockdictNFA byte $88,"lockdict" -lockdictPFA word @lockdictqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFFC - word (@a_exit - @a_base)/4 - - word @lockdictNFA + $10 -_eoomNFA byte $85,"_eoom" -_eoomPFA word @dqPFA + $10 - byte $0D,"Out of memory" - word @crPFA + $10 - word (@a_exit - @a_base)/4 - - word @_eoomNFA + $10 -checkdictNFA byte $89,"checkdict" -checkdictPFA word @mswHerePFA + $10 - word @watPFA + $10 - word @plusPFA + $10 - word @mswDictendPFA + $10 - word @watPFA + $10 - word @gteqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0014 - word @crPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word @dotPFA + $10 - word @mswDictendPFA + $10 - word @dotPFA + $10 - word @_eoomPFA + $10 - word @clearkeysPFA + $10 - word @resetPFA + $10 - word (@a_exit - @a_base)/4 - - word @checkdictNFA + $10 -_coneNFA byte $83,"_c1" -_conePFA word @lockdictPFA + $10 - word @mswlastnfaPFA + $10 - word @watPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word (@a_dup - @a_base)/4 - word @twoplusPFA + $10 - word @mswlastnfaPFA + $10 - word @wbangPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_over - @a_base)/4 - word @wbangPFA + $10 - word @twoplusPFA + $10 - word (@a_exit - @a_base)/4 - - word @_coneNFA + $10 -_ctwoNFA byte $83,"_c2" -_ctwoPFA word (@a_over - @a_base)/4 - word @namecopyPFA + $10 - word @namelenPFA + $10 - word @plusPFA + $10 - word @alignwPFA + $10 - word @mswHerePFA + $10 - word @wbangPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @_ctwoNFA + $10 -ccreateNFA byte $87,"ccreate" -ccreatePFA word @_conePFA + $10 - word (@a_swap - @a_base)/4 - word @_ctwoPFA + $10 - word (@a_exit - @a_base)/4 - - word @ccreateNFA + $10 -createNFA byte $86,"create" -createPFA word @blPFA + $10 - word @parsewordPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000A - word @_conePFA + $10 - word @padgtinPFA + $10 - word @_ctwoPFA + $10 - word @nextwordPFA + $10 - word (@a_exit - @a_base)/4 - - word @createNFA + $10 -clabelNFA byte $86,"clabel" -clabelPFA word @lockdictPFA + $10 - word @ccreatePFA + $10 - word @ca_a_doconwPFA + $10 - word @wcommaPFA + $10 - word @mcwAherePFA + $10 - word @watPFA + $10 - word @wcommaPFA + $10 - word @forthentryPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @clabelNFA + $10 -herelalNFA byte $87,"herelal" -herelalPFA word @lockdictPFA + $10 - word (@a_litw - @a_base)/4 - word $0004 - word @checkdictPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word @alignlPFA + $10 - word @mswHerePFA + $10 - word @wbangPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @herelalNFA + $10 -herewalNFA byte $87,"herewal" -herewalPFA word @lockdictPFA + $10 - word (@a_litw - @a_base)/4 - word $0002 - word @checkdictPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word @alignwPFA + $10 - word @mswHerePFA + $10 - word @wbangPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @herewalNFA + $10 -allotNFA byte $85,"allot" -allotPFA word @lockdictPFA + $10 - word (@a_dup - @a_base)/4 - word @checkdictPFA + $10 - word @mswHerePFA + $10 - word @wplusbangPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @allotNFA + $10 -aallotNFA byte $86,"aallot" -aallotPFA word @mcwAherePFA + $10 - word @wplusbangPFA + $10 - word @mcwAherePFA + $10 - word @watPFA + $10 - word @parPFA + $10 - word @gteqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0006 - word @_eoomPFA + $10 - word @resetPFA + $10 - word (@a_exit - @a_base)/4 - - word @aallotNFA + $10 -commaNFA byte $81,"," -commaPFA word @lockdictPFA + $10 - word @herelalPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word @mbangPFA + $10 - word (@a_litw - @a_base)/4 - word $0004 - word @allotPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @commaNFA + $10 -acommaNFA byte $82,"a," -acommaPFA word @mcwAherePFA + $10 - word @watPFA + $10 - word (@a_bang - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0001 - word @aallotPFA + $10 - word (@a_exit - @a_base)/4 - - word @acommaNFA + $10 -wcommaNFA byte $82,"w," -wcommaPFA word @lockdictPFA + $10 - word @herewalPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word @wbangPFA + $10 - word (@a_litw - @a_base)/4 - word $0002 - word @allotPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @wcommaNFA + $10 -ccommaNFA byte $82,"c," -ccommaPFA word @lockdictPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word @cbangPFA + $10 - word (@a_litw - @a_base)/4 - word $0001 - word @allotPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @ccommaNFA + $10 -orlnfaNFA byte $86,"orlnfa" -orlnfaPFA word @lockdictPFA + $10 - word @lastnfaPFA + $10 - word @orcbangPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @orlnfaNFA + $10 -forthentryNFA byte $8A,"forthentry" -forthentryPFA word @lockdictPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word @orlnfaPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @forthentryNFA + $10 -immediateNFA byte $89,"immediate" -immediatePFA word @lockdictPFA + $10 - word (@a_litw - @a_base)/4 - word $0040 - word @orlnfaPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @immediateNFA + $10 -execNFA byte $84,"exec" -execPFA word @lockdictPFA + $10 - word (@a_litw - @a_base)/4 - word $0060 - word @orlnfaPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @execNFA + $10 -leaveNFA byte $85,"leave" -leavePFA word (@a_rgt - @a_base)/4 - word (@a_rgt - @a_base)/4 - word (@a_rgt - @a_base)/4 - word (@a_drop - @a_base)/4 - word (@a_dup - @a_base)/4 - word (@a_twogtr - @a_base)/4 - word (@a_gtr - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @leaveNFA + $10 -clearkeysNFA byte $89,"clearkeys" -clearkeysPFA word @zPFA + $10 - word @mcwStatePFA + $10 - word @wbangPFA + $10 - word @minusonePFA + $10 - word @mswKeyTOPFA + $10 - word @watPFA + $10 - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word @keyqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000C - word @keyPFA + $10 - word (@a_drop - @a_base)/4 - word (@a_drop - @a_base)/4 - word @zPFA + $10 - word @leavePFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFEE - word (@a_zbranch - @a_base)/4 - word $FFE0 - word (@a_exit - @a_base)/4 - - word @clearkeysNFA + $10 -wgtlNFA byte $83,"w>l" -wgtlPFA word (@a_litw - @a_base)/4 - word $FFFF - word @andPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0010 - word @lshiftPFA + $10 - word @orPFA + $10 - word (@a_exit - @a_base)/4 - - word @wgtlNFA + $10 -lgtwNFA byte $83,"l>w" -lgtwPFA word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0010 - word @rshiftPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_litw - @a_base)/4 - word $FFFF - word @andPFA + $10 - word (@a_exit - @a_base)/4 - - word @lgtwNFA + $10 -colonNFA byte $81,":" -colonPFA word @lockdictPFA + $10 - word @createPFA + $10 - word (@a_litw - @a_base)/4 - word $3741 - word (@a_litw - @a_base)/4 - word $0001 - word @mcwStatePFA + $10 - word @wbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @colonNFA + $10 -_mmcsNFA byte $85,"_mmcs" -_mmcsPFA word @dqPFA + $10 - byte $1F,"MISMATCHED CONTROL STRUCTURE(S)" - word @crPFA + $10 - word @clearkeysPFA + $10 - word (@a_exit - @a_base)/4 - - word @_mmcsNFA + $10 -_scolonNFA byte $82,"_;" -_scolonPFA word @wcommaPFA + $10 - word @zPFA + $10 - word @mcwStatePFA + $10 - word @wbangPFA + $10 - word @forthentryPFA + $10 - word (@a_litw - @a_base)/4 - word $3741 - word @ltgtPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0004 - word @_mmcsPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @_scolonNFA + $10 -scolonscolonNFA byte $C2,";;" -scolonscolonPFA word @ca_a_exitPFA + $10 - word @_scolonPFA + $10 - word (@a_exit - @a_base)/4 - - word @scolonscolonNFA + $10 -scolonNFA byte $C1,";" -scolonPFA word @ca_a_exitPFA + $10 - word @_scolonPFA + $10 - word (@a_exit - @a_base)/4 - - word @scolonNFA + $10 -dothenNFA byte $86,"dothen" -dothenPFA word @lgtwPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $1235 - word (@a_eq - @a_base)/4 - word (@a_swap - @a_base)/4 - word (@a_litw - @a_base)/4 - word $1239 - word (@a_eq - @a_base)/4 - word @orPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0014 - word (@a_dup - @a_base)/4 - word @mswHerePFA + $10 - word @watPFA + $10 - word (@a_swap - @a_base)/4 - word @minusPFA + $10 - word (@a_swap - @a_base)/4 - word @wbangPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @_mmcsPFA + $10 - word (@a_exit - @a_base)/4 - - word @dothenNFA + $10 -thenNFA byte $C4,"then" -thenPFA word @dothenPFA + $10 - word (@a_exit - @a_base)/4 - - word @thenNFA + $10 -thensNFA byte $C5,"thens" -thensPFA word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $FFFF - word @andPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $1235 - word (@a_eq - @a_base)/4 - word (@a_swap - @a_base)/4 - word (@a_litw - @a_base)/4 - word $1239 - word (@a_eq - @a_base)/4 - word @orPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000A - word @dothenPFA + $10 - word @zPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @minusonePFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFD6 - word (@a_exit - @a_base)/4 - - word @thensNFA + $10 -ifNFA byte $C2,"if" -ifPFA word @ca_a_zbranchPFA + $10 - word @wcommaPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word (@a_litw - @a_base)/4 - word $1235 - word @wgtlPFA + $10 - word @zPFA + $10 - word @wcommaPFA + $10 - word (@a_exit - @a_base)/4 - - word @ifNFA + $10 -elseNFA byte $C4,"else" -elsePFA word @ca_a_branchPFA + $10 - word @wcommaPFA + $10 - word @zPFA + $10 - word @wcommaPFA + $10 - word @dothenPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word @twominusPFA + $10 - word (@a_litw - @a_base)/4 - word $1239 - word @wgtlPFA + $10 - word (@a_exit - @a_base)/4 - - word @elseNFA + $10 -untilNFA byte $C5,"until" -untilPFA word @lgtwPFA + $10 - word (@a_litw - @a_base)/4 - word $1317 - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0012 - word @ca_a_zbranchPFA + $10 - word @wcommaPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word @minusPFA + $10 - word @wcommaPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @_mmcsPFA + $10 - word (@a_exit - @a_base)/4 - - word @untilNFA + $10 -beginNFA byte $C5,"begin" -beginPFA word @mswHerePFA + $10 - word @watPFA + $10 - word (@a_litw - @a_base)/4 - word $1317 - word @wgtlPFA + $10 - word (@a_exit - @a_base)/4 - - word @beginNFA + $10 -doloopNFA byte $86,"doloop" -doloopPFA word (@a_swap - @a_base)/4 - word @lgtwPFA + $10 - word (@a_litw - @a_base)/4 - word $2329 - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0012 - word (@a_swap - @a_base)/4 - word @wcommaPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word @minusPFA + $10 - word @wcommaPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @_mmcsPFA + $10 - word (@a_exit - @a_base)/4 - - word @doloopNFA + $10 -loopNFA byte $C4,"loop" -loopPFA word @ca_a_lparenlooprparenPFA + $10 - word @doloopPFA + $10 - word (@a_exit - @a_base)/4 - - word @loopNFA + $10 -plusloopNFA byte $C5,"+loop" -plusloopPFA word @ca_a_lparenpluslooprparenPFA + $10 - word @doloopPFA + $10 - word (@a_exit - @a_base)/4 - - word @plusloopNFA + $10 -doNFA byte $C2,"do" -doPFA word @ca_a_twogtrPFA + $10 - word @wcommaPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word (@a_litw - @a_base)/4 - word $2329 - word @wgtlPFA + $10 - word (@a_exit - @a_base)/4 - - word @doNFA + $10 -_ecsNFA byte $84,"_ecs" -_ecsPFA word (@a_litw - @a_base)/4 - word $003A - word @emitPFA + $10 - word @spacePFA + $10 - word (@a_exit - @a_base)/4 - - word @_ecsNFA + $10 -_udfNFA byte $84,"_udf" -_udfPFA word @dqPFA + $10 - byte $0F,"UNDEFINED WORD " - word (@a_exit - @a_base)/4 - - word @_udfNFA + $10 -dotquoteNFA byte $C2,".",$22 -dotquotePFA word @cm_dqPFA + $10 - word @wcommaPFA + $10 - word (@a_litw - @a_base)/4 - word $0001 - word @mcwgtinPFA + $10 - word @wplusbangPFA + $10 - word (@a_litw - @a_base)/4 - word $0022 - word @parsePFA + $10 - word (@a_dup - @a_base)/4 - word @ccommaPFA + $10 - word (@a_dup - @a_base)/4 - word @padgtinPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word (@a_rot - @a_base)/4 - word @cmovePFA + $10 - word (@a_dup - @a_base)/4 - word @allotPFA + $10 - word @oneplusPFA + $10 - word @mcwgtinPFA + $10 - word @wplusbangPFA + $10 - word @herewalPFA + $10 - word (@a_exit - @a_base)/4 - - word @dotquoteNFA + $10 -fisnumberNFA byte $89,"fisnumber" -fisnumberPFA word @isnumberPFA + $10 - word (@a_exit - @a_base)/4 - - word @fisnumberNFA + $10 -fnumberNFA byte $87,"fnumber" -fnumberPFA word @numberPFA + $10 - word (@a_exit - @a_base)/4 - - word @fnumberNFA + $10 -interpretpadNFA byte $8C,"interpretpad" -interpretpadPFA word @zPFA + $10 - word @mcwgtinPFA + $10 - word @wbangPFA + $10 - word @blPFA + $10 - word @parsewordPFA + $10 - word (@a_zbranch - @a_base)/4 - word $00BE - word @padgtinPFA + $10 - word @nextwordPFA + $10 - word @findPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0062 - word (@a_dup - @a_base)/4 - word @minusonePFA + $10 - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0018 - word (@a_drop - @a_base)/4 - word @compileqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word @wcommaPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @executePFA + $10 - word @zPFA + $10 - word (@a_branch - @a_base)/4 - word $003E - word (@a_litw - @a_base)/4 - word $0002 - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $000A - word @executePFA + $10 - word @zPFA + $10 - word (@a_branch - @a_base)/4 - word $002C - word @compileqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000A - word @executePFA + $10 - word @zPFA + $10 - word (@a_branch - @a_base)/4 - word $001E - word @pfagtnfaPFA + $10 - word @dqPFA + $10 - byte $0F,"IMMEDIATE WORD " - word @dotstrnamePFA + $10 - word @clearkeysPFA + $10 - word @crPFA + $10 - word @minusonePFA + $10 - word (@a_branch - @a_base)/4 - word $004E - word (@a_drop - @a_base)/4 - word (@a_dup - @a_base)/4 - word @catplusplusPFA + $10 - word @fisnumberPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0030 - word @catplusplusPFA + $10 - word @fnumberPFA + $10 - word @compileqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0020 - word (@a_dup - @a_base)/4 - word @zPFA + $10 - word (@a_litw - @a_base)/4 - word $FFFF - word @betweenPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000C - word @ca_a_litwPFA + $10 - word @wcommaPFA + $10 - word @wcommaPFA + $10 - word (@a_branch - @a_base)/4 - word $0008 - word @ca_a_literalPFA + $10 - word @wcommaPFA + $10 - word @commaPFA + $10 - word @zPFA + $10 - word (@a_branch - @a_base)/4 - word $0014 - word @zPFA + $10 - word @mcwStatePFA + $10 - word @wbangPFA + $10 - word @freedictPFA + $10 - word @_udfPFA + $10 - word @dotstrnamePFA + $10 - word @crPFA + $10 - word @clearkeysPFA + $10 - word @minusonePFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @minusonePFA + $10 - word (@a_zbranch - @a_base)/4 - word $FF38 - word (@a_exit - @a_base)/4 - - word @interpretpadNFA + $10 -sbozmNFA byte $83,"[0m" -sbozmPFA word (@a_exit - @a_base)/4 - - word @sbozmNFA + $10 -interpretNFA byte $89,"interpret" -interpretPFA word (@a_litw - @a_base)/4 - word $001B - word @emitPFA + $10 - word (@a_litw - @a_base)/4 - word $005B - word @emitPFA + $10 - word (@a_litw - @a_base)/4 - word $0033 - word @emitPFA + $10 - word (@a_litw - @a_base)/4 - word $0031 - word @emitPFA + $10 - word (@a_litw - @a_base)/4 - word $006D - word @emitPFA + $10 - word @mcPadPFA + $10 - word @padsizePFA + $10 - word @acceptPFA + $10 - word (@a_drop - @a_base)/4 - word (@a_litw - @a_base)/4 - word $001B - word @emitPFA + $10 - word (@a_litw - @a_base)/4 - word $005B - word @emitPFA + $10 - word (@a_litw - @a_base)/4 - word $0030 - word @emitPFA + $10 - word (@a_litw - @a_base)/4 - word $006D - word @emitPFA + $10 - word @interpretpadPFA + $10 - word (@a_exit - @a_base)/4 - - word @interpretNFA + $10 -variableNFA byte $88,"variable" -variablePFA word @lockdictPFA + $10 - word @createPFA + $10 - word @ca_a_dovarPFA + $10 - word @wcommaPFA + $10 - word @zPFA + $10 - word @commaPFA + $10 - word @forthentryPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @variableNFA + $10 -_wconeNFA byte $84,"_wc1" -_wconePFA word @lockdictPFA + $10 - word @createPFA + $10 - word @ca_a_doconwPFA + $10 - word @wcommaPFA + $10 - word @wcommaPFA + $10 - word @forthentryPFA + $10 - word @lastnfaPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @_wconeNFA + $10 -wconstantNFA byte $89,"wconstant" -wconstantPFA word @_wconePFA + $10 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @wconstantNFA + $10 -avariableNFA byte $89,"avariable" -avariablePFA word @mcwAherePFA + $10 - word @watPFA + $10 - word @_wconePFA + $10 - word (@a_litw - @a_base)/4 - word $0001 - word @aallotPFA + $10 - word (@a_exit - @a_base)/4 - - word @avariableNFA + $10 -wvariableNFA byte $89,"wvariable" -wvariablePFA word @lockdictPFA + $10 - word @createPFA + $10 - word @ca_a_dovarwPFA + $10 - word @wcommaPFA + $10 - word @zPFA + $10 - word @wcommaPFA + $10 - word @forthentryPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @wvariableNFA + $10 -constantNFA byte $88,"constant" -constantPFA word @lockdictPFA + $10 - word @createPFA + $10 - word @ca_a_doconPFA + $10 - word @wcommaPFA + $10 - word @commaPFA + $10 - word @forthentryPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @constantNFA + $10 -asmlabelNFA byte $88,"asmlabel" -asmlabelPFA word @lockdictPFA + $10 - word @createPFA + $10 - word @wcommaPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @asmlabelNFA + $10 -hexNFA byte $83,"hex" -hexPFA word (@a_litw - @a_base)/4 - word $0010 - word @mcwBasePFA + $10 - word @wbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @hexNFA + $10 -decimalNFA byte $87,"decimal" -decimalPFA word (@a_litw - @a_base)/4 - word $000A - word @mcwBasePFA + $10 - word @wbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @decimalNFA + $10 -_wordsNFA byte $86,"_words" -_wordsPFA word @zPFA + $10 - word (@a_gtr - @a_base)/4 - word @lastnfaPFA + $10 - word @dqPFA + $10 - byte $26,"NFA (Forth/Asm Immediate eXecute) Name" - word @twodupPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0008 - word @npfxPFA + $10 - word (@a_branch - @a_base)/4 - word $0006 - word @twodropPFA + $10 - word @minusonePFA + $10 - word (@a_zbranch - @a_base)/4 - word $008A - word (@a_rgt - @a_base)/4 - word (@a_dup - @a_base)/4 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0004 - word @crPFA + $10 - word @oneplusPFA + $10 - word (@a_litw - @a_base)/4 - word $0003 - word @andPFA + $10 - word (@a_gtr - @a_base)/4 - word (@a_dup - @a_base)/4 - word @dotwordPFA + $10 - word @spacePFA + $10 - word (@a_dup - @a_base)/4 - word @catPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0080 - word @andPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000A - word (@a_litw - @a_base)/4 - word $0046 - word (@a_branch - @a_base)/4 - word $0006 - word (@a_litw - @a_base)/4 - word $0041 - word @emitPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0040 - word @andPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000A - word (@a_litw - @a_base)/4 - word $0049 - word (@a_branch - @a_base)/4 - word $0006 - word (@a_litw - @a_base)/4 - word $0020 - word @emitPFA + $10 - word (@a_litw - @a_base)/4 - word $0020 - word @andPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000A - word (@a_litw - @a_base)/4 - word $0058 - word (@a_branch - @a_base)/4 - word $0006 - word (@a_litw - @a_base)/4 - word $0020 - word @emitPFA + $10 - word @spacePFA + $10 - word (@a_dup - @a_base)/4 - word @dotstrnamePFA + $10 - word (@a_dup - @a_base)/4 - word @catPFA + $10 - word @namemaxPFA + $10 - word @andPFA + $10 - word (@a_litw - @a_base)/4 - word $0015 - word (@a_swap - @a_base)/4 - word @minusPFA + $10 - word @zPFA + $10 - word @maxPFA + $10 - word @spacesPFA + $10 - word @nfagtnextPFA + $10 - word (@a_dup - @a_base)/4 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FF58 - word (@a_rgt - @a_base)/4 - word @threedropPFA + $10 - word @crPFA + $10 - word (@a_exit - @a_base)/4 - - word @_wordsNFA + $10 -wordsNFA byte $85,"words" -wordsPFA word @parsenwPFA + $10 - word @_wordsPFA + $10 - word (@a_exit - @a_base)/4 - - word @wordsNFA + $10 -del_msNFA byte $86,"del_ms" -del_msPFA word (@a_literal - @a_base)/4 - long $7FFFFFFF - word @clkfreqPFA + $10 - word (@a_litw - @a_base)/4 - word $03E8 - word @uslashPFA + $10 - word @uslashPFA + $10 - word @minPFA + $10 - word (@a_litw - @a_base)/4 - word $0001 - word @maxPFA + $10 - word @clkfreqPFA + $10 - word (@a_litw - @a_base)/4 - word $03E8 - word @uslashPFA + $10 - word @ustarPFA + $10 - word @cntPFA + $10 - word (@a_at - @a_base)/4 - word @plusPFA + $10 - word (@a_dup - @a_base)/4 - word @cntPFA + $10 - word (@a_at - @a_base)/4 - word @minusPFA + $10 - word @zltPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFF4 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @del_msNFA + $10 -del_secNFA byte $87,"del_sec" -del_secPFA word (@a_litw - @a_base)/4 - word $0010 - word @uslashmodPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0014 - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word (@a_litw - @a_base)/4 - word $3E80 - word @del_msPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF8 - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0014 - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word (@a_litw - @a_base)/4 - word $03E8 - word @del_msPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF8 - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @del_secNFA + $10 -gtmNFA byte $82,">m" -gtmPFA word (@a_litw - @a_base)/4 - word $0001 - word (@a_swap - @a_base)/4 - word @lshiftPFA + $10 - word (@a_exit - @a_base)/4 - - word @gtmNFA + $10 -pxiNFA byte $83,"pxi" -pxiPFA word @gtmPFA + $10 - word @invertPFA + $10 - word @diraPFA + $10 - word (@a_at - @a_base)/4 - word @andPFA + $10 - word @diraPFA + $10 - word (@a_bang - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @pxiNFA + $10 -pxoNFA byte $83,"pxo" -pxoPFA word @gtmPFA + $10 - word @diraPFA + $10 - word (@a_at - @a_base)/4 - word @orPFA + $10 - word @diraPFA + $10 - word (@a_bang - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @pxoNFA + $10 -pxlNFA byte $83,"pxl" -pxlPFA word @gtmPFA + $10 - word (@a_mpxl - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @pxlNFA + $10 -pxhNFA byte $83,"pxh" -pxhPFA word @gtmPFA + $10 - word (@a_mpxh - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @pxhNFA + $10 -pxNFA byte $82,"px" -pxPFA word (@a_swap - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0008 - word @pxhPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @pxlPFA + $10 - word (@a_exit - @a_base)/4 - - word @pxNFA + $10 -pxqNFA byte $83,"px?" -pxqPFA word @gtmPFA + $10 - word (@a_mpx - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @pxqNFA + $10 -_sclNFA byte $84,"_scl" -_sclPFA word (@a_doconw - @a_base)/4 - word $001C - - word @_sclNFA + $10 -_sdaNFA byte $84,"_sda" -_sdaPFA word (@a_doconw - @a_base)/4 - word $001D - - word @_sdaNFA + $10 -_sclmNFA byte $85,"_sclm" -_sclmPFA word (@a_docon - @a_base)/4 - long $10000000 - - word @_sclmNFA + $10 -_sdamNFA byte $85,"_sdam" -_sdamPFA word (@a_docon - @a_base)/4 - long $20000000 - - word @_sdamNFA + $10 -_sdaiNFA byte $85,"_sdai" -_sdaiPFA word @_sdaPFA + $10 - word @pxiPFA + $10 - word (@a_exit - @a_base)/4 - - word @_sdaiNFA + $10 -_sdaoNFA byte $85,"_sdao" -_sdaoPFA word @_sdaPFA + $10 - word @pxoPFA + $10 - word (@a_exit - @a_base)/4 - - word @_sdaoNFA + $10 -_scliNFA byte $85,"_scli" -_scliPFA word @_sclPFA + $10 - word @pxiPFA + $10 - word (@a_exit - @a_base)/4 - - word @_scliNFA + $10 -_scloNFA byte $85,"_sclo" -_scloPFA word @_sclPFA + $10 - word @pxoPFA + $10 - word (@a_exit - @a_base)/4 - - word @_scloNFA + $10 -_sdalNFA byte $85,"_sdal" -_sdalPFA word @_sdamPFA + $10 - word (@a_mpxl - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @_sdalNFA + $10 -_sdahNFA byte $85,"_sdah" -_sdahPFA word @_sdamPFA + $10 - word (@a_mpxh - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @_sdahNFA + $10 -_scllNFA byte $85,"_scll" -_scllPFA word @_sclmPFA + $10 - word (@a_mpxl - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @_scllNFA + $10 -_sclhNFA byte $85,"_sclh" -_sclhPFA word @_sclmPFA + $10 - word (@a_mpxh - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @_sclhNFA + $10 -_sdaqNFA byte $85,"_sda?" -_sdaqPFA word @_sdamPFA + $10 - word (@a_mpx - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @_sdaqNFA + $10 -_eeInitNFA byte $87,"_eeInit" -_eeInitPFA word @_sclhPFA + $10 - word @_scloPFA + $10 - word @_sdaiPFA + $10 - word (@a_litw - @a_base)/4 - word $0009 - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word @_scllPFA + $10 - word @_sclhPFA + $10 - word @_sdaqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0004 - word @leavePFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF2 - word (@a_exit - @a_base)/4 - - word @_eeInitNFA + $10 -_eeStartNFA byte $88,"_eeStart" -_eeStartPFA word @_sclhPFA + $10 - word @_scloPFA + $10 - word @_sdahPFA + $10 - word @_sdaoPFA + $10 - word @_sdalPFA + $10 - word @_scllPFA + $10 - word (@a_exit - @a_base)/4 - - word @_eeStartNFA + $10 -_eeStopNFA byte $87,"_eeStop" -_eeStopPFA word @_sclhPFA + $10 - word @_sdahPFA + $10 - word @_scliPFA + $10 - word @_sdaiPFA + $10 - word (@a_exit - @a_base)/4 - - word @_eeStopNFA + $10 -_eeWriteNFA byte $88,"_eeWrite" -_eeWritePFA word (@a_litw - @a_base)/4 - word $0080 - word (@a_litw - @a_base)/4 - word $0008 - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word @twodupPFA + $10 - word @andPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word @_sdahPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @_sdalPFA + $10 - word @_sclhPFA + $10 - word @_scllPFA + $10 - word (@a_litw - @a_base)/4 - word $0001 - word @rshiftPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFE4 - word @twodropPFA + $10 - word @_sdaiPFA + $10 - word @_sclhPFA + $10 - word @_sdaqPFA + $10 - word @_scllPFA + $10 - word @_sdalPFA + $10 - word @_sdaoPFA + $10 - word (@a_exit - @a_base)/4 - - word @_eeWriteNFA + $10 -_eeReadNFA byte $87,"_eeRead" -_eeReadPFA word @_sdaiPFA + $10 - word @zPFA + $10 - word (@a_litw - @a_base)/4 - word $0008 - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0001 - word @lshiftPFA + $10 - word @_sclhPFA + $10 - word @_sdaqPFA + $10 - word @_scllPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word (@a_litw - @a_base)/4 - word $0001 - word @orPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFE8 - word (@a_swap - @a_base)/4 - word @_sdaPFA + $10 - word @pxPFA + $10 - word @_sdaoPFA + $10 - word @_sclhPFA + $10 - word @_scllPFA + $10 - word @_sdalPFA + $10 - word (@a_exit - @a_base)/4 - - word @_eeReadNFA + $10 -eeReadPageNFA byte $8A,"eeReadPage" -eeReadPagePFA word (@a_litw - @a_base)/4 - word $0001 - word @locksetPFA + $10 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFF6 - word (@a_litw - @a_base)/4 - word $0001 - word @maxPFA + $10 - word (@a_rot - @a_base)/4 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $00FF - word @andPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0008 - word @rshiftPFA + $10 - word (@a_litw - @a_base)/4 - word $00FF - word @andPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0010 - word @rshiftPFA + $10 - word (@a_litw - @a_base)/4 - word $0007 - word @andPFA + $10 - word (@a_litw - @a_base)/4 - word $0001 - word @lshiftPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_gtr - @a_base)/4 - word @_eeStartPFA + $10 - word (@a_litw - @a_base)/4 - word $00A0 - word @orPFA + $10 - word @_eeWritePFA + $10 - word (@a_swap - @a_base)/4 - word @_eeWritePFA + $10 - word @orPFA + $10 - word (@a_swap - @a_base)/4 - word @_eeWritePFA + $10 - word @orPFA + $10 - word @_eeStartPFA + $10 - word (@a_rgt - @a_base)/4 - word (@a_litw - @a_base)/4 - word $00A1 - word @orPFA + $10 - word @_eeWritePFA + $10 - word @orPFA + $10 - word @rottwoPFA + $10 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word @lastiqPFA + $10 - word @_eeReadPFA + $10 - word @iPFA + $10 - word @cbangPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF6 - word @_eeStopPFA + $10 - word (@a_litw - @a_base)/4 - word $0001 - word @lockclrPFA + $10 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @eeReadPageNFA + $10 -eeWritePageNFA byte $8B,"eeWritePage" -eeWritePagePFA word (@a_litw - @a_base)/4 - word $0001 - word @locksetPFA + $10 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFF6 - word (@a_litw - @a_base)/4 - word $0001 - word @maxPFA + $10 - word (@a_rot - @a_base)/4 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $00FF - word @andPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0008 - word @rshiftPFA + $10 - word (@a_litw - @a_base)/4 - word $00FF - word @andPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0010 - word @rshiftPFA + $10 - word (@a_litw - @a_base)/4 - word $0007 - word @andPFA + $10 - word (@a_litw - @a_base)/4 - word $0001 - word @lshiftPFA + $10 - word @_eeStartPFA + $10 - word (@a_litw - @a_base)/4 - word $00A0 - word @orPFA + $10 - word @_eeWritePFA + $10 - word (@a_swap - @a_base)/4 - word @_eeWritePFA + $10 - word @orPFA + $10 - word (@a_swap - @a_base)/4 - word @_eeWritePFA + $10 - word @orPFA + $10 - word @rottwoPFA + $10 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word @catPFA + $10 - word @_eeWritePFA + $10 - word @orPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF6 - word @_eeStopPFA + $10 - word (@a_litw - @a_base)/4 - word $0010 - word @del_msPFA + $10 - word (@a_litw - @a_base)/4 - word $0001 - word @lockclrPFA + $10 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @eeWritePageNFA + $10 -eeErrNFA byte $85,"eeErr" -eeErrPFA word @dqPFA + $10 - byte $0C,"eeProm error" - word (@a_exit - @a_base)/4 - - word @eeErrNFA + $10 -eeReadWordNFA byte $8A,"eeReadWord" -eeReadWordPFA word @mcwTzPFA + $10 - word (@a_litw - @a_base)/4 - word $0002 - word @eeReadPagePFA + $10 - word (@a_zbranch - @a_base)/4 - word $0006 - word @eeErrPFA + $10 - word @crPFA + $10 - word @mcwTzPFA + $10 - word @watPFA + $10 - word (@a_exit - @a_base)/4 - - word @eeReadWordNFA + $10 -eeWriteWordNFA byte $8B,"eeWriteWord" -eeWriteWordPFA word (@a_swap - @a_base)/4 - word @mcwTzPFA + $10 - word @wbangPFA + $10 - word @mcwTzPFA + $10 - word (@a_litw - @a_base)/4 - word $0002 - word @eeWritePagePFA + $10 - word (@a_zbranch - @a_base)/4 - word $0006 - word @eeErrPFA + $10 - word @crPFA + $10 - word (@a_exit - @a_base)/4 - - word @eeWriteWordNFA + $10 -eeReadByteNFA byte $8A,"eeReadByte" -eeReadBytePFA word @eeReadWordPFA + $10 - word (@a_litw - @a_base)/4 - word $00FF - word @andPFA + $10 - word (@a_exit - @a_base)/4 - - word @eeReadByteNFA + $10 -eeCopyNFA byte $86,"eeCopy" -eeCopyPFA word (@a_litw - @a_base)/4 - word $007F - word @invertPFA + $10 - word @andPFA + $10 - word (@a_rot - @a_base)/4 - word (@a_litw - @a_base)/4 - word $007F - word @invertPFA + $10 - word @andPFA + $10 - word (@a_rot - @a_base)/4 - word (@a_litw - @a_base)/4 - word $007F - word @invertPFA + $10 - word @andPFA + $10 - word (@a_rot - @a_base)/4 - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word (@a_over - @a_base)/4 - word @iPFA + $10 - word @plusPFA + $10 - word (@a_dup - @a_base)/4 - word @dotPFA + $10 - word @mcPadPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word @eeReadPagePFA + $10 - word (@a_zbranch - @a_base)/4 - word $0006 - word @eeErrPFA + $10 - word @leavePFA + $10 - word (@a_dup - @a_base)/4 - word @iPFA + $10 - word @plusPFA + $10 - word (@a_dup - @a_base)/4 - word @dotPFA + $10 - word @mcPadPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word @eeWritePagePFA + $10 - word (@a_zbranch - @a_base)/4 - word $0006 - word @eeErrPFA + $10 - word @leavePFA + $10 - word @iPFA + $10 - word (@a_litw - @a_base)/4 - word $03FF - word @andPFA + $10 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0004 - word @crPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word (@a_lparenpluslooprparen - @a_base)/4 - word $FFB6 - word @twodropPFA + $10 - word @cogidPFA + $10 - word @cogPadclrPFA + $10 - word (@a_exit - @a_base)/4 - - word @eeCopyNFA + $10 -_doneNFA byte $83,"_d1" -_donePFA word @crPFA + $10 - word (@a_over - @a_base)/4 - word @dotwordPFA + $10 - word @spacePFA + $10 - word (@a_dup - @a_base)/4 - word @dotwordPFA + $10 - word @_ecsPFA + $10 - word @boundsPFA + $10 - word (@a_exit - @a_base)/4 - - word @_doneNFA + $10 -_dtwoNFA byte $83,"_d2" -_dtwoPFA word @crPFA + $10 - word @dotwordPFA + $10 - word @_ecsPFA + $10 - word (@a_exit - @a_base)/4 - - word @_dtwoNFA + $10 -_dthreeNFA byte $83,"_d3" -_dthreePFA word @mcTPFA + $10 - word (@a_litw - @a_base)/4 - word $0010 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word @catPFA + $10 - word @dotbytePFA + $10 - word @spacePFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF6 - word (@a_litw - @a_base)/4 - word $0002 - word @spacesPFA + $10 - word @mcTPFA + $10 - word (@a_litw - @a_base)/4 - word $0010 - word @dotstrPFA + $10 - word (@a_exit - @a_base)/4 - - word @_dthreeNFA + $10 -dumpNFA byte $84,"dump" -dumpPFA word @_donePFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word @_dtwoPFA + $10 - word @iPFA + $10 - word @mcTPFA + $10 - word (@a_litw - @a_base)/4 - word $0010 - word @cmovePFA + $10 - word @_dthreePFA + $10 - word (@a_litw - @a_base)/4 - word $0010 - word (@a_lparenpluslooprparen - @a_base)/4 - word $FFEA - word @crPFA + $10 - word (@a_exit - @a_base)/4 - - word @dumpNFA + $10 -rdumpNFA byte $85,"rdump" -rdumpPFA word @_donePFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word @_dtwoPFA + $10 - word @iPFA + $10 - word @mcTPFA + $10 - word (@a_litw - @a_base)/4 - word $0010 - word @eeReadPagePFA + $10 - word (@a_zbranch - @a_base)/4 - word $000C - word @mcTPFA + $10 - word (@a_litw - @a_base)/4 - word $0010 - word @zPFA + $10 - word @fillPFA + $10 - word @_dthreePFA + $10 - word (@a_litw - @a_base)/4 - word $0010 - word (@a_lparenpluslooprparen - @a_base)/4 - word $FFDC - word @crPFA + $10 - word (@a_exit - @a_base)/4 - - word @rdumpNFA + $10 -adumpNFA byte $85,"adump" -adumpPFA word @crPFA + $10 - word (@a_over - @a_base)/4 - word @dotwordPFA + $10 - word @spacePFA + $10 - word (@a_dup - @a_base)/4 - word @dotwordPFA + $10 - word @_ecsPFA + $10 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word @crPFA + $10 - word @iPFA + $10 - word @dotwordPFA + $10 - word @_ecsPFA + $10 - word @iPFA + $10 - word (@a_litw - @a_base)/4 - word $0004 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word (@a_at - @a_base)/4 - word @dotlongPFA + $10 - word @spacePFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF6 - word (@a_litw - @a_base)/4 - word $0004 - word (@a_lparenpluslooprparen - @a_base)/4 - word $FFDC - word @crPFA + $10 - word (@a_exit - @a_base)/4 - - word @adumpNFA + $10 -bsNFA byte $E1,"\" -bsPFA word @padsizePFA + $10 - word @mcwgtinPFA + $10 - word @wbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @bsNFA + $10 -tickNFA byte $81,"'" -tickPFA word @parseblPFA + $10 - word (@a_zbranch - @a_base)/4 - word $001A - word @padgtinPFA + $10 - word @nextwordPFA + $10 - word @findPFA + $10 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000A - word @_udfPFA + $10 - word @crPFA + $10 - word (@a_drop - @a_base)/4 - word @zPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @zPFA + $10 - word (@a_exit - @a_base)/4 - - word @tickNFA + $10 -cqNFA byte $82,"cq" -cqPFA word (@a_rgt - @a_base)/4 - word (@a_dup - @a_base)/4 - word @catplusplusPFA + $10 - word @plusPFA + $10 - word @alignwPFA + $10 - word (@a_gtr - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @cqNFA + $10 -cquoteNFA byte $E2,"c",$22 -cquotePFA word @compileqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0034 - word @cm_cqPFA + $10 - word @wcommaPFA + $10 - word (@a_litw - @a_base)/4 - word $0001 - word @mcwgtinPFA + $10 - word @wplusbangPFA + $10 - word (@a_litw - @a_base)/4 - word $0022 - word @parsePFA + $10 - word (@a_dup - @a_base)/4 - word @ccommaPFA + $10 - word (@a_dup - @a_base)/4 - word @padgtinPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word (@a_rot - @a_base)/4 - word @cmovePFA + $10 - word (@a_dup - @a_base)/4 - word @allotPFA + $10 - word @oneplusPFA + $10 - word @mcwgtinPFA + $10 - word @wplusbangPFA + $10 - word @herewalPFA + $10 - word (@a_branch - @a_base)/4 - word $0018 - word (@a_litw - @a_base)/4 - word $0022 - word @parsePFA + $10 - word @oneminusPFA + $10 - word @padgtinPFA + $10 - word @twodupPFA + $10 - word @cbangPFA + $10 - word (@a_swap - @a_base)/4 - word @twoplusPFA + $10 - word @mcwgtinPFA + $10 - word @wplusbangPFA + $10 - word (@a_exit - @a_base)/4 - - word @cquoteNFA + $10 -fl_baseNFA byte $87,"fl_base" -fl_basePFA word (@a_dovarw - @a_base)/4 - word $0000 - - word @fl_baseNFA + $10 -fl_countNFA byte $88,"fl_count" -fl_countPFA word (@a_dovarw - @a_base)/4 - word $0000 - - word @fl_countNFA + $10 -fl_topNFA byte $86,"fl_top" -fl_topPFA word (@a_dovarw - @a_base)/4 - word $0000 - - word @fl_topNFA + $10 -fl_inNFA byte $85,"fl_in" -fl_inPFA word (@a_dovarw - @a_base)/4 - word $0000 - - word @fl_inNFA + $10 -fl_lockNFA byte $87,"fl_lock" -fl_lockPFA word (@a_dovarw - @a_base)/4 - word $0000 - - word @fl_lockNFA + $10 -fl_bufNFA byte $86,"fl_buf" -fl_bufPFA word @mswDictendPFA + $10 - word @watPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word @minusPFA + $10 - word (@a_litw - @a_base)/4 - word $0300 - word @minusPFA + $10 - word @zPFA + $10 - word @fl_countPFA + $10 - word @wbangPFA + $10 - word @lockdictPFA + $10 - word @fl_lockPFA + $10 - word @watPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000C - word @freedictPFA + $10 - word @crPFA + $10 - word @zPFA + $10 - word (@a_branch - @a_base)/4 - word $000C - word @minusonePFA + $10 - word @fl_lockPFA + $10 - word @wbangPFA + $10 - word @freedictPFA + $10 - word @minusonePFA + $10 - word (@a_zbranch - @a_base)/4 - word $00EE - word @mswDictendPFA + $10 - word @watPFA + $10 - word (@a_dup - @a_base)/4 - word @fl_topPFA + $10 - word @wbangPFA + $10 - word (@a_swap - @a_base)/4 - word @minusPFA + $10 - word (@a_dup - @a_base)/4 - word @fl_basePFA + $10 - word @wbangPFA + $10 - word (@a_dup - @a_base)/4 - word @fl_inPFA + $10 - word @wbangPFA + $10 - word @oneminusPFA + $10 - word @mswDictendPFA + $10 - word @wbangPFA + $10 - word @zPFA + $10 - word (@a_dup - @a_base)/4 - word @mswKeyTOPFA + $10 - word @watPFA + $10 - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word @fkeyqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $008E - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $005C - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $001E - word (@a_drop - @a_base)/4 - word @keytoPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000C - word (@a_litw - @a_base)/4 - word $000D - word (@a_eq - @a_base)/4 - word (@a_branch - @a_base)/4 - word $0004 - word @minusonePFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFEC - word (@a_branch - @a_base)/4 - word $0060 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $007B - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $001E - word (@a_drop - @a_base)/4 - word @keytoPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000C - word (@a_litw - @a_base)/4 - word $007D - word (@a_eq - @a_base)/4 - word (@a_branch - @a_base)/4 - word $0004 - word @minusonePFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFEC - word (@a_branch - @a_base)/4 - word $0038 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0005 - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0008 - word (@a_drop - @a_base)/4 - word (@a_litw - @a_base)/4 - word $005C - word @fl_inPFA + $10 - word @watPFA + $10 - word @cbangPFA + $10 - word @oneplusPFA + $10 - word @fl_inPFA + $10 - word @watPFA + $10 - word @oneplusPFA + $10 - word (@a_dup - @a_base)/4 - word @fl_topPFA + $10 - word @watPFA + $10 - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0008 - word @_eoomPFA + $10 - word @clearkeysPFA + $10 - word @resetPFA + $10 - word @fl_inPFA + $10 - word @wbangPFA + $10 - word @zPFA + $10 - word (@a_branch - @a_base)/4 - word $0006 - word (@a_drop - @a_base)/4 - word @minusonePFA + $10 - word (@a_zbranch - @a_base)/4 - word $FF68 - word (@a_lparenlooprparen - @a_base)/4 - word $FF64 - word (@a_swap - @a_base)/4 - word (@a_over - @a_base)/4 - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $FF50 - word (@a_dup - @a_base)/4 - word @dotPFA + $10 - word @dqPFA + $10 - byte $05,"chars" - word @crPFA + $10 - word @fl_countPFA + $10 - word @wbangPFA + $10 - word @minusonePFA + $10 - word (@a_branch - @a_base)/4 - word $0006 - word (@a_drop - @a_base)/4 - word @zPFA + $10 - word (@a_exit - @a_base)/4 - - word @fl_bufNFA + $10 -fl_skeysNFA byte $88,"fl_skeys" -fl_skeysPFA word @fl_lockPFA + $10 - word @watPFA + $10 - word @fl_countPFA + $10 - word @watPFA + $10 - word @zltgtPFA + $10 - word @andPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0036 - word @fl_basePFA + $10 - word @watPFA + $10 - word @fl_countPFA + $10 - word @watPFA + $10 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word (@a_dup - @a_base)/4 - word @catPFA + $10 - word @emitPFA + $10 - word @mswDictendPFA + $10 - word @wbangPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF2 - word @fl_topPFA + $10 - word @watPFA + $10 - word @mswDictendPFA + $10 - word @wbangPFA + $10 - word @zPFA + $10 - word @fl_countPFA + $10 - word @wbangPFA + $10 - word @lockdictPFA + $10 - word @zPFA + $10 - word @fl_lockPFA + $10 - word @wbangPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @fl_skeysNFA + $10 -loadeeNFA byte $86,"loadee" -loadeePFA word @twodupPFA + $10 - word (@a_litw - @a_base)/4 - word $000F - word @andnPFA + $10 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word @mcTPFA + $10 - word (@a_litw - @a_base)/4 - word $0010 - word @eeReadPagePFA + $10 - word (@a_drop - @a_base)/4 - word @mcTPFA + $10 - word (@a_litw - @a_base)/4 - word $0010 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word @catPFA + $10 - word @emitPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF8 - word (@a_litw - @a_base)/4 - word $0010 - word (@a_lparenpluslooprparen - @a_base)/4 - word $FFDA - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $000F - word @andnPFA + $10 - word (@a_rot - @a_base)/4 - word @plusPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_litw - @a_base)/4 - word $000F - word @andPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0014 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word @eeReadBytePFA + $10 - word @emitPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF8 - word (@a_branch - @a_base)/4 - word $0004 - word @twodropPFA + $10 - word (@a_exit - @a_base)/4 - - word @loadeeNFA + $10 -_caendNFA byte $86,"_caend" -_caendPFA word @cqPFA + $10 - byte $04," cr " - word (@a_over - @a_base)/4 - word @cappendPFA + $10 - word @cogidPFA + $10 - word (@a_over - @a_base)/4 - word @cappendncPFA + $10 - word @cqPFA + $10 - byte $14,"0 mcwEmitptr w! >cog" - word (@a_swap - @a_base)/4 - word @cappendPFA + $10 - word (@a_exit - @a_base)/4 - - word @_caendNFA + $10 -FLNFA byte $82,"FL" -FLPFA word @fl_bufPFA + $10 - word (@a_zbranch - @a_base)/4 - word $001A - word @cqPFA + $10 - byte $08,"fl_skeys" - word @mcTPFA + $10 - word @ccopyPFA + $10 - word @mcTPFA + $10 - word @_caendPFA + $10 - word @mcTPFA + $10 - word @cogXOPFA + $10 - word (@a_exit - @a_base)/4 - - word @FLNFA + $10 -eeBotNFA byte $85,"eeBot" -eeBotPFA word (@a_docon - @a_base)/4 - long $00008000 - - word @eeBotNFA + $10 -eeTopNFA byte $85,"eeTop" -eeTopPFA word (@a_docon - @a_base)/4 - long $00010000 - - word @eeTopNFA + $10 -f_fillNFA byte $86,"f_fill" -f_fillPFA word @mcPadPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word (@a_rot - @a_base)/4 - word @fillPFA + $10 - word @eeTopPFA + $10 - word @eeBotPFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word @mcPadPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word @eeWritePagePFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word @eeErrPFA + $10 - word @crPFA + $10 - word @leavePFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word (@a_lparenpluslooprparen - @a_base)/4 - word $FFE6 - word @mcPadPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word @blPFA + $10 - word @fillPFA + $10 - word (@a_exit - @a_base)/4 - - word @f_fillNFA + $10 -f_clearNFA byte $87,"f_clear" -f_clearPFA word @eeTopPFA + $10 - word @eeBotPFA + $10 - word (@a_twogtr - @a_base)/4 - word (@a_litw - @a_base)/4 - word $FFFF - word @iPFA + $10 - word @eeWriteWordPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word (@a_lparenpluslooprparen - @a_base)/4 - word $FFF2 - word (@a_exit - @a_base)/4 - - word @f_clearNFA + $10 -_fiNFA byte $83,"_fi" -_fiPFA word @mcNumpadPFA + $10 - word (@a_dup - @a_base)/4 - word @watPFA + $10 - word (@a_swap - @a_base)/4 - word @twoplusPFA + $10 - word @catPFA + $10 - word @plusPFA + $10 - word @twoplusPFA + $10 - word @oneplusPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word @uslashmodPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0004 - word @oneplusPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word @ustarPFA + $10 - word (@a_exit - @a_base)/4 - - word @_fiNFA + $10 -listNFA byte $84,"list" -listPFA word @eeTopPFA + $10 - word @eeBotPFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word @mcNumpadPFA + $10 - word @numpadsizePFA + $10 - word @namemaxPFA + $10 - word @oneplusPFA + $10 - word @twoplusPFA + $10 - word @minPFA + $10 - word @eeReadPagePFA + $10 - word (@a_zbranch - @a_base)/4 - word $0006 - word @eeErrPFA + $10 - word @leavePFA + $10 - word @mcNumpadPFA + $10 - word @watPFA + $10 - word (@a_litw - @a_base)/4 - word $FFFF - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0012 - word @iPFA + $10 - word @dotPFA + $10 - word @crPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word @leavePFA + $10 - word (@a_branch - @a_base)/4 - word $0016 - word @iPFA + $10 - word @dotPFA + $10 - word @mcNumpadPFA + $10 - word (@a_dup - @a_base)/4 - word @watPFA + $10 - word @dotPFA + $10 - word @twoplusPFA + $10 - word @dotcstrPFA + $10 - word @crPFA + $10 - word @_fiPFA + $10 - word (@a_lparenpluslooprparen - @a_base)/4 - word $FFB4 - word (@a_exit - @a_base)/4 - - word @listNFA + $10 -f_findNFA byte $86,"f_find" -f_findPFA word @zPFA + $10 - word @eeTopPFA + $10 - word @eeBotPFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word @mcNumpadPFA + $10 - word @numpadsizePFA + $10 - word @namemaxPFA + $10 - word @oneplusPFA + $10 - word @twoplusPFA + $10 - word @minPFA + $10 - word @eeReadPagePFA + $10 - word (@a_zbranch - @a_base)/4 - word $0006 - word @eeErrPFA + $10 - word @leavePFA + $10 - word @mcNumpadPFA + $10 - word @watPFA + $10 - word (@a_litw - @a_base)/4 - word $FFFF - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $000E - word @nipPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word @leavePFA + $10 - word (@a_branch - @a_base)/4 - word $0014 - word (@a_over - @a_base)/4 - word @mcNumpadPFA + $10 - word @twoplusPFA + $10 - word (@a_cstreq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0006 - word (@a_drop - @a_base)/4 - word @iPFA + $10 - word @_fiPFA + $10 - word (@a_lparenpluslooprparen - @a_base)/4 - word $FFBA - word (@a_exit - @a_base)/4 - - word @f_findNFA + $10 -f_freeNFA byte $86,"f_free" -f_freePFA word @zPFA + $10 - word @eeTopPFA + $10 - word @eeBotPFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word @mcNumpadPFA + $10 - word (@a_litw - @a_base)/4 - word $0004 - word @eeReadPagePFA + $10 - word (@a_zbranch - @a_base)/4 - word $0006 - word @eeErrPFA + $10 - word @leavePFA + $10 - word @mcNumpadPFA + $10 - word @watPFA + $10 - word (@a_litw - @a_base)/4 - word $FFFF - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0010 - word (@a_drop - @a_base)/4 - word @iPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word @leavePFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word @_fiPFA + $10 - word (@a_lparenpluslooprparen - @a_base)/4 - word $FFCE - word (@a_exit - @a_base)/4 - - word @f_freeNFA + $10 -f_wfileNFA byte $87,"f_wfile" -f_wfilePFA word @f_freePFA + $10 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $005E - word (@a_dup - @a_base)/4 - word @fl_countPFA + $10 - word @watPFA + $10 - word @plusPFA + $10 - word @eeTopPFA + $10 - word (@a_lt - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0046 - word @fl_basePFA + $10 - word @watPFA + $10 - word @fl_countPFA + $10 - word @watPFA + $10 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word (@a_dup - @a_base)/4 - word @iPFA + $10 - word @fl_countPFA + $10 - word @watPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0080 - word @minPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_over - @a_base)/4 - word @minusPFA + $10 - word @fl_countPFA + $10 - word @wbangPFA + $10 - word @eeWritePagePFA + $10 - word (@a_zbranch - @a_base)/4 - word $0006 - word @eeErrPFA + $10 - word @leavePFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word @plusPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word (@a_lparenpluslooprparen - @a_base)/4 - word $FFD0 - word (@a_drop - @a_base)/4 - word (@a_branch - @a_base)/4 - word $0006 - word (@a_drop - @a_base)/4 - word @_eoomPFA + $10 - word (@a_branch - @a_base)/4 - word $0008 - word (@a_drop - @a_base)/4 - word @eeErrPFA + $10 - word @crPFA + $10 - word (@a_exit - @a_base)/4 - - word @f_wfileNFA + $10 -FWNFA byte $82,"FW" -FWPFA word @fl_bufPFA + $10 - word (@a_zbranch - @a_base)/4 - word $00B0 - word @fl_countPFA + $10 - word @watPFA + $10 - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word @fl_basePFA + $10 - word @watPFA + $10 - word @catPFA + $10 - word (@a_litw - @a_base)/4 - word $002E - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0008 - word @leavePFA + $10 - word (@a_branch - @a_base)/4 - word $0016 - word @fl_basePFA + $10 - word @watPFA + $10 - word @oneplusPFA + $10 - word @fl_basePFA + $10 - word @wbangPFA + $10 - word @fl_countPFA + $10 - word @watPFA + $10 - word @oneminusPFA + $10 - word @fl_countPFA + $10 - word @wbangPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFD4 - word @fl_basePFA + $10 - word @watPFA + $10 - word (@a_litw - @a_base)/4 - word $0003 - word @plusPFA + $10 - word (@a_litw - @a_base)/4 - word $0020 - word @boundsPFA + $10 - word (@a_twogtr - @a_base)/4 - word @iPFA + $10 - word @catPFA + $10 - word @blPFA + $10 - word @lteqPFA + $10 - word @lastiqPFA + $10 - word @orPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0006 - word @iPFA + $10 - word @leavePFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFEA - word @fl_basePFA + $10 - word @watPFA + $10 - word @minusPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0003 - word @minusPFA + $10 - word @fl_basePFA + $10 - word @watPFA + $10 - word @twoplusPFA + $10 - word @cbangPFA + $10 - word @fl_countPFA + $10 - word @watPFA + $10 - word (@a_swap - @a_base)/4 - word @minusPFA + $10 - word (@a_dup - @a_base)/4 - word @fl_basePFA + $10 - word @watPFA + $10 - word @cbangPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0008 - word @rshiftPFA + $10 - word @fl_basePFA + $10 - word @watPFA + $10 - word @oneplusPFA + $10 - word @cbangPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0004 - word @f_wfilePFA + $10 - word @fl_topPFA + $10 - word @watPFA + $10 - word @mswDictendPFA + $10 - word @wbangPFA + $10 - word @lockdictPFA + $10 - word @zPFA + $10 - word @fl_lockPFA + $10 - word @wbangPFA + $10 - word @freedictPFA + $10 - word (@a_exit - @a_base)/4 - - word @FWNFA + $10 -f_alNFA byte $84,"f_al" -f_alPFA word (@a_dup - @a_base)/4 - word @eeReadWordPFA + $10 - word (@a_over - @a_base)/4 - word @twoplusPFA + $10 - word @eeReadBytePFA + $10 - word (@a_rot - @a_base)/4 - word @plusPFA + $10 - word @twoplusPFA + $10 - word @oneplusPFA + $10 - word (@a_exit - @a_base)/4 - - word @f_alNFA + $10 -f_loadNFA byte $86,"f_load" -f_loadPFA word @f_findPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $002C - word @f_alPFA + $10 - word @zPFA + $10 - word @mcTPFA + $10 - word @cbangPFA + $10 - word @mcTPFA + $10 - word @cappendncPFA + $10 - word @mcTPFA + $10 - word @cappendncPFA + $10 - word @cqPFA + $10 - byte $06,"loadee" - word @mcTPFA + $10 - word @cappendPFA + $10 - word @mcTPFA + $10 - word @_caendPFA + $10 - word @mcTPFA + $10 - word @cogXOPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @f_loadNFA + $10 -loadNFA byte $84,"load" -loadPFA word @parsenwPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0008 - word @f_loadPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @loadNFA + $10 -versionNFA byte $87,"version" -versionPFA word @cqPFA + $10 - byte $20,"PropForth v2.5 2009OCT24 17:15 0" - word (@a_exit - @a_base)/4 - - word @versionNFA + $10 -freeNFA byte $84,"free" -freePFA word @mswDictendPFA + $10 - word @watPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word @minusPFA + $10 - word @dotPFA + $10 - word @dqPFA + $10 - byte $0D,"bytes free - " - word @parPFA + $10 - word @mcwAherePFA + $10 - word @watPFA + $10 - word @minusPFA + $10 - word @dotPFA + $10 - word @dqPFA + $10 - byte $0E,"cog longs free" - word @crPFA + $10 - word (@a_exit - @a_base)/4 - - word @freeNFA + $10 -saveforthNFA byte $89,"saveforth" -saveforthPFA word @cqPFA + $10 - byte $07,"mswHere" - word @findPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0060 - word @versionPFA + $10 - word (@a_dup - @a_base)/4 - word @catPFA + $10 - word @plusPFA + $10 - word (@a_dup - @a_base)/4 - word @catPFA + $10 - word @oneplusPFA + $10 - word (@a_swap - @a_base)/4 - word @cbangPFA + $10 - word @pfagtnfaPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_dup - @a_base)/4 - word @watPFA + $10 - word (@a_over - @a_base)/4 - word @eeWriteWordPFA + $10 - word @twoplusPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $007F - word @andPFA + $10 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFEA - word (@a_twogtr - @a_base)/4 - word @iboundPFA + $10 - word @iPFA + $10 - word @minusPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word @minPFA + $10 - word (@a_dup - @a_base)/4 - word @iPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_rot - @a_base)/4 - word @eeWritePagePFA + $10 - word (@a_zbranch - @a_base)/4 - word $0004 - word @leavePFA + $10 - word (@a_litw - @a_base)/4 - word $002E - word @emitPFA + $10 - word (@a_lparenpluslooprparen - @a_base)/4 - word $FFDC - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word @crPFA + $10 - word (@a_exit - @a_base)/4 - - word @saveforthNFA + $10 -_forgetNFA byte $87,"_forget" -_forgetPFA word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0026 - word @findPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0016 - word @pfagtnfaPFA + $10 - word @nfagtlfaPFA + $10 - word (@a_dup - @a_base)/4 - word @mswHerePFA + $10 - word @wbangPFA + $10 - word @watPFA + $10 - word @mswlastnfaPFA + $10 - word @wbangPFA + $10 - word (@a_branch - @a_base)/4 - word $0008 - word @dotcstrPFA + $10 - word @qqqPFA + $10 - word @crPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @_forgetNFA + $10 -forgetNFA byte $86,"forget" -forgetPFA word @parsenwPFA + $10 - word @_forgetPFA + $10 - word (@a_exit - @a_base)/4 - - word @forgetNFA + $10 -cm_fstartNFA byte $89,"cm_fstart" -cm_fstartPFA word (@a_doconw - @a_base)/4 - word @fstartPFA + $10 - - word @cm_fstartNFA + $10 -fstartNFA byte $86,"fstart" -fstartPFA word @cogidPFA + $10 - word (@a_dup - @a_base)/4 - word @cogInbytePFA + $10 - word (@a_litw - @a_base)/4 - word $0010 - word @lshiftPFA + $10 - word @cm_entryPFA + $10 - word (@a_litw - @a_base)/4 - word $0002 - word @lshiftPFA + $10 - word @orPFA + $10 - word (@a_swap - @a_base)/4 - word @orPFA + $10 - word @resetDregPFA + $10 - word (@a_bang - @a_base)/4 - word @mcwInbytePFA + $10 - word @matPFA + $10 - word @lgtwPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0100 - word @mcwInbytePFA + $10 - word @wbangPFA + $10 - word @zPFA + $10 - word @mcwEmitptrPFA + $10 - word @wbangPFA + $10 - word @fMaskPFA + $10 - word (@a_at - @a_base)/4 - word @mcwDebugcmdPFA + $10 - word @wbangPFA + $10 - word @parPFA + $10 - word (@a_at - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0008 - word @plusPFA + $10 - word (@a_litw - @a_base)/4 - word $00F8 - word @zPFA + $10 - word @fillPFA + $10 - word @hexPFA + $10 - word @ca_varEndPFA + $10 - word @mcwAherePFA + $10 - word @wbangPFA + $10 - word @lockdictPFA + $10 - word @mswHerePFA + $10 - word @watPFA + $10 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0024 - word @zPFA + $10 - word @fl_lockPFA + $10 - word @wbangPFA + $10 - word @lastnfaPFA + $10 - word @nfagtpfaPFA + $10 - word @twoplusPFA + $10 - word @alignlPFA + $10 - word @fourplusPFA + $10 - word @mswHerePFA + $10 - word @wbangPFA + $10 - word (@a_litw - @a_base)/4 - word $7FFF - word (@a_dup - @a_base)/4 - word @mswMemendPFA + $10 - word @wbangPFA + $10 - word @mswDictendPFA + $10 - word @wbangPFA + $10 - word @freedictPFA + $10 - word @rsTopPFA + $10 - word @oneminusPFA + $10 - word @rsPtrPFA + $10 - word (@a_bang - @a_base)/4 - word (@a_litw - @a_base)/4 - word $FFFF - word (@a_eq - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0014 - word (@a_litw - @a_base)/4 - word $0008 - word @lshiftPFA + $10 - word @cogidPFA + $10 - word @plusPFA + $10 - word @vxcogPFA + $10 - word @wbangPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word @cqPFA + $10 - byte $04,"boot" - word @mcTPFA + $10 - word @ccopyPFA + $10 - word @cogidPFA + $10 - word @mcTPFA + $10 - word @cappendnPFA + $10 - word @mcTPFA + $10 - word @findPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word @executePFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word @minusonePFA + $10 - word @compileqPFA + $10 - word @zeqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0014 - word @dqPFA + $10 - byte $03,"Cog" - word @cogidPFA + $10 - word @dotPFA + $10 - word @dqPFA + $10 - byte $02,"ok" - word @crPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0008 - word @minusonePFA + $10 - word @mcwDebugvaluePFA + $10 - word @mbangPFA + $10 - word @interpretPFA + $10 - word @zPFA + $10 - word @zPFA + $10 - word (@a_zbranch - @a_base)/4 - word $FFD4 - word (@a_exit - @a_base)/4 - - word @fstartNFA + $10 -boot6NFA byte $85,"boot6" -boot6PFA word @cogidPFA + $10 - word @gtcogPFA + $10 - word @cogplusPFA + $10 - word (@a_exit - @a_base)/4 - - word @boot6NFA + $10 -cogqNFA byte $84,"cog?" -cogqPFA word @dqPFA + $10 - byte $0C,"Forth cogs: " - word @ffcogPFA + $10 - word @watPFA + $10 - word @dotPFA + $10 - word (@a_litw - @a_base)/4 - word $002D - word @emitPFA + $10 - word @spacePFA + $10 - word @lfcogPFA + $10 - word @watPFA + $10 - word @dotPFA + $10 - word @crPFA + $10 - word (@a_exit - @a_base)/4 - - word @cogqNFA + $10 -cogplusNFA byte $84,"cog+" -cogplusPFA word @ffcogPFA + $10 - word @watPFA + $10 - word @oneminusPFA + $10 - word (@a_dup - @a_base)/4 - word @zgteqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000E - word (@a_dup - @a_base)/4 - word @ffcogPFA + $10 - word @wbangPFA + $10 - word @cogresetPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word @cogqPFA + $10 - word (@a_exit - @a_base)/4 - - word @cogplusNFA + $10 -cogminusNFA byte $84,"cog-" -cogminusPFA word @ffcogPFA + $10 - word @watPFA + $10 - word (@a_dup - @a_base)/4 - word @cogidPFA + $10 - word @ltgtPFA + $10 - word (@a_swap - @a_base)/4 - word @oneplusPFA + $10 - word (@a_dup - @a_base)/4 - word @lfcogPFA + $10 - word @watPFA + $10 - word @lteqPFA + $10 - word (@a_rot - @a_base)/4 - word @andPFA + $10 - word (@a_zbranch - @a_base)/4 - word $0010 - word (@a_dup - @a_base)/4 - word @oneminusPFA + $10 - word @cogstopPFA + $10 - word @ffcogPFA + $10 - word @wbangPFA + $10 - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word @cogqPFA + $10 - word (@a_exit - @a_base)/4 - - word @cogminusNFA + $10 -stqNFA byte $83,"st?" -stqPFA word @dqPFA + $10 - byte $04,"ST: " - word @stPtrPFA + $10 - word (@a_at - @a_base)/4 - word @twoplusPFA + $10 - word (@a_dup - @a_base)/4 - word @stTopPFA + $10 - word (@a_lt - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0022 - word @stTopPFA + $10 - word (@a_swap - @a_base)/4 - word @minusPFA + $10 - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word @stTopPFA + $10 - word @twominusPFA + $10 - word @iPFA + $10 - word @minusPFA + $10 - word (@a_at - @a_base)/4 - word @dotlongPFA + $10 - word @spacePFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF0 - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word @crPFA + $10 - word (@a_exit - @a_base)/4 - - word @stqNFA + $10 -scNFA byte $82,"sc" -scPFA word @stTopPFA + $10 - word @stPtrPFA + $10 - word (@a_at - @a_base)/4 - word @minusPFA + $10 - word (@a_litw - @a_base)/4 - word $0003 - word @minusPFA + $10 - word (@a_dup - @a_base)/4 - word @dotPFA + $10 - word @dqPFA + $10 - byte $0D,"items cleared" - word @crPFA + $10 - word (@a_dup - @a_base)/4 - word @zgtPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000C - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word (@a_drop - @a_base)/4 - word (@a_lparenlooprparen - @a_base)/4 - word $FFFC - word (@a_exit - @a_base)/4 - - word @scNFA + $10 -_pnaNFA byte $84,"_pna" -_pnaPFA word (@a_dup - @a_base)/4 - word @dotwordPFA + $10 - word (@a_litw - @a_base)/4 - word $003A - word @emitPFA + $10 - word @watPFA + $10 - word (@a_dup - @a_base)/4 - word @dotwordPFA + $10 - word @spacePFA + $10 - word @pfagtnfaPFA + $10 - word @dotstrnamePFA + $10 - word @spacePFA + $10 - word (@a_exit - @a_base)/4 - - word @_pnaNFA + $10 -pfaqNFA byte $84,"pfa?" -pfaqPFA word (@a_dup - @a_base)/4 - word @pfagtnfaPFA + $10 - word (@a_dup - @a_base)/4 - word @catPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_litw - @a_base)/4 - word $0080 - word @andPFA + $10 - word @zeqPFA + $10 - word (@a_swap - @a_base)/4 - word @namemaxPFA + $10 - word @andPFA + $10 - word @zltgtPFA + $10 - word (@a_rot - @a_base)/4 - word @nfagtpfaPFA + $10 - word (@a_rot - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $0004 - word @watPFA + $10 - word (@a_rot - @a_base)/4 - word (@a_eq - @a_base)/4 - word @andPFA + $10 - word (@a_exit - @a_base)/4 - - word @pfaqNFA + $10 -rsqNFA byte $83,"rs?" -rsqPFA word @dqPFA + $10 - byte $04,"RS: " - word @rsTopPFA + $10 - word @rsPtrPFA + $10 - word (@a_at - @a_base)/4 - word @oneplusPFA + $10 - word @minusPFA + $10 - word @zPFA + $10 - word (@a_twogtr - @a_base)/4 - word @rsTopPFA + $10 - word @oneminusPFA + $10 - word @iPFA + $10 - word @minusPFA + $10 - word (@a_at - @a_base)/4 - word (@a_dup - @a_base)/4 - word @twominusPFA + $10 - word @watPFA + $10 - word @pfaqPFA + $10 - word (@a_zbranch - @a_base)/4 - word $000A - word @twominusPFA + $10 - word @_pnaPFA + $10 - word (@a_branch - @a_base)/4 - word $0006 - word @dotlongPFA + $10 - word @spacePFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFDC - word @crPFA + $10 - word (@a_exit - @a_base)/4 - - word @rsqNFA + $10 -lasmNFA byte $84,"lasm" -lasmPFA word @fourplusPFA + $10 - word (@a_dup - @a_base)/4 - word @matPFA + $10 - word (@a_swap - @a_base)/4 - word @fourplusPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_over - @a_base)/4 - word @matPFA + $10 - word (@a_dup - @a_base)/4 - word @mcwAherePFA + $10 - word @wbangPFA + $10 - word (@a_twogtr - @a_base)/4 - word @fourplusPFA + $10 - word (@a_dup - @a_base)/4 - word @matPFA + $10 - word @acommaPFA + $10 - word (@a_lparenlooprparen - @a_base)/4 - word $FFF6 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @lasmNFA + $10 -f_eraseNFA byte $87,"f_erase" -f_erasePFA word @parsenwPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $002A - word @f_findPFA + $10 - word (@a_dup - @a_base)/4 - word (@a_zbranch - @a_base)/4 - word $001C - word @eeTopPFA + $10 - word (@a_swap - @a_base)/4 - word (@a_twogtr - @a_base)/4 - word (@a_litw - @a_base)/4 - word $FFFF - word @iPFA + $10 - word @eeWriteWordPFA + $10 - word (@a_litw - @a_base)/4 - word $0080 - word (@a_lparenpluslooprparen - @a_base)/4 - word $FFF2 - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word (@a_branch - @a_base)/4 - word $0004 - word (@a_drop - @a_base)/4 - word (@a_exit - @a_base)/4 - - word @f_eraseNFA + $10 -mswlastnfaNFA byte $8A,"mswlastnfa" -mswlastnfaPFA word (@a_dovarw - @a_base) /4 - word @mswlastnfaNFA + $10 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - long 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 - -ForthDictEnd -ForthMemoryEnd - diff --git a/zubehör/PropForth/PropForthPart1.f b/zubehör/PropForth/PropForthPart1.f deleted file mode 100644 index 176ab69..0000000 --- a/zubehör/PropForth/PropForthPart1.f +++ /dev/null @@ -1,1132 +0,0 @@ - - -FL - - - - -\ these variables are the current dictionary limits -\ cannot really easily redefine these variable on a running forth system, it really screws things up -\ to redefine requires multiple steps and caution, not worth the bother usually - -\ mswMemend w@ wvariable mswMemend mswMemend w! -\ mswHere w@ wvariable mswHere mswHere w! -\ mswDictend w@ wvariable mswDictend mswDictend w! - -\ constants which reference the cogdata space are effectively variables with -\ a level of indirection. refedinition of these, if the base variable is the same -\ is reasonable and can be done on a running system - -\ caution with other variables - -\ these constants are all intialized to the running values, so any following words compile correctly -\ if you add constants that are used by the base compiler, follow the practice -\ any word constant which begins with cm_xxx is compiled with the value @xxxPFA + $10 - which is the exection address -\ any word constant which begins with ca_xxx is copiled with the value (@xxx - @a_base)/4 - execution address - -\ cogid if the cog had an over/underflow --1 wvariable vxcog vxcog w! - -\ first forth cog -ffcog w@ wvariable ffcog ffcog w! - -\ the last forth cog -lfcog w@ wvariable lfcog lfcog w! - -cm_serentry wconstant cm_serentry -cm_entry wconstant cm_entry - -\ this is a pointer to the main cogdata area -cm_cogdata wconstant cm_cogdata -\ this is ' cq - the routine which handles the word c" -cm_cq wconstant cm_cq -\ this is ' dq - the routine which handles the word ." -cm_dq wconstant cm_dq - -\ these constants are all assembler addresses -ca_a_exit wconstant ca_a_exit -ca_a_dovarw wconstant ca_a_dovarw -ca_a_doconw wconstant ca_a_doconw -ca_a_branch wconstant ca_a_branch -ca_a_litw wconstant ca_a_litw -ca_a_2>r wconstant ca_a_2>r -ca_a_(loop) wconstant ca_a_(loop) -ca_a_(+loop) wconstant ca_a_(+loop) -ca_a_0branch wconstant ca_a_0branch -ca_a_dovar wconstant ca_a_dovar -ca_a_docon wconstant ca_a_docon -ca_a_literal wconstant ca_a_literal -ca_a_debugonoff wconstant ca_a_debugonoff -ca_a_reset wconstant ca_a_reset -ca_a_ifunc wconstant ca_a_ifunc -ca_a_ifunc1 wconstant ca_a_ifunc1 -ca_a_ifunc2 wconstant ca_a_ifunc2 -ca_a_umstarlp wconstant ca_a_umstarlp -ca_a_umslashmodlp wconstant ca_a_umslashmodlp -ca_a_cstreqlp wconstant ca_a_cstreqlp -ca_a_finlp wconstant ca_a_finlp - -\ addresses for the stack routines -ca_a_stPush wconstant ca_a_stPush -ca_a_stPush_ret wconstant ca_a_stPush_ret -ca_a_rsPush wconstant ca_a_rsPush -ca_a_rsPush_ret wconstant ca_a_rsPush_ret -ca_a_stPop wconstant ca_a_stPop -ca_a_stPoptreg wconstant ca_a_stPoptreg -ca_a_stPop_ret wconstant ca_a_stPop_ret -ca_a_stPoptreg_ret wconstant ca_a_stPoptreg_ret -ca_a_rsPop wconstant ca_a_rsPop -ca_a_rsPop_ret wconstant ca_a_rsPop_ret - -\ address for the a_next routine -ca_a_next wconstant ca_a_next - -\ this group of words needs to align with the assembler code -ca_varStart wconstant ca_varStart -ca_varEnd wconstant ca_varEnd -: _cv ca_varStart + ; -\ : aCondMask 0 _cv ; -: fMask 0 _cv ; -: fAddrMask 1 _cv ; -: fLongMask 2 _cv ; -: resetDreg 3 _cv ; -: IP 4 _cv ; -: stPtr 5 _cv ; -: rsPtr 6 _cv ; -: stTOS 7 _cv ; - -: treg1 8 _cv ; -\ : treg2 9 _cv ; -\ : treg3 a _cv ; -\ : treg4 b _cv ; -\ : treg5 c _cv ; -\ : treg6 d _cv ; -: stBot e _cv ; -: stTop 2e _cv ; -: rsBot stTop ; -: rsTop 4e _cv ; - -\ this is space constant -bl wconstant bl -\ -1 or true, used frequently --1 constant -1 -\ 0 or false, used frequently -0 wconstant 0 -\ this is the par register, always initalized to point to this cogs section of cogdata -1F0 wconstant par -\ the other cog special registers -1F1 wconstant cnt -1F2 wconstant ina -\ 1F3 wconstant inb -1F4 wconstant outa -\ 1F5 wconstant outb -1F6 wconstant dira -\ 1F7 wconstant dirb -1F8 wconstant ctra -1F9 wconstant ctrb -1FA wconstant frqa -1FB wconstant frqb -1FC wconstant phsa -1FD wconstant phsb -1FE wconstant vcfg -1FF wconstant vscl - -\ this variable define the number of loops for a key timeout -\ used by keyTO, fast_load, f_write, and after an undefined word -mswKeyTO w@ wvariable mswKeyTO mswKeyTO w! - -\ use in the ifuncs to get rid of litw word -: cnip mswHere w@ 2- dup w@ over 2- w! mswHere w! ; immediate - -\ ifunc ( n1 n2 -- n ) \ the assembler operation is specified by the literal which follows (replaces the i field) - -' ifunc asmlabel ifunc - -\ ifunc1 ( n -- n ) \ the assembler operation is specified by the literal which follows (replaces the i field) - -' ifunc1 asmlabel ifunc1 - -\ ifunc2 ( n1 n2 -- ) \ the assembler operation is specified by the literal which follows (replaces the i field) - -' ifunc2 asmlabel ifunc2 - -\ fin ( nfa cstr -- n1) the nfa match in the dictionary, or 0 if not found -' fin asmlabel fin - -\ mpx ( n -- t/f ) n is the bit mask to read in -' mpx asmlabel mpx - -\ mpxl ( n -- ) set the bits in n low -' mpxl asmlabel mpxl - -\ mpxh ( n -- ) set the bits in n hi -' mpxh asmlabel mpxh - -\ name= ( nfa cstr -- t/f) -' name= asmlabel name= - -\ cstr= ( cstr cstr -- t/f) -' cstr= asmlabel cstr= - -\ abs ( n1 -- abs_n1 ) \ absolute value of n1 -: abs ifunc1 151 cnip ; - -\ and ( n1 n2 -- n1 ) \ bitwise and n1 n2 -: and ifunc 0C1 cnip ; - -\ andn ( n1 n2 -- n1 ) \ bitwise and n1 invert n2 -: andn ifunc 0C9 cnip ; - -\ !d ( n1 n2 -- n1 ) set the d field of n1 with n2 -: !d ifunc 0A9 cnip ; - -\ !i ( n1 n2 -- n1 ) set the i field of n1 with n2 -: !i ifunc 0B1 cnip ; - -\ !s ( n1 n2 -- n1 ) set the s field of n1 with n2 -: !s ifunc 0A1 cnip ; - -\ m@ ( addr -- n1 ) \ fetch 32 bit value at main memory addr -: m@ ifunc1 011 cnip ; - -\ c@ ( addr -- c1 ) \ fetch 8 bit value at main memory addr -: c@ ifunc1 001 cnip ; - -\ w@ ( addr -- h1 ) \ fetch 16 bit value at main memory addr -: w@ ifunc1 009 cnip ; - -\ @ ( addr -- n1 ) \ fetch 32 bit value at cog addr -' @ asmlabel @ - -\ m! ( n1 addr -- ) \ store 32 bit value (n1) at main memory addr -: m! ifunc2 010 cnip ; - -\ c! ( c1 addr -- ) \ store 8 bit value (c1) main memory at addr -: c! ifunc2 000 cnip ; - -\ w! ( h1 addr -- ) \ store 16 bit value (h1) main memory at addr -: w! ifunc2 008 cnip ; - -\ ! ( n1 addr -- ) \ store 32 bit value (n1) at cog addr -' ! asmlabel ! - -\ branch \ 16 bit branch offset follows - -2 is to itself, +2 is next word -' branch asmlabel branch - -\ hubop ( n1 n2 -- n3 t/f ) n2 specifies which hubop (0 - 7), n1 is the source data, n3 is returned, -\ t/f is the 'c' flag is set from the hubop - -' hubop asmlabel hubop - -\ doconw ( -- h1 ) \ push 16 bit constant which follows on the stack - implicit a_exit -' doconw asmlabel doconw - -\ docon ( -- n1 ) \ push a 32 bit constant which follows the stack - implicit a_exit -' docon asmlabel docon - -\ dovarw ( -- addr ) \ push address of 16 bit variable which follows on the stack - implicit a_exit -' dovarw asmlabel dovarw - -\ dovar ( -- addr ) \ push address of 32 bit variable which follows the stack - implicit a_exit -' dovar asmlabel dovar - -\ drop ( n1 -- ) \ drop the value on the top of the stack -' drop asmlabel drop - -\ dup ( n1 -- n1 n1 ) -' dup asmlabel dup - -\ = ( n1 n2 -- t/f ) \ compare top 2 32 bit stack values, true if they are equal -' = asmlabel = - -\ exit \ exit the current forth word, and back to the caller -' exit asmlabel exit - -\ > ( n1 n2 -- t/f ) \ flag is true if and only if n1 is less than n2 -' > asmlabel > - -\ litw ( -- h1 ) \ push a 16 bit literal on the stack -' litw asmlabel litw - -\ literal ( -- n1 ) \ push a 32 bit literal on the stack -' literal asmlabel literal - -\ lshift (n1 n2 -- n3) \ n3 = n1 shifted left n2 bits -: lshift ifunc 059 cnip ; - -\ < ( n1 n2 -- t/f ) \ flag is true if and only if n1 is greater than n2 -' < asmlabel < - -\ max ( n1 n2 -- n1 ) \ signed max of top 2 stack values -: max ifunc 081 cnip ; - -\ min ( n1 n2 -- n1 ) \ signed min of top 2 stack values -: min ifunc 089 cnip ; - -\ - ( n1 n2 -- n1-n2 ) -: - ifunc 109 cnip ; - -\ or ( n1 n2 -- n1_or_n2 ) \ bitwise or -: or ifunc 0D1 cnip ; - -\ over ( n1 n2 -- n1 n2 n1 ) \ duplicate 2 value down on the stack to the top of the stack -' over asmlabel over - -\ + ( n1 n2 -- n1+n2 ) \ sum of n1 & n2 -: + ifunc 101 cnip ; - -\ rot ( n1 n2 n3 -- n2 n3 n1 ) \ rotate top 3 value on the stack -' rot asmlabel rot - -\ r@ ( -- n1 ) \ copy top of RS to stack -: r@ rsPtr @ 2+ @ ; - -\ rshift ( n1 n2 -- n3) \ n3 = n1 shifted right logically n2 bits -: rshift ifunc 51 cnip ; - -\ rashift ( n1 n2 -- n3) \ n3 = n1 shifted right arithmetically n2 bits -: rashift ifunc 071 cnip ; - -\ r> ( -- n1 ) \ pop top of RS to stack -' r> asmlabel r> - -\ >r ( n1 -- ) \ pop stack top to RS -' >r asmlabel >r - -\ 2>r ( n1 n2 -- ) \ pop top 2 stack top to RS -' 2>r asmlabel 2>r - -\ 0branch ( t/f -- ) \ branch it top of stack value is zero 16 bit branch offset follows, -\ -2 is to itself, +2 is next word -' 0branch asmlabel 0branch - -\ (loop) ( -- ) \ add 1 to loop counter, branch if count is below limit offset follows, -\ -2 is to itself, +2 is next word -' (loop) asmlabel (loop) - -\ (+loop) ( n1 -- ) \ add n1 to loop counter, branch if count is below limit, offset follows, -\ -2 is to itself, +2 is next word -' (+loop) asmlabel (+loop) - -\ swap ( n1 n2 -- n2 n1 ) \ swap top 2 stack values -' swap asmlabel swap - -\ um* ( u1 u2 -- u1*u2L u1*u2H ) \ unsigned 32bit * 32bit -- 64bit result -' um* asmlabel um* - -\ um/mod ( u1lo u1hi u2 -- remainder quotient ) \ unsigned divide & mod u1 divided by u2 -' um/mod asmlabel um/mod - -\ u/mod ( u1 u2 -- remainder quotient ) \ unsigned divide & mod u1 divided by u2 -: u/mod 0 swap um/mod ; - -\ xor ( n1 n2 -- n1_xor_n2 ) \ bitwise xor -: xor ifunc 0D9 cnip ; - -\ waitcnt ( n1 n2 -- n1 ) \ wait until n1, add n2 to n1 -: waitcnt ifunc 1F1 cnip ; - -\ waitpeq ( n1 n2 -- ) \ wait until state n1 is equal to ina anded with n2 -: waitpeq ifunc2 1E0 cnip ; - -\ waitpne ( n1 n2 -- ) \ wait until state n1 is not equal to ina anded with n2 -: waitpne ifunc2 1E8 cnip ; - -\ vfcog ( n -- n ) makes sure n is a valid forth cog -: vfcog dup ffcog w@ lfcog w@ between 0= if drop ffcog w@ then ; - -\ reboot ( -- ) reboot the propellor chip -: reboot FF 0 hubop ; - -\ cogstop ( n -- ) -: cogstop 3 hubop 2drop ; - -\ cogreset ( n1 -- ) reset the forth cog -: cogreset 7 and dup cogstop dup dup cogd dup 100 0 fill 10 lshift cm_entry -2 lshift or or 2 hubop 2drop -\ wait for the cog to come alive -cogDebugvalue 8000 0 do dup m@ if leave then loop drop ; - -\ reset ( -- ) reset this cog -: reset mydictlock w@ 0> if 1 mydictlock w! freedict then cogid cogreset ; - -\ disio ( n -- ) disconnect the output of cog n -: disio cogEmitptr 0 swap w! ; - -\ connio ( n1 n2 -- ) connect the output from cog n1 to the input of cog n2 -: connio 7 and cogInbyte swap 7 and cogEmitptr w! ; - -\ >cog ( n1 -- ) connect the console to the forth cog -: >cog cogCON w@ disio inCON over cogEmitptr w! dup cogInbyte outCON w! cogCON w! ; - -\ these variables need to be defined after >cog to operate properly when forth is being rebuilt - -\ the cog connected to the console -cogCON w@ wvariable cogCON cogCON w! - -\ data to the console, a cogs mcwEmitptr points to inCON when it is connected -inCON w@ wvariable inCON inCON w! - -\ data from the console, points to a cogs mcwInbyte when it is connected -outCON w@ wvariable outCON outCON w! - -\ the CTLa CTLb and CTLc input from the console -ctlCON w@ wvariable ctlCON ctlCON w! - -\ clkfreq ( -- u1 ) the system clock frequency -: clkfreq 0 m@ ; - -\ parat ( offset -- addr ) the offset is added to the contents of the par register, giving an address references -\ the cogdata -: parat par @ + ; - -\ cogd ( n -- addr) the address of the data area for cog n -: cogd 7 and 8 lshift cm_cogdata + ; - -\ mcwInbyte ( -- addr ) the address of the character input as a word, $100 means no char is ready, otherwise the -\ next char is in the lo byte, write $100 after the char is read -: mcwInbyte 0 parat ; - -: cogInbyte cogd ; - -\ mcwEmitptr ( -- addr ) address of the word for memory based emit -: mcwEmitptr 2 parat ; -: cogEmitptr cogd 2+ ; - -\ mcwState ( -- addr ) access as a word, the address of a variable which is -\ 0 - interpret mode -\ 1 - forth compile mode -: mcwState 4 parat ; - -\ compile? ( -- t/f ) true if we are in a compile -: compile? mcwState w@ 0<> ; - -\ mcwDebugcmd ( -- addr ) the address of the debugcmd as a word, used to commincate from forth cog to request a reset, -\ or for traces -: mcwDebugcmd 6 parat ; -: cogDebugcmd cogd 6 + ; - -\ mcwDebugvalue ( -- addr ) the address of the debugvalue as a long, used in conjuction with debugcmd -: mcwDebugvalue 8 parat ; -: cogDebugvalue cogd 8 + ; - -\ mcwBase ( -- addr ) access as a word, the address of the base variable -: mcwBase C parat ; - -\ mcwAhere ( -- addr ) access as a word, the first unused register address in this cog -: mcwAhere E parat ; - -\ execword ( -- addr ) a long, an area where the current word for execute is stored -: execword 10 parat ; - -\ execute ( addr -- ) execute the word - pfa address is on the stack -: execute dup fMask @ and if IP ! else execword w! ca_a_exit execword 2+ w! execword IP ! then ; - -\ mcw>out ( -- addr ) access as a word, the offset to the current output byte -: mcw>out 14 parat ; - -\ mcw>in ( -- addr ) access as a word, addr is the var the offset in characters from the start of the input buffer to -\ the parse area. -: mcw>in 16 parat ; - -\ mydictlock ( -- addr ) access as a word, the number of times dictlock has been executed in the cog minus the freedict -: mydictlock 18 parat ; - -\ mcwFsliceptr ( -- ) if this is not zero it is called in the key routine -: mcwFsliceptr 1A parat ; - -\ the negative of the last time the _fSlice routine was called -: mcLastcnt 1C parat ; - -\ the maximum count between calls of _fSlice -: mcFslicecnt 20 parat ; - -: _fSlicer cnt @ dup mcLastcnt m@ + mcFslicecnt m@ max mcFslicecnt m! negate mcLastcnt m! ; - -\ _fSlice ( -- ) if the fSLicePtr is set -: _fSlice mcwFsliceptr w@ dup if execute else drop then ; - -\ mcPad ( -- addr ) access as bytes, or words and long, the address of the pad area - used by accept for keyboard input, -\ can be used carefully by other code -: mcPad 24 parat ; -: cogPad cogd 24 + ; - -\ _pclr ( addr -- ) fill padsize / 4 longs with blanks, addr must be long aligned -: _pclr dup padsize + swap do 20202020 i m! 4 +loop ; - -\ cogPadclr ( n -- ) clear out the pad on cog n -: cogPadclr cogPad _pclr ; - -\ pad>in ( -- addr ) addr is the address to the start of the parse area. -: pad>in mcw>in w@ mcPad + ; - -\ namemax ( -- n1 ) the maximum name length allowed must be 1F -: namemax 1F ; - -\ padsize ( -- n1 ) the size of the pad area -: padsize 80 ; - -\ these are temporay variables, and by convention are only used within a word -\ caution, make sure you know what words you are calling -: mcwT0 A4 parat ; -: mcwT1 A6 parat ; -: mcT A8 parat ; \ 40 byte array overflows into mcNumpad - -\ mcNumpad ( -- addr ) the of the area used by the numeric output routines, can be used carefully by other code -: mcNumpad C0 parat ; - -\ pad>out ( -- addr ) addr is the address to the the current output byte -: pad>out mcw>out w@ mcNumpad + ; - -\ numpadsize ( -- n1 ) the size of the numpad -: numpadsize 30 ; - -\ keyto ( -- c1 true | false ) a key or a timeout -: keyto 0 mswKeyTO w@ 0 do key? if drop key -1 leave then loop ; - -\ emit? ( -- t/f) true if the output is ready for a char -: emit? _fSlice mcwEmitptr w@ dup if w@ 100 and 0<> else drop -1 then ; - -\ emit ( c1 -- ) emit the char on the stack -: emit begin emit? until FF and mcwEmitptr w@ dup if w! else 2drop then ; - -\ key? ( -- t/f) true if there is a key ready for input -: key? _fSlice mcwInbyte w@ 100 and 0= ; - -\ key ( -- c1 ) get a key -: key begin key? until mcwInbyte w@ 100 mcwInbyte w! ; - -\ fkey? ( -- c1 t/f ) fast nonblocking key routine -: fkey? mcwInbyte w@ dup 100 and if 0 else 100 mcwInbyte w! -1 then ; - -\ nip ( x1 x2 -- x1 ) -: nip swap drop ; - -\ tuck ( x1 x2 -- x2 x1 x2 ) -: tuck swap over ; - -\ 2dup ( n1 n2 -- n1 n2 n1 n2 ) copy top 2 items on the stack -: 2dup over over ; - -\ 2drop ( n1 n2 -- ) drop top 2 items on the stack -: 2drop drop drop ; - -\ 3drop ( n1 n2 n3 -- ) drop top 3 items on the stack -: 3drop drop drop drop ; - -\ u/ ( u1 u2 -- u1/u2) u1 divided by u2 -: u/ u/mod nip ; - -\ u* ( u1 u2 -- u1*u2) u1 multiplied by u2 -: u* um* drop ; - -\ invert ( n1 -- n2 ) bitwise invert n1 -: invert -1 xor ; - -\ negate ( n1 -- 0-n1 ) the negative of n1 -: negate ifunc1 149 cnip ; - -\ 0= ( n1 -- t/f ) true if n1 is zero -: 0= 0 = ; - -\ <> ( x1 x2 -- flag ) flag is true if and only if x1 is not bit-for-bit the same as x2. -: <> = invert ; - -\ 0 <> ( n1 -- t/f ) true if n1 is not zero -: 0<> 0= invert ; - -\ 0< ( n1 -- t/f ) true if n1 < 0 -: 0< 0 < ; - -\ 0> ( n1 -- t/f ) true if n1 > 0 -: 0> 0 > ; - -\ 1+ ( n1 -- n1+1 ) -: 1+ 1 + ; - -\ 1- ( n1 -- n1-1 ) -: 1- 1 - ; - -\ 2+ ( n1 -- n1+2 ) -: 2+ 2 + ; - -\ 4+ ( n1 -- n1+4 ) -: 4+ 4 + ; - -\ 2- ( n1 -- n1-2 ) -: 2- 2 - ; - -\ 2* ( n1 -- n1<<1 ) n2 is shifted logically left 1 bit -: 2* 1 lshift ; - -\ 2/ ( n1 -- n1>>1 ) n2 is shifted arithmetically right 1 bit -: 2/ 1 rashift ; - -\ rot2 ( x1 x2 x3 -- x3 x1 x2 ) -: rot2 rot rot ; - -\ >= ( n1 n2 -- t/f) true if n1 >= n2 -: >= 2dup > rot2 = or ; - -\ <= ( n1 n2 -- t/f) true if n1 <= n2 -: <= 2dup < rot2 = or ; - -\ 0>= ( n1 -- t/f ) true if n1 >= 0 -: 0>= dup 0 > swap 0= or ; - -\ w+! ( n1 addr -- ) add n1 to the word contents of address -: w+! dup w@ rot + swap w! ; - -\ orc! ( c1 addr -- ) or c1 with the contents of address -: orc! dup c@ rot or swap c! ; - -\ andc! ( c1 addr -- ) and c1 with the contents of address -: andc! dup c@ rot and swap c! ; - -\ between ( n1 n2 n3 -- t/f ) true if n2 <= n1 <= n3 -: between rot2 over <= rot2 >= and ; - -\ cr ( -- ) emits a carriage return -: cr D emit ; - -\ space ( -- ) emits a space -: space bl emit ; - -\ spaces ( n -- ) emit n spaces -: spaces dup if 0 do space loop else drop then ; - -\ .hex ( n -- ) emit a single hex digit -: .hex F and 30 + dup 39 > if 7 + then emit ; - -\ .byte ( n -- ) emit 2 hex digits -: .byte dup 4 rshift .hex .hex ; - -\ .word ( n -- ) emit 4 hex digits -: .word dup 8 rshift .byte .byte ; - -\ .long ( n -- ) emit 8 hex digits -: .long dup 10 rshift .word .word ; - -\ bounds ( x n -- x+n x ) -: bounds over + swap ; - -\ alignl ( n1 -- n1) aligns n1 to a long (32 bit) boundary -: alignl 3 + FFFFFFFC and ; - -\ alignw ( n1 -- n1) aligns n1 to a halfword (16 bit) boundary -: alignw 1+ FFFFFFFE and ; - -\ c@++ ( c-addr -- c-addr+1 c1 ) fetch the character and increment the address -: c@++ dup c@ swap 1+ swap ; - -\ ctolower ( c1 -- c1 ) if c is A-Z converts it to lower case -: ctolower dup 41 5A between if 20 or then ; - -\ ctoupper ( c1 -- c1 ) if c is a-z converts it to upper case -: ctoupper dup 61 7A between if DF and then ; - -\ todigit ( c1 -- n1 ) converts character to a number -: todigit ctoupper 30 - dup 9 > if 7 - dup A < if -1 then then ; - -\ isdigit ( c1 -- t/f ) true if is it a valid digit according to base -: isdigit todigit dup 0>= swap mcwBase w@ < and ; - -\ isunumber ( c-addr len -- t/f ) true if the string is numeric -: isunumber bounds -1 rot2 do i c@ isdigit and loop ; - -\ unumber ( c-addr len -- u1 ) convert string to an unsigned number -: unumber bounds 0 rot2 do mcwBase w@ u* i c@ todigit + loop ; - -\ number ( c-addr len -- n1 ) convert string to a signed number -: number over c@ 2D = if 1- 0 max swap 1+ swap unumber negate else unumber then ; - -\ isnumber ( c-addr len -- t/f ) true if the string is numeric -: isnumber over c@ 2D = if 1- 0 max swap 1+ swap then isunumber ; - -\ .str ( c-addr u1 -- ) emit u1 characters at c-addr -: .str dup if bounds do i c@ 20 max 7F min emit loop else 2drop then ; - -\ npfx ( c-addr1 c-addr2 -- t/f ) -1 if c-addr2 is prefix of c-addr1, 0 otherwise -: npfx namelen rot namelen rot 2dup > if min bounds do c@++ i c@ <> if drop 0 leave then loop 0<> else 2drop 2drop 0 then ; - -\ namelen ( c-addr -- c-addr+1 len ) returns c-addr+1 and the length of the name at c-addr -: namelen c@++ namemax and ; - -\ cmove ( c-addr1 c-addr2 u -- ) If u is greater than zero, copy u consecutive characters from the data space starting -\ at c-addr1 to that starting at c-addr2, proceeding character-by-character from lower addresses to higher addresses. -: cmove dup 0= if 3drop else bounds do c@++ i c! loop then drop ; - -\ namecopy ( c-addr1 c-addr2 -- ) Copy the name from c-addr1 to c-addr2 -: namecopy over namelen 1+ nip cmove ; - -\ ccopy ( c-addr1 c-addr2 -- ) Copy the cstr from c-addr1 to c-addr2 -: ccopy over c@ 1+ cmove ; - -\ cappend ( c-addr1 c-addr2 -- ) addpend the cstr from c-addr1 to c-addr2 -: cappend dup dup c@ + 1+ rot2 over c@ over c@ + swap c! dup c@ swap 1+ rot2 cmove ; - -\ cappendc ( c cstr -- ) append c the cstr -: cappendc dup c@ 1+ over c! dup c@ + c! ; - -\ cappendn ( n cstr -- ) print the number n and append to cstr -: cappendn swap <# #s #> swap cappend ; - -\ cappendnc ( n cstr -- ) print the number n and append to cstr and then append a blank -: cappendnc swap <# #s #> over cappend bl swap cappendc ; - -\ cogX ( cstr n -- ) execute cstr on cog n -: cogX vfcog dup cogInbyte begin dup w@ 100 and until rot2 dup cogPadclr cogPad 1+ swap c@++ rot swap cmove d swap w! ; - -\ cogXO ( cstr -- ) disconnect console input, execute cstr on the next available cog, directing output back to this cog -: cogXO 0 outCON w! cogid dup 1+ vfcog dup rot connio cogX ; - -\ ??? ( -- ) prints out ??? -: ??? ." ???" ; - -\ .strname ( c-addr -- ) c-addr point to a forth name field, print the name -: .strname dup if namelen .str else drop ??? then ; - -\ .cstr ( addr -- ) emit a counted string at addr -: .cstr c@++ .str ; - -\ dq ( -- ) emit a counted string at the IP, and increment the ip past it and word align it -: dq r> c@++ 2dup + alignw >r .str ; - -\ i ( -- n1 ) the most current loop counter -: i rsPtr @ 3 + @ ; - -\ j ( -- n1 ) the second most current loop counter -: j rsPtr @ 5 + @ ; - -\ ibound ( -- n1 ) the upper bound of i -: ibound rsPtr @ 2+ @ ; - -\ jbound ( -- n1 ) the upper bound of j -: jbound rsPtr @ 4+ @ ; - -\ lasti? ( -- t/f ) true if this is the last value of i in this loop -: lasti? rsPtr @ 2+ @ 1- rsPtr @ 3 + @ = ; - -\ lastj? ( -- t/f ) true if this is the last value of j in this loop -: lastj? rsPtr @ 4+ @ 1- rsPtr @ 5 + @ = ; - -\ seti ( n1 -- ) set the most current loop counter -: seti rsPtr @ 3 + ! ; - -\ setj ( n1 -- ) set the second most current loop counter -: setj rsPtr @ 5 + ! ; - -\ eol? ( c1 -- c1 t/f ) true if c1 == LF or CR -: eol? dup A = over D = or ; - -\ bs? ( c1 -- c1 t/f ) true if c1 == BS or DEL -: bs? dup 8 = over 7F = or ; - -\ fill ( c-addr u char -- ) -: fill rot2 bounds do dup i c! loop drop ; - -\ nfa>lfa ( addr -- addr ) go from the nfa (name field address) to the lfa (link field address) -: nfa>lfa 2- ; - -\ nfa>pfa ( addr -- addr ) go from the nfa (name field address) to the pfa (parameter field address) - -: nfa>pfa 7FFF and namelen + alignw ; - -\ nfa>next ( addr -- addr ) go from the current nfa to the prev nfa in the dictionary - -: nfa>next nfa>lfa w@ ; - -\ lastnfa ( -- addr ) gets the last NFA - -: lastnfa mswlastnfa w@ ; - -\ fnamechar? ( c1 -- t/f ) true if c1 is a valif name char > $20 < $7F - -: fnamechar? dup 20 > swap 7F < and ; - -\ fpfa>nfa ( addr -- addr ) pfa>nfa for a forth word - -: fpfa>nfa 7FFF and 1- begin 1- dup c@ fnamechar? 0= until ; - -\ apfa>nfa ( addr -- addr ) pfa>nfa for an asm word - -: apfa>nfa lastnfa begin 2dup nfa>pfa w@ = over c@ 80 and 0= and if -1 else nfa>next dup 0= then until nip ; - -\ pfa>nfa ( addr -- addr ) gets the name field address (nfa) for a parameter field address (pfa) - -: pfa>nfa dup fMask @ and if fpfa>nfa else apfa>nfa then ; - -\ accept ( c-addr +n1 -- +n2 ) collect n1 -2 characters or until eol, ctl characters, tab included are converted to space, -\ pad with 1 space at start & end. For parsing ease, and for the length byte when we make cstrs - -: accept 3 max 2dup bl fill 1- swap 1+ swap bounds 0 - -begin key eol? - if cr drop -1 - else bs? - if drop dup - if 8 emit bl emit 8 emit 1- swap 1- bl over c! swap then 0 - else bl max dup emit swap >r over c! 1+ 2dup 1+ = r> 1+ swap then - then -until nip nip ; - -\ parse ( c1 -- +n2 ) parse the word delimited by c1, or the end of buffer is reached, n2 is the length >in is the offset -\ in the pad of the start of the parsed word - -: parse padsize mcw>in w@ = if 0 else 0 begin 2dup pad>in + c@ = if -1 else 1+ 0 then until then nip ; - -\ skipbl ( -- ) increment >in past blanks or until it equals padsize -: skipbl begin pad>in c@ bl = if mcw>in w@ 1+ dup mcw>in w! padsize = else -1 then until ; - -\ nextword ( -- ) increment >in past current counted string -: nextword padsize mcw>in w@ > if pad>in c@ mcw>in w@ + 1+ mcw>in w! then ; - -\ parseword ( c1 -- +n2 ) skip blanks, and parse the following word delimited by c1, update to be a counted string in -\ the pad - -: parseword skipbl parse dup if mcw>in w@ 1- 2dup mcPad + c! mcw>in w! then ; - -\ parsebl ( -- t/f) parse the next word in the pad delimited by blank, true if there is a word - -: parsebl bl parseword 0<> ; - -\ padnw ( -- t/f ) move past current word and parse the next word, true if there is a next word - -: padnw nextword parsebl ; - -\ parsenw ( -- cstr ) parse and move to the next word, str ptr is zero if there is no next word -: parsenw parsebl if pad>in nextword else 0 then ; - -\ padclr ( -- ) -: padclr begin padnw 0= until ; - -\ find ( c-addr -- c-addr 0 | xt 2 | xt 1 | xt -1 ) c-addr is a counted string, 0 - not found, 2 eXecute word, -\ 1 immediate word, -1 word NOT ANSI - -: find lastnfa over fin dup -if nip dup nfa>pfa over c@ 80 and 0= if w@ then - swap c@ dup 40 and - if 20 and if 2 else 1 then - else drop -1 then -then ; - -\ <# ( -- ) initialize the output area -: <# numpadsize mcw>out w! ; - -\ #> ( -- caddr ) address of a counted string representing the output, NOT ANSI -: #> drop numpadsize mcw>out w@ - -1 mcw>out w+! pad>out c! pad>out ; - -\ tochar ( n1 -- c1 ) convert c1 to a char -: tochar 1F and 30 + dup 39 > if 7 + then ; - -\ # ( n1 -- n2 ) divide n1 by mcwBase and convert the remainder to a char and append to the output -: # mcwBase w@ u/mod swap tochar -1 mcw>out w+! pad>out c! ; - -\ #s ( n1 -- 0 ) execute # until the remainder is 0 -: #s begin # dup 0= until ; - -\ . ( n1 -- ) -: . dup 0< if 2D emit negate then <# #s #> .cstr 20 emit ; - -\ cogid ( -- n1 ) return id of the current cog ( 0 - 7 ) -: cogid -1 1 hubop drop ; - -\ locknew ( -- n2 ) allocate a lock, result is in n2, -1 if unsuccessful -: locknew -1 4 hubop -1 = if drop -1 then ; - -\ lockret ( n1 -- ) deallocate a lock, previously allocated via locknew -: lockret 5 hubop 2drop ; - -\ lockset ( n1 -- n2 ) set lock n1, result is in n2, -1 if the lock was set as per 'c' flag, lock ( n1 ) must have -\ been allocated via locknew -: lockset 6 hubop nip ; - -\ lockclr ( n1 -- n2 ) set lock n1, result is in n2, -1 if the lock was set as per 'c' flag, lock ( n1 ) must have -\ been allocated via locknew - -: lockclr 7 hubop nip ; - -\ lockdict? ( -- t/f ) attempt to lock the forth dictionary, 0 if unsuccessful -1 if successful - -: lockdict? mydictlock w@ if 1 mydictlock w+! -1 else 0 lockset 0= if 1 mydictlock w! -1 else 0 then then ; - -\ freedict ( -- ) free the forth dictionary, if I have it locked - -: freedict mydictlock w@ dup if 1- dup mydictlock w! 0= if 0 lockclr drop then else drop then ; - -\ lockdict ( -- ) lock the forth dictionary - -: lockdict begin lockdict? until ; - -: _eoom ." Out of memory" cr ; -\ checkdict ( n -- ) make sure there are at least n bytes available in the dictionary -: checkdict mswHere w@ + mswDictend w@ >= -if cr mswHere w@ . mswDictend . _eoom clearkeys reset then ; - -: _c1 lockdict - mswlastnfa w@ mswHere w@ dup 2+ mswlastnfa w! swap over w! 2+ ; - -: _c2 over namecopy namelen + alignw mswHere w! freedict ; - -\ ccreate ( cstr -- ) create a dictionary entry -: ccreate _c1 swap _c2 ; - -\ create ( -- ) skip blanks parse the next word and create a dictionary entry -: create bl parseword if _c1 pad>in _c2 nextword then ; - -\ clabel ( cstr -- ) create an assembler constant at the current cog mcwAhere -: clabel lockdict ccreate ca_a_doconw w, mcwAhere w@ w, forthentry freedict ; - -\ herelal ( -- ) align contents of here to a long boundary, 4 byte boundary -: herelal lockdict 4 checkdict mswHere w@ alignl mswHere w! freedict ; - -\ herewal ( -- ) align contents of here to a word boundary, 2 byte boundary -: herewal lockdict 2 checkdict mswHere w@ alignw mswHere w! freedict ; - -\ allot ( n1 -- ) add n1 to here, allocates space on the data dictionary or release it -: allot lockdict dup checkdict mswHere w+! freedict ; - -\ aallot ( n1 -- ) add n1 to aHere, allocates space in the cog or release it, n1 is # of longs -: aallot mcwAhere w+! mcwAhere w@ par >= if _eoom reset then ; - -\ , ( x -- ) allocate 1 long, 4 bytes in the dictionary and copy x to that location - -: , lockdict herelal mswHere w@ m! 4 allot freedict ; - -\ a, ( x -- ) allocate 1 long in the cog and copy x to that location -: a, mcwAhere w@ ! 1 aallot ; - -\ w, ( x -- ) allocate 1 halfword 2 bytes in the dictionary and copy x to that location -: w, lockdict herewal mswHere w@ w! 2 allot freedict ; - -\ c, ( x -- ) allocate 1 byte in the dictionary and copy x to that location -: c, lockdict mswHere w@ c! 1 allot freedict ; - -\ orlnfa ( c1 -- ) ors c1 with the nfa length of the last name field entered -: orlnfa lockdict lastnfa orc! freedict ; - -\ forthentry ( -- ) marks last entry as a forth word -: forthentry lockdict 80 orlnfa freedict ; - -\ immediate ( -- ) marks last entry as an immediate word -: immediate lockdict 40 orlnfa freedict ; - -\ exec ( -- ) marks last entry as an eXecute word, executes always -: exec lockdict 60 orlnfa freedict ; - -\ leave ( -- ) exits at the next loop or +loop, i is placed to the max loop value -: leave r> r> r> drop dup 2>r >r ; - -\ clearkeys ( -- ) clear the input keys -: clearkeys 0 mcwState w! -begin -1 mswKeyTO w@ 0 do key? if key drop drop 0 leave then loop until ; - -\ w>l ( n1 n2 -- n1n2 ) consider only lower 16 bits -: w>l FFFF and swap 10 lshift or ; - -\ l>w ( n1n2 -- n1 n2) break into 16 bits -: l>w dup 10 rshift swap FFFF and ; - - -: : lockdict create 3741 1 mcwState w! ; - -: _mmcs ." MISMATCHED CONTROL STRUCTURE(S)" cr clearkeys ; - -: _; w, 0 mcwState w! forthentry 3741 <> if _mmcs then freedict ; -\ to prevent ; from using itself while it is defining itself -: ;; ca_a_exit _; ; immediate - -: ; ca_a_exit _; ;; immediate - -: dothen l>w dup 1235 = swap 1239 = or if dup mswHere w@ swap - swap w! else _mmcs then ; - -: then dothen ; immediate - -: thens begin dup FFFF and dup 1235 = swap 1239 = or if dothen 0 else -1 then until ; immediate - -: if ca_a_0branch w, mswHere w@ 1235 w>l 0 w, ; immediate - -: else ca_a_branch w, 0 w, dothen mswHere w@ 2- 1239 w>l ; immediate - -: until l>w 1317 = if ca_a_0branch w, mswHere w@ - w, else _mmcs then ; immediate - -: begin mswHere w@ 1317 w>l ; immediate - -: doloop swap l>w 2329 = if swap w, mswHere w@ - w, else _mmcs then ; - -: loop ca_a_(loop) doloop ; immediate - -: +loop ca_a_(+loop) doloop ; immediate - -: do ca_a_2>r w, mswHere w@ 2329 w>l ; immediate - -: _ecs 3A emit space ; -: _udf ." UNDEFINED WORD " ; - -: ." cm_dq w, 1 mcw>in w+! 22 parse dup c, dup pad>in mswHere w@ rot cmove dup allot 1+ mcw>in w+! herewal ; immediate - -\ fisnumber ( -- ) dummy routine s for indirection when float package is loaded -: fisnumber isnumber ; -: fnumber number ; - -\ interpretpad ( -- ) interpret the contents of the pad -: interpretpad 0 mcw>in w! -begin bl parseword - if pad>in nextword find dup - if dup -1 = - if drop compile? if w, else execute then 0 - else 2 = - if execute 0 else - compile? if execute 0 else pfa>nfa ." IMMEDIATE WORD " .strname clearkeys cr -1 then - then - then - else drop dup c@++ fisnumber - if - c@++ fnumber compile? if dup 0 FFFF between if ca_a_litw w, w, else ca_a_literal w, , then then 0 - else - 0 mcwState w! freedict _udf .strname cr clearkeys -1 - then - then - else -1 then until ; - -\ [0m ( -- ) a dummy word, fast load echos this so... -: [0m ; - -\ interpret ( -- ) the main interpreter loop -: interpret -\ ansi red -1b emit 5b emit 33 emit 31 emit 6d emit -mcPad padsize accept drop -\ ansi normal -1b emit 5b emit 30 emit 6d emit -interpretpad ; - - -\ variable ( -- ) skip blanks parse the next word and create a variable, allocate a long, 4 bytes -: variable lockdict create ca_a_dovar w, 0 , forthentry freedict ; - -\ _wc1 ( x -- nfa ) skip blanks parse the next word and create a constant, allocate a word, 2 bytes -: _wc1 lockdict create ca_a_doconw w, w, forthentry lastnfa freedict ; - -\ wconstant ( x -- ) skip blanks parse the next word and create a constant, allocate a word, 2 bytes -: wconstant _wc1 drop ; - -\ avariable ( -- ) skip blanks parse the next word and create a cog variable, allocate a long -: avariable mcwAhere w@ _wc1 1 aallot ; - -\ wvariable ( -- ) skip blanks parse the next word and create a variable, allocate a word, 2 bytes -: wvariable lockdict create ca_a_dovarw w, 0 w, forthentry freedict ; - -\ constant ( x -- ) skip blanks parse the next word and create a constant, allocate a long, 4 bytes -: constant lockdict create ca_a_docon w, , forthentry freedict ; - -\ asmlabel ( x -- ) skip blanks parse the next word and create an assembler entry -: asmlabel lockdict create w, freedict ; - -\ hex ( -- ) set the base for hexadecimal -: hex 10 mcwBase w! ; - -\ decimal ( -- ) set the mcwBase for decimal -: decimal A mcwBase w! ; - - -\ words ( cstr -- ) prints the words in the forth dictionary starting with cstr, 0 prints all - -: _words 0 >r lastnfa ." NFA (Forth/Asm Immediate eXecute) Name" -begin - 2dup swap dup if npfx else 2drop -1 then - if - r> dup 0= if cr then 1+ 3 and >r - dup .word space dup c@ dup 80 and - if 46 else 41 then emit dup 40 and - if 49 else 20 then emit 20 and - if 58 else 20 then emit - space dup .strname dup c@ namemax and 15 swap - 0 max spaces - then nfa>next dup 0= -until r> 3drop cr ; - -\ words ( -- ) prints the words in the forth dictionary, if the pad has another string following, with that prefix -: words parsenw _words ; - - - -\ del_ms ( n1 -- ) for 80Mhz 68DB max -: del_ms 7FFFFFFF clkfreq 3e8 u/ u/ min 1 max clkfreq 3E8 u/ u* cnt @ + begin dup cnt @ - 0< until drop ; -: del_sec 10 u/mod dup if 0 do 3e80 del_ms loop else drop then dup if 0 do 3e8 del_ms loop else drop then ; - -\ >m ( n1 -- n2 ) produce a 1 bit mask n2 for position n -: >m 1 swap lshift ; - -\ eeprom read and write routine for the prop proto board AT24CL256 eeprom on pin 28 sclk, 29 sda -\ pxi ( n1 -- ) set pin # n1 to an input -: pxi >m invert dira @ and dira ! ; - -\ pxo ( n1 -- ) set pin # n1 to an input -: pxo >m dira @ or dira ! ; - -\ pxl ( n1 -- ) set pin # n1 to lo -: pxl >m mpxl ; - -\ pxh ( n1 -- ) set pin # n1 to hi -: pxh >m mpxh ; - -\ px ( t/f n1 -- ) set pin # n1 to h - true or l false -: px swap if pxh else pxl then ; - -\ px? ( n1 -- t/f) true if pin n1 is hi -: px? >m mpx ; - -1C wconstant _scl \ SCL -1D wconstant _sda \ SDA - -1 _scl lshift constant _sclm -1 _sda lshift constant _sdam - -: _sdai _sda pxi ; -: _sdao _sda pxo ; -: _scli _scl pxi ; -: _sclo _scl pxo ; - -: _sdal _sdam mpxl ; -: _sdah _sdam mpxh ; -: _scll _sclm mpxl ; -: _sclh _sclm mpxh ; -: _sda? _sdam mpx ; - -\ _eeInit ( -- ) initialize the eeprom in case it is in a weird state -: _eeInit _sclh _sclo _sdai 9 0 do _scll _sclh _sda? if leave then loop ; - -\ _eeStart ( -- ) start the data transfer -: _eeStart _sclh _sclo _sdah _sdao _sdal _scll ; - -\ _eeStop ( -- ) stop the data transfer -: _eeStop _sclh _sdah _scli _sdai ; - -\ _eeWrite ( c1 -- t/f ) write a byte to the eeprom, returns ack bit -: _eeWrite 80 8 0 -do 2dup and if _sdah else _sdal then _sclh _scll 1 rshift loop -2drop _sdai _sclh _sda? _scll _sdal _sdao ; - -\ _eeRead ( t/f -- c1 ) read a byte from the eeprom, ackbit in, byte out -: _eeRead _sdai 0 8 0 -do 1 lshift _sclh _sda? _scll if 1 or then loop -swap _sda px _sdao _sclh _scll _sdal ; - -\ the eeReadPage and eeWritePage words assume the eeprom are 64kx8 and will address up to -\ 8 sequential eeproms -\ eeReadPage ( eeAddr addr u -- t/f ) return true if there was an error, use lock 1 -: eeReadPage begin 1 lockset 0= until -1 max rot dup ff and swap dup 8 rshift ff and swap 10 rshift 7 and 1 lshift dup >r -_eeStart A0 or _eeWrite swap _eeWrite or swap _eeWrite or -_eeStart r> A1 or _eeWrite or -rot2 bounds -do lasti? _eeRead i c! loop _eeStop 1 lockclr drop ; - -\ eeWritePage ( eeAddr addr u -- t/f ) return true if there was an error, use lock 1 -: eeWritePage begin 1 lockset 0= until -1 max rot dup ff and swap dup 8 rshift ff and swap 10 rshift 7 and 1 lshift -_eeStart A0 or _eeWrite swap _eeWrite or swap _eeWrite or -rot2 bounds -do i c@ _eeWrite or loop _eeStop 10 del_ms 1 lockclr drop ; -: eeErr ." eeProm error" ; - diff --git a/zubehör/PropForth/PropForthPart2.f b/zubehör/PropForth/PropForthPart2.f deleted file mode 100644 index dd089e3..0000000 --- a/zubehör/PropForth/PropForthPart2.f +++ /dev/null @@ -1,311 +0,0 @@ -FL - - - - - - -\ eeReadWord ( eeAddr -- n1 ) -: eeReadWord mcwT0 2 eeReadPage if eeErr cr then mcwT0 w@ ; - -\ eeWriteWord ( n1 eeAddr -- ) -: eeWriteWord swap mcwT0 w! mcwT0 2 eeWritePage if eeErr cr then ; - -\ eeReadByte ( eeAddr -- c1 ) -: eeReadByte eeReadWord FF and ; - -\ eeCopy ( addr1 addr2 u -- ) copy u bytes from addr1 to addr2, addr1 and addr2 must be on a 0x80 byte page boundary -\ clears the pad, so make sure no commands follow -\ and u must be a multiple of 0x80 and should not overlap -: eeCopy 7F invert and rot 7f invert and rot 7f invert and rot -0 do over i + dup . mcPad 80 eeReadPage if eeErr leave then -dup i + dup . mcPad 80 eeWritePage if eeErr leave then -i 3FF and 0= if cr then 80 +loop 2drop cogid cogPadclr ; - -: _d1 cr over .word space dup .word _ecs bounds ; -: _d2 cr .word _ecs ; -: _d3 mcT 10 bounds do i c@ .byte space loop 2 spaces mcT 10 .str ; - -\ dump ( adr cnt -- ) uses mcT -: dump _d1 do i _d2 i mcT 10 cmove _d3 10 +loop cr ; - -\ rdump ( adr cnt -- ) uses mcwT1 - mcwT8 -: rdump _d1 do i _d2 i mcT 10 eeReadPage if mcT 10 0 fill then _d3 10 +loop cr ; - -\ adump ( adr cnt -- ) -: adump cr over .word space dup .word _ecs bounds -do - cr i .word _ecs i 4 bounds - do i @ .long space loop -4 +loop cr ; - -\ \ ( -- ) moves the parse pointer >in to the end of the line, tricky to redefine -\ CTL-E gets traslated to \ by fast_load -:  \ -padsize mcw>in w! ; immediate exec - -\ ' ( -- addr ) returns the execution token for the next name, if not found it returns 0 -: ' parsebl if pad>in nextword find 0= if _udf cr drop 0 then else 0 then ; - -\ cq ( -- addr ) returns the address of the counted string following this word and increments the IP past it - -: cq r> dup c@++ + alignw >r ; - -\ c" ( -- c-addr ) compiles the string delimited by ", runtime return the addr of the counted string ** valid only in that line -: c" compile? -if - cm_cq w, 1 mcw>in w+! 22 parse dup c, dup pad>in mswHere w@ rot cmove dup allot 1+ mcw>in w+! herewal -else - 22 parse 1- pad>in 2dup c! swap 2+ mcw>in w+! -then ; immediate exec - -\ the base address for the input buffer -wvariable fl_base - -\ the number of buffered characters -wvariable fl_count - -\ the old mswDictend -wvariable fl_top - -\ the offset of the next byte in -wvariable fl_in - -\ one fast load at a time -wvariable fl_lock - -\ fl_buf ( -- t/f ) allocate all but 300 chars and load keys load true if successful -: fl_buf mswDictend w@ mswHere w@ - 300 - 0 fl_count w! lockdict fl_lock w@ -if freedict cr 0 else -1 fl_lock w! freedict -1 then -\ ( u t/f -- ) true if successful so far -if -\ save the old mswDictend and initialize variables - mswDictend w@ dup fl_top w! swap - dup fl_base w! dup fl_in w! 1- mswDictend w! - 0 - begin dup mswKeyTO w@ 0 - do - begin fkey? - if dup 5C = \ if a backslash, throw away keys - if drop begin keyto if D = else -1 then until else -\ drop all characters between { } - dup 7B = if drop begin keyto if 7D = else -1 then until else -\ translate CTL-E 05 to backspace 5C - dup 5 = if drop 5C then - fl_in w@ c! 1+ fl_in w@ 1+ dup fl_top w@ = - if _eoom clearkeys reset then fl_in w! - then - then 0 -\ stay in begin until - else drop -1 then -\ no key, exit begin until - until - loop - swap over = -\ until count is the same - until - dup . ." chars" cr fl_count w! -1 -else drop 0 then -; - -\ fl_skeys ( n -- ) emit the keys in the fast buffer -: fl_skeys -fl_lock w@ fl_count w@ 0<> and -if - fl_base w@ fl_count w@ bounds - do - i dup c@ emit mswDictend w! - loop - fl_top w@ mswDictend w! 0 fl_count w! lockdict 0 fl_lock w! freedict - -then -; - -: loadee 2dup F andn bounds - do i mcT 10 eeReadPage drop mcT 10 bounds do i c@ emit loop 10 +loop - dup F andn rot + swap F and dup if bounds do i eeReadByte emit loop else 2drop then ; -: _caend c" cr " over cappend cogid over cappendnc c" 0 mcwEmitptr w! >cog" swap cappend ; - -: FL fl_buf if c" fl_skeys" mcT ccopy mcT _caend mcT cogXO then ; - -\ file area 8000 - FFFF -\ individual files start on 128 byte boundaries, -\ the first thing is the length as a 16 bit word, then a cstr which is the file name, and then the contents -\ of the file - -8000 constant eeBot -10000 constant eeTop - -\ f_fill ( c1 -- ) fill the eeprom file area with c1 -: f_fill mcPad 80 rot fill eeTop eeBot -do i mcPad 80 eeWritePage if eeErr cr leave then 80 +loop -mcPad 80 bl fill ; - -\ f_clear ( -- ) clear the eeprom file area, only writes the length word to FFFF -: f_clear eeTop eeBot do FFFF i eeWriteWord 80 +loop ; - -: _fi mcNumpad dup w@ swap 2+ c@ + 2+ 1+ 80 u/mod swap if 1+ then 80 u* ; - -\ list ( -- ) list the files names in the eeprom -: list eeTop eeBot -do - i mcNumpad numpadsize namemax 1+ 2+ min eeReadPage if eeErr leave then mcNumpad w@ FFFF = - if i . cr 80 leave else i . mcNumpad dup w@ . 2+ .cstr cr _fi then -+loop ; - -\ f_find ( cstr -- n1 ) find the file, 0 if not found -: f_find 0 eeTop eeBot -do - i mcNumpad numpadsize namemax 1+ 2+ min eeReadPage if eeErr leave then mcNumpad w@ FFFF = - if nip 80 leave else over mcNumpad 2+ cstr= if drop i then _fi then -+loop ; - -\ f_free ( -- n1 ) address of the first free file page, 0 if there are none -: f_free 0 eeTop eeBot -do - i mcNumpad 4 eeReadPage if eeErr leave then mcNumpad w@ FFFF = - if drop i 80 leave else _fi then -+loop ; - -\ f_wfile ( -- ) write the file at fl_base for fl_count bytes, the format must be: -\ word length the number of bytes in the content -\ bytes cstr - filename -\ bytes file contents -: f_wfile f_free dup -if - dup fl_count w@ + eeTop < - if fl_base w@ fl_count w@ bounds - do dup - i fl_count w@ dup 80 min swap over - fl_count w! eeWritePage - if eeErr leave then - 80 + 80 +loop drop - else drop _eoom then -else drop eeErr cr then ; - -\ FW ( n1 -- ) like a fast load but write to the file area, first entry after a blank lines must be 3 periods followed by the filename -: FW fl_buf -if fl_count w@ 0 - do - fl_base w@ c@ 2E = - if leave else fl_base w@ 1+ fl_base w! fl_count w@ 1- fl_count w! then - loop - fl_base w@ 3 + 20 bounds do i c@ bl <= lasti? or if i leave then loop fl_base w@ - dup - 3 - fl_base w@ 2+ c! - fl_count w@ swap - dup fl_base w@ c! dup 8 rshift fl_base w@ 1+ c! - if f_wfile then -fl_top w@ mswDictend w! lockdict 0 fl_lock w! freedict -then ; - -\ f_al ( addr1 -- n1 addr2) for file at addr1, get the length - n1, and the address of teh contents - addr2 -: f_al dup eeReadWord over 2+ eeReadByte rot + 2+ 1+ ; - -\ f_load ( cstr -- ) load the file name following from eeprom -: f_load f_find dup -if f_al 0 mcT c! mcT cappendnc mcT cappendnc c" loadee" mcT cappend mcT _caend mcT cogXO else drop then ; - -\ load ( -- ) load the file name following from eeprom -: load parsenw dup if f_load else drop then ; - -: version c" PropForth v2.5 2009OCT24 17:15 0" ; - -\ free ( -- ) display free main bytes and current cog longs -: free mswDictend w@ mswHere w@ - . ." bytes free - " par mcwAhere w@ - . ." cog longs free" cr ; - -\ saveforth( -- ) write the running image to eeprom -: saveforth -c" mswHere" find -if - version dup c@ + dup c@ 1+ swap c! - pfa>nfa mswHere w@ swap -\ 2e emit - begin dup w@ over eeWriteWord 2+ dup 7F and 0= until - do - ibound i - 80 min dup i dup rot - eeWritePage if leave then 2e emit - +loop -else drop then cr ; - -\ _forget ( cstr -- ) wind the dictionary back to the word which follows - caution -: _forget dup -if - find if - pfa>nfa nfa>lfa dup mswHere w! w@ mswlastnfa w! - else .cstr ??? cr then -else drop then ; - - -\ forget ( -- ) wind the dictionary back to the word which follows - caution -: forget parsenw _forget ; - -\ this constant is used at boot time to set the forth starting routine, if it is changed -\ it does not take effect until a reboot, a cog reset is not adequate -cm_fstart wconstant cm_fstart - -\ fstart ( -- ) the start word -: fstart -cogid dup cogInbyte 10 lshift cm_entry 2 lshift or swap or resetDreg ! - -mcwInbyte m@ l>w swap - -100 mcwInbyte w! -0 mcwEmitptr w! -fMask @ mcwDebugcmd w! -\ zero out cog data area -par @ 8 + F8 0 fill -\ initialize forth variables -hex - -ca_varEnd mcwAhere w! - -\ initiliaze the common variables -lockdict mswHere w@ 0= -if 0 fl_lock w! lastnfa nfa>pfa 2+ alignl 4+ mswHere w! 7FFF dup mswMemend w! mswDictend w! then -freedict rsTop 1- rsPtr ! -FFFF = if 8 lshift cogid + vxcog w! else drop then -c" boot" mcT ccopy cogid mcT cappendn mcT find if execute else drop then --1 -begin - compile? 0= if ." Cog" cogid . ." ok" cr then -\ if the first time through set mcwDebugValue to -1 to let people know we are alive - if -1 mcwDebugvalue m! then - interpret -0 0 until ; - -: boot6 cogid >cog cog+ ; - -\ cog? ( -- ) display active forth cogs -: cog? ." Forth cogs: " ffcog w@ . 2D emit space lfcog w@ . cr ; - -\ cog+ ( -- ) add a forth cog -: cog+ ffcog w@ 1- dup 0>= if dup ffcog w! cogreset else drop then cog? ; - -\ cog- ( -- ) stop first forth cog, cannot be executed form the first forth cog -: cog- ffcog w@ dup cogid <> swap 1+ dup lfcog w@ <= rot and if dup 1- cogstop ffcog w! else drop then cog? ; - -\ st? ( -- ) prints out the stack -: st? ." ST: " stPtr @ 2+ dup stTop < if stTop swap - 0 do stTop 2- i - @ .long space loop else drop then cr ; - -\ sc ( -- ) clears the stack -: sc stTop stPtr @ - 3 - dup . ." items cleared" cr dup 0> if 0 do drop loop then ; - -\ _pna ( addr -- ) print the address, contents and forth name -: _pna dup .word 3a emit w@ dup .word space pfa>nfa .strname space ; - -\ pfa? ( addr -- t/f) true if addr is a pfa -: pfa? dup pfa>nfa dup c@ dup 80 and 0= swap namemax and 0<> rot nfa>pfa rot if w@ then rot = and ; - -\ rs? ( -- ) prints out the return stack -: rs? ." RS: " rsTop rsPtr @ 1+ - 0 do rsTop 1- i - @ dup 2- w@ pfa? if 2- _pna else .long space then loop cr ; - -\ lasm ( addr -- ) expects an address pointing to a structure in the following form -\ empty long, long upper address of the assembler routine, long lower address of the assembler routine -\ a series of longs which are the assembler codes -: lasm 4+ dup m@ swap 4+ swap over m@ dup mcwAhere w! do 4+ dup m@ a, loop drop ; - -\ f_erase ( -- ) erase the word following from eeprom - DANGER - should be the last word only -\ or following words may get overwritten when a new file is written to eeprom -: f_erase parsenw dup if f_find dup if eeTop swap do FFFF i eeWriteWord 80 +loop else drop then else drop then ; -\ no more symbols available - -\ mswlastnfa is generated by the forth spinmaker word - - diff --git a/zubehör/sphinx/hive-port/codegen/codegen.spin b/zubehör/sphinx/hive-port/codegen/codegen.spin deleted file mode 100644 index 33d3c4a..0000000 --- a/zubehör/sphinx/hive-port/codegen/codegen.spin +++ /dev/null @@ -1,1072 +0,0 @@ -' 2010-02-25 new version number -con - _clkmode = xtal1 + pll8x - _xinfreq = 10_000_000 - - tvPin = 24 - sdPin = 16 - -obj - term: "isxtv" - kw: "kwdefs" - st: "symbols" - bt: "bintree" - fs: "sxfile" - str: "stringx" - token: "tokenrdr" - eval: "eval" - methods: "methods" - -pub Main | err, p - - err := \Try - if err - if err > 0 - term.str( err ) - else - term.str( string("Error ") ) - term.dec( err ) - term.out( 13 ) - if stackset and long[pSymbolTableSpace] <> $6666_6666 - term.str( string("Stack corrupt",13) ) - term.dec( token.LineNumber ) - term.out( "," ) - term.dec( token.Column + 1 ) - term.out( " " ) - term.out( "'" ) - term.str( token.Text ) - term.out( "'" ) - term.out( 13 ) - fs.Close - fs.Open( string("sphinx.bin"), "R" ) - else - fs.Close - if link - fs.Open( string("link.bin"), "R" ) - else - fs.Open( string("sphinx.bin"), "R" ) - bt.Stop - fs.Execute( 0 ) - -pri Try - ProcessCommandLine - if verbosity => 1 - term.str( string("codegen 100225", 13) ) - - Start - -pri ProcessCommandLine | nArgs, l - fs.Open( string("args.d8a"), "R" ) - nArgs := fs.ReadByte - ifnot nArgs-- - abort string("usage: compile spinfile [options]") - fs.ReadStringUpperCase( @tokenFilename, MAXFILENAMELENGTH ) - - l := strsize( @tokenFilename ) - if tokenFilename[l-4] == "." and tokenFilename[l-3] == "S" and tokenFilename[l-2] == "P" and tokenFilename[l-1] == "N" - tokenFilename[l-4]~ - if strsize( @tokenFilename ) > 8 - term.str( @tokenFilename ) - abort string(" -- filename too long") - str.Copy( @outputFilename, @tokenFilename ) - str.Copy( @binFilename, @tokenFilename ) - str.Append( @tokenFilename, string(".TOK") ) - str.Append( @outputFilename, string(".SOB") ) - str.Append( @binFilename, string(".BIN") ) - - ' Process command line arguments - - repeat while nArgs-- - fs.ReadStringUpperCase( @stringBuffer, MAXSTRINGBUFFERLENGTH ) - if stringBuffer[0] == "-" - stringBuffer[0] := "/" - if strcomp( @stringBuffer, string("/L") ) - link~~ - elseif strcomp( @stringBuffer, string("/V") ) - ifnot nArgs-- - abort string("/V must be followed by a number") - verbosity := fs.ReadNumber - elseif strcomp( @stringBuffer, string("/S") ) - ifnot nArgs-- - abort string("/S must be followed by a number") - STACKSPACE := fs.ReadNumber - if STACKSPACE & 3 - abort string("/S argument must be a multiple of 4") - elseif strcomp( @stringBuffer, string("/T") ) - ifnot nArgs-- - abort string("/T must be followed by a number") - TABLESPACE := fs.ReadNumber - if TABLESPACE & 3 - abort string("/T argument must be a multiple of 4") - 'else - ' ignore - - fs.Close - -con - MAXFILENAMELENGTH = 8 + 1 + 3 ' 8.3 - MAXSTRINGBUFFERLENGTH = 32 - -SXTVRENDEZVOUS = $8000 - 4 -RESERVED = SXTVRENDEZVOUS - 4 -SDSPIRENDEZVOUS = RESERVED - 3 * 4 -SXFS2RENDEZVOUS = SDSPIRENDEZVOUS - 4 * 4 ' four rendezvous variables -SXFSRENDEZVOUS = SXFS2RENDEZVOUS - 4 * 4 ' four rendezvous variables -METADATABUFFER = SXFSRENDEZVOUS - 512 - -_free = ($8000 - METADATABUFFER) / 4 - -var - byte tokenFilename[MAXFILENAMELENGTH+1] ' input .tok file - byte outputFilename[MAXFILENAMELENGTH+1] ' output .sob file - byte binFilename[MAXFILENAMELENGTH+1] ' output .bin file (just used to empty the .bin) - byte sobFilename[MAXFILENAMELENGTH+1] ' used for child .sob file(s) - byte stringBuffer[MAXSTRINGBUFFERLENGTH+1] ' temp string buffer - -dat -STACKSPACE long 575<<2 -TABLESPACE long 1500<<2 -verbosity byte 0 ' set by /V option -stackset byte 0 -link byte 0 ' set by /L; if non-zero, run link.bin automatically. - -{ - |<---STACKSPACE--->|<--------TABLESPACE---------->|<-----------OBJECTSPACE------------>|<-I/O RENDEZVOUS etc. - +-----+------------+-----------+------------------+------+----------------+------------+--+ - |stack| |symboltable| |header|dat/PASM|methods| | | - +-----+------------+-----------+------------------+------+----------------+------------+--+ - |tempstorage| ^ ^ |stringtemp| ^ - | | ^ ^ | - pObjSpace-+ pObjWork-+ | | +--$8000 - pStringWork-+ pObjTop-+ -} -var -' These next 3 vars actually live in methods.spin now. -' word pObjSpace ' points to area where the compiled object's header and bytecode will live (this pointer doesn't change) -' word pObjWork ' points to next available byte (this pointer changes as code is compiled) -' word pObjTop ' points just beyond available object workspace - - word pDatWork ' like pObjWork but for the DAT segment - word pSymbolTableSpace - -pri Start | i - pSymbolTableSpace := word[ $0a ] + STACKSPACE - - methods.set_pObjSpace( pSymbolTableSpace + TABLESPACE ) - methods.set_pObjTop( METADATABUFFER ) - - bt.Init( pSymbolTableSpace, methods.get_pObjSpace ) - st.Init - - long[ bt.Alloc(4) ] := $6666_6666 - stackset~~ - - ReadTimestamp - - if verbosity => 2 - term.str( string("stack space: ") ) - term.dec( STACKSPACE ) - term.str( string(13,"table space: ") ) - term.dec( TABLESPACE ) - term.str( string(13,"work space: ") ) - term.dec( methods.get_pObjTop - methods.get_pObjSpace ) - term.out( 13 ) - - term.str( string("Opening ") ) - term.str( @tokenFilename ) - term.out( 13 ) - token.Open( @tokenFilename ) - - bvarSize~ - wvarSize~ - lvarSize~ - nPubs := 1 ' pub indexes start at 1; 0th entry in object header is not a pub - nPris~ ' pri indexes have to be compensated later once final nPubs is known - nObjs~ - pObjList~ - pObjListEnd~ - - ParsePass1 - token.Close - - CheckStack - - varSize := (lvarSize + wvarSize + bvarSize + 3) & !3 - pDatWork := methods.get_pObjSpace + (nPubs + nPris + nObjs) << 2 ' each PUB/PRI/OBJ takes up 4 bytes in the object header - methods.set_pObjWork( pDatWork + datSize ) - bytefill( methods.get_pObjSpace, 0, pDatWork - methods.get_pObjSpace ) ' zero the header - - FixupOffsets( bt.PeekW( st.GetPSymbolTable ) ) - - token.Open( @tokenFilename ) - - ParsePass2 - token.Close - - methods.set_pObjWork( (methods.get_pObjWork + 3) & !3 ) ' Round up to multiple of 4 - - WriteSobFile - -pri CheckStack - if long[pSymbolTableSpace] <> $6666_6666 - abort string("Stack overflow") - -pri ReadTimestamp - if verbosity => 3 - term.str( string("reading timestamp: ") ) - - if fs.Open( string("timestmp.d8a"), "R" ) == 0 - timestamp := fs.ReadLong + 1 - fs.Close - else - timestamp := 1 - - if verbosity => 3 - term.dec( timestamp ) - term.out( 13 ) - - fs.Open( string("timestmp.d8a"), "W" ) - fs.WriteLong( timestamp ) - fs.Close - -pri WriteSobFile | p - - if nPubs == 1 ' recall that nPubs starts at 1 because of the 0th entry in the object header. - abort string("No PUB routines defined") - - ifnot link ' If we're not running the linker immediately after codegen, - if verbosity => 3 ' empty the .bin file if it exists(would be better to delete, - term.str( string("Zeroing ") ) ' but sxfs doesn't have that ability). If we forget to link, - term.str( @binFilename ) ' we'll get an error when we try to run the .bin. - term.out( 13 ) - - if fs.Open( @binFilename, "R" ) == 0 ' Check for existence - fs.Close - fs.Open( @binFilename, "W" ) - - fs.Close - - objBinSize := methods.get_pObjWork - methods.get_pObjSpace ' This gets stored in .sob header - word[methods.get_pObjSpace][0] := objBinSize ' This gets stored in object header - word[methods.get_pObjSpace][1] := nPubs + nPris + nObjs << 8 - - ' Compute checksum and hash - checksum~ - hash~ - p := methods.get_pObjSpace - repeat objBinSize - checksum += byte[p] - hash := (hash <- 1) ^ byte[p++] - - if verbosity => 2 - term.str( string("Writing ") ) - term.str( @outputFilename ) - term.out( 13 ) - - wordfill( @numExports, 0, 4 ) - ComputeSobInfo( bt.PeekW( st.GetPSymbolTable ) ) - - fs.Open( @outputFilename, "W" ) - fs.Write( @SobFileHeader, SIZEOFSOBHEADER ) - WriteExports( bt.PeekW( st.GetPSymbolTable ) ) - WriteImports - fs.Write( methods.get_pObjSpace, objBinSize ) - fs.Close - -pri FixupOffsets( p ) | s, t, v, size, headerSize, q -{{ - Goes through the symbol table and adjusts offsets of word VARs to put them after long VARs - and puts byte VARs after word VARs. - Also adjusts PRI method indexes so they come after PUBs, and OBJ indexes to put them after PRIs. - And now also adjusts DAT labels upward by the size of the object header. -}} - ifnot p - return - - FixupOffsets( bt.PeekW( p ) ) - - s := p + 4 - s += strsize(s) + 1 - if byte[s] == st#kVAR_SYMBOL ' var is followed by - ++s - size := byte[s++] ' 1-byte size (1, 2, 4) and 2-byte offset - t~ - if size == 2 - t := lvarSize ' word vars come after long vars - elseif size == 1 - t := lvarSize + wvarSize ' byte vars come after word vars - bt.PokeW( s, bt.PeekW(s) + t ) ' adjust var symbol's offset - elseif byte[s] == st#kPRI_SYMBOL - ++s - byte[s] += nPubs ' the PUBs are 1..nPubs-1, the PRIs are nPubs..nPubs+nPris-1 - elseif byte[s] == st#kOBJ_SYMBOL - ++s - byte[s][2] += nPubs + nPris ' the OBJs are nPubs+nPris.. - elseif byte[s] == st#kDAT_SYMBOL - headerSize := (nPubs + nPris + nObjs) << 2 - q := s ' start at global label - repeat ' and follow the linked list of local labels - bt.PokeW( q+2, bt.PeekW( q+2 ) + headerSize ) ' adjust label's dp - ifnot q := bt.PeekW( q+6 ) - quit - q += strsize(q) + 1 ' next in the list - - FixupOffsets( bt.PeekW( p + 2 ) ) - -{ -pri TraverseTable( p ) | s, t, v, q -{ - Symbol table dump. Call thusly: - TraverseTable( bt.PeekW( st.GetPSymbolTable ) ) -} - ifnot p - return - - TraverseTable( bt.PeekW( p ) ) - - s := p + 4 - term.str( s ) - s += strsize(s) + 1 - case t := byte[s++] - st#kINT_CON_SYMBOL: - v := bt.PeekL( s ) - term.out( "=" ) - term.dec( v ) - st#kPRI_SYMBOL, st#kPUB_SYMBOL: - if t == st#kPRI_SYMBOL - term.str( string(" pri: ") ) - else - term.str( string(" pub: ") ) - term.dec( byte[s++] ) ' method index - term.out( " " ) - term.dec( byte[s++] ) ' #params - st#kDAT_SYMBOL: - q := s-1 - repeat while q := bt.PeekW( q+6 ) - term.out(":") - term.str( q ) - q += strsize( q ) + 1 - term.str( string(" dat ") ) - case byte[s++] - 1: term.str( string("byte@") ) - 2: term.str( string("word@") ) - 4: term.str( string("long@") ) - term.hex( bt.PeekW(s), 4 ) - term.out(",") - term.hex( bt.PeekW(s+2), 4 ) - st#kVAR_SYMBOL: - term.str( string(" var ") ) - case byte[s++] - 1: term.str( string("byte@") ) - 2: term.str( string("word@") ) - 4: term.str( string("long@") ) - term.hex( bt.PeekW(s), 4 ) - st#kOBJ_SYMBOL: - term.out( ":" ) - term.str( bt.PeekW(s) ) - st#kSOB_SYMBOL: - term.out( ">" ) - term.hex( bt.PeekW(s), 4) - other: - term.out( "?" ) - term.hex( t, 2 ) - term.out( ";" ) - term.out( " " ) - - TraverseTable( bt.PeekW( p + 2 ) ) -} -con -SIZEOFSOBHEADER = 26 - -dat -SobFileHeader long - byte "SOB1" -timestamp long 0 -hash long 0 -numExports word 0 -exportSize word 0 -numImports word 0 -importSize word 0 -objBinSize word 0 -checksum byte 0 -{padding} byte 0 -varSize word 0 ' total size in bytes of vars (rounded up to multiple of 4) - - -pri ComputeSobInfo( p ) | pName, type -{{ - Traverses the symbol table and computes exportSize, numExports, importSize, numImports. - Initialize those variables to 0 before entering this routine. -}} - ifnot p - return - - pName := p + 4 - type := byte[pName + strsize(pName) + 1] - if type == st#kINT_CON_SYMBOL or type == st#kFLOAT_CON_SYMBOL - ++numExports - exportSize += strsize(pName) + 6 ' name + null + type + 4-byte value - elseif type == st#kPUB_SYMBOL - ++numExports - exportSize += strsize(pName) + 4 ' name + null + type + index + #args - elseif type == st#kOBJ_SYMBOL - pName := bt.PeekW( pName + strsize(pName) + 2 ) - ++numImports - importSize += strsize(pName) - 4 + 4 ' name (excluding ".SOB") + null + 2-byte count + reserved - - ComputeSobInfo( bt.PeekW( p ) ) - ComputeSobInfo( bt.PeekW( p + 2 ) ) - -pri WriteExports( p ) | pName, pData, type -{{ - Traverses the symbol table and writes exports to output file. -}} - ifnot p - return - - pName := p + 4 - pData := pName + strsize(pName) + 1 - type := byte[pData] - - if type == st#kINT_CON_SYMBOL or type == st#kFLOAT_CON_SYMBOL ' name + null + type + 4-byte value - fs.WriteString( pName ) - fs.WriteByte( type ) - fs.WriteLong( bt.PeekL( pData+1 ) ) - elseif type == st#kPUB_SYMBOL ' name + null + type + index + #args - fs.WriteString( pName ) - fs.WriteByte( type ) - fs.Write( pData+1, 2 ) ' index + #args - - WriteExports( bt.PeekW( p ) ) - WriteExports( bt.PeekW( p + 2 ) ) - -pri WriteImports | pName, pData, type -{{ - Traverses the OBJ list and writes imports to output file. - - We use a list so that the imports are written in the order they appear in the source. - This is important for OBJ symbols because we want the SOB imports to line up properly. -}} - pName := pObjList - repeat while pName - - pData := pName + strsize(pName) + 1 ' pName is name of symbol (e.g. "DEBUG") - ' pData points to symbol's data: 1-byte type + 2-byte pointer to SOB + 1-byte index + 2-byte count + 2-byte link - pName := bt.PeekW( pData + 1 ) ' pName is name of .sob file (e.g. "TV_TEXT.SOB") - fs.Write( pName, strsize(pName)-4 ) ' Write name but drop .SOB suffix. - fs.WriteByte( 0 ) ' Write null terminator - fs.WriteWord( bt.PeekW( pData + 4 ) ) ' Write count - fs.WriteByte( 0 ) ' Write reserved byte - - pName := bt.PeekW( pData + 6 ) ' link to next - -pri ParsePass1 - Eval.set_pass( 1 ) - InitDat - if verbosity => 2 - term.str( string("Pass 1") ) - term.out( 13 ) - ParseCon1 - repeat while token.Type <> kw#kEOF - ifnot token.IsBlockDesignator - abort string("Syntax error") - if token.Column - abort string("Block designator not in column 1") - if token.AdvanceIf( kw#kCON ) - ParseCon1 - elseif token.AdvanceIf( kw#kDAT ) - ParseDat1 - elseif token.AdvanceIf( kw#kOBJ ) - ParseObj1 - elseif token.AdvanceIf( kw#kPRI ) - ParseMethod1( st#kPRI_SYMBOL ) - elseif token.AdvanceIf( kw#kPUB ) - ParseMethod1( st#kPUB_SYMBOL ) - elseif token.AdvanceIf( kw#kVAR ) - ParseVar1 - else - abort string("Syntax error") - -pri ParsePass2 - Eval.set_pass( 2 ) - InitDat - if verbosity => 2 - term.str( string("Pass 2") ) - term.out( 13 ) - ParseCon2 - repeat while token.Type <> kw#kEOF - CheckStack - ifnot token.IsBlockDesignator - abort string("Syntax error") - if token.AdvanceIf( kw#kCON ) - ParseCon2 - elseif token.AdvanceIf( kw#kDAT ) - ParseDat2 - elseif token.AdvanceIf( kw#kOBJ ) - SkipBlock - elseif token.AdvanceIf( kw#kPRI ) - methods.Parse2( st#kPRI_SYMBOL ) - elseif token.AdvanceIf( kw#kPUB ) - methods.Parse2( st#kPUB_SYMBOL ) - elseif token.AdvanceIf( kw#kVAR ) - SkipBlock - else - abort string("Syntax error") - -pri SkipBlock - repeat until token.IsBlockDesignator or token.Type == kw#kEOF - token.Advance - -pri ParseCon1 | o, p, inc, v - o~ - token.AdvanceIf( kw#kEOL ) - repeat - inc := 1 - if token.AdvanceIf( kw#kOCTOTHORP ) - o := Eval.EvaluateExpression( 0 ) - elseif token.IsId ' Id +? - st.AddToTable( token.Text ) - byte[ p := bt.Alloc(1) ] := st#kINT_CON_SYMBOL ' p points to symbol type byte - ' in case we have to patch the type retroactively - token.Advance - if token.AdvanceIf( kw#kEQUAL ) ' Id = - v := Eval.TryToEvaluateExpression( 0 ) - if Eval.Succeeded - bt.PokeL( bt.Alloc(4), v ) - else ' it is undefined - byte[p] := st#kUNDEFINED_CON_SYMBOL - bt.Alloc(4) ' but we should allocate space for the eventual value. - elseif token.AdvanceIf( kw#kLBRACKET ) ' Id [ - inc := Eval.EvaluateExpression( 0 ) - token.Eat( kw#kRBRACKET ) - bt.PokeL( bt.Alloc(4), o ) - o += inc - else ' Plain Id - bt.PokeL( bt.Alloc(4), o ) - o += inc - else - quit - if token.Type == kw#kCOMMA or token.Type == kw#kEOL - token.Advance - else - abort string("Syntax error") - -pri ParseCon2 | o, p, inc - o~ - token.AdvanceIf( kw#kEOL ) - repeat - inc := 1 - if token.AdvanceIf( kw#kOCTOTHORP ) - o := Eval.EvaluateExpression( 0 ) - elseif token.IsId ' Id +? - p := st.SymbolLookup( token.Text ) - token.Advance - if token.AdvanceIf( kw#kEQUAL ) ' Id = - bt.PokeL( p+1, Eval.EvaluateExpression( 0 ) ) - byte[p] := st#kINT_CON_SYMBOL - elseif token.AdvanceIf( kw#kLBRACKET ) ' Id [ - inc := Eval.EvaluateExpression( 0 ) - token.Eat( kw#kRBRACKET ) - o += inc - else ' Plain Id - o += inc - else - quit - if token.Type == kw#kCOMMA or token.Type == kw#kEOL - token.Advance - else - abort string("Syntax error") - -var - word dp ' dp is the address in DAT space of current source line. - ' dp = pObjWork - pObjSpace - word ooo ' dp + ooo = cogx4; cogx4 / 4 = cog address of current source line. - word pGlobalLabel ' points to most-recently defined global label; used as the head of a linked list of local labels - byte alignment ' 1, 2, or 4 -{ - a DAT line consists of (in rough pseudo-bnf) one of the following: - 1) [label | :label] ORG|RES [ ] - 2) [label | :label] * (with commas between -- yeah, yeah, I said it was rough) - 3) [label | :label] [ ] , * - - As we process DAT statements and emit bytes, pDatWork increases, always pointing where the next byte will go. - dp = pDatWork - pObjSpace (i.e., dp 0 is the beginning of DAT space) - cogx4 = dp + ooo, where ooo is updated each time an ORG directive is encountered: - ooo = org_expression * 4 - dp - Example: - Let us say pObjSpace is 1000. The object header starts there. Say it takes up 100 bytes, so pDatWork is 1100. - In terms of DAT space, dp = 1100 - 1000 = 100. - Say there's an ORG 100, so ooo = 100 * 4 - 100 = 300. - A label defined at this point would have dp = 100, cogx4 = 100 + 300 = 400 (divide this by 4 to get cog address 100). - Suppose we assemble a PASM instruction and emit the four bytes. - Now pDatWork = 1104, dp = 104, and cogx4 = 104 + 300 = 404 (cog address 101). -} -pri InitDat - if Eval.get_pass == 1 - dp~ - ooo~ - else - ooo := methods.get_pObjSpace - pDatWork '= -dp - - pGlobalLabel~ - alignment := 1 - -pri ParseDat1 | pLabelData, p, v, size, count, dpInc, temp, cogx4 - Eval.EnteringDat - cogx4~ - repeat - pLabelData~ - if token.AdvanceIf( kw#kEOL ) - next - - if token.IsId ' label? - if byte[token.Text] == ":" ' local label? - ' Traverse the list of locals to check for duplicates - p := pGlobalLabel - repeat while p := bt.PeekW( p + 6 ) ' p points to string part of local label - if strcomp( p, token.Text ) - abort string("Duplicate local label") - p += strsize(p) + 1 ' Increment p past string part to data part - - p := bt.Alloc( strsize( token.Text ) + 9 ) ' p points to - str.Copy( p, token.Text ) ' local label's text followed by - pLabelData := p + strsize( token.Text ) + 1 ' 8 bytes of label data (to be filled in later) - byte[ pLabelData ] := st#kDAT_SYMBOL ' type - bt.PokeW( pLabelData+6, bt.PeekW(pGlobalLabel+6) ) ' pointer to local labels - ifnot pGlobalLabel - abort string("No preceding global label") - bt.PokeW( pGlobalLabel+6, p ) ' Insert this local label at head of list - - else ' plain old label - st.AddToTable( token.Text ) - pLabelData := bt.Alloc( 8 ) ' local label data - byte[ pLabelData ] := st#kDAT_SYMBOL ' type - bt.PokeW( pLabelData+6, 0 ) ' pointer to local labels - - pGlobalLabel := pLabelData - - token.Advance - - dpInc~ - if token.AdvanceIf( kw#kORG ) ' Case 1a: ORG [ ] - alignment := 4 - PadToAlignment - temp~ ' default ORG is 0 - if token.Type <> kw#kEOL - temp := Eval.EvaluateExpression( pGlobalLabel ) << 2 - ooo := temp - dp - cogx4 := dp + ooo - elseif token.AdvanceIf( kw#kRES ) ' Case 1b: RES [ ] - alignment := 4 - PadToAlignment - temp := 4 ' default RES is 1 long - if token.Type <> kw#kEOL - temp := Eval.EvaluateExpression( pGlobalLabel ) << 2 - cogx4 := dp + ooo - ooo += temp - elseif token.AdvanceIf( kw#kFIT ) - temp := 496 - if token.Type <> kw#kEOL - temp := Eval.EvaluateExpression( pGlobalLabel ) - if cogx4 > temp << 2 - abort string("Origin exceeds FIT limit") - elseif token.IsSize ' Case 2. BYTE/WORD/LONG * - alignment := |< (token.Type - kw#kBYTE) ' 1/2/4 - PadToAlignment - cogx4 := dp + ooo - token.Advance - if token.Type <> kw#kEOL - repeat - size := alignment - if token.IsSize - size := |< (token.Type - kw#kBYTE) ' 1/2/4 -- just size - token.Advance - v := Eval.TryToEvaluateExpression( pGlobalLabel ) - count := 1 - if token.AdvanceIf( kw#kLBRACKET ) - count := Eval.EvaluateExpression( pGlobalLabel ) - token.Eat( kw#kRBRACKET ) - dpInc += count * size - while token.AdvanceIf( kw#kCOMMA ) - elseif token.IsCond or token.IsPasm ' Case 3. [ ] - alignment := 4 - PadToAlignment - cogx4 := dp + ooo - dpInc := 4 - repeat - token.Advance - until token.Type == kw#kEOL - elseif token.Type <> kw#kEOL - abort string("Syntax error") - - if pLabelData ' Was a label defined on the current source line? - byte[pLabelData+1] := alignment ' data size - bt.PokeW( pLabelData+2, dp ) ' Address in DAT space - bt.PokeW( pLabelData+4, cogx4 ) ' Cog address x 4 - ' The local label linked list pointer was filled in previously - dp += dpInc - cogx4 += dpInc - - until token.IsBlockDesignator or token.Type == kw#kEOF - - datSize := dp - - Eval.LeavingDat - -pri ParseDat2 | pLabelData, p, v, size, count, temp, cond, pasmOp, ds, effect, oooInc - Eval.EnteringDat - oooInc~ - repeat - pLabelData~ - if token.AdvanceIf( kw#kEOL ) - next - - if token.IsId ' label? - if byte[token.Text] == ":" ' local label? - ' Traverse the list of locals to find this one. - p := pGlobalLabel - repeat while p := bt.PeekW( p + 6 ) ' p points to string part of local label - if strcomp( p, token.Text ) - quit - p += strsize(p) + 1 ' Increment p past string part to data part - pLabelData := p + strsize(p) + 1 - else ' plain old label - pLabelData := st.SymbolLookup( token.Text ) - pGlobalLabel := pLabelData - - token.Advance - - dp := pDatWork - methods.get_pObjSpace - - if token.AdvanceIf( kw#kORG ) ' Case 1: ORG - temp~ ' default ORG is 0 - alignment := 4 - PadToAlignment - if token.Type <> kw#kEOL - temp := Eval.EvaluateExpression( pGlobalLabel ) << 2 - ooo := temp - dp - elseif token.AdvanceIf( kw#kRES ) ' Case 1b: RES [ ] - alignment := 4 - PadToAlignment - oooInc := 4 ' default RES is 1 long - if token.Type <> kw#kEOL - oooInc := Eval.EvaluateExpression( pGlobalLabel ) << 2 - elseif token.AdvanceIf( kw#kFIT ) ' ignore FIT in pass 2 - if token.Type <> kw#kEOL - Eval.EvaluateExpression( pGlobalLabel ) - - elseif token.IsSize ' Case 2. BYTE/WORD/LONG * - alignment := |< (token.Type - kw#kBYTE) ' 1/2/4 - PadToAlignment - token.Advance - if token.Type == kw#kEOL - next - repeat - size := alignment - if token.IsSize - size := |< (token.Type - kw#kBYTE) ' 1/2/4 -- just size - token.Advance - v := Eval.EvaluateExpression( pGlobalLabel ) - count := 1 - if token.AdvanceIf( kw#kLBRACKET ) - count := Eval.EvaluateExpression( pGlobalLabel ) - token.Eat( kw#kRBRACKET ) - repeat count - temp := v - repeat size - EmitDat( temp ) - temp >>= 8 - while token.AdvanceIf( kw#kCOMMA ) - elseif token.IsCond or token.IsPasm - alignment := 4 - PadToAlignment - cond~~ - if token.IsCond - cond := token.GetCond - token.Advance - ifnot token.IsPasm - abort string("Expected PASM instruction") - ds := %11 - case token.Type - kw#kAND: pasmOp := $60bc0000 ' Special handling for double-duty PASM mnemonics - kw#kOR: pasmOp := $68bc0000 - kw#kWAITCNT: pasmOp := $f8bc0000 - kw#kWAITPEQ: pasmOp := $f03c0000 - kw#kWAITPNE: pasmOp := $f43c0000 - kw#kWAITVID: pasmOp := $fc3c0000 - kw#kCOGID: pasmOp := $0cfc0001 - ds := %10 - kw#kCOGINIT: pasmOp := $0c7c0002 - ds := %10 - kw#kCOGSTOP: pasmOp := $0cfc0003 - ds := %10 - kw#kCLKSET: pasmOp := $0c7c0000 - ds := %10 - other: - pasmOp := token.GetPasmOp - ds := token.GetPasmDS - - if token.Type == kw#kCALL ' special handling for CALL instruction - token.Advance - token.Eat( kw#kOCTOTHORP ) - ifnot token.IsId - abort string("Expected return label") - str.Copy( @stringBuffer, token.Text ) - str.Append( @stringBuffer, string("_RET") ) - ifnot p := st.SymbolLookup( @stringBuffer ) - abort string("Return label not found") - if byte[p] <> st#kDAT_SYMBOL - abort string("Non-DAT return label") - temp := bt.PeekW( p+4 ) - if temp & 3 - abort string("Return label is not long") - pasmOp |= ((temp >> 2 & $1ff) << 9) | (Eval.EvaluateExpression( pGlobalLabel ) & $1ff) ' combine destination and source - - else ' regular PASM instruction - token.Advance - if ds & %10 ' destination operand - pasmOp |= (Eval.EvaluateExpression( pGlobalLabel ) & $1ff) << 9 - if ds == %11 - token.Eat( kw#kCOMMA ) - if ds & %01 - if token.AdvanceIf( kw#kOCTOTHORP ) ' immediate? - pasmOp |= |< 22 ' set I - pasmOp |= Eval.EvaluateExpression( pGlobalLabel ) & $1ff ' source operand - - effect~ - if token.Type <> kw#kEOL - repeat - ifnot token.IsEffect - abort string("Expected PASM effect") - if token.GetEffect == 8 ' NR? - effect &= %110 ' clear R - else - effect |= token.GetEffect - token.Advance - while token.AdvanceIf( kw#kCOMMA ) - - if pasmOp == 0 and (cond <> -1 or effect ) - abort string("Conditions and effects not allowed on NOP") - - pasmOp |= (effect << 23) - if cond <> -1 - pasmOp := pasmOp & %111111_1111_0000_111111111_111111111 | (cond << 18) - - repeat 4 - EmitDat( pasmOp ) - pasmOp >>= 8 - - if pLabelData ' Was a label defined on the current source line? - if byte[pLabelData+1] <> alignment { data size -} or bt.PeekW( pLabelData+2 ) <> dp { Address in DAT space -} or bt.PeekW( pLabelData+4 ) <> dp + ~~ooo ' Cog address x 4 - term.dec(byte[pLabelData+1]) - term.out(" ") - term.dec(alignment) - term.out(13) - term.dec(bt.PeekW( pLabelData+2 )) - term.out(" ") - term.dec(dp) - term.out(13) - term.dec(bt.PeekW( pLabelData+4 )) - term.out(" ") - term.dec(dp+~~ooo) - abort string("Phase error") - - ooo += oooInc~ - - until token.IsBlockDesignator or token.Type == kw#kEOF - Eval.LeavingDat - -pri PadToAlignment - repeat (alignment - dp) & (alignment - 1) ' number of bytes needed to pad to new alignment - ++dp - if Eval.get_pass == 2 - EmitDat( 0 ) ' padding - -pri EmitDat( b ) - byte[pDatWork++] := b - -var - word pObjList ' OBJ symbols are linked together in a list. - word pObjListEnd ' Pointer to the last OBJ; append new OBJs at the end. - -pri ParseObj1 | i, count, pObj, pSob, pObjName -{{ - { [ ] } : -}} - token.AdvanceIf( kw#kEOL ) - repeat while token.IsId - pObjName := bt.Alloc( 0 ) + 4 ' Hacky way to get pointer to the name field of the symbol we're about to add. - st.AddToTable( token.Text ) - pObj := bt.Alloc( 8 ) ' type (1), ptr to sym table (2), index(1), count (2), ptr to next (2) - byte[pObj] := st#kOBJ_SYMBOL - - token.Advance - - count := 1 - if token.AdvanceIf( kw#kLBRACKET ) - count := Eval.EvaluateExpression( 0 ) - token.Eat( kw#kRBRACKET ) - - token.Eat( kw#kCOLON ) - - byte[pObj][3] := nObjs - nObjs += count - bt.PokeW( pObj+4, count ) - - ' Link this OBJ into the list of OBJs - if pObjListEnd ' this points to last OBJ name field - pObjListEnd += strsize(pObjListEnd)+1 ' now this points to OBJ data - bt.PokeW( pObjListEnd+6, pObjName ) ' make a link to new OBJ name field - - pObjListEnd := pObjName - bt.PokeW( pObj+6, 0 ) - - ifnot pObjList - pObjList := pObjName - - i~ - repeat - ifnot token.IsIntLiteral - abort string("Syntax error") - sobFilename[i++] := token.Value - if i > MAXFILENAMELENGTH-4 ' have to leave room for ".sob" suffix - abort string("SOB filename too long") - token.Advance - while token.AdvanceIf( kw#kCOMMA ) - - sobFilename[i]~ - str.ToUpper( @sobFilename ) - str.Append( @sobFilename, string(".SOB") ) - - ifnot pSob := st.SymbolLookup( @sobFilename ) - st.AddToTable( @sobFilename ) - byte[ pSob := bt.Alloc(3) ] := st#kSOB_SYMBOL ' type (1), ptr to sym table (2) - bt.PokeW( pSob+1, 0 ) - ReadSobFile( pSob+1 ) - bt.PokeW( pObj+1, pSob - strsize(@sobFilename) - 1 ) - - token.Eat( kw#kEOL ) - -con -SOBFILEFORMATVERSION = "S" + "O" << 8 + "B" << 16 + "1" << 24 ' "SOB1" - -pri ReadSobFile( pSobTable ) | p, t - if verbosity => 3 - term.str( string("Reading ") ) - term.str( @sobFilename ) - term.out( 13 ) - if fs.Open( @sobFilename, "R" ) <> 0 - term.str( @sobFilename ) - abort string(" -- couldn't open") - - if fs.Readlong <> SOBFILEFORMATVERSION ' SOB file format version - abort string("Unrecognized SOB file format") - fs.Readlong ' timestamp - fs.ReadLong ' hash - numExports := fs.ReadWord ' number of exports - exportSize := fs.ReadWord ' size of exports segment - fs.ReadWord ' number of imports - importSize := fs.ReadWord ' size of imports segment - fs.ReadWord ' size of bytecode segment - fs.ReadByte ' checksum - fs.ReadByte ' padding - fs.ReadWord ' size of sob's VAR space - - repeat numExports - fs.ReadStringUpperCase( @stringBuffer, MAXSTRINGBUFFERLENGTH ) - bt.AddToTable( @stringBuffer, pSobTable ) - case t := fs.ReadByte - st#kINT_CON_SYMBOL, st#kFLOAT_CON_SYMBOL: - p := bt.Alloc( 5 ) - byte[p++] := t - bt.PokeL( p, fs.ReadLong ) - st#kPUB_SYMBOL: - p := bt.Alloc( 3 ) - byte[p++] := t - byte[p++] := fs.ReadByte ' method index - byte[p++] := fs.ReadByte ' #params - - fs.Close - -pri ParseMethod1( type ) | nargs -' type = st#kPRI_SYMBOL or st#kPUB_SYMBOL - ifnot token.IsId - abort string("Expected ID") - st.AddToTable( token.Text ) - token.Advance - nargs~ - if token.AdvanceIf( kw#kLPAREN ) - repeat - ++nargs - ifnot token.IsId - abort string("Expected ID") - token.Advance - while token.AdvanceIf( kw#kCOMMA ) - token.Eat( kw#kRPAREN ) - if nargs > 255 - abort string("Too many parameters") - byte[ bt.Alloc(1) ] := type - if type == st#kPUB_SYMBOL - byte[ bt.Alloc(1) ] := nPubs++ - else - byte[ bt.Alloc(1) ] := nPris++ - byte[ bt.Alloc(1) ] := nargs - - SkipBlock - -var - word bvarSize ' size in bytes of byte var area - word wvarSize ' size in bytes of word var area - word lvarSize ' size in bytes of long var area - byte nPubs, nPris - word nObjs - word datSize ' size in bytes of DAT area - -pri ParseVar1 | s, t, dim - token.AdvanceIf( kw#kEOL ) - repeat while token.IsSize - if token.Type == kw#kBYTE - s~ - elseif token.Type == kw#kWORD - s := 1 - elseif token.Type == kw#kLONG - s := 2 - token.Advance - repeat - ifnot token.IsId - abort string("Expected ID") - st.AddToTable( token.Text ) - token.Advance - byte[ bt.Alloc(1) ] := st#kVAR_SYMBOL - byte[ bt.Alloc(1) ] := |< s - if token.AdvanceIf( kw#kLBRACKET ) - dim := Eval.EvaluateExpression( 0 ) - token.Eat( kw#kRBRACKET ) - else - dim := 1 - bt.PokeW( bt.Alloc(2), bvarSize[s] ) - bvarSize[s] += dim << s - while token.AdvanceIf( kw#kCOMMA ) - token.Eat( kw#kEOL ) - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/hive-port/linker/link.spin b/zubehör/sphinx/hive-port/linker/link.spin deleted file mode 100644 index f5f72e2..0000000 --- a/zubehör/sphinx/hive-port/linker/link.spin +++ /dev/null @@ -1,616 +0,0 @@ -{ - .sob linker -2009 -April - 10 Successfully linked two test programs - 15 SOB1 format: - #args in exported pubs now just one byte - added byte to imports for possible future use with object "pointers" - rearranged fields in SOB file header so that longs are long-aligned in memory -June - 9 Sphinxified - timestamp comparison - 12 Removed /s and /t options - 18 Don't stop on first out-of-date error. - -To do: - removal of duplicate sobs - - -Usage: link sobname [options] -sobname is name of .sob file, with or without .sob suffix. -Options start with / or - and are case-insensitive: - /v -- Sets verbosity level. Higher values of n => more verbose. Default is 0. - - SOB file format - - 0 4 bytes: SOB file format version # - 4 4 bytes: OBJ timestamp or version - 8 4 bytes: hash of OBJ's binary code. - 12 2 bytes: NUMEXPORTS - 14 2 bytes: EXPORTSIZE - 16 2 bytes: NUMIMPORTS - 18 2 bytes: IMPORTSIZE - 20 2 bytes: OBJBINSIZE (this is always a multiple of 4) - 22 1 byte: checksum - 23 1 byte: reserved - 24 2 bytes: size of OBJ's VAR space. - 26 EXPORTSIZE bytes: exported symbols: CONs, PUBs, maybe PRIs. - IMPORTSIZE bytes: OBJ's sub-OBJs. - OBJBINSIZE bytes: the compiled OBJ: header followed by methods. - - Export record format - - name + null + 0 + 4-byte int CON int - name + null + 1 + 4-byte float CON float - name + null + 2 + index + #args PUB - name + null + 3 + index + #args PRI (not exported) - - Import record format - - name + null + 2-byte count + reserved - - Export and import names are uppercase. Import name must not include ".SOB" or other suffix. - -} -SIZEOFSOBHEADER = 26 - -obj - term: "isxtv" - fs[2]: "sxfile" - str: "stringx" - -pub Main | err - err := \Try - if err - if err > 0 - term.str( err ) - else - term.str( string("Error ") ) - term.dec( err ) - term.out( 13 ) - - fs[0].Close - fs[0].Open( string("sphinx.bin"), "R" ) - fs[0].Execute( 0 ) - -dat -STACKSPACE long 500 ' in bytes; must be multiple of 4 -TABLESPACE long 1000 ' in bytes; must be multiple of 4 -WORKSPACE long 0 -verbosity byte 0 -outOfDate byte 0 -ignoreOutOfDate byte 0 - -pri Try | nArgs, pTable, pWork, l, p, totalVarSize - - fs.Open( string("args.d8a"), "R" ) - nArgs := fs.ReadByte - ifnot nArgs-- - abort string("usage: link sobname [options]") - fs.ReadStringUpperCase( @sobName, MAXFILENAMELENGTH ) - - l := strsize( @sobName ) - if sobName[l-4] == "." and sobName[l-3] == "S" and sobName[l-2] == "O" and sobName[l-1] == "B" - sobName[l-4]~ - if strsize( @sobName ) > 8 - term.str( @sobName ) - abort string(" -- sobname too long") - str.Copy( @outputName, @sobName ) - - ' Process command line arguments - - repeat while nArgs-- - fs.ReadStringUpperCase( @stringBuffer, 20 ) - if stringBuffer[0] == "-" - stringBuffer[0] := "/" - if strcomp( @stringBuffer, string("/V") ) - ifnot nArgs-- - abort string("/V must be followed by a number") - verbosity := fs.ReadNumber - elseif strcomp( @stringBuffer, string("/I") ) - ignoreOutOfDate~~ -{ - elseif strcomp( @stringBuffer, string("/S") ) - ifnot nArgs-- - abort string("/S must be followed by a number") - STACKSPACE := fs.ReadNumber - if STACKSPACE & 3 - abort string("/S argument must be a multiple of 4") - elseif strcomp( @stringBuffer, string("/T") ) - ifnot nArgs-- - abort string("/T must be followed by a number") - TABLESPACE := fs.ReadNumber - if TABLESPACE & 3 - abort string("/T argument must be a multiple of 4") -} - 'else - 'ignore - - fs.Close - - if verbosity => 1 - term.str( string("link 090627", 13) ) - - pTable := word[$000a] + STACKSPACE - pWork := pTable + TABLESPACE - WORKSPACE := 32768-pWork - - if verbosity => 2 - term.dec( WORKSPACE ) - term.str( string(" bytes of work space", 13) ) - - if WORKSPACE =< 0 - abort string("No work space") - - SobInit( pTable, TABLESPACE ) - AddSob( @sobName ) - ProcessSob( pTable, true ) - checksum~ - totalVarSize := ComputeAddressAndTotalVarSize( pTable, $0010 ) - - word[@header][3] := $0010 - word[@header[$08]] := objBinEndAddress - word[@header[$0a]] := objBinEndAddress + totalVarSize + 8 - word[@header[$0c]] := firstPubOffset + $0010 - word[@header[$0e]] := word[@header[$0a]] + firstPubLocalsSize + (firstPubNumArgs + 1) << 2 - - AddToChecksum( @header, $10 ) - AddToChecksum( @footer, 8 ) - header[5] := -checksum - - if verbosity => 3 - p := pTable - repeat while p - term.str( word[p +_pName] ) - term.out( " " ) - term.hex( word[p +_startAddress], 4 ) - term.out( " " ) - term.dec( word[p +_totalVarSize] ) - term.out( " " ) - term.hex( byte[p +_checksum], 2 ) - term.out( 13 ) - p := word[p +_pNextSorted] - - if not outOfDate or ignoreOutOfDate - str.Append( @outputName, string(".BIN") ) - if verbosity => 2 - term.str( string("Writing ") ) - term.str( @outputName ) - term.out( 13 ) - WriteBinaryFile( @outputName, pTable, pWork, WORKSPACE ) - else - term.str( string("No .bin written", 13) ) - -pri WriteBinaryFile( pFilename, pSob, pBuff, buffsize ) | n, p, pImports, pCounts, interObjectOffset, varOffset -{{ - Go down the priority-sorted list of sobs assigning them hub addresses such that they follow one - another in memory. On the way back up the list, compute each sob's total VAR size (the sob's - own VARs plus its imported sobs' VARs.) - Also updates checksum. - Return value is the current sob's total VAR size. Only the top object's return value is looked at. -}} - fs[0].Open( pFilename, "W" ) - fs[0].Write( @header, 16 ) - - repeat while pSob - str.Copy( @stringBuffer, word[pSob +_pName] ) - str.Append( @stringBuffer, string(".SOB") ) - if verbosity => 2 - term.str( @stringBuffer ) - term.str( string(" -- copying", 13) ) - - n := word[pSob +_objBinSize] - if n > buffsize - abort string("work area too small") - - fs[1].Open( @stringBuffer, "R" ) - fs[1].SkipBytes( SIZEOFSOBHEADER + word[pSob +_exportImportSize] ) - fs[1].Read( pBuff, n ) - fs[1].Close - - p := pBuff + byte[pBuff][2] << 2 ' byte[2] is index of 1st obj entry; multiply by 4 bytes/entry - varOffset := word[pSob +_varSize] - pImports := word[pSob +_pImports] - pCounts := word[pSob +_pCounts] - repeat word[pSob +_nImports] - interObjectOffset := word[ word[pImports] +_startAddress] - word[pSob +_startAddress] - repeat word[pCounts] - word[p] := interObjectOffset - p += 2 - word[p] := varOffset - p += 2 - varOffset += word[ word[pImports] +_totalVarSize] - - pImports += 2 - pCounts += 2 - - - fs[0].Write( pBuff, n ) - pSob := word[pSob +_pNextSorted] - fs[0].Close - -{{ - objBinEndAddress := address ' end address will point just beyond the last obj in hub memory. - ' Here we're just overwriting as we go and keeping the last one. - - ComputeAddressAndTotalVarSize( word[p +_pNextSorted], address ) - - checksum += byte[p +_checksum] ' this is the partial checksum of the obj (doesn't count its sub-object table because - ' sub-object links are not known until link time (i.e., now)) - totalVarSize := word[p +_varSize] - pImports := word[p +_pImports] - pCounts := word[p +_pCounts] - repeat word[p +_nImports] ' for each import, add the import's VAR size multiplied by its count - interObjectOffset := word[ word[pImports] +_startAddress] - word[p +_startAddress] - repeat word[pCounts] - AddToChecksum( @totalVarSize, 2 ) ' checksum needs to include this half of an object table entry - AddToChecksum( @interObjectOffset, 2 ) ' and this other half of an object table entry - - totalVarSize += word[ word[pImports] +_totalVarSize] - - pImports += 2 - pCounts += 2 - - word[p +_totalVarSize] := totalVarSize -}} - -var - word firstPubLocalsSize - word firstPubOffset - word firstPubNumArgs - word objBinEndAddress - byte checksum - long clk_freq - long xin_freq - long clk_mode - long free - long stack - -pri ReadExports( numExports ) | firstPub, type, val, index, nArgs, i, p, f, frequency - f~ - firstPub~~ - stack := 16 - frequency := 12_000_000 - - repeat numExports - fs.ReadStringUpperCase( @stringBuffer, MAXEXPORTLENGTH ) - case type := fs.ReadByte - 0, 1: ' int or float CON - val := fs.ReadLong - 2, 3: ' PUB or PRI - index := fs.ReadByte - nArgs := fs.ReadByte - if firstPub~ - firstPubNumArgs := nArgs - - repeat i from 0 to 4 - if strcomp( @stringBuffer, @@ptrs[i] ) - if type - term.str( @stringBuffer ) - abort string(" -- not an int CON") - clk_freq[i] := val - f |= |< i - - f &= 7 - if clk_mode & 3 - f |= 8 - case f ' four bits: rc|clkmode|xinfreq|clkfreq - %0000: ' none of clkmode/xinfreq/clkfreq specified - %0001..%0011: abort string("_CLKMODE must be specified") - %0100: abort string("_CLKFREQ or _XINFREQ must be specified") - %0101: frequency := clk_freq - %0110: frequency := xin_freq * ((clk_mode >> 6) #> 1) - %0111: if clk_freq <> xin_freq * ((clk_mode >> 6) #> 1) - abort string("conflicting _CLKFREQ and _XINFREQ") - %1000..%1011: ' these cases shouldn't happen - %1100: ' this case is OK - %1101..%1111: abort string("RCFAST/SLOW incompatible with _CLKFREQ/_XINFREQ") - - long[@header] := frequency - - header[4] := ComputeClkmodeByte( clk_mode ) - -pri ComputeClkmodeByte( mode ) : m | b1, b2, i -{ -rcfast $001 exactly one 1 in 0000_0000_00xx incompatible with clkfreq/xinfreq -rcslow $002 - or -xinput $004 exactly one 1 in 0000_00xx_xx00 and requires clkfreq/xinfreq -xtal1 $008 up to one 1 in 0xxx_xx00_0000 -xtal2 $010 -xtal3 $020 -pll1x $040 -pll2x $080 -pll4x $100 -pll8x $200 -pll16x $400 -} - b1 := -1 ' b1 is the position of the single 1 in mode[5..0]. - repeat i from 0 to 5 - if mode & |< i - if b1 <> -1 - abort string("invalid _CLKMODE") ' only one 1 allowed - b1 := i - m := lookupz( b1: $00, $01, $22, $2a, $32, $3a ) - - b2 := -1 ' b2 is the position of single 1 in mode[10..6] (-1 if no 1 bit) - repeat i from 6 to 10 - if mode & |< i - if b2 <> -1 - abort string("invalid _CLKMODE (multiple PLL)") ' only one 1 allowed - b2 := i - - if b1 < 2 ' RCFAST/RCSLOW? - if b2 <> -1 ' b2 better not be set - abort string("invalid _CLKMODE (RC+PLL)") - else ' one of the X-modes - if b2 <> -1 - m |= $40 ' PLLENA - m += b2 - 5 - - -dat -ptrs word @s0, @s1, @s2, @s3, @s4 -s0 byte "_CLKFREQ", 0 -s1 byte "_XINFREQ", 0 -s2 byte "_CLKMODE", 0 -s3 byte "_FREE", 0 -s4 byte "_STACK", 0 - - -dat - long -header byte 0[16] -footer byte $ff, $ff, $f9, $ff - byte $ff, $ff, $f9, $ff - -con - MAXFILENAMELENGTH = 8 + 1 + 3 ' 8.3 - MAXEXPORTLENGTH = 32 - -var - byte stringBuffer[MAXEXPORTLENGTH+1] - byte sobName[MAXFILENAMELENGTH+1] - byte outputName[MAXFILENAMELENGTH+1] - -con -#0 -_pNext[2] -_pNextSorted[2] -_pName[2] -_nImports[2] -_pImports[2] -_pCounts[2] -_startAddress[2] -_objBinSize[2] -_totalVarSize[2] -_varSize[2] -_timestamp[4] -_exportImportSize[2] -_checksum[1] -_[1] ' for alignment: _SIZEOFSOBINFO must be a multiple of 4 -_SIZEOFSOBINFO - -SOBFILEFORMATVERSION = "S" + "O" << 8 + "B" << 16 + "1" << 24 ' "SOB1" - -dat -pSobSpace word 0 -SOBSSIZE word 0 -pDataSpace word 0 -pFirst word 0 -pLast word 0 -pLastSorted word 0 - -pri SobInit( p, size ) - pFirst := pSobSpace := p - SOBSSIZE := size - pDataSpace := pSobSpace + SOBSSIZE - - pLastSorted := pLast := pFirst - - word[pFirst +_pNext]~ - word[pFirst +_pNextSorted]~ - -pri ComputeAddressAndTotalVarSize( p, address ) : totalVarSize | pImports, pCounts, interObjectOffset -{{ - Go down the priority-sorted list of sobs assigning them hub addresses such that they follow one - another in memory. On the way back up the list, compute each sob's total VAR size (the sob's - own VARs plus its imported sobs' VARs.) - Also updates checksum. - Return value is the current sob's total VAR size. Only the top object's return value is looked at. -}} - ifnot p - return - - word[p +_startAddress] := address - address += word[p +_objBinSize] - - objBinEndAddress := address ' end address will point just beyond the last obj in hub memory. - ' Here we're just overwriting as we go and keeping the last one. - - ComputeAddressAndTotalVarSize( word[p +_pNextSorted], address ) - - checksum += byte[p +_checksum] ' this is the partial checksum of the obj (doesn't count its sub-object table because - ' sub-object links are not known until link time (i.e., now)) - totalVarSize := word[p +_varSize] - pImports := word[p +_pImports] - pCounts := word[p +_pCounts] - repeat word[p +_nImports] ' for each import, add the import's VAR size multiplied by its count - interObjectOffset := word[ word[pImports] +_startAddress] - word[p +_startAddress] - repeat word[pCounts] - AddToChecksum( @totalVarSize, 2 ) ' checksum needs to include this half of an object table entry - AddToChecksum( @interObjectOffset, 2 ) ' and this other half of an object table entry - - totalVarSize += word[ word[pImports] +_totalVarSize] - - pImports += 2 - pCounts += 2 - - word[p +_totalVarSize] := totalVarSize - -pri AddToChecksum( p, n ) - repeat n - checksum += byte[p++] - -pri AddSob( pName ) : p | n -{{ - Copies name to data area, appends name to the sobs list, returns pointer to new sob entry. -}} - if verbosity => 2 - term.str(string("adding ")) - term.str(pName) - term.out(13) - - p := pSobSpace - pSobSpace += _SIZEOFSOBINFO - - n := strsize(pName) + 1 - bytemove( Alloc(n), pName, n ) - - word[pLast +_pNext] := p - word[pLastSorted +_pNextSorted] := p - word[p +_pName] := pDataSpace - word[p +_pNext]~ - word[p +_pNextSorted]~ - pLast := p - pLastSorted := p - -pri Alloc( n ) - pDataSpace := (pDataSpace - n) & $fffffffc ' long-aligned - if pDataSpace < pSobSpace - abort string("Insufficient sob table space") - return pDataSpace - -pri FindSob( pName ) : p | pPrev -{{ - Search the sob list in priority order. If a sob in the list matches name, - update priority-order links to put the sob at the end and return a pointer to it. - Otherwise, return 0. -}} - p := pPrev := pFirst - repeat while p - if strcomp( word[p +_pName], pName ) - if p <> pLastSorted - word[pPrev +_pNextSorted] := word[p +_pNextSorted] - word[pLastSorted +_pNextSorted] := p - word[p +_pNextSorted]~ - pLastSorted := p - return - pPrev := p - p := word[p +_pNextSorted] - return 0 - -pri ProcessSob( p, top ) | len, numExports, exportSize, numImports, importSize, objBinSize, hash, pStart, temp, pImports, pCounts, ts0, ts1 -{{ - Reads the sob file identified by p, appends the sob's imports to the sob list, - then recursively processes the imported sobs. - top is true for the top sob, false for all other sobs. -}} - Str.Copy( @stringBuffer, word[p +_pName] ) - Str.Append( @stringBuffer, string(".SOB") ) - - if verbosity => 2 - term.str( string("Reading [") ) - term.str( @stringBuffer ) - term.out( "]" ) - term.out( 13 ) - - fs.Open( @stringBuffer, "R" ) - - if fs.Readlong <> SOBFILEFORMATVERSION ' SOB file format version - abort string("Unrecognized SOB file format") - long[p +_timestamp] := fs.Readlong ' timestamp - hash := fs.ReadLong ' hash - numExports := fs.ReadWord ' number of exports - exportSize := fs.ReadWord ' size of exports segment - numImports := fs.ReadWord ' number of imports - importSize := fs.ReadWord ' size of imports segment - word[p +_objBinSize] := fs.ReadWord ' size of bytecode segment - byte[p +_checksum] := fs.ReadByte ' checksum - fs.ReadByte ' padding - word[p +_varSize] := fs.ReadWord ' size of sob's VAR space - - ts0 := long[p +_timestamp] - - if top - ReadExports( numExports ) - else - fs.SkipBytes( exportSize ) - - word[p +_exportImportSize] := exportSize + importSize - - word[p +_nImports] := numImports - word[p +_pImports] := pImports := Alloc( numImports << 1 ) ' points to an array of sob pointers - word[p +_pCounts] := pCounts := Alloc( numImports << 1 ) ' points to an array of sob counts - - pStart := pLast - repeat numImports - fs.ReadStringUpperCase( @stringBuffer, 8 ) - ts1 := GetTimestamp( @stringBuffer ) - if ts0 and ts1 ' Only compare non-zero timestamps - if ts0 =< ts1 - term.str( word[p+_pName] ) - term.str( string(".SOB is older than ") ) - term.str( @stringBuffer ) - term.str( string(".SOB", 13) ) - outOfDate~~ - ifnot temp := FindSob( @stringBuffer ) - temp := AddSob( @stringBuffer ) - word[pImports] := temp - word[pCounts] := fs.ReadWord - fs.ReadByte ' reserved byte - if verbosity => 3 - term.str( word[ word[pImports] +_pName] ) - term.out( "*" ) - term.dec( word[pCounts] ) - term.out( 13 ) - pImports += 2 - pCounts += 2 - - if top - fs.SkipBytes( $4 ) ' look into the top sob's object header - firstPubOffset := fs.ReadWord ' and get offset to first pub - firstPubLocalsSize := fs.ReadWord ' and size of first pub's locals - - fs.Close - - ' Process the imported sobs - - pStart := word[pStart +_pNext] - repeat while pStart - ProcessSob( pStart, false ) - pStart := word[pStart +_pNext] - - if verbosity => 2 - term.str( string("done with ") ) - term.str( word[p +_pName] ) - term.out( 13 ) - -pri GetTimestamp( pFilename ) - str.Append( pFilename, string(".SOB") ) - fs[1].Open( pFilename, "R" ) - fs[1].ReadLong - result := fs[1].ReadLong - fs[1].Close - byte[pFilename][ strsize(pFilename) - 4 ]~ ' remove .SOB tail - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/hive-port/tokenizer/bintree.spin b/zubehör/sphinx/hive-port/tokenizer/bintree.spin deleted file mode 100644 index 62778ed..0000000 --- a/zubehör/sphinx/hive-port/tokenizer/bintree.spin +++ /dev/null @@ -1,238 +0,0 @@ -obj - str: "stringx" - -dat -cog long 0 - -pub Init( p0, p1 ) - pFree := p0 ' leave some room for the stack, then free space. - pLimit := p1 - - Stop - sync~~ - cog := cognew( @LookerUpper, @input ) + 1 - ifnot cog - abort string("Couldn't start bintree cog") - repeat while sync - -pub Stop - if cog - cogstop( cog~ - 1 ) - -pub FindInTable( s, p ) | d -{{ - Finds string s in table pointed to by p. - Returns pointer to s's data area if s is found, 0 otherwise. -}} - input[0] := s - input[1] := p - sync~~ - repeat while sync - return output -{ - ifnot p - return 0 - d := str.Compare( s, p+4 ) - ifnot d - return p + 4 + strsize(s) + 1 - if d < 0 - return FindInTable( s, Peekw(p) ) - ' else - return FindInTable( s, Peekw(p+2) ) -} - -pub AddToTable( s, pP ) | p, d -{{ - Adds string s to table. Note: pP is a pointer-to-pointer to table. - Returns a pointer to s's data area (actually pFree, so if you add - any data, increment pFree past it). -}} - ifnot p := PeekW( pP ) - PokeW( pP, pFree ) - PokeW( pFree, 0 ) - pFree += 2 - PokeW( pFree, 0 ) - pFree += 2 - str.Copy( pFree, s ) - pFree += strsize(s) + 1 - return pFree - - d := str.Compare( s, p+4 ) -{ - term.dec(d) - term.out(13) - waitcnt( clkfreq + cnt ) -} - ifnot d - abort string("Symbol already defined") - if d < 0 - return AddToTable( s, @word[p][0] ) - ' else - return AddToTable( s, @word[p][1] ) - -pub PeekW( p ) - return byte[p++] + byte[p] << 8 - -pub PokeW( p, w ) - byte[p++] := w - byte[p] := w >> 8 - -pub PeekL( p ) : t - repeat 4 - t := (t | byte[p++]) -> 8 - -pub PokeL( p, l ) - repeat 4 - byte[p++] := l - l >>= 8 - -dat -pFree long 0 -pLimit long 0 - -pub Alloc( n ) - result := pFree - if (pFree += n) > pLimit - abort string("Out of symbol table space") - -dat -input long 0 ' rendezvous variables for LookerUpper -output long 0 -sync long 1 - -{ -This PASM routine is equivalent to the following: - -pub FindInTable( s, p ) | d -{{ - Finds string s in table pointed to by p. - Returns pointer to s's data area if s is found, 0 otherwise. -}} - ifnot p - return 0 - d := str.Compare( s, p+4 ) - ifnot d - return p + 4 + strsize(s) + 1 - if d < 0 - return FindInTable( s, Peekw(p) ) - ' else - return FindInTable( s, Peekw(p+2) ) -} - -dat org 0 -LookerUpper - mov pInput, par ' Enter with par pointing to rendezvous area, - mov pOutput, par ' sync = 1 - add pOutput, #4 - mov pSync, par - add pSync, #8 - - rdlong pTable, pInput ' Save @tableStart - ' and ack to inform Spin program that the cog is running. -Ack - wrlong retval, pOutput - mov temp, #0 - wrlong temp, pSync - -:wait ' Wait for caller to set sync to indicate that input is ready. - rdlong temp, pSync wz - if_z jmp #:wait - - rdlong pString, pInput ' input[0] points to string to look up. - rdlong ptr, pOutput ' input[1] points to table. (input[1] = output) - - mov retval, #0 -:loop - tjz ptr, #Ack - - mov pLeft, pString ' Compare string - mov pRight, ptr ' to string at current position in table - add pRight, #4 ' (bump up ptr by 4 to skip two link words). - - call #StringCompare - - if_e jmp #:equal - if_b jmp #:less -:greater ' If left > right, - add ptr, #2 ' use the 2nd link. -:less ' If left < right, use 1st link. - rdbyte temp, ptr ' Follow the link - add ptr, #1 ' It would be nice to just "rdword ptr, ptr" here - rdbyte ptr, ptr ' but ptr might be odd so we have to go through - shl ptr, #8 ' some extra gyrations. - add ptr, temp - - jmp #:loop ' and recurse (well, just iterate). - -:equal ' If left = right, return ptr + 4 + strsize(pString) + 1 - mov retval, ptr - add retval, #5 -:x - rdbyte temp, pString wz ' add strsize(pString) - if_z jmp #:y - add retval, #1 - add pString, #1 - jmp #:x -:y - jmp #Ack - -StringCompare -' Compares zero-terminated strings pointed to by pLeft and pRight. -' On return, Z and C are set appropriately. - rdbyte temp, pLeft wz - add pLeft, #1 - if_z jmp #:leftEnd - rdbyte temp1, pRight wz - add pRight, #1 - if_z jmp #:rightEnd - cmp temp, temp1 wc, wz - if_e jmp #StringCompare ' If they match, try the next pair. - jmp #StringCompare_ret ' Otherwise, we're done. - -:leftEnd rdbyte temp1, pRight wz ' If we're at the end of both strings, - if_z jmp #StringCompare_ret ' leave (with Z set). - ' Otherwise, left string is shorter than the right - ' and therefore less. - neg temp, #1 - mov temp, temp wc, wz ' Set C=1 and Z=0 for "less than" - jmp #StringCompare_ret -:rightEnd ' Here we've reached the end of the right string. - ' The left string is longer than the right - ' and therefore greater. - mov temp, #1 wc, wz ' Set C=0 and Z=0 for "greater than" - -StringCompare_ret - ret - -temp res 1 -temp1 res 1 -ptr res 1 -pLeft res 1 -pRight res 1 -pString res 1 -pTable res 1 -pInput res 1 -pOutput res 1 -pSync res 1 -retval res 1 - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - - \ No newline at end of file diff --git a/zubehör/sphinx/hive-port/tokenizer/fltmath.spin b/zubehör/sphinx/hive-port/tokenizer/fltmath.spin deleted file mode 100644 index 4204f99..0000000 --- a/zubehör/sphinx/hive-port/tokenizer/fltmath.spin +++ /dev/null @@ -1,219 +0,0 @@ -''*************************************** -''* Floating-Point Math * -''* Single-precision IEEE-754 * -''* Author: Chip Gracey * -''* Copyright (c) 2006 Parallax, Inc. * -''* See end of file for terms of use. * -''*************************************** - - -PUB FFloat(integer) : single | s, x, m - -''Convert integer to float - - if m := ||integer 'absolutize mantissa, if 0, result 0 - s := integer >> 31 'get sign - x := >|m - 1 'get exponent - m <<= 31 - x 'msb-justify mantissa - m >>= 2 'bit29-justify mantissa - - return Pack(@s) 'pack result - - -PUB FRound(single) : integer - -''Convert float to rounded integer - - return FInteger(single, 1) 'use 1/2 to round - - -PUB FTrunc(single) : integer - -''Convert float to truncated integer - - return FInteger(single, 0) 'use 0 to round - - -PUB FNeg(singleA) : single - -''Negate singleA - - return singleA ^ $8000_0000 'toggle sign bit - - -PUB FAbs(singleA) : single - -''Absolute singleA - - return singleA & $7FFF_FFFF 'clear sign bit - - -PUB FSqr(singleA) : single | s, x, m, root - -''Compute square root of singleA - - if singleA > 0 'if a =< 0, result 0 - - Unpack(@s, singleA) 'unpack input - - m >>= !x & 1 'if exponent even, shift mantissa down - x ~>= 1 'get root exponent - - root := $4000_0000 'compute square root of mantissa - repeat 31 - result |= root - if result ** result > m - result ^= root - root >>= 1 - m := result >> 1 - - return Pack(@s) 'pack result - - -PUB FAdd(singleA, singleB) : single | sa, xa, ma, sb, xb, mb - -''Add singleA and singleB - - Unpack(@sa, singleA) 'unpack inputs - Unpack(@sb, singleB) - - if sa 'handle mantissa negation - -ma - if sb - -mb - - result := ||(xa - xb) <# 31 'get exponent difference - if xa > xb 'shift lower-exponent mantissa down - mb ~>= result - else - ma ~>= result - xa := xb - - ma += mb 'add mantissas - sa := ma < 0 'get sign - ||ma 'absolutize result - - return Pack(@sa) 'pack result - - -PUB FSub(singleA, singleB) : single - -''Subtract singleB from singleA - - return FAdd(singleA, FNeg(singleB)) - - -PUB FMul(singleA, singleB) : single | sa, xa, ma, sb, xb, mb - -''Multiply singleA by singleB - - Unpack(@sa, singleA) 'unpack inputs - Unpack(@sb, singleB) - - sa ^= sb 'xor signs - xa += xb 'add exponents - ma := (ma ** mb) << 3 'multiply mantissas and justify - - return Pack(@sa) 'pack result - - -PUB FDiv(singleA, singleB) : single | sa, xa, ma, sb, xb, mb - -''Divide singleA by singleB - - Unpack(@sa, singleA) 'unpack inputs - Unpack(@sb, singleB) - - sa ^= sb 'xor signs - xa -= xb 'subtract exponents - - repeat 30 'divide mantissas - result <<= 1 - if ma => mb - ma -= mb - result++ - ma <<= 1 - ma := result - - return Pack(@sa) 'pack result - - -PRI FInteger(a, r) : integer | s, x, m - -'Convert float to rounded/truncated integer - - Unpack(@s, a) 'unpack input - - if x => -1 and x =< 30 'if exponent not -1..30, result 0 - m <<= 2 'msb-justify mantissa - m >>= 30 - x 'shift down to 1/2-lsb - m += r 'round (1) or truncate (0) - m >>= 1 'shift down to lsb - if s 'handle negation - -m - return m 'return integer - - -PRI Unpack(pointer, single) | s, x, m - -'Unpack floating-point into (sign, exponent, mantissa) at pointer - - s := single >> 31 'unpack sign - x := single << 1 >> 24 'unpack exponent - m := single & $007F_FFFF 'unpack mantissa - - if x 'if exponent > 0, - m := m << 6 | $2000_0000 '..bit29-justify mantissa with leading 1 - else - result := >|m - 23 'else, determine first 1 in mantissa - x := result '..adjust exponent - m <<= 7 - result '..bit29-justify mantissa - - x -= 127 'unbias exponent - - longmove(pointer, @s, 3) 'write (s,x,m) structure from locals - - -PRI Pack(pointer) : single | s, x, m - -'Pack floating-point from (sign, exponent, mantissa) at pointer - - longmove(@s, pointer, 3) 'get (s,x,m) structure into locals - - if m 'if mantissa 0, result 0 - - result := 33 - >|m 'determine magnitude of mantissa - m <<= result 'msb-justify mantissa without leading 1 - x += 3 - result 'adjust exponent - - m += $00000100 'round up mantissa by 1/2 lsb - if not m & $FFFFFF00 'if rounding overflow, - x++ '..increment exponent - - x := x + 127 #> -23 <# 255 'bias and limit exponent - - if x < 1 'if exponent < 1, - m := $8000_0000 + m >> 1 '..replace leading 1 - m >>= -x '..shift mantissa down by exponent - x~ '..exponent is now 0 - - return s << 31 | x << 23 | m >> 9 'pack result - -{{ - -+------------------------------------------------------------------------------------------------------------------------------+ -¦ TERMS OF USE: MIT License ¦ -+------------------------------------------------------------------------------------------------------------------------------¦ -¦Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation ¦ -¦files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, ¦ -¦modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software¦ -¦is furnished to do so, subject to the following conditions: ¦ -¦ ¦ -¦The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.¦ -¦ ¦ -¦THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE ¦ -¦WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR ¦ -¦COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ¦ -¦ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ¦ -+------------------------------------------------------------------------------------------------------------------------------+ -}} \ No newline at end of file diff --git a/zubehör/sphinx/hive-port/tokenizer/fltstr.spin b/zubehör/sphinx/hive-port/tokenizer/fltstr.spin deleted file mode 100644 index b997b59..0000000 --- a/zubehör/sphinx/hive-port/tokenizer/fltstr.spin +++ /dev/null @@ -1,534 +0,0 @@ -''***************************************** -''* Floating-Point <-> Strings v 1.2 * -''* Single-precision IEEE-754 * -''* Authors: Chip Gracey and Cam Thompson * -''* (C) 2006 Parallax, Inc. * -''* See end of file for terms of use. * -''***************************************** - -'' v1.0 - 01 May 2006 - original version -'' v1.1 - 12 Jul 2006 - added FloatToFormat routine -'' v1.2 - 06 Mar 2009 - added StringToFloat [mpark] -VAR - - long p, digits, exponent, integer, tens, zeros, precision - long positive_chr, decimal_chr, thousands_chr, thousandths_chr - byte float_string[20] - - -OBJ - ' The F object can be FloatMath, Float32 or Float32Full depending on the application - F : "FltMath" - -PUB FloatToString(Single) : StringPtr - -''Convert floating-point number to string -'' -'' entry: -'' Single = floating-point number -'' -'' exit: -'' StringPtr = pointer to resultant z-string -'' -'' Magnitudes below 1e+12 and within 1e-12 will be expressed directly; -'' otherwise, scientific notation will be used. -'' -'' examples results -'' ----------------------------------------- -'' FloatToString(0.0) "0" -'' FloatToString(1.0) "1" -'' FloatToString(-1.0) "-1" -'' FloatToString(^^2.0) "1.414214" -'' FloatToString(2.34e-3) "0.00234" -'' FloatToString(-1.5e-5) "-0.000015" -'' FloatToString(2.7e+6) "2700000" -'' FloatToString(1e11) "100000000000" -'' FloatToString(1e12) "1.000000e+12" -'' FloatToString(1e-12) "0.000000000001" -'' FloatToString(1e-13) "1.000000e-13" - - 'perform initial setup - StringPtr := Setup(Single) - - 'eliminate trailing zeros - if integer - repeat until integer // 10 - integer /= 10 - tens /= 10 - digits-- - else - digits~ - - 'express number according to exponent - case exponent - 'in range left of decimal - 11..0: - AddDigits(exponent + 1) - 'in range right of decimal - -1..digits - 13: - zeros := -exponent - AddDigits(1) - 'out of range, do scientific notation - other: - DoScientific - - 'terminate z-string - byte[p]~ - - -PUB FloatToScientific(Single) : StringPtr - -''Convert floating-point number to scientific-notation string -'' -'' entry: -'' Single = floating-point number -'' -'' exit: -'' StringPtr = pointer to resultant z-string -'' -'' examples results -'' ------------------------------------------------- -'' FloatToScientific(1e-9) "1.000000e-9" -'' FloatToScientific(^^2.0) "1.414214e+0" -'' FloatToScientific(0.00251) "2.510000e-3" -'' FloatToScientific(-0.0000150043) "-1.500430e-5" - - 'perform initial setup - StringPtr := Setup(Single) - - 'do scientific notation - DoScientific - - 'terminate z-string - byte[p]~ - - -PUB FloatToMetric(Single, SuffixChr) : StringPtr | x, y - -''Convert floating-point number to metric string -'' -'' entry: -'' Single = floating-point number -'' SuffixChr = optional ending character (0=none) -'' -'' exit: -'' StringPtr = pointer to resultant z-string -'' -'' Magnitudes within the metric ranges will be expressed in metric -'' terms; otherwise, scientific notation will be used. -'' -'' range name symbol -'' ----------------------- -'' 1e24 yotta Y -'' 1e21 zetta Z -'' 1e18 exa E -'' 1e15 peta P -'' 1e12 tera T -'' 1e9 giga G -'' 1e6 mega M -'' 1e3 kilo k -'' 1e0 - - -'' 1e-3 milli m -'' 1e-6 micro u -'' 1e-9 nano n -'' 1e-12 pico p -'' 1e-15 femto f -'' 1e-18 atto a -'' 1e-21 zepto z -'' 1e-24 yocto y -'' -'' examples results -'' ------------------------------------ -'' metric(2000.0, "m") "2.000000km" -'' metric(-4.5e-5, "A") "-45.00000uA" -'' metric(2.7e6, 0) "2.700000M" -'' metric(39e31, "W") "3.9000e+32W" - - 'perform initial setup - StringPtr := Setup(Single) - - 'determine thousands exponent and relative tens exponent - x := (exponent + 45) / 3 - 15 - y := (exponent + 45) // 3 - - 'if in metric range, do metric - if ||x =< 8 - 'add digits with possible decimal - AddDigits(y + 1) - 'if thousands exponent not 0, add metric indicator - if x - byte[p++] := " " - byte[p++] := metric[x] - 'if out of metric range, do scientific notation - else - DoScientific - - 'if SuffixChr not 0, add SuffixChr - if SuffixChr - byte[p++] := SuffixChr - - 'terminate z-string - byte[p]~ - - -PUB FloatToFormat(single, width, dp) : stringptr | n, w2 - -''Convert floating-point number to formatted string -'' -'' entry: -'' Single = floating-point number -'' width = width of field -'' dp = number of decimal points -'' -'' exit: -'' StringPtr = pointer to resultant z-string -'' -'' asterisks are displayed for format errors -'' leading blank fill is used - - ' get string pointer - stringptr := p := @float_string - - ' width must be 1 to 9, dp must be 0 to width-1 - w2 := width := width #> 1 <# 9 - dp := dp #> 0 <# (width - 2) - if dp > 0 - w2-- - if single & $8000_0000 or positive_chr - w2-- - - ' get positive scaled integer value - n := F.FRound(F.FMul(single & $7FFF_FFFF , F.FFloat(teni[dp]))) - - if n => teni[w2] - ' if format error, display asterisks - repeat while width - if --width == dp - if decimal_chr - byte[p++] := decimal_chr - else - byte[p++] := "." - else - byte[p++] := "*" - byte[p]~ - - else - ' store formatted number - p += width - byte[p]~ - - repeat width - byte[--p] := n // 10 + "0" - n /= 10 - if --dp == 0 - if decimal_chr - byte[--p] := decimal_chr - else - byte[--p] := "." - if n == 0 and dp < 0 - quit - - ' store sign - if single & $80000000 - byte[--p] := "-" - elseif positive_chr - byte[--p] := positive_chr - ' leading blank fill - repeat while p <> stringptr - byte[--p] := " " - -PUB SetPrecision(NumberOfDigits) - -''Set precision to express floating-point numbers in -'' -'' NumberOfDigits = Number of digits to round to, limited to 1..7 (7=default) -'' -'' examples results -'' ------------------------------- -'' SetPrecision(1) "1e+0" -'' SetPrecision(4) "1.000e+0" -'' SetPrecision(7) "1.000000e+0" - - precision := NumberOfDigits - - -PUB SetPositiveChr(PositiveChr) - -''Set lead character for positive numbers -'' -'' PositiveChr = 0: no character will lead positive numbers (default) -'' non-0: PositiveChr will lead positive numbers (ie " " or "+") -'' -'' examples results -'' ---------------------------------------- -'' SetPositiveChr(0) "20.07" "-20.07" -'' SetPositiveChr(" ") " 20.07" "-20.07" -'' SetPositiveChr("+") "+20.07" "-20.07" - - positive_chr := PositiveChr - - -PUB SetDecimalChr(DecimalChr) - -''Set decimal point character -'' -'' DecimalChr = 0: "." will be used (default) -'' non-0: DecimalChr will be used (ie "," for Europe) -'' -'' examples results -'' ---------------------------- -'' SetDecimalChr(0) "20.49" -'' SetDecimalChr(",") "20,49" - - decimal_chr := DecimalChr - - -PUB SetSeparatorChrs(ThousandsChr, ThousandthsChr) - -''Set thousands and thousandths separator characters -'' -'' ThousandsChr = -'' 0: no character will separate thousands (default) -'' non-0: ThousandsChr will separate thousands -'' -'' ThousandthsChr = -'' 0: no character will separate thousandths (default) -'' non-0: ThousandthsChr will separate thousandths -'' -'' examples results -'' ----------------------------------------------------------- -'' SetSeparatorChrs(0, 0) "200000000" "0.000729345" -'' SetSeparatorChrs(0, "_") "200000000" "0.000_729_345" -'' SetSeparatorChrs(",", 0) "200,000,000" "0.000729345" -'' SetSeparatorChrs(",", "_") "200,000,000" "0.000_729_345" - - thousands_chr := ThousandsChr - thousandths_chr := ThousandthsChr - - -PUB StringToFloat(strptr) : flt | significand, ssign, places, exp, esign -{{ - Converts string to floating-point number - entry: - strptr = pointer to z-string - - exit: - flt = floating-point number - - - Assumes the following floating-point syntax: [-] [0-9]* [ . [0-9]* ] [ e|E [-|+] [0-9]* ] - +-- +----- +----------- +------------------- - ¦ ¦ ¦ ¦ +---- +----- - Optional negative sign --------------------+ ¦ ¦ ¦ ¦ ¦ - Digits ----------------------------------------+ ¦ ¦ ¦ ¦ - Optional decimal point followed by digits ------------+ ¦ ¦ ¦ - Optional exponent -------------------------------------------------+ ¦ ¦ - optional exponent sign ------------------------------------------------+ ¦ - exponent digits -------------------------------------------------------------+ - - Examples of recognized floating-point numbers: - "123", "-123", "123.456", "123.456e+09" - Conversion stops as soon as an invalid character is encountered. No error-checking. - - Based on Ariba's StrToFloat in http://forums.parallax.com/forums/default.aspx?f=25&m=280607 - Expanded by Michael Park -}} - significand~ - ssign~ - exp~ - esign~ - places~ - repeat - case byte[strptr] - "-": - ssign~~ - ".": - places := 1 - "0".."9": - significand := significand * 10 + byte[strptr] - "0" - if places - ++places 'count decimal places - "e", "E": - ++strptr ' skip over the e or E - repeat - case byte[strptr] - "+": - ' ignore - "-": - esign~~ - "0".."9": - exp := exp * 10 + byte[strptr] - "0" - other: - quit - ++strptr - quit - other: - quit - ++strptr - - if ssign - -significand - flt := f.FFloat(significand) - - ifnot esign ' tenf table is in decreasing order, so the sign of exp is reversed - -exp - - if places - exp += places - 1 - - flt := f.FMul(flt, tenf[exp]) 'adjust flt's decimal point - - -PRI Setup(single) : stringptr - - 'limit digits to 1..7 - if precision - digits := precision #> 1 <# 7 - else - digits := 7 - - 'initialize string pointer - p := @float_string - - 'add "-" if negative - if single & $80000000 - byte[p++] := "-" - 'otherwise, add any positive lead character - elseif positive_chr - byte[p++] := positive_chr - - 'clear sign and check for 0 - if single &= $7FFFFFFF - - 'not 0, estimate exponent - exponent := ((single << 1 >> 24 - 127) * 77) ~> 8 - - 'if very small, bias up - if exponent < -32 - single := F.FMul(single, 1e13) - exponent += result := 13 - - 'determine exact exponent and integer - repeat - integer := F.FRound(F.FMul(single, tenf[exponent - digits + 1])) - if integer < teni[digits - 1] - exponent-- - elseif integer => teni[digits] - exponent++ - else - exponent -= result - quit - - 'if 0, reset exponent and integer - else - exponent~ - integer~ - - 'set initial tens and clear zeros - tens := teni[digits - 1] - zeros~ - - 'return pointer to string - stringptr := @float_string - - -PRI DoScientific - - 'add digits with possible decimal - AddDigits(1) - 'add exponent indicator - byte[p++] := "e" - 'add exponent sign - if exponent => 0 - byte[p++] := "+" - else - byte[p++] := "-" - ||exponent - 'add exponent digits - if exponent => 10 - byte[p++] := exponent / 10 + "0" - exponent //= 10 - byte[p++] := exponent + "0" - - -PRI AddDigits(leading) | i - - 'add leading digits - repeat i := leading - AddDigit - 'add any thousands separator between thousands - if thousands_chr - i-- - if i and not i // 3 - byte[p++] := thousands_chr - 'if trailing digits, add decimal character - if digits - AddDecimal - 'then add trailing digits - repeat while digits - 'add any thousandths separator between thousandths - if thousandths_chr - if i and not i // 3 - byte[p++] := thousandths_chr - i++ - AddDigit - - -PRI AddDigit - - 'if leading zeros, add "0" - if zeros - byte[p++] := "0" - zeros-- - 'if more digits, add current digit and prepare next - elseif digits - byte[p++] := integer / tens + "0" - integer //= tens - tens /= 10 - digits-- - 'if no more digits, add "0" - else - byte[p++] := "0" - - -PRI AddDecimal - - if decimal_chr - byte[p++] := decimal_chr - else - byte[p++] := "." - - -DAT - long 1e+38, 1e+37, 1e+36, 1e+35, 1e+34, 1e+33, 1e+32, 1e+31 - long 1e+30, 1e+29, 1e+28, 1e+27, 1e+26, 1e+25, 1e+24, 1e+23, 1e+22, 1e+21 - long 1e+20, 1e+19, 1e+18, 1e+17, 1e+16, 1e+15, 1e+14, 1e+13, 1e+12, 1e+11 - long 1e+10, 1e+09, 1e+08, 1e+07, 1e+06, 1e+05, 1e+04, 1e+03, 1e+02, 1e+01 -tenf long 1e+00, 1e-01, 1e-02, 1e-03, 1e-04, 1e-05, 1e-06, 1e-07, 1e-08, 1e-09 - long 1e-10, 1e-11, 1e-12, 1e-13, 1e-14, 1e-15, 1e-16, 1e-17, 1e-18, 1e-19 - long 1e-20, 1e-21, 1e-22, 1e-23, 1e-24, 1e-25, 1e-26, 1e-27, 1e-28, 1e-29 - long 1e-30, 1e-31, 1e-32, 1e-33, 1e-34, 1e-35, 1e-36, 1e-37, 1e-38 - -teni long 1, 10, 100, 1_000, 10_000, 100_000, 1_000_000, 10_000_000, 100_000_000, 1_000_000_000 - - byte "yzafpnum" -metric byte 0 - byte "kMGTPEZY" - -{{ -+------------------------------------------------------------------------------------------------------------------------------+ -¦ TERMS OF USE: MIT License ¦ -+------------------------------------------------------------------------------------------------------------------------------¦ -¦Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation ¦ -¦files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, ¦ -¦modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software¦ -¦is furnished to do so, subject to the following conditions: ¦ -¦ ¦ -¦The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.¦ -¦ ¦ -¦THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE ¦ -¦WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR ¦ -¦COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ¦ -¦ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ¦ -+------------------------------------------------------------------------------------------------------------------------------+ -}} \ No newline at end of file diff --git a/zubehör/sphinx/hive-port/tokenizer/keywords.spin b/zubehör/sphinx/hive-port/tokenizer/keywords.spin deleted file mode 100644 index 612a0e4..0000000 --- a/zubehör/sphinx/hive-port/tokenizer/keywords.spin +++ /dev/null @@ -1,530 +0,0 @@ -obj - bt: "bintree" - -pub Init - - tableStart += @tableStart - FixupTable( @tableStart + 2 ) - -pri FixupTable( p ) | q - q := bt.PeekW( p ) - if q - bt.PokeW( p, q += @tableStart ) - FixupTable( q ) - q := bt.PeekW( p + 2 ) - if q - bt.PokeW( p + 2, q += @tableStart ) - FixupTable( q ) - -pub KeywordLookup( s ) - return bt.FindInTable( s, tableStart ) - -con -{ - 31 (plain ID) - 30 (int literal) - 29 (float literal) - 28 ? - 27 unary - 26 binary/postfix - 25 pasm (TJZ, XOR) - 24 cond (IF_Z, IF_E) - 23 effect (WC, WZ) - 22 stmtfn (BYTEMOVE, WAITCNT) - 21 assignment op (-=, OR=) - 20 intrinsic - 19 prec3 - 18 prec2 - 17 d prec1 - 16 s prec0 - 15 pasmop spinop7 - 14 pasmop spinop6 - 13 pasmop spinop5 keyword - 12 pasmop spinop4 uniquifier - 11 pasmop spinop3 bits - 10 pasmop spinop2 | - 9 pasmop spinop1 | #args - 8 pasmop spinop0 V #args - 7 pasmop spinop7 id7 op - 6 pasmop spinop6 id6 op - 5 pasmop spinop5 id5 op - 4 pasmop spinop4 id4 op - 3 pasmop spinop3 cond3 id3 effect op - 2 pasmop spinop2 cond2 id2 effect op - 1 pasmop spinop1 cond1 id1 effect op - 0 pasmop spinop0 cond0 id0 effect op -} -con ' The following is auto-generated. Do not edit. - kID = $80000000 - kINTLITERAL = $40000000 - kFLOATLITERAL = $20000000 - kUNARY = $08000000 - kBINARY = $04000000 - kPOSTFIX = $04000000 - kPASM = $02000000 - kCOND = $01000000 - kEFFECT = $00800000 - kSTMTFN = $00400000 - kASSIGNMENT = $00200000 - kINTRINSIC = $00100000 - -' kBANG = $080100e7 -' kOCTOTHORPRANGLE = $040700e4 -' kAMPERSAND = $040300e8 -' kSTAR = $040500f4 -' kSTARSTAR = $040500f5 - kPLUS = $040600ec -' kPLUSPLUS = $0c002820 - kMINUS = $040600ed -' kMINUSMINUS = $0c003830 -' kMINUSRANGLE = $040200e0 -' kSLASH = $040500f6 -' kSLASHSLASH = $040500f7 -' kLANGLE = $040800f9 -' kLANGLEOCTOTHORP = $040700e5 -' kLANGLEMINUS = $040200e1 -' kLANGLELANGLE = $040200e3 -' kLANGLERANGLE = $040800fb -' kEQUALLANGLE = $040800fd -' kEQUALEQUAL = $040800fc -' kEQUALRANGLE = $040800fe -' kRANGLE = $040800fa -' kRANGLELANGLE = $040200ef -' kRANGLERANGLE = $040200e2 -' kRANGLEBAR = $080100f1 - kQUESTION = $0c000c08 - kAT = $08000000 - kATAT = $08000001 -' kCARET = $040400eb -' kCARETCARET = $080100f8 - kBAR = $040400ea -' kBARLANGLE = $080100f3 -' kBARBAR = $080100e9 - kTILDE = $0c001810 -' kTILDERANGLE = $040200ee - kTILDETILDE = $0c001c14 - kAND = $060a00f0 -' kNOT = $080900ff - kOR = $060b00f2 -' kABS = $0203a8bc -' kABSNEG = $0203acbc -' kADD = $020380bc -' kADDABS = $020388bc -' kADDS = $0203d0bc -' kADDSX = $0203d8bc -' kADDX = $0203c8bc -' kANDN = $020364bc - kCALL = $02015cfc -' kCMP = $0203843c -' kCMPS = $0203c03c -' kCMPSUB = $0203e0bc -' kCMPSX = $0203c43c -' kCMPX = $0203cc3c -' kDJNZ = $0203e4bc -' kHUBOP = $02030c3c -' kJMP = $02015c3c -' kJMPRET = $02035cbc -' kMAX = $02034cbc -' kMAXS = $020344bc -' kMIN = $020348bc -' kMINS = $020340bc -' kMOV = $0203a0bc -' kMOVD = $020354bc -' kMOVI = $020358bc -' kMOVS = $020350bc -' kMUXC = $020370bc -' kMUXNC = $020374bc -' kMUXNZ = $02037cbc -' kMUXZ = $020378bc -' kNEG = $0203a4bc -' kNEGC = $0203b0bc -' kNEGNC = $0203b4bc -' kNEGNZ = $0203bcbc -' kNEGZ = $0203b8bc -' kNOP = $02000000 -' kRCL = $020334bc -' kRCR = $020330bc -' kRDBYTE = $020300bc -' kRDLONG = $020308bc -' kRDWORD = $020304bc -' kRET = $02005c7c -' kREV = $02033cbc -' kROL = $020324bc -' kROR = $020320bc -' kSAR = $020338bc -' kSHL = $02032cbc -' kSHR = $020328bc -' kSUB = $020384bc -' kSUBABS = $02038cbc -' kSUBS = $0203d4bc -' kSUBSX = $0203dcbc -' kSUBX = $0203ccbc -' kSUMC = $020390bc -' kSUMNC = $020394bc -' kSUMNZ = $02039cbc -' kSUMZ = $020398bc -' kTEST = $0203603c -' kTJNZ = $0203e83c -' kTJZ = $0203ec3c -' kWRBYTE = $0203003c -' kWRLONG = $0203083c -' kWRWORD = $0203043c -' kXOR = $02036cbc - kPAR = $00000001 -' kCNT = $00000002 -' kINA = $00000003 -' kINB = $00000004 -' kOUTA = $00000005 -' kOUTB = $00000006 -' kDIRA = $00000007 -' kDIRB = $00000008 -' kCTRA = $00000009 -' kCTRB = $0000000a -' kFRQA = $0000000b -' kFRQB = $0000000c -' kPHSA = $0000000d -' kPHSB = $0000000e -' kVCFG = $0000000f - kVSCL = $00000010 -' kIF_A = $01000001 -' kIF_AE = $01000003 -' kIF_ALWAYS = $0100000f -' kIF_B = $0100000c -' kIF_BE = $0100000e -' kIF_C = $0100000c -' kIF_C_AND_NZ = $01000004 -' kIF_C_AND_Z = $01000008 -' kIF_C_EQ_Z = $01000009 -' kIF_C_NE_Z = $01000006 -' kIF_C_OR_NZ = $0100000d -' kIF_C_OR_Z = $0100000e -' kIF_E = $0100000a -' kIF_NC = $01000003 -' kIF_NC_AND_NZ = $01000001 -' kIF_NC_AND_Z = $01000002 -' kIF_NC_OR_NZ = $01000007 -' kIF_NC_OR_Z = $0100000b -' kIF_NE = $01000005 -' kIF_NEVER = $01000000 -' kIF_NZ = $01000005 -' kIF_NZ_AND_C = $01000004 -' kIF_NZ_AND_NC = $01000001 -' kIF_NZ_OR_C = $0100000e -' kIF_NZ_OR_NC = $0100000b -' kIF_Z = $0100000a -' kIF_Z_AND_C = $01000008 -' kIF_Z_AND_NC = $01000002 -' kIF_Z_EQ_C = $01000009 -' kIF_Z_NE_C = $01000006 -' kIF_Z_OR_C = $0100000e -' kIF_Z_OR_NC = $0100000b -' kNR = $00800008 -' kWC = $00800002 -' kWR = $00800001 -' kWZ = $00800004 - kCON = $00000011 - kDAT = $00000012 - kOBJ = $00000013 - kPRI = $00000014 - kPUB = $00000015 - kVAR = $00000016 - kBYTE = $00000017 - kWORD = $00000018 - kLONG = $00000019 -' kBYTEFILL = $00400318 -' kWORDFILL = $00400319 -' kLONGFILL = $0040031a -' kBYTEMOVE = $0040031c -' kWORDMOVE = $0040031d -' kLONGMOVE = $0040031e - kCLKSET = $02400220 - kCOGSTOP = $02400121 -' kLOCKRET = $00400122 - kWAITCNT = $02400123 - kWAITPEQ = $0240031b - kWAITPNE = $0240031f - kWAITVID = $02400227 - kOCTOTHORP = $0000001a -' kDOLLAR = $0000001b - kLPAREN = $0000001c - kRPAREN = $0000001d - kCOMMA = $0000001e - kDOT = $0000001f - kDOTDOT = $00000020 - kCOLON = $00000021 - kCOLONEQUAL = $00200022 - kEQUAL = $00000023 - kABORT = $00000024 - kCASE = $00000025 - kCHIPVER = $00100000 - kCLKFREQ = $00100010 - kCLKMODE = $00100020 - kCOGID = $02100003 - kCOGINIT = $02100004 - kCOGNEW = $00100005 - kREBOOT = $00100006 -' kSTRCOMP = $00100172 -' kSTRSIZE = $00100161 -' kLOCKCLR = $0012b2f1 -' kLOCKNEW = $001292d0 -' kLOCKSET = $0012a2e1 -' kLOOKDOWN = $00113111 -' kLOOKDOWNZ = $00113110 -' kLOOKUP = $00112101 -' kLOOKUPZ = $00112100 - kCONSTANT = $00000026 - kELSE = $00000027 - kELSEIF = $00000028 - kELSEIFNOT = $00000029 -' kFILE = $0000002a - kFIT = $0000002b -' kFLOAT = $0000002c - kFROM = $0000002d - kIF = $0000002e - kIFNOT = $0000002f - kNEXT = $00000030 - kORG = $00000031 -' kORGX = $00000032 - kOTHER = $00000033 - kQUIT = $00000034 - kREPEAT = $00000035 - kRES = $00000036 - kRESULT = $00000037 - kRETURN = $00000038 -' kROUND = $00000039 - kSPR = $0000003a - kSTEP = $0000003b - kSTRING = $0000003c - kTO = $0000003d -' kTRUNC = $0000003e - kUNTIL = $0000003f - kWHILE = $00000040 - kLBRACKET = $00000041 - kBACKSLASH = $00000042 - kRBRACKET = $00000043 - kLBRACE = $00000044 - kRBRACE = $00000045 - kEOL = $000000fd - kEOF = $000000fe - kUNKNOWN = $000000ff -dat -tableStart word $0002 - - byte $0e,$00,$63,$06,$49,$4e,$41,$00,$03,$00,$00,$00,$1c,$00,$d6,$02 - byte $43,$4d,$50,$53,$58,$00,$3c,$c4,$03,$02,$27,$00,$57,$01,$3d,$3e - byte $00,$fe,$00,$08,$04,$32,$00,$c2,$00,$2d,$3e,$00,$e0,$00,$02,$04 - byte $3c,$00,$83,$00,$2a,$00,$f4,$00,$05,$04,$46,$00,$65,$00,$24,$00 - byte $1b,$00,$00,$00,$50,$00,$5a,$00,$23,$00,$1a,$00,$00,$00,$00,$00 - byte $00,$00,$21,$00,$e7,$00,$01,$08,$00,$00,$00,$00,$23,$3e,$00,$e4 - byte $00,$07,$04,$6f,$00,$79,$00,$28,$00,$1c,$00,$00,$00,$00,$00,$00 - byte $00,$26,$00,$e8,$00,$03,$04,$00,$00,$00,$00,$29,$00,$1d,$00,$00 - byte $00,$8d,$00,$ad,$00,$2c,$00,$1e,$00,$00,$00,$97,$00,$a2,$00,$2b - byte $00,$ec,$00,$06,$04,$00,$00,$00,$00,$2a,$2a,$00,$f5,$00,$05,$04 - byte $00,$00,$00,$00,$2b,$2b,$00,$20,$28,$00,$0c,$b8,$00,$00,$00,$2d - byte $2d,$00,$30,$38,$00,$0c,$00,$00,$00,$00,$2d,$00,$ed,$00,$06,$04 - byte $cd,$00,$16,$01,$3c,$23,$00,$e5,$00,$07,$04,$d8,$00,$f7,$00,$2f - byte $2f,$00,$f7,$00,$05,$04,$e3,$00,$ed,$00,$2e,$2e,$00,$20,$00,$00 - byte $00,$00,$00,$00,$00,$2e,$00,$1f,$00,$00,$00,$00,$00,$00,$00,$2f - byte $00,$f6,$00,$05,$04,$02,$01,$0c,$01,$3a,$3d,$00,$22,$00,$20,$00 - byte $00,$00,$00,$00,$3a,$00,$21,$00,$00,$00,$00,$00,$00,$00,$3c,$00 - byte $f9,$00,$08,$04,$20,$01,$41,$01,$3d,$00,$23,$00,$00,$00,$2b,$01 - byte $36,$01,$3c,$3c,$00,$e3,$00,$02,$04,$00,$00,$00,$00,$3c,$2d,$00 - byte $e1,$00,$02,$04,$00,$00,$00,$00,$3c,$3e,$00,$fb,$00,$08,$04,$4c - byte $01,$00,$00,$3d,$3d,$00,$fc,$00,$08,$04,$00,$00,$00,$00,$3d,$3c - byte $00,$fd,$00,$08,$04,$64,$01,$0d,$02,$41,$44,$44,$58,$00,$bc,$c8 - byte $03,$02,$72,$01,$bc,$01,$41,$42,$4f,$52,$54,$00,$24,$00,$00,$00 - byte $7d,$01,$9d,$01,$3e,$7c,$00,$f1,$00,$01,$08,$88,$01,$92,$01,$3e - byte $3c,$00,$ef,$00,$02,$04,$00,$00,$00,$00,$3e,$00,$fa,$00,$08,$04 - byte $00,$00,$00,$00,$3e,$3e,$00,$e2,$00,$02,$04,$a7,$01,$b1,$01,$40 - byte $00,$00,$00,$00,$08,$00,$00,$00,$00,$3f,$00,$08,$0c,$00,$0c,$00 - byte $00,$00,$00,$40,$40,$00,$01,$00,$00,$08,$cb,$01,$f2,$01,$41,$44 - byte $44,$41,$42,$53,$00,$bc,$88,$03,$02,$da,$01,$e6,$01,$41,$42,$53 - byte $4e,$45,$47,$00,$bc,$ac,$03,$02,$00,$00,$00,$00,$41,$42,$53,$00 - byte $bc,$a8,$03,$02,$00,$00,$00,$00,$41,$44,$44,$00,$bc,$80,$03,$02 - byte $00,$02,$00,$00,$41,$44,$44,$53,$58,$00,$bc,$d8,$03,$02,$00,$00 - byte $00,$00,$41,$44,$44,$53,$00,$bc,$d0,$03,$02,$1d,$02,$7f,$02,$43 - byte $48,$49,$50,$56,$45,$52,$00,$00,$00,$10,$00,$2e,$02,$54,$02,$42 - byte $59,$54,$45,$46,$49,$4c,$4c,$00,$18,$03,$40,$00,$3b,$02,$47,$02 - byte $41,$4e,$44,$4e,$00,$bc,$64,$03,$02,$00,$00,$00,$00,$41,$4e,$44 - byte $00,$f0,$00,$0a,$06,$00,$00,$00,$00,$42,$59,$54,$45,$00,$17,$00 - byte $00,$00,$61,$02,$72,$02,$43,$41,$4c,$4c,$00,$fc,$5c,$01,$02,$00 - byte $00,$00,$00,$42,$59,$54,$45,$4d,$4f,$56,$45,$00,$1c,$03,$40,$00 - byte $00,$00,$00,$00,$43,$41,$53,$45,$00,$25,$00,$00,$00,$8b,$02,$ba - byte $02,$43,$4d,$50,$00,$3c,$84,$03,$02,$9b,$02,$ab,$02,$43,$4c,$4b - byte $4d,$4f,$44,$45,$00,$20,$00,$10,$00,$00,$00,$00,$00,$43,$4c,$4b - byte $46,$52,$45,$51,$00,$10,$00,$10,$00,$00,$00,$00,$00,$43,$4c,$4b - byte $53,$45,$54,$00,$20,$02,$40,$02,$c9,$02,$00,$00,$43,$4d,$50,$53 - byte $55,$42,$00,$bc,$e0,$03,$02,$00,$00,$00,$00,$43,$4d,$50,$53,$00 - byte $3c,$c0,$03,$02,$e3,$02,$73,$04,$49,$46,$5f,$42,$00,$0c,$00,$00 - byte $01,$f0,$02,$b0,$03,$45,$4c,$53,$45,$00,$27,$00,$00,$00,$01,$03 - byte $63,$03,$43,$4f,$4e,$53,$54,$41,$4e,$54,$00,$26,$00,$00,$00,$11 - byte $03,$38,$03,$43,$4f,$47,$49,$4e,$49,$54,$00,$04,$00,$10,$02,$1d - byte $03,$2a,$03,$43,$4e,$54,$00,$02,$00,$00,$00,$00,$00,$00,$00,$43 - byte $4d,$50,$58,$00,$3c,$cc,$03,$02,$00,$00,$00,$00,$43,$4f,$47,$49 - byte $44,$00,$03,$00,$10,$02,$48,$03,$57,$03,$43,$4f,$47,$53,$54,$4f - byte $50,$00,$21,$01,$40,$02,$00,$00,$00,$00,$43,$4f,$47,$4e,$45,$57 - byte $00,$05,$00,$10,$00,$00,$00,$00,$00,$43,$4f,$4e,$00,$11,$00,$00 - byte $00,$70,$03,$96,$03,$44,$49,$52,$41,$00,$07,$00,$00,$00,$7d,$03 - byte $8a,$03,$43,$54,$52,$42,$00,$0a,$00,$00,$00,$00,$00,$00,$00,$43 - byte $54,$52,$41,$00,$09,$00,$00,$00,$00,$00,$00,$00,$44,$41,$54,$00 - byte $12,$00,$00,$00,$a3,$03,$00,$00,$44,$4a,$4e,$5a,$00,$bc,$e4,$03 - byte $02,$00,$00,$00,$00,$44,$49,$52,$42,$00,$08,$00,$00,$00,$bd,$03 - byte $1f,$04,$46,$52,$51,$42,$00,$0c,$00,$00,$00,$c9,$03,$f7,$03,$46 - byte $49,$54,$00,$2b,$00,$00,$00,$db,$03,$ea,$03,$45,$4c,$53,$45,$49 - byte $46,$4e,$4f,$54,$00,$29,$00,$00,$00,$00,$00,$00,$00,$45,$4c,$53 - byte $45,$49,$46,$00,$28,$00,$00,$00,$00,$00,$00,$00,$46,$49,$4c,$45 - byte $00,$2a,$00,$00,$00,$04,$04,$12,$04,$46,$52,$4f,$4d,$00,$2d,$00 - byte $00,$00,$00,$00,$00,$00,$46,$4c,$4f,$41,$54,$00,$2c,$00,$00,$00 - byte $00,$00,$00,$00,$46,$52,$51,$41,$00,$0b,$00,$00,$00,$2c,$04,$53 - byte $04,$49,$46,$5f,$41,$00,$01,$00,$00,$01,$37,$04,$45,$04,$49,$46 - byte $00,$2e,$00,$00,$00,$00,$00,$00,$00,$48,$55,$42,$4f,$50,$00,$3c - byte $0c,$03,$02,$00,$00,$00,$00,$49,$46,$4e,$4f,$54,$00,$2f,$00,$00 - byte $00,$65,$04,$00,$00,$49,$46,$5f,$41,$4c,$57,$41,$59,$53,$00,$0f - byte $00,$00,$01,$00,$00,$00,$00,$49,$46,$5f,$41,$45,$00,$03,$00,$00 - byte $01,$81,$04,$77,$05,$49,$46,$5f,$4e,$45,$00,$05,$00,$00,$01,$93 - byte $04,$0c,$05,$49,$46,$5f,$43,$5f,$4f,$52,$5f,$5a,$00,$0e,$00,$00 - byte $01,$a6,$04,$d5,$04,$49,$46,$5f,$43,$5f,$41,$4e,$44,$5f,$5a,$00 - byte $08,$00,$00,$01,$b3,$04,$c1,$04,$49,$46,$5f,$43,$00,$0c,$00,$00 - byte $01,$00,$00,$00,$00,$49,$46,$5f,$42,$45,$00,$0e,$00,$00,$01,$00 - byte $00,$00,$00,$49,$46,$5f,$43,$5f,$41,$4e,$44,$5f,$4e,$5a,$00,$04 - byte $00,$00,$01,$e7,$04,$f9,$04,$49,$46,$5f,$43,$5f,$4e,$45,$5f,$5a - byte $00,$06,$00,$00,$01,$00,$00,$00,$00,$49,$46,$5f,$43,$5f,$45,$51 - byte $5f,$5a,$00,$09,$00,$00,$01,$00,$00,$00,$00,$49,$46,$5f,$43,$5f - byte $4f,$52,$5f,$4e,$5a,$00,$0d,$00,$00,$01,$20,$05,$50,$05,$49,$46 - byte $5f,$4e,$43,$5f,$41,$4e,$44,$5f,$5a,$00,$02,$00,$00,$01,$2e,$05 - byte $3b,$05,$49,$46,$5f,$4e,$43,$00,$03,$00,$00,$01,$00,$00,$00,$00 - byte $49,$46,$5f,$45,$00,$0a,$00,$00,$01,$00,$00,$00,$00,$49,$46,$5f - byte $4e,$43,$5f,$41,$4e,$44,$5f,$4e,$5a,$00,$01,$00,$00,$01,$63,$05 - byte $00,$00,$49,$46,$5f,$4e,$43,$5f,$4f,$52,$5f,$5a,$00,$0b,$00,$00 - byte $01,$00,$00,$00,$00,$49,$46,$5f,$4e,$43,$5f,$4f,$52,$5f,$4e,$5a - byte $00,$07,$00,$00,$01,$84,$05,$f3,$05,$49,$46,$5f,$5a,$00,$0a,$00 - byte $00,$01,$99,$05,$cc,$05,$49,$46,$5f,$4e,$5a,$5f,$41,$4e,$44,$5f - byte $4e,$43,$00,$01,$00,$00,$01,$a7,$05,$b8,$05,$49,$46,$5f,$4e,$5a - byte $00,$05,$00,$00,$01,$00,$00,$00,$00,$49,$46,$5f,$4e,$45,$56,$45 - byte $52,$00,$00,$00,$00,$01,$00,$00,$00,$00,$49,$46,$5f,$4e,$5a,$5f - byte $41,$4e,$44,$5f,$43,$00,$04,$00,$00,$01,$e0,$05,$00,$00,$49,$46 - byte $5f,$4e,$5a,$5f,$4f,$52,$5f,$4e,$43,$00,$0b,$00,$00,$01,$00,$00 - byte $00,$00,$49,$46,$5f,$4e,$5a,$5f,$4f,$52,$5f,$43,$00,$0e,$00,$00 - byte $01,$05,$06,$3e,$06,$49,$46,$5f,$5a,$5f,$4e,$45,$5f,$43,$00,$06 - byte $00,$00,$01,$19,$06,$2c,$06,$49,$46,$5f,$5a,$5f,$41,$4e,$44,$5f - byte $4e,$43,$00,$02,$00,$00,$01,$00,$00,$00,$00,$49,$46,$5f,$5a,$5f - byte $41,$4e,$44,$5f,$43,$00,$08,$00,$00,$01,$00,$00,$00,$00,$49,$46 - byte $5f,$5a,$5f,$45,$51,$5f,$43,$00,$09,$00,$00,$01,$51,$06,$00,$00 - byte $49,$46,$5f,$5a,$5f,$4f,$52,$5f,$4e,$43,$00,$0b,$00,$00,$01,$00 - byte $00,$00,$00,$49,$46,$5f,$5a,$5f,$4f,$52,$5f,$43,$00,$0e,$00,$00 - byte $01,$72,$06,$84,$09,$52,$45,$54,$55,$52,$4e,$00,$38,$00,$00,$00 - byte $80,$06,$1a,$08,$4e,$45,$47,$4e,$5a,$00,$bc,$bc,$03,$02,$8c,$06 - byte $64,$07,$4d,$41,$58,$00,$bc,$4c,$03,$02,$99,$06,$00,$07,$4c,$4f - byte $4e,$47,$00,$19,$00,$00,$00,$a9,$06,$d0,$06,$4c,$4f,$43,$4b,$43 - byte $4c,$52,$00,$f1,$b2,$12,$00,$b5,$06,$c1,$06,$4a,$4d,$50,$00,$3c - byte $5c,$01,$02,$00,$00,$00,$00,$49,$4e,$42,$00,$04,$00,$00,$00,$00 - byte $00,$00,$00,$4a,$4d,$50,$52,$45,$54,$00,$bc,$5c,$03,$02,$e0,$06 - byte $f0,$06,$4c,$4f,$43,$4b,$52,$45,$54,$00,$22,$01,$40,$00,$00,$00 - byte $00,$00,$4c,$4f,$43,$4b,$4e,$45,$57,$00,$d0,$92,$12,$00,$00,$00 - byte $00,$00,$4c,$4f,$43,$4b,$53,$45,$54,$00,$e1,$a2,$12,$00,$12,$07 - byte $45,$07,$4c,$4f,$4f,$4b,$44,$4f,$57,$4e,$5a,$00,$10,$31,$11,$00 - byte $23,$07,$34,$07,$4c,$4f,$4e,$47,$4d,$4f,$56,$45,$00,$1e,$03,$40 - byte $00,$00,$00,$00,$00,$4c,$4f,$4e,$47,$46,$49,$4c,$4c,$00,$1a,$03 - byte $40,$00,$00,$00,$00,$00,$4c,$4f,$4f,$4b,$44,$4f,$57,$4e,$00,$11 - byte $31,$11,$00,$55,$07,$00,$00,$4c,$4f,$4f,$4b,$55,$50,$5a,$00,$00 - byte $21,$11,$00,$00,$00,$00,$00,$4c,$4f,$4f,$4b,$55,$50,$00,$01,$21 - byte $11,$00,$71,$07,$ca,$07,$4d,$55,$58,$43,$00,$bc,$70,$03,$02,$7d - byte $07,$a3,$07,$4d,$4f,$56,$00,$bc,$a0,$03,$02,$89,$07,$96,$07,$4d - byte $49,$4e,$00,$bc,$48,$03,$02,$00,$00,$00,$00,$4d,$41,$58,$53,$00 - byte $bc,$44,$03,$02,$00,$00,$00,$00,$4d,$49,$4e,$53,$00,$bc,$40,$03 - byte $02,$b0,$07,$bd,$07,$4d,$4f,$56,$49,$00,$bc,$58,$03,$02,$00,$00 - byte $00,$00,$4d,$4f,$56,$44,$00,$bc,$54,$03,$02,$00,$00,$00,$00,$4d - byte $4f,$56,$53,$00,$bc,$50,$03,$02,$d6,$07,$ff,$07,$4e,$45,$47,$00 - byte $bc,$a4,$03,$02,$e4,$07,$f2,$07,$4d,$55,$58,$4e,$5a,$00,$bc,$7c - byte $03,$02,$00,$00,$00,$00,$4d,$55,$58,$4e,$43,$00,$bc,$74,$03,$02 - byte $00,$00,$00,$00,$4d,$55,$58,$5a,$00,$bc,$78,$03,$02,$0d,$08,$00 - byte $00,$4e,$45,$47,$4e,$43,$00,$bc,$b4,$03,$02,$00,$00,$00,$00,$4e - byte $45,$47,$43,$00,$bc,$b0,$03,$02,$27,$08,$d5,$08,$50,$48,$53,$42 - byte $00,$0e,$00,$00,$00,$33,$08,$87,$08,$4f,$52,$47,$00,$31,$00,$00 - byte $00,$3f,$08,$65,$08,$4e,$4f,$54,$00,$ff,$00,$09,$08,$4c,$08,$59 - byte $08,$4e,$45,$58,$54,$00,$30,$00,$00,$00,$00,$00,$00,$00,$4e,$45 - byte $47,$5a,$00,$bc,$b8,$03,$02,$00,$00,$00,$00,$4e,$4f,$50,$00,$00 - byte $00,$00,$02,$71,$08,$7c,$08,$4f,$42,$4a,$00,$13,$00,$00,$00,$00 - byte $00,$00,$00,$4e,$52,$00,$08,$00,$80,$00,$00,$00,$00,$00,$4f,$52 - byte $00,$f2,$00,$0b,$06,$94,$08,$bc,$08,$4f,$55,$54,$42,$00,$06,$00 - byte $00,$00,$a2,$08,$af,$08,$4f,$54,$48,$45,$52,$00,$33,$00,$00,$00 - byte $00,$00,$00,$00,$4f,$52,$47,$58,$00,$32,$00,$00,$00,$00,$00,$00 - byte $00,$4f,$55,$54,$41,$00,$05,$00,$00,$00,$c9,$08,$00,$00,$50,$48 - byte $53,$41,$00,$0d,$00,$00,$00,$00,$00,$00,$00,$50,$41,$52,$00,$01 - byte $00,$00,$00,$e4,$08,$30,$09,$52,$44,$4c,$4f,$4e,$47,$00,$bc,$08 - byte $03,$02,$f0,$08,$15,$09,$52,$43,$4c,$00,$bc,$34,$03,$02,$fc,$08 - byte $08,$09,$50,$55,$42,$00,$15,$00,$00,$00,$00,$00,$00,$00,$50,$52 - byte $49,$00,$14,$00,$00,$00,$00,$00,$00,$00,$51,$55,$49,$54,$00,$34 - byte $00,$00,$00,$24,$09,$00,$00,$52,$44,$42,$59,$54,$45,$00,$bc,$00 - byte $03,$02,$00,$00,$00,$00,$52,$43,$52,$00,$bc,$30,$03,$02,$3c,$09 - byte $69,$09,$52,$45,$53,$00,$36,$00,$00,$00,$4b,$09,$5a,$09,$52,$45 - byte $42,$4f,$4f,$54,$00,$06,$00,$10,$00,$00,$00,$00,$00,$52,$44,$57 - byte $4f,$52,$44,$00,$bc,$04,$03,$02,$00,$00,$00,$00,$52,$45,$50,$45 - byte $41,$54,$00,$35,$00,$00,$00,$75,$09,$00,$00,$52,$45,$54,$00,$7c - byte $5c,$00,$02,$00,$00,$00,$00,$52,$45,$53,$55,$4c,$54,$00,$37,$00 - byte $00,$00,$91,$09,$0e,$0b,$56,$53,$43,$4c,$00,$10,$00,$00,$00,$9e - byte $09,$57,$0a,$53,$55,$42,$53,$00,$bc,$d4,$03,$02,$aa,$09,$00,$0a - byte $53,$50,$52,$00,$3a,$00,$00,$00,$b8,$09,$dc,$09,$52,$4f,$55,$4e - byte $44,$00,$39,$00,$00,$00,$c4,$09,$d0,$09,$52,$4f,$4c,$00,$bc,$24 - byte $03,$02,$00,$00,$00,$00,$52,$45,$56,$00,$bc,$3c,$03,$02,$00,$00 - byte $00,$00,$52,$4f,$52,$00,$bc,$20,$03,$02,$e8,$09,$f4,$09,$53,$48 - byte $4c,$00,$bc,$2c,$03,$02,$00,$00,$00,$00,$53,$41,$52,$00,$bc,$38 - byte $03,$02,$00,$00,$00,$00,$53,$48,$52,$00,$bc,$28,$03,$02,$10,$0a - byte $3c,$0a,$53,$54,$52,$53,$49,$5a,$45,$00,$61,$01,$10,$00,$20,$0a - byte $2d,$0a,$53,$54,$52,$43,$4f,$4d,$50,$00,$72,$01,$10,$00,$00,$00 - byte $00,$00,$53,$54,$45,$50,$00,$3b,$00,$00,$00,$00,$00,$00,$00,$53 - byte $54,$52,$49,$4e,$47,$00,$3c,$00,$00,$00,$4b,$0a,$00,$00,$53,$55 - byte $42,$41,$42,$53,$00,$bc,$8c,$03,$02,$00,$00,$00,$00,$53,$55,$42 - byte $00,$bc,$84,$03,$02,$64,$0a,$c2,$0a,$54,$4a,$4e,$5a,$00,$3c,$e8 - byte $03,$02,$72,$0a,$9a,$0a,$53,$55,$4d,$4e,$43,$00,$bc,$94,$03,$02 - byte $7f,$0a,$8d,$0a,$53,$55,$42,$58,$00,$bc,$cc,$03,$02,$00,$00,$00 - byte $00,$53,$55,$42,$53,$58,$00,$bc,$dc,$03,$02,$00,$00,$00,$00,$53 - byte $55,$4d,$43,$00,$bc,$90,$03,$02,$a7,$0a,$b5,$0a,$53,$55,$4d,$5a - byte $00,$bc,$98,$03,$02,$00,$00,$00,$00,$53,$55,$4d,$4e,$5a,$00,$bc - byte $9c,$03,$02,$00,$00,$00,$00,$54,$45,$53,$54,$00,$3c,$60,$03,$02 - byte $d0,$0a,$f5,$0a,$55,$4e,$54,$49,$4c,$00,$3f,$00,$00,$00,$db,$0a - byte $e7,$0a,$54,$4f,$00,$3d,$00,$00,$00,$00,$00,$00,$00,$54,$4a,$5a - byte $00,$3c,$ec,$03,$02,$00,$00,$00,$00,$54,$52,$55,$4e,$43,$00,$3e - byte $00,$00,$00,$02,$0b,$00,$00,$56,$43,$46,$47,$00,$0f,$00,$00,$00 - byte $00,$00,$00,$00,$56,$41,$52,$00,$16,$00,$00,$00,$1a,$0b,$e5,$0b - byte $58,$4f,$52,$00,$bc,$6c,$03,$02,$2b,$0b,$91,$0b,$57,$4f,$52,$44 - byte $46,$49,$4c,$4c,$00,$19,$03,$40,$00,$3b,$0b,$6b,$0b,$57,$41,$49 - byte $54,$56,$49,$44,$00,$27,$02,$40,$02,$4b,$0b,$5b,$0b,$57,$41,$49 - byte $54,$50,$45,$51,$00,$1b,$03,$40,$02,$00,$00,$00,$00,$57,$41,$49 - byte $54,$43,$4e,$54,$00,$23,$01,$40,$02,$00,$00,$00,$00,$57,$41,$49 - byte $54,$50,$4e,$45,$00,$1f,$03,$40,$02,$79,$0b,$84,$0b,$57,$48,$49 - byte $4c,$45,$00,$40,$00,$00,$00,$00,$00,$00,$00,$57,$43,$00,$02,$00 - byte $80,$00,$00,$00,$00,$00,$57,$4f,$52,$44,$00,$18,$00,$00,$00,$a0 - byte $0b,$cb,$0b,$57,$52,$4c,$4f,$4e,$47,$00,$3c,$08,$03,$02,$ab,$0b - byte $bc,$0b,$57,$52,$00,$01,$00,$80,$00,$00,$00,$00,$00,$57,$4f,$52 - byte $44,$4d,$4f,$56,$45,$00,$1d,$03,$40,$00,$00,$00,$00,$00,$57,$52 - byte $42,$59,$54,$45,$00,$3c,$00,$03,$02,$d6,$0b,$00,$00,$57,$5a,$00 - byte $04,$00,$80,$00,$00,$00,$00,$00,$57,$52,$57,$4f,$52,$44,$00,$3c - byte $04,$03,$02,$ef,$0b,$2c,$0c,$7c,$00,$ea,$00,$04,$04,$f9,$0b,$17 - byte $0c,$5e,$00,$eb,$00,$04,$04,$03,$0c,$0d,$0c,$5c,$00,$42,$00,$00 - byte $00,$00,$00,$00,$00,$5b,$00,$41,$00,$00,$00,$00,$00,$00,$00,$5d - byte $00,$43,$00,$00,$00,$21,$0c,$00,$00,$7b,$00,$44,$00,$00,$00,$00 - byte $00,$00,$00,$5e,$5e,$00,$f8,$00,$01,$08,$36,$0c,$56,$0c,$7e,$00 - byte $10,$18,$00,$0c,$41,$0c,$4c,$0c,$7c,$7c,$00,$e9,$00,$01,$08,$00 - byte $00,$00,$00,$7c,$3c,$00,$f3,$00,$01,$08,$00,$00,$00,$00,$7d,$00 - byte $45,$00,$00,$00,$61,$0c,$00,$00,$7e,$7e,$00,$14,$1c,$00,$0c,$00 - byte $00,$00,$00,$7e,$3e,$00,$ee,$00,$02,$04 - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} \ No newline at end of file diff --git a/zubehör/sphinx/hive-port/tokenizer/led.spn b/zubehör/sphinx/hive-port/tokenizer/led.spn deleted file mode 100644 index 066b8a8..0000000 --- a/zubehör/sphinx/hive-port/tokenizer/led.spn +++ /dev/null @@ -1,7 +0,0 @@ -{{ Output.spin }} - -PUB Toggle - dira[24]~~ - repeat - !outa[24] - waitcnt(3_000_000 + cnt) \ No newline at end of file diff --git a/zubehör/sphinx/hive-port/tokenizer/lex.spin b/zubehör/sphinx/hive-port/tokenizer/lex.spin deleted file mode 100644 index fe9053a..0000000 --- a/zubehör/sphinx/hive-port/tokenizer/lex.spin +++ /dev/null @@ -1,564 +0,0 @@ -{{ - Lex - - usage: lex filename [options] - - Reads filename.spn on SD card, writes tokens to filename.tok. - -}} -con - -_stack = 1000 - -obj - ios: "ios" - kw: "keywords" - str: "stringx" - bt: "bintree" - floatString: "FltStr" - -var - -byte parastr[64] - -pub Main | err, p - ios.start - err := \Try - if err - if err > 0 - ios.print( err ) - ios.printnl - else - ios.print( string("Error ") ) - ios.printdec( err ) - ios.printchar( 13 ) - ios.printdec( TokLineNumber ) - ios.printchar( "," ) - ios.printdec( TokColumn + 1 ) - ios.printchar( " " ) - ios.printchar( "'" ) - ios.print( pTokenText ) - ios.printchar( "'" ) - ios.printchar( 13 ) - ios.sdclose - bt.Stop - ios.stop - -var - long pTokenText - -pri Try - bt.Init( 0, 0 ) - ProcessCommandLine - if verbosity => 1 - ios.print( string("version 100225", 13) ) - Start - -pri ProcessCommandLine | nArgs, l - - ios.parastart - repeat while ios.paranext(@parastr) 'parameter einlesen - if byte[@parastr][0] == "/" 'option? - case byte[@parastr][1] - "?": ios.print(string("help: lex /i fn.spn /o fn.tok [options]")) '/? - ios.printnl - abort - "i": ifnot ios.paranext(@spinFilename) '/i fn.spn - ios.print(string("error: input-filname")) - ios.printnl - "o": ifnot ios.paranext(@outputFilename) '/o fn.tok - ios.print(string("error: output-filname")) - ios.printnl - "c": compile~~ - "l": compile~~ - "v": if ios.paranext(@parastr) '/v n - verbosity := str2dec(@parastr) - else - ios.print(string("error: verbosity-level")) - ios.printnl - else - ios.print(string("usage: lex /i fn.spn /o fn.tok [options]")) - -pri str2dec(stradr)|buffer,counter - - buffer := byte[stradr] - counter := (strsize(stradr) <# 11) - repeat while(counter--) - result *= 10 - result += lookdownz(byte[stradr++]: "0".."9") - if(buffer == "-") - -result - -con - MAXFILENAMELENGTH = 8 + 1 + 3 ' 8.3 - MAXSTRINGBUFFERLENGTH = 32 - -var - byte spinFilename[MAXFILENAMELENGTH+1] ' input .spi file - byte outputFilename[MAXFILENAMELENGTH+1] ' output .tok file - byte stringBuffer[MAXSTRINGBUFFERLENGTH+1] ' temp string buffer - -dat -verbosity byte 0 ' set by /V option -compile byte 0 ' set by /C or /L: if non-zero, run compile.bin automatically. -type long 0 -lineNum word 0 -column word 0 - -pri Start | v - - kw.Init - pTokenText := TokGetPText - - if verbosity => 2 - ios.print( string("Reading ") ) - ios.print( @spinFilename ) - ios.printchar( 13 ) - TokOpen( @spinFilename ) - - if verbosity => 2 - ios.print( string("Writing ") ) - ios.print( @outputFilename ) - ios.printchar( 13 ) - if ios.sdnewfile( @outputFilename ) - abort string("can't open o-file") - ios.sdopen( "W", @outputFilename ) - - repeat - type := TokType - lineNum := TokLineNumber - column := Column - ios.sdputblk( 8, @type ) ' long + word + word - - if type == kw#kINTLITERAL or type == kw#kFLOATLITERAL - v := TokValue - ios.sdputblk( 4, @v ) - else - ios.sdputblk( strsize(pTokenText) + 1, pTokenText ) - - if TokType == kw#kEOF - quit - TokAdvance - ios.sdclose - -dat 'TOKENIZER - -pub TokOpen( pFilename ) - - if ios.sdopen( "R", pFilename ) <> 0 - abort string("can't open file") - - TokInitReadLine - - insideDAT~ - - TokAdvance ' prime the pump - -pub TokClose - ios.sdclose - -{ - bytes~ - InitReadLine - GetNextToken ' prime the pump - - t := cnt - repeat - case tokenType - EOL_TOKEN: - term.str( @tokenText ) - EOF_TOKEN: - quit - ID_TOKEN: - term.str( @tokenText ) - OP_TOKEN: - INT_TOKEN: - term.out( "#" ) - term.dec( tokenValue ) - FLOAT_TOKEN: - term.out( "F" ) - term.str( floatString.FloatToString( tokenValue ) ) - term.out( "\" ) - GetNextToken - term.out( 13 ) -'} -{ repeat while SkipWhitespace - term.dec( lineNo ) - term.out( "," ) - term.dec( cp+1 ) - term.out( ":" ) - if cp == lineLength - term.str( string("(eol)")) - else - term.out( lineBuffer[cp++] ) - term.out( 13 ) -'} -{ - repeat - r := sdfat.pread( @buf, BUFFERSIZE ) - if r < 0 - quit - bytes += r -'} -{ - repeat 100 - r := sdfat.pgetc - if r < 0 - quit - ++bytes - term.dec(r) - term.out( "," ) -'} - -con - MAXTOKENLENGTH = 32 - BUFFERSIZE = 200 - -var - byte tokenText[MAXTOKENLENGTH+1] - long tokenType - word tokenLineNumber - word tokenCol - long tokenValue - byte insideDAT - -pub TokGetPText - return @tokenText - -pub TokType - return tokenType - -pub TokColumn - return tokenCol - -pub TokLineNumber - return tokenLineNumber - -pub TokValue - return tokenValue - -pub TokAdvance | i, radix, fp, x, hack - if inStringLiteral - if comma - comma~ - ifnot tokenValue - abort string("Unterminated string") - if lineBuffer[cp] <> $22 ' double-quote - tokenType := kw#kCOMMA - return - ++cp - inStringLiteral~ - else - comma~~ - tokenType := kw#kINTLITERAL - tokenValue := lineBuffer[cp++] - return - - if TokSkipWhitespace - if cp == lineLength - tokenType := kw#kEOL - bytemove( @tokenText, string("(EOL)"), 6 ) - tokenLineNumber := lineNo - tokenCol := cp - elseif lineBuffer[cp] == $22 ' double-quote - tokenLineNumber := LineNo - tokenCol := cp - ++cp - if LineBuffer[cp] == $22 - abort string("Empty string") - comma~ - inStringLiteral~~ - TokAdvance - elseif lineBuffer[cp] == "%" or lineBuffer[cp] == "$" - tokenType := kw#kINTLITERAL - tokenLineNumber := lineNo - tokenCol := cp - if lineBuffer[cp] == "%" - if lineBuffer[cp+1] == "%" - radix := 4 - ++cp - else - radix := 2 - else - radix := 16 - ++cp - ifnot TokIsDigit( lineBuffer[cp], radix, false ) - abort string("Bad character in number") - tokenValue~ - repeat while TokIsDigit( lineBuffer[cp], radix, true ) - if lineBuffer[cp] <> "_" - tokenValue := tokenValue * radix + TokDigitValue( linebuffer[cp] ) - ++cp - elseif TokIsDigit( lineBuffer[cp], 10, false ) - tokenLineNumber := lineNo - tokenCol := cp - i~ - fp~ {0 => integer - 1 => have seen . - 2 => have seen e or E - 3 => have seen + or - } - repeat while TokIsDigit( lineBuffer[cp], 10, true ) { -} or ( fp < 1 and lineBuffer[cp] == "." and lineBuffer[cp+1] <> "." ) { -} or ( fp < 2 and (lineBuffer[cp] == "e" or lineBuffer[cp] == "E") ) { -} or ( (fp == 1 or fp == 2) and (lineBuffer[cp] == "+" or lineBuffer[cp] == "-") ) - if lineBuffer[cp] == "." - fp := 1 - if lineBuffer[cp] == "e" or lineBuffer[cp] == "E" - fp := 2 - if lineBuffer[cp] == "+" or lineBuffer[cp] == "-" - fp := 3 - if lineBuffer[cp] <> "_" - if i => MAXTOKENLENGTH - abort string("Token too long") - tokenText[i++] := lineBuffer[cp] - ++cp - tokenText[i]~ - if fp - tokenType := kw#kFLOATLITERAL - tokenValue := floatString.StringToFloat( @tokenText ) - else - tokenType := kw#kINTLITERAL - tokenValue~ - i~ - repeat while tokenText[i] - tokenValue := tokenValue * 10 + TokDigitValue( tokenText[i++] ) - elseif TokIsAlpha( lineBuffer[cp] ) - i~ - tokenLineNumber := lineNo - tokenCol := cp - repeat while TokIsAlpha( lineBuffer[cp] ) or TokIsDigit( lineBuffer[cp], 10, true ) - if i => MAXTOKENLENGTH - abort string("Token too long") - tokenText[i++] := TokToUpper( lineBuffer[cp++] ) - tokenText[i]~ - x := kw.KeywordLookup( @tokenText ) - if x - tokenType := bt.PeekL( x ) - if kw#kCON =< tokenType and tokenType =< kw#kVAR and tokenCol == 0 - insideDAT := tokenType == kw#kDAT - else - tokenType := kw#kID - else ' non-alphanumeric - tokenLineNumber := lineNo - tokenCol := cp - i~ - if lineBuffer[cp] < $20 or lineBuffer[cp] => $80 - abort string("Illegal character (UNICODE?)") - - if insideDat and lineBuffer[cp] == ":" and TokIsAlpha( lineBuffer[cp+1] ) - tokenText[i++] := lineBuffer[cp++] - repeat while TokIsAlpha( lineBuffer[cp] ) or TokIsDigit( lineBuffer[cp], 10, true ) - if i => MAXTOKENLENGTH - abort string("Token too long") - tokenText[i++] := TokToUpper( lineBuffer[cp++] ) - tokenText[i]~ - tokenType := kw#kID - else - repeat - if cp < lineLength - tokenText[i++] := lineBuffer[cp++] - else - tokenText[i++] := " " - ++cp - tokenText[i]~ - while x := kw.KeywordLookup( @tokenText ) - if i > 1 - tokenText[--i]~ ' shorten token by 1 - --cp - tokenType := bt.PeekL( kw.KeywordLookup( @tokenText ) ) - else - tokenType := kw#kUNKNOWN - - if TokIsBinary ' This next block is a total hack to see if a binary op - hack := blankLine ' hack is followed by "=" making it an assignment op - TokSkipWhitespace ' It parses "and ==" as "(and=) =" instead of "(and)(==)" - if lineBuffer[cp] == "=" ' PropTool does the latter. So this is wrong, but hopefully - tokenText[i++] := lineBuffer[cp++] ' not *too* wrong. - tokenText[i]~ - tokenType |= kw#kASSIGNMENT - else - blankLine := hack ' restore (this hack is necessary to reset the eol condition trigger in SkipWhitespace) - else - tokenType := kw#kEOF - bytemove( @tokenText, string("(EOF)"), 6 ) - tokenLineNumber := lineNo - tokenCol := cp - -pri TokToUpper( ch ) - if "a" =< ch and ch =< "z" - ch += constant( "A" - "a" ) - return ch - -pri TokIsAlpha( ch ) - return "a" =< ch and ch =< "z" or "A" =< ch and ch =< "Z" or ch == "_" - -pri TokIsDigit( ch, radix, u ) | upper -{{ - Returns non-zero if ch is an acceptable digit given radix (2, 4, 10, or 16), false otherwise. - Pass u = true if the underscore ("_") is an acceptable value for ch. -}} - if ch == "_" - return u - upper := constant("0"-1) + radix - if radix =< 10 - return "0" =< ch and ch =< upper - ' else radix == 16 - return "0" =< ch and ch =< "9" or "a" =< ch and ch =< "f" or "A" =< ch and ch =< "F" - -pri TokDigitValue( ch ) - if ch =< "9" - return ch - "0" - if ch =< "F" - return ch + constant( 10 - "A" ) - if ch =< "f" - return ch + constant( 10 - "a" ) - -pub TokIsBinary -{{ - Returns non-zero (not necessarily -1) if token is a binary operator. - Returns 0 otherwise. -}} - return ( tokenType & constant(kw#kUNARY|kw#kBINARY) ) == kw#kBINARY - -var - byte lineBuffer[BUFFERSIZE] - byte lineLength - byte lineRemainder - byte eolLength - word lineNo - byte cp - byte blankLine - byte inStringLiteral ' indicates we are splitting up a string literal - byte comma ' flag for returning commas when splitting up a string literal - -pri TokSkipWhitespace -'' Returns true on success, false on failure (eof). -'' lineBuffer[cp] is the next non-whitespace character -'' (comments count as whitespace). - repeat - repeat while cp => lineLength - ifnot blankLine - blankLine~~ - return true - ifnot TokReadLine - return false - if lineBuffer[cp] == 9 - abort string("Illegal TAB character") - if lineBuffer[cp] == "'" ' quote comment? - cp := lineLength ' skip to end of line - elseif lineBuffer[cp] == "}" - abort string("Unexpected '}'") - elseif lineBuffer[cp] == "{" - TokSkipComment - elseif lineBuffer[cp] == " " - ++cp - else ' non-blank character - blankLine~ - return true - -pri TokSkipComment | depth - if cp+1 < lineLength and lineBuffer[cp+1] == "{" - ++cp - repeat - repeat while cp => lineLength - ifnot TokReadLine - abort string("Unterminated comment") - if cp+1 < lineLength and lineBuffer[cp] == "}" and lineBuffer[cp+1] == "}" - cp += 2 - return - ++cp - else - ++cp - depth := 1 - repeat - repeat while cp => lineLength - ifnot TokReadLine - abort string("Unterminated comment") - if lineBuffer[cp] == "{" - ++cp - ++depth - elseif lineBuffer[cp] == "}" - ++cp - ifnot --depth - return - else - ++cp - -pri TokInitReadLine - lineLength~ - lineRemainder~ - eolLength~ - lineNo~ - cp~ - blankLine~~ - inStringLiteral~ -{ - |<--------------- BUFFERSIZE --------------->| - +--------------------------------------------+ - | | | | | - +--------------------------------------------+ - |<-lineLength ->| | | - eolLength ->| |<- | - |<- lineRemainder ->| -} -pri TokReadLine | bytes, i -'' Reads a line into lineBuff. Returns true on success, false on failure (eof) -'' The line in lineBuff is terminated with a null byte. Calling programs should -'' not modify any memory in lineBuff after the null (the "remainder" section in -'' the diagram above) because that's the following line(s). - -' First, move remainder up to start of buffer - bytemove( @lineBuffer, @lineBuffer[lineLength+eolLength], lineRemainder ) -' Fill the rest of the buffer with new data - bytes := ios.sdgetblk( BUFFERSIZE-lineRemainder, @lineBuffer[lineRemainder] ) - ' pread returns #bytes read, but after eof it returns negative numbers - if bytes > 0 - lineRemainder += bytes - - ifnot lineRemainder - ++lineNo - cp~ - return false - - repeat i from 0 to (lineRemainder-2) #> 0 - if lineBuffer[i] == 13 or lineBuffer[i] == 10 - eolLength := 1 ' cr or lf - if lineBuffer[i] == 13 and lineBuffer[i+1] == 10 - ++eolLength ' cr+lf - lineBuffer[i]~ ' set terminating null - lineLength := i - lineRemainder -= lineLength + eolLength - ++lineNo ' first line of file is line 1 - cp~ - return true - - if lineRemainder < BUFFERSIZE - lineLength := lineRemainder~ - lineBuffer[lineLength]~ - ++lineNo - cp~ - return true - - abort string("Input line too long") - - - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - diff --git a/zubehör/sphinx/hive-port/tokenizer/stringx.spin b/zubehör/sphinx/hive-port/tokenizer/stringx.spin deleted file mode 100644 index c5d8c1e..0000000 --- a/zubehör/sphinx/hive-port/tokenizer/stringx.spin +++ /dev/null @@ -1,43 +0,0 @@ -pub Compare( p, q ) | lp, lq, d -{{ - Compares two strings. Returns a negative number if first string is "less than" the second, - 0 if they're identical, a positive number otherwise. -}} - lp := strsize(p) - lq := strsize(q) - repeat lp <# lq - if (d := byte[p++] - (byte[q++] & $7f)) - return ~~d - return lp-lq - -pub Copy( p, q ) - bytemove( p, q, strsize(q) + 1 ) - -pub Append( p, q ) - Copy( p + strsize(p), q ) - -pub ToUpper( p ) - repeat while byte[p] - if "a" =< byte[p] and byte[p] =< "z" - byte[p] += constant( "A" - "a" ) - ++p - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/hive-port/tokenizer/tokenizr.spin b/zubehör/sphinx/hive-port/tokenizer/tokenizr.spin deleted file mode 100644 index 652b6da..0000000 --- a/zubehör/sphinx/hive-port/tokenizer/tokenizr.spin +++ /dev/null @@ -1,430 +0,0 @@ -' 2009-05-02 Modified to detect when inside DAT, handle : specially (for local labels) - -con - _clkmode = xtal1 + pll8x - _xinfreq = 10_000_000 - _stack = 1000 -obj - f: "sxfile" - floatString: "FltStr" - kw: "keywords" - bt: "bintree" - -pub Open( pFilename ) - - if f.Open( pFilename, "R") <> 0 - abort string("can't open file") - - InitReadLine - - insideDAT~ - - Advance ' prime the pump - -pub Close - f.Close - -{ - bytes~ - InitReadLine - GetNextToken ' prime the pump - - t := cnt - repeat - case tokenType - EOL_TOKEN: - term.str( @tokenText ) - EOF_TOKEN: - quit - ID_TOKEN: - term.str( @tokenText ) - OP_TOKEN: - INT_TOKEN: - term.out( "#" ) - term.dec( tokenValue ) - FLOAT_TOKEN: - term.out( "F" ) - term.str( floatString.FloatToString( tokenValue ) ) - term.out( "\" ) - GetNextToken - term.out( 13 ) -'} -{ repeat while SkipWhitespace - term.dec( lineNo ) - term.out( "," ) - term.dec( cp+1 ) - term.out( ":" ) - if cp == lineLength - term.str( string("(eol)")) - else - term.out( lineBuffer[cp++] ) - term.out( 13 ) -'} -{ - repeat - r := sdfat.pread( @buf, BUFFERSIZE ) - if r < 0 - quit - bytes += r -'} -{ - repeat 100 - r := sdfat.pgetc - if r < 0 - quit - ++bytes - term.dec(r) - term.out( "," ) -'} - -con - MAXTOKENLENGTH = 32 - BUFFERSIZE = 200 - -var - byte tokenText[MAXTOKENLENGTH+1] - long tokenType - word tokenLineNumber - word tokenCol - long tokenValue - byte insideDAT - -pub GetPText - return @tokenText - -pub Type - return tokenType - -pub Column - return tokenCol - -pub LineNumber - return tokenLineNumber - -pub Value - return tokenValue - -pub Advance | i, radix, fp, x, hack - if inStringLiteral - if comma - comma~ - ifnot tokenValue - abort string("Unterminated string") - if lineBuffer[cp] <> $22 ' double-quote - tokenType := kw#kCOMMA - return - ++cp - inStringLiteral~ - else - comma~~ - tokenType := kw#kINTLITERAL - tokenValue := lineBuffer[cp++] - return - - if SkipWhitespace - if cp == lineLength - tokenType := kw#kEOL - bytemove( @tokenText, string("(EOL)"), 6 ) - tokenLineNumber := lineNo - tokenCol := cp - elseif lineBuffer[cp] == $22 ' double-quote - tokenLineNumber := LineNo - tokenCol := cp - ++cp - if LineBuffer[cp] == $22 - abort string("Empty string") - comma~ - inStringLiteral~~ - Advance - elseif lineBuffer[cp] == "%" or lineBuffer[cp] == "$" - tokenType := kw#kINTLITERAL - tokenLineNumber := lineNo - tokenCol := cp - if lineBuffer[cp] == "%" - if lineBuffer[cp+1] == "%" - radix := 4 - ++cp - else - radix := 2 - else - radix := 16 - ++cp - ifnot IsDigit( lineBuffer[cp], radix, false ) - abort string("Bad character in number") - tokenValue~ - repeat while IsDigit( lineBuffer[cp], radix, true ) - if lineBuffer[cp] <> "_" - tokenValue := tokenValue * radix + DigitValue( linebuffer[cp] ) - ++cp - elseif IsDigit( lineBuffer[cp], 10, false ) - tokenLineNumber := lineNo - tokenCol := cp - i~ - fp~ {0 => integer - 1 => have seen . - 2 => have seen e or E - 3 => have seen + or - } - repeat while IsDigit( lineBuffer[cp], 10, true ) { -} or ( fp < 1 and lineBuffer[cp] == "." and lineBuffer[cp+1] <> "." ) { -} or ( fp < 2 and (lineBuffer[cp] == "e" or lineBuffer[cp] == "E") ) { -} or ( (fp == 1 or fp == 2) and (lineBuffer[cp] == "+" or lineBuffer[cp] == "-") ) - if lineBuffer[cp] == "." - fp := 1 - if lineBuffer[cp] == "e" or lineBuffer[cp] == "E" - fp := 2 - if lineBuffer[cp] == "+" or lineBuffer[cp] == "-" - fp := 3 - if lineBuffer[cp] <> "_" - if i => MAXTOKENLENGTH - abort string("Token too long") - tokenText[i++] := lineBuffer[cp] - ++cp - tokenText[i]~ - if fp - tokenType := kw#kFLOATLITERAL - tokenValue := floatString.StringToFloat( @tokenText ) - else - tokenType := kw#kINTLITERAL - tokenValue~ - i~ - repeat while tokenText[i] - tokenValue := tokenValue * 10 + DigitValue( tokenText[i++] ) - elseif IsAlpha( lineBuffer[cp] ) - i~ - tokenLineNumber := lineNo - tokenCol := cp - repeat while IsAlpha( lineBuffer[cp] ) or IsDigit( lineBuffer[cp], 10, true ) - if i => MAXTOKENLENGTH - abort string("Token too long") - tokenText[i++] := ToUpper( lineBuffer[cp++] ) - tokenText[i]~ - x := kw.KeywordLookup( @tokenText ) - if x - tokenType := bt.PeekL( x ) - if kw#kCON =< tokenType and tokenType =< kw#kVAR and tokenCol == 0 - insideDAT := tokenType == kw#kDAT - else - tokenType := kw#kID - else ' non-alphanumeric - tokenLineNumber := lineNo - tokenCol := cp - i~ - if lineBuffer[cp] < $20 or lineBuffer[cp] => $80 - abort string("Illegal character (UNICODE?)") - - if insideDat and lineBuffer[cp] == ":" and IsAlpha( lineBuffer[cp+1] ) - tokenText[i++] := lineBuffer[cp++] - repeat while IsAlpha( lineBuffer[cp] ) or IsDigit( lineBuffer[cp], 10, true ) - if i => MAXTOKENLENGTH - abort string("Token too long") - tokenText[i++] := ToUpper( lineBuffer[cp++] ) - tokenText[i]~ - tokenType := kw#kID - else - repeat - if cp < lineLength - tokenText[i++] := lineBuffer[cp++] - else - tokenText[i++] := " " - ++cp - tokenText[i]~ - while x := kw.KeywordLookup( @tokenText ) - if i > 1 - tokenText[--i]~ ' shorten token by 1 - --cp - tokenType := bt.PeekL( kw.KeywordLookup( @tokenText ) ) - else - tokenType := kw#kUNKNOWN - - if IsBinary ' This next block is a total hack to see if a binary op - hack := blankLine ' hack is followed by "=" making it an assignment op - SkipWhitespace ' It parses "and ==" as "(and=) =" instead of "(and)(==)" - if lineBuffer[cp] == "=" ' PropTool does the latter. So this is wrong, but hopefully - tokenText[i++] := lineBuffer[cp++] ' not *too* wrong. - tokenText[i]~ - tokenType |= kw#kASSIGNMENT - else - blankLine := hack ' restore (this hack is necessary to reset the eol condition trigger in SkipWhitespace) - else - tokenType := kw#kEOF - bytemove( @tokenText, string("(EOF)"), 6 ) - tokenLineNumber := lineNo - tokenCol := cp - -pri ToUpper( ch ) - if "a" =< ch and ch =< "z" - ch += constant( "A" - "a" ) - return ch - -pri IsAlpha( ch ) - return "a" =< ch and ch =< "z" or "A" =< ch and ch =< "Z" or ch == "_" - -pri IsDigit( ch, radix, u ) | upper -{{ - Returns non-zero if ch is an acceptable digit given radix (2, 4, 10, or 16), false otherwise. - Pass u = true if the underscore ("_") is an acceptable value for ch. -}} - if ch == "_" - return u - upper := constant("0"-1) + radix - if radix =< 10 - return "0" =< ch and ch =< upper - ' else radix == 16 - return "0" =< ch and ch =< "9" or "a" =< ch and ch =< "f" or "A" =< ch and ch =< "F" - -pri DigitValue( ch ) - if ch =< "9" - return ch - "0" - if ch =< "F" - return ch + constant( 10 - "A" ) - if ch =< "f" - return ch + constant( 10 - "a" ) - -pub IsBinary -{{ - Returns non-zero (not necessarily -1) if token is a binary operator. - Returns 0 otherwise. -}} - return ( tokenType & constant(kw#kUNARY|kw#kBINARY) ) == kw#kBINARY - -var - byte lineBuffer[BUFFERSIZE] - byte lineLength - byte lineRemainder - byte eolLength - word lineNo - byte cp - byte blankLine - byte inStringLiteral ' indicates we are splitting up a string literal - byte comma ' flag for returning commas when splitting up a string literal - -pri SkipWhitespace -'' Returns true on success, false on failure (eof). -'' lineBuffer[cp] is the next non-whitespace character -'' (comments count as whitespace). - repeat - repeat while cp => lineLength - ifnot blankLine - blankLine~~ - return true - ifnot ReadLine - return false - if lineBuffer[cp] == 9 - abort string("Illegal TAB character") - if lineBuffer[cp] == "'" ' quote comment? - cp := lineLength ' skip to end of line - elseif lineBuffer[cp] == "}" - abort string("Unexpected '}'") - elseif lineBuffer[cp] == "{" - SkipComment - elseif lineBuffer[cp] == " " - ++cp - else ' non-blank character - blankLine~ - return true - -pri SkipComment | depth - if cp+1 < lineLength and lineBuffer[cp+1] == "{" - ++cp - repeat - repeat while cp => lineLength - ifnot ReadLine - abort string("Unterminated comment") - if cp+1 < lineLength and lineBuffer[cp] == "}" and lineBuffer[cp+1] == "}" - cp += 2 - return - ++cp - else - ++cp - depth := 1 - repeat - repeat while cp => lineLength - ifnot ReadLine - abort string("Unterminated comment") - if lineBuffer[cp] == "{" - ++cp - ++depth - elseif lineBuffer[cp] == "}" - ++cp - ifnot --depth - return - else - ++cp - -pri InitReadLine - lineLength~ - lineRemainder~ - eolLength~ - lineNo~ - cp~ - blankLine~~ - inStringLiteral~ -{ - |<--------------- BUFFERSIZE --------------->| - +--------------------------------------------+ - | | | | | - +--------------------------------------------+ - |<-lineLength ->| | | - eolLength ->| |<- | - |<- lineRemainder ->| -} -pri ReadLine | bytes, i -'' Reads a line into lineBuff. Returns true on success, false on failure (eof) -'' The line in lineBuff is terminated with a null byte. Calling programs should -'' not modify any memory in lineBuff after the null (the "remainder" section in -'' the diagram above) because that's the following line(s). - -' First, move remainder up to start of buffer - bytemove( @lineBuffer, @lineBuffer[lineLength+eolLength], lineRemainder ) -' Fill the rest of the buffer with new data - bytes := f.Read( @lineBuffer[lineRemainder], BUFFERSIZE-lineRemainder ) - ' pread returns #bytes read, but after eof it returns negative numbers - if bytes > 0 - lineRemainder += bytes - - ifnot lineRemainder - ++lineNo - cp~ - return false - - repeat i from 0 to (lineRemainder-2) #> 0 - if lineBuffer[i] == 13 or lineBuffer[i] == 10 - eolLength := 1 ' cr or lf - if lineBuffer[i] == 13 and lineBuffer[i+1] == 10 - ++eolLength ' cr+lf - lineBuffer[i]~ ' set terminating null - lineLength := i - lineRemainder -= lineLength + eolLength - ++lineNo ' first line of file is line 1 - cp~ - return true - - if lineRemainder < BUFFERSIZE - lineLength := lineRemainder~ - lineBuffer[lineLength]~ - ++lineNo - cp~ - return true - - abort string("Input line too long") - - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/dokumentation/codegenbin.htm b/zubehör/sphinx/spinx100225-ori/dokumentation/codegenbin.htm deleted file mode 100644 index 94c23c7..0000000 --- a/zubehör/sphinx/spinx100225-ori/dokumentation/codegenbin.htm +++ /dev/null @@ -1,235 +0,0 @@ - - - - - - - - - - - -codegen.bin - sphinxcompiler - - - - -
- -
-
-
-
-
- - - - - - - - -
-
-

-sphinxcompiler -

-
-		 -
-
-
- - -
 
Search this site
-
-
-
-
-
-
-
-
- - - - - -
- -
-
-
-Sphinx‎ > ‎Documentation‎ > ‎Reference‎ > ‎ -
-

-codegen.bin -

- -
-
-
Codegen.bin is the second phase of the compiler. It takes a .tok file generated by lex.bin and compiles it to a .sob file. On successful completion, codegen.bin can automatically run link.bin (of course, linking should only be done on the top object, not child objects, so don't use the /l option too freely).
 
Typically you will never run codegen.bin directly. Instead you will use the c and cl commands (provided by sphinx.bin) which run codegen.bin for you.
 
Usage:
codegen filename [options]
Options:
  • /l -- run link.bin automatically on successful completion.
  • /s n -- set stack size to n bytes (default is 2300). If codegen.bin fails because of stack overflow, run it again with a larger stack. n must be a multiple of 4.
  • /t n -- set symbol table size to n bytes (default is 6000). If codegen.bin fails because the symbol table becomes full, run it again with a larger symbol table. n must be a multiple of 4.
  • /v n -- set verbosity to 0, 1, 2, or higher (default is 0). The higher the verbosity, the more messages codegen.bin prints as it runs.
Example:
codegen howdy /v 3 /t 7000
This command compiles howdy.tok and produces howdy.sob. While running, codegen.bin prints many informative(?) messages. The symbol table size is 7,000 bytes.
Note that you do not have to add ".tok" to the input filename. Codegen.bin will add it automatically.
 
 
 
-
-
-
-
-
-
-
-
- -
-
-
-

- - -   - Anmelden - - -   - Site-Aktivität in letzter Zeit - - -   - Nutzungsbedingungen -   - Missbrauch melden - -   - Seite drucken - - - -  |  - - Powered by Google Sites -

-
-
- - - - - - - - - - - - - - - - - diff --git a/zubehör/sphinx/spinx100225-ori/dokumentation/lexbin.htm b/zubehör/sphinx/spinx100225-ori/dokumentation/lexbin.htm deleted file mode 100644 index 5737920..0000000 --- a/zubehör/sphinx/spinx100225-ori/dokumentation/lexbin.htm +++ /dev/null @@ -1,235 +0,0 @@ - - - - - - - - - - - -lex.bin - sphinxcompiler - - - - -
- -
-
-
-
-
- - - - - - - - -
-
-

-sphinxcompiler -

-
-		 -
-
-
- - -
 
Search this site
-
-
-
-
-
-
-
-
- - - - - -
- -
-
-
-Sphinx‎ > ‎Documentation‎ > ‎Reference‎ > ‎ -
-

-lex.bin -

- -
-
-
Lex.bin is the first phase of the compiler. It takes a .spn file as input, tokenizes it, and writes the result to a .tok file. On successful completion, lex.bin can automatically run codegen.bin, the next compiler phase.
 
Usage:
lex filename [options]
Options:
  • /c -- run codegen.bin automatically on successful completion.
  • /l -- run codegen.bin automatically on successful completion and tell it to run link.bin.
  • /v n -- set verbosity to 0, 1, 2, or higher (default is 0). The higher the verbosity, the more messages lex.bin prints as it runs.
Example:
lex tv_text /c
This command tokenizes tv_text.spn, producing tv_text.tok, and then runs codegen.bin. Note that you don't have to add ".spn" to the input filename. Lex.bin will add it automatically.
 
You should never have to run lex.bin directly; instead, use the convenient  c command (provided by sphinx.bin) which is equivalent to running lex with the /c option. 
 
-
-
-
-
-
-
-
-
- -
-
-
-

- - -   - Anmelden - - -   - Site-Aktivität in letzter Zeit - - -   - Nutzungsbedingungen -   - Missbrauch melden - -   - Seite drucken - - - -  |  - - Powered by Google Sites -

-
-
- - - - - - - - - - - - - - - - - diff --git a/zubehör/sphinx/spinx100225-ori/dokumentation/linkbin.htm b/zubehör/sphinx/spinx100225-ori/dokumentation/linkbin.htm deleted file mode 100644 index c02243b..0000000 --- a/zubehör/sphinx/spinx100225-ori/dokumentation/linkbin.htm +++ /dev/null @@ -1,235 +0,0 @@ - - - - - - - - - - - -link.bin - sphinxcompiler - - - - -
- -
-
-
-
-
- - - - - - - - -
-
-

-sphinxcompiler -

-
-		 -
-
-
- - -
 
Search this site
-
-
-
-
-
-
-
-
- - - - - -
- -
-
-
-Sphinx‎ > ‎Documentation‎ > ‎Reference‎ > ‎ -
-

-link.bin -

- -
-
-
Link.bin is the linker. It takes a top object .sob file and links it together with any child .sob files it requires, producing a .bin file.
 

Usage:

link filename [options]
Options:
  • /i -- ignore out-of-date errors.
  • /v n -- set verbosity to 0, 1, 2, or higher (default is 0). The higher the verbosity, the more messages link.bin prints as it runs.
 
 
 
-
-
-
-
-
-
-
-
- -
-
-
-

- - -   - Anmelden - - -   - Site-Aktivität in letzter Zeit - - -   - Nutzungsbedingungen -   - Missbrauch melden - -   - Seite drucken - - - -  |  - - Powered by Google Sites -

-
-
- - - - - - - - - - - - - - - - - diff --git a/zubehör/sphinx/spinx100225-ori/dokumentation/sobstory.htm b/zubehör/sphinx/spinx100225-ori/dokumentation/sobstory.htm deleted file mode 100644 index 4cedc24..0000000 --- a/zubehör/sphinx/spinx100225-ori/dokumentation/sobstory.htm +++ /dev/null @@ -1,271 +0,0 @@ - - - - - - - - - - - -Compiling and linking: a SOB story - sphinxcompiler - - - - -
- -
-
-
-
-
- - - - - - - - -
-
-

-sphinxcompiler -

-
-		 -
-
-
- - -
 
Search this site
-
-
-
-
-
-
-
-
- - - - - -
- -
-
-
-Sphinx‎ > ‎Documentation‎ > ‎ -
-

-Compiling and linking: a SOB story -

- -
-
-
The process of building a program with Sphinx is divided into two steps, compiling and linking. Compiling transforms a Spin source file into a Spin Object Binary (SOB) file. Linking converts a SOB and its sub-SOBs into an executable binary image.
-
-

Compiling

-
The Sphinx "compiler" proper actually consists of two programs, lex.bin and codegen.bin, but they work so closely together that they are best considered a unit. Lex.bin reads a .spn file, tokenizes it, and produces an intermediate .tok file. Codegen.bin reads the .tok file, parses it, and generates object code which it saves in a .sob file.
-
 
-
A SOB contains the Spin bytecodes for the object's PUB and PRI methods. In addition, it contains a list of the object's imports (sub-objects) and its exports (constants and PUB method signatures). A SOB is the compiled essence of an object. As far as Sphinx is concerned, a SOB contains the same information as its corresponding Spin file, just in convenient binary form. 
-
 
-
The compiler only compiles a single .spn file at a time. If the .spn file contains a sub-object, the compiler reads the .sob file for that sub-object and retrieves its exported information. This gives the compiler enough information to compile the .spn file without having to compile additional .spn files.
-
 
-
This also means that programs have to be compiled from the bottom up. That is, sub-objects have to be compiled before any containing objects are compiled.
-
 
-
Consider a simple program that prints "Hello, world" on the screen. The top object, hello, contains a sub-object, tv_text. Tv_text in turn contains sub-object tv. When you compile hello.spn, the compiler will need to read tv_text.sob, so you have to have compiled tv_text.spn beforehand. Similarly, before compiling tv_text.spn, you must compile tv.spn to produce tv.sob. So to compile hello from a standing start you must issue these commands:
-
c tv
-
c tv_text
-
cl hello
-
 
-
Of course, subsequently you will not have to compile all three objects every time, just the objects that change.
-
-

Linking

-
You invoke the linker (link.bin) with the name of the top-level object. The linker reads the top-level SOB and goes through its list of imports (in other words, its sub-objects). The linker recursively reads the sub-SOBs and their sub-SOBs.
-
 
-
Once all the SOBs are read, the linker determines how it will lay out all the objects' bytecode in memory and adjusts the various inter-object pointers so that they all refer to one another correctly. Then it writes an executable binary image (.bin file).
-

Timestamps

 -
Consider the following situation: -
    -
  1. sub.spn is compiled, producing sub.sob.
    2. -
  2. top.spn is compiled using sub.sob, producing top.sob.
    3. -
  3. sub.spn is modified and recompiled, producing a new sub.sob.
-
Now the top SOB is based on an old version of the sub-SOB. When the objects are linked, the resulting executable file may well fail because of that version mismatch.
-
 
-
In order to detect such version mismatches, Sphinx maintains a 32-bit "timestamp" in a file named timestmp.d8a. Every time you compile an object, Sphinx increments the timestamp and stores it in the .sob file. (Of course an actual timestamp could be used, but Sphinx takes this approach so as not to require a real-time clock.)
-
 
-
The linker compares timestamps and warns if any object being linked is out of date with respect to a sub-object.
-
 
-
Note that this timestamp mechanism cannot detect when a .sob file is out of date with respect to its .spn counterpart. That is, Sphinx cannot tell if a .spn file has been modified after being compiled. If you edit a source file, it is your responsibility to remember to compile it.
-
 
-
-
-
-
-
-
-
-
-
- -
-
-
-

- - -   - Anmelden - - -   - Site-Aktivität in letzter Zeit - - -   - Nutzungsbedingungen -   - Missbrauch melden - -   - Seite drucken - - - -  |  - - Powered by Google Sites -

-
-
- - - - - - - - - - - - - - - - - diff --git a/zubehör/sphinx/spinx100225-ori/dokumentation/sphinxbin.htm b/zubehör/sphinx/spinx100225-ori/dokumentation/sphinxbin.htm deleted file mode 100644 index 54ef9fe..0000000 --- a/zubehör/sphinx/spinx100225-ori/dokumentation/sphinxbin.htm +++ /dev/null @@ -1,235 +0,0 @@ - - - - - - - - - - - -sphinx.bin - sphinxcompiler - - - - -
- -
-
-
-
-
- - - - - - - - -
-
-

-sphinxcompiler -

-
-		 -
-
-
- - -
 
Search this site
-
-
-
-
-
-
-
-
- - - - - -
- -
-
-
-Sphinx‎ > ‎Documentation‎ > ‎Reference‎ > ‎ -
-

-sphinx.bin -

- -
-
-
Sphinx.bin installs the Sphinx drivers for the keyboard, TV, and SD card. It also acts as a simple command-line shell.
A command line can take any of the following forms:
  • filename arg1 arg2 ... argn
  • run filename arg1 arg2 ... argn
  • c filename arg1 arg2 ... argn
  • cl filename arg1 arg2 ... argn
The first form loads and executes the file named filename. If filename ends with ".bin" or ".eep", sphinx.bin will execute the file of that name (if it exists, of course). Otherwise, sphinx.bin will attempt to execute filename.bin and, if that fails, filename.eep.
 
The second form, the run command, also loads and runs filename. The difference between these two forms of command is that the first one leaves the Sphinx device driver cogs running, while the second stops all cogs (it effectively resets the Propeller). Use the first form to execute Sphinx-aware programs; use the run command to execute regular programs.
 
The c command compiles filename.spn and generates filename.sob (assuming no errors). This command runs lex.bin and codegen.bin, passing any command-line arguments to both programs (see below).
 
The cl command compiles and links filename.spn, generating filename.sob and filename.bin (again, assuming no errors). This command runs lex.bin, codegen.bin, and link.bin, passing its command-line arguments to all three programs.
 
Sphinx.bin should be stored in EEPROM so that the Propeller boots into Sphinx. Sphinx.bin should also exist on the SD card so that Sphinx-aware programs can, once they've finished their work, load and execute sphinx.bin. 

Command-line arguments

Sphinx.bin stores arguments as ASCII strings in a file named "args.d8a". A program launched from Sphinx can read the argument strings from that file. The first byte of the file is the number of arguments; it is followed by that number of strings, each null-terminated.
 
As noted earlier, the c and cl commands run several programs and each program receives the same arguments. This is because they do not modify args.d8a before executing the next program in the sequence. Each program pays attention to the arguments it understands and ignores any that it does not.
-
-
-
-
-
-
-
-
- -
-
-
-

- - -   - Anmelden - - -   - Site-Aktivität in letzter Zeit - - -   - Nutzungsbedingungen -   - Missbrauch melden - -   - Seite drucken - - - -  |  - - Powered by Google Sites -

-
-
- - - - - - - - - - - - - - - - - diff --git a/zubehör/sphinx/spinx100225-ori/dokumentation/the-sphinx-operating-environment.htm b/zubehör/sphinx/spinx100225-ori/dokumentation/the-sphinx-operating-environment.htm deleted file mode 100644 index 09432c4..0000000 --- a/zubehör/sphinx/spinx100225-ori/dokumentation/the-sphinx-operating-environment.htm +++ /dev/null @@ -1,258 +0,0 @@ - - - - - - - - - - - -The Sphinx operating environment - sphinxcompiler - - - - -
- -
-
-
-
-
- - - - - - - - -
-
-

-sphinxcompiler -

-
-		 -
-
-
- - -
 
Search this site
-
-
-
-
-
-
-
-
- - - - - -
- -
-
-
-Sphinx‎ > ‎Documentation‎ > ‎ -
-

-The Sphinx operating environment -

- -
-
-
-
-
Sphinx I/O is performed by device drivers that reside entirely in the Propeller's cogs, taking up almost no hub memory. For example, the video driver runs in a cog and maintains its screen buffer (13 lines of 40 characters) in its cog memory. It communicates with the rest of Sphinx through a single long memory location (known as a rendezvous, to use terminology borrowed from fsrw) at the top of hub RAM space. 
-
 
-
Similarly, the keyboard driver occupies no hub memory except for a rendezvous location.
-
 
-
The SD card driver is somewhat more complicated. It takes up three cogs. One is a low-level SD SPI driver (fsrw's sdspiqasm, lightly modified). The other two cogs implement a very barebones FAT16 file system that provides basic read, write, and execute functionality. Programs can open multiple files but must allocate some hub memory for each file. Communication with the file system is through several rendezvous locations. The file system requires a 512-byte buffer for metadata.
-
 
-
There are simple interface objects that hide the details of using the drivers.
-
 
-
-
-
Sphinx memory and cog usage
-
 
-
Sphinx.bin installs the drivers when it first boots up. From that point on, the drivers remain resident and running even as different programs execute in hub memory (as long as they are Sphinx-aware programs). For example, if you run link.bin by typing "link" at the command prompt, what happens is this:
-
-
    -
  1. Sphinx.bin uses the Sphinx file system to load link.bin into hub memory and execute it while leaving all cogs running.
    2. -
  2. Link.bin runs, using the Sphinx drivers to perform TV, keyboard, and file I/O. Note that link.bin does not install any drivers.
    3. -
  3. When link.bin terminates, it uses the file system to load and execute sphinx.bin. Sphinx.bin determines that the drivers are already running and does not re-install them. It prints a prompt and awaits the next command.
-
Sphinx-aware programs do not have to carry device driver code inside themselves; they can rely on Sphinx drivers. Sphinx-aware programs can execute other programs, typically sphinx.bin, but not necessarily (for example, lex.bin executes codegen.bin so that the two parts of the compiler run seamlessly). Running sphinx.bin puts up a command prompt immediately after a program ends, without the long delay that a reset would cause. This, coupled with the fact that the display accumulates the output from each program (rather than clearing between each program), gives the convincing illusion of a traditional command-line shell.
-
 
-
Sphinx can also execute regular (that is, non-Sphinx-aware) programs by performing the equivalent of a reset before running the program. This shuts down the driver cogs. The program must perform its own I/O. When the program finishes, a reboot will presumably occur, either programmatically or manually. At that time, Sphinx will load in from EEPROM and install the Sphinx drivers.
-
Next: Reference
-
-
-
-
-
-
-
-
- -
-
-
-

- - -   - Anmelden - - -   - Site-Aktivität in letzter Zeit - - -   - Nutzungsbedingungen -   - Missbrauch melden - -   - Seite drucken - - - -  |  - - Powered by Google Sites -

-
-
- - - - - - - - - - - - - - - - - diff --git a/zubehör/sphinx/spinx100225-ori/sphinx0/fdserial.spin b/zubehör/sphinx/spinx100225-ori/sphinx0/fdserial.spin deleted file mode 100644 index 96d8431..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx0/fdserial.spin +++ /dev/null @@ -1,316 +0,0 @@ -''*************************************** -''* Full-Duplex Serial Driver v1.1 * -''* Author: Chip Gracey * -''* Copyright (c) 2006 Parallax, Inc. * -''* See end of file for terms of use. * -''*************************************** - - -VAR - - long cog 'cog flag/id - - long rx_head '9 contiguous longs - long rx_tail - long tx_head - long tx_tail - long rx_pin - long tx_pin - long rxtx_mode - long bit_ticks - long buffer_ptr - - byte rx_buffer[16] 'transmit and receive buffers - byte tx_buffer[16] - - -PUB start(rxpin, txpin, mode, baudrate) : okay - -'' Start serial driver - starts a cog -'' returns false if no cog available -'' -'' mode bit 0 = invert rx -'' mode bit 1 = invert tx -'' mode bit 2 = open-drain/source tx -'' mode bit 3 = ignore tx echo on rx - - stop - longfill(@rx_head, 0, 4) - longmove(@rx_pin, @rxpin, 3) - bit_ticks := clkfreq / baudrate - buffer_ptr := @rx_buffer - okay := cog := cognew(@entry, @rx_head) + 1 - - -PUB stop - -'' Stop serial driver - frees a cog - - if cog - cogstop(cog~ - 1) - longfill(@rx_head, 0, 9) - - -PUB rxflush - -'' Flush receive buffer - - repeat while rxcheck => 0 - - -PUB rxcheck : rxbyte - -'' Check if byte received (never waits) -'' returns -1 if no byte received, $00..$FF if byte - - rxbyte-- - if rx_tail <> rx_head - rxbyte := rx_buffer[rx_tail] - rx_tail := (rx_tail + 1) & $F - - -PUB rxtime(ms) : rxbyte | t - -'' Wait ms milliseconds for a byte to be received -'' returns -1 if no byte received, $00..$FF if byte - - t := cnt - repeat until (rxbyte := rxcheck) => 0 or (cnt - t) / (clkfreq / 1000) > ms - - -PUB rx : rxbyte - -'' Receive byte (may wait for byte) -'' returns $00..$FF - - repeat while (rxbyte := rxcheck) < 0 - - -PUB tx(txbyte) - -'' Send byte (may wait for room in buffer) - - repeat until (tx_tail <> (tx_head + 1) & $F) - tx_buffer[tx_head] := txbyte - tx_head := (tx_head + 1) & $F - - if rxtx_mode & %1000 - rx - - -PUB str(stringptr) - -'' Send string - - repeat strsize(stringptr) - tx(byte[stringptr++]) - - -PUB dec(value) | i - -'' Print a decimal number - - if value < 0 - -value - tx("-") - - i := 1_000_000_000 - - repeat 10 - if value => i - tx(value / i + "0") - value //= i - result~~ - elseif result or i == 1 - tx("0") - i /= 10 - - -PUB hex(value, digits) - -'' Print a hexadecimal number - - value <<= (8 - digits) << 2 - repeat digits - tx(lookupz((value <-= 4) & $F : "0".."9", "A".."F")) - - -PUB bin(value, digits) - -'' Print a binary number - - value <<= 32 - digits - repeat digits - tx((value <-= 1) & 1 + "0") - - -DAT - -'*********************************** -'* Assembly language serial driver * -'*********************************** - - org -' -' -' Entry -' -entry mov t1,par 'get structure address - add t1,#4 << 2 'skip past heads and tails - - rdlong t2,t1 'get rx_pin - mov rxmask,#1 - shl rxmask,t2 - - add t1,#4 'get tx_pin - rdlong t2,t1 - mov txmask,#1 - shl txmask,t2 - - add t1,#4 'get rxtx_mode - rdlong rxtxmode,t1 - - add t1,#4 'get bit_ticks - rdlong bitticks,t1 - - add t1,#4 'get buffer_ptr - rdlong rxbuff,t1 - mov txbuff,rxbuff - add txbuff,#16 - - test rxtxmode,#%100 wz 'init tx pin according to mode - test rxtxmode,#%010 wc - if_z_ne_c or outa,txmask - if_z or dira,txmask - - mov txcode,#transmit 'initialize ping-pong multitasking -' -' -' Receive -' -receive jmpret rxcode,txcode 'run a chunk of transmit code, then return - - test rxtxmode,#%001 wz 'wait for start bit on rx pin - test rxmask,ina wc - if_z_eq_c jmp #receive - - mov rxbits,#9 'ready to receive byte - mov rxcnt,bitticks - shr rxcnt,#1 - add rxcnt,cnt - -:bit add rxcnt,bitticks 'ready next bit period - -:wait jmpret rxcode,txcode 'run a chuck of transmit code, then return - - mov t1,rxcnt 'check if bit receive period done - sub t1,cnt - cmps t1,#0 wc - if_nc jmp #:wait - - test rxmask,ina wc 'receive bit on rx pin - rcr rxdata,#1 - djnz rxbits,#:bit - - shr rxdata,#32-9 'justify and trim received byte - and rxdata,#$FF - test rxtxmode,#%001 wz 'if rx inverted, invert byte - if_nz xor rxdata,#$FF - - rdlong t2,par 'save received byte and inc head - add t2,rxbuff - wrbyte rxdata,t2 - sub t2,rxbuff - add t2,#1 - and t2,#$0F - wrlong t2,par - - jmp #receive 'byte done, receive next byte -' -' -' Transmit -' -transmit jmpret txcode,rxcode 'run a chunk of receive code, then return - - mov t1,par 'check for head <> tail - add t1,#2 << 2 - rdlong t2,t1 - add t1,#1 << 2 - rdlong t3,t1 - cmp t2,t3 wz - if_z jmp #transmit - - add t3,txbuff 'get byte and inc tail - rdbyte txdata,t3 - sub t3,txbuff - add t3,#1 - and t3,#$0F - wrlong t3,t1 - - or txdata,#$100 'ready byte to transmit - shl txdata,#2 - or txdata,#1 - mov txbits,#11 - mov txcnt,cnt - -:bit test rxtxmode,#%100 wz 'output bit on tx pin according to mode - test rxtxmode,#%010 wc - if_z_and_c xor txdata,#1 - shr txdata,#1 wc - if_z muxc outa,txmask - if_nz muxnc dira,txmask - add txcnt,bitticks 'ready next cnt - -:wait jmpret txcode,rxcode 'run a chunk of receive code, then return - - mov t1,txcnt 'check if bit transmit period done - sub t1,cnt - cmps t1,#0 wc - if_nc jmp #:wait - - djnz txbits,#:bit 'another bit to transmit? - - jmp #transmit 'byte done, transmit next byte -' -' -' Uninitialized data -' -t1 res 1 -t2 res 1 -t3 res 1 - -rxtxmode res 1 -bitticks res 1 - -rxmask res 1 -rxbuff res 1 -rxdata res 1 -rxbits res 1 -rxcnt res 1 -rxcode res 1 - -txmask res 1 -txbuff res 1 -txdata res 1 -txbits res 1 -txcnt res 1 -txcode res 1 - -{{ - -+------------------------------------------------------------------------------------------------------------------------------+ -¦ TERMS OF USE: MIT License ¦ -+------------------------------------------------------------------------------------------------------------------------------¦ -¦Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation ¦ -¦files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, ¦ -¦modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software¦ -¦is furnished to do so, subject to the following conditions: ¦ -¦ ¦ -¦The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.¦ -¦ ¦ -¦THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE ¦ -¦WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR ¦ -¦COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ¦ -¦ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ¦ -+------------------------------------------------------------------------------------------------------------------------------+ -}} \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx0/isxfs.spin b/zubehör/sphinx/spinx100225-ori/sphinx0/isxfs.spin deleted file mode 100644 index 661adbe..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx0/isxfs.spin +++ /dev/null @@ -1,80 +0,0 @@ -SXTVRENDEZVOUS = $8000 - 4 -SXKBRENDEZVOUS = SXTVRENDEZVOUS - 4 -SDSPIRENDEZVOUS = SXKBRENDEZVOUS - 3 * 4 -SXFS2RENDEZVOUS = SDSPIRENDEZVOUS - 4 * 4 ' four rendezvous variables -SXFSRENDEZVOUS = SXFS2RENDEZVOUS - 4 * 4 ' four rendezvous variables -METADATABUFFER = SXFSRENDEZVOUS - 512 - -_free = ($8000 - METADATABUFFER) / 4 - -SIZEOFFILESTUFF = 512 + 24 - -pCommand = SXFSRENDEZVOUS -pParam0 = pCommand+4 -pParam1 = pCommand+8 -pParam2 = pCommand+12 - -pub Open( pFilestuff, pFilename, mode ) | filenameBuffer[3], p, i -{{ - mode is either "R" or "W". - Returns 0 on success, 1 if file not found (and opening for reading). -}} - return Command( "O", pFilestuff, pFilename, mode ) - -pub Close( pFilestuff ) - Command( "C", pFilestuff, 0, 0 ) - -pub Read( pFilestuff, pBuffer, nBytes ) -{{ - Returns number of bytes actually read, -1 at EOF. -}} - long[pParam0] := pFilestuff - long[pParam1] := pBuffer - long[pParam2] := nBytes - - long[pCommand] := "R" - repeat while long[pCommand] - if long[pParam0] < -2 ' don't abort for return code -1. - abort long[pParam0] - return long[pParam0] - -pub Write( pFilestuff, pBuffer, nBytes ) - return Command( "W", pFilestuff, pBuffer, nBytes ) - -pub Execute( pFilestuff, execmode ) -{{ - If execmode is non-0, all cogs are stopped except Spin interpreter. - If execmode is 0, running cogs are left running. -}} - Command( "X", pFilestuff, execmode, cogid ) - -pub Command( cmd, param0, param1, param2 ) - long[pParam0] := param0 - long[pParam1] := param1 - long[pParam2] := param2 - - long[pCommand] := cmd - repeat while long[pCommand] - if long[pParam0] < 0 - abort long[pParam0] - return long[pParam0] - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx0/sphinx.spin b/zubehör/sphinx/spinx100225-ori/sphinx0/sphinx.spin deleted file mode 100644 index d86f68c..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx0/sphinx.spin +++ /dev/null @@ -1,370 +0,0 @@ -{ - _clkfreq = 96_000_000 ' Hybrid - _clkmode = xtal1 + pll16x - - tvPins = 24 - kbPins = 12 - sdPins = 8 -} - _clkfreq = 80_000_000 ' Hydra - _clkmode = xtal1 + pll8x - - tvPins = 24 - kbPins = 13 - sdPins = 16 -{ - Simple command line - -2009 -April - 15 Adding file transfer to/from PC via serial - 16 0.02 - SendFile bugfix (while blksize == 1024) - Tries to run .bin before .eep now. -June - 4 Changing name from cl to sphinx. Converting to use sxfs, sxtv. - 15 sxkb; adding c and cl commands - 23 Corrected clock mode calculation. -2010 -Feb - 25 New version number -} - -obj - kb: "sxkb" - term: "sxtv" - sxfs: "sxfs" - f: "sxfile" - ser: "fdserial" - -con -SXTVRENDEZVOUS = $8000 - 4 -SXKBRENDEZVOUS = SXTVRENDEZVOUS - 4 -SDSPIRENDEZVOUS = SXKBRENDEZVOUS - 3 * 4 -SXFS2RENDEZVOUS = SDSPIRENDEZVOUS - 4 * 4 ' four rendezvous variables -SXFSRENDEZVOUS = SXFS2RENDEZVOUS - 4 * 4 ' four rendezvous variables -METADATABUFFER = SXFSRENDEZVOUS - 512 - -_free = ($8000 - METADATABUFFER) / 4 - -pub Main | err, p - if term.start( tvPins, SXTVRENDEZVOUS ) - term.str( string("============= Sphinx 100225 ============", 13) ) - term.str( string("video @ pin ") ) - term.dec( tvPins ) - term.str( string(13, "keyboard @ pin ") ) - term.dec( kbPins ) - term.str( string(13, "SD @ pin ") ) - term.dec( sdPins ) - term.out( 13 ) - sxfs.start( sdPins ) - kb.start( kbPins ) - - repeat - if ina[31] ' USB cable connected? - ser.start( 31, 30, %0000, 19200 ) - f.Close - err := \DoIt - if err - if err > 0 - term.str( err ) - else - term.str( string("Error ") ) - term.dec( err ) - term.out( 13 ) - else - term.str( string("Normal exit") ) ' This never happens - -pri DoIt | ch - term.out( ">" ) - term.out( "_" ) - term.out( 8 ) - repeat - if kb.peekkey - EditCmdLine - Execute - term.out( ">" ) - term.out( "_" ) - term.out( 8 ) - if (ch := ser.rxcheck) <> -1 - term.out( 8 ) - FileTransfer( ch ) - term.out( ">" ) - term.out( "_" ) - term.out( 8 ) - -con - MAXCMDLINELENGTH = 78 ' some arbitray limit. - CR = $0d - BKSP = $c8 - -var - byte cmdLine[MAXCMDLINELENGTH+1] ' +1 for null terminator - long cmdLineLength - -pri EditCmdLine | key - cmdLineLength~ ' cursor is always at end of command line - - repeat - case key := kb.key - $20..$7f: - if cmdLineLength < MAXCMDLINELENGTH - cmdLine[ cmdLineLength++ ] := key - term.out( key ) - term.out( "_" ) - term.out( 8 ) - CR: - term.out( " " ) - term.out( 13 ) - cmdLine[ cmdLineLength ]~ - return true - BKSP: - if cmdLineLength - --cmdLineLength - term.out( " " ) - term.out( 8 ) - term.out( 8 ) - term.out( "_" ) - term.out( 8 ) - -pri FileTransfer( cmd ) | ch, i - if cmd <> "G" and cmd <> "P" - term.out( cmd ) - abort string(" -- unrecognized command from PC") - i~ - repeat - ch := RxSerByte - if i => FILENAMEBUFFERSIZE - abort string("Filename too long") - filename[i++] := ch - while ch - - if cmd == "G" - term.str( string("sending ") ) - term.str( @filename ) - term.out( 13 ) - SendFileToPC - else - term.str( string("receiving ") ) - term.str( @filename ) - term.out( 13 ) - ReceiveFileFromPC - -pri SendFileToPC | blksize, i, chksum, b, n - if f.Open( @filename, "R" ) <> 0 - term.str( @filename ) - abort string(" -- can't open file for reading") - TxSerByte( "A" ) ' ack - - n~ - repeat - blksize := f.Read( @buffer, 1024 ) - if blksize == -1 - blksize~ - TxSerByte( blksize.byte[0] ) - TxSerByte( blksize.byte[1] ) - i~ - chksum~ - repeat blksize - b := buffer[i++] - chksum += b - TxSerByte( b ) - n += blksize - if chksum & $ff <> RxSerByte - abort string("Checksum error") - while blksize == 1024 - f.Close - term.dec( n ) - term.str( string(" bytes sent", 13) ) - -pri ReceiveFileFromPC | blksize, i, chksum, b, n - if f.Open( @filename, "W" ) <> 0 - term.str( @filename ) - abort string(" -- can't open file for writing") - TxSerByte( "A" ) ' ack - - n~ - repeat - blksize~ - blksize.byte[0] := RxSerByte - blksize.byte[1] := RxSerByte - if blksize > 1024 - abort string("Block size > 1024") - i~ - chksum~ - repeat blksize - b := RxSerByte - buffer[i++] := b - chksum += b - n += blksize - f.Write( @buffer, blksize ) - TxSerByte( chksum ) - while blksize == 1024 - f.Close - term.dec( n ) - term.str( string(" bytes received", 13) ) - -pri RxSerByte : b -' ser.rx with timeout - b := ser.rxtime( TIMEOUT ) - if b == -1 - abort string("RxSerByte timed out") - -pri TxSerByte( b ) -' just for symmetry with RxSerByte - ser.tx( b ) - -con -TIMEOUT = 500 - -var - byte buffer[1024] - -pri Execute | n, p, q, run, c - c~ - ifnot n := ParseCmdLine - return - p := @cmdLine - ToUpper(p) - - if run := strcomp( @cmdLine, string("RUN") ) - --n - p += strsize(p) + 1 - elseif strcomp( @cmdLine, string("C") ) - c := 1 - --n - p += strsize(p) + 1 ' command arg1 arg2... - elseif strcomp( @cmdLine, string("CL") ) ' run command arg1 arg2... - c := 2 ' c arg1 arg2... - --n ' cl arg1 arg2... - p += strsize(p) + 1 - - ifnot n - abort string("No file specified") - - f.Open( string("args.d8a"), "W" ) ' write args - if c == 0 - q := p + strsize(p) + 1 ' for run and plain command, skip first arg (command name) - --n - f.Write( @n, 1 ) - repeat n - f.Write( q, strsize(q) + 1 ) - q += strsize(q) + 1 - else ' for c and cl, - ++n ' add extra arg (/c or /l) - f.Write( @n, 1 ) - repeat n-1 - f.Write( p, strsize(p) + 1 ) - p += strsize(p) + 1 - if c == 1 - f.Write( string("/c"), 3 ) - else - f.Write( string("/l"), 3 ) - - n~ - f.Write( @n, 1 ) ' final terminating null - f.Close - - if c - if f.Open( string("lex.bin"), "R" ) <> 0 - abort string("lex.bin not found") - ser.stop - f.Execute( 0 ) - - - if EndsWith( p, string(".BIN") ) or EndsWith( p, string(".EEP") ) - if f.Open( p, "R" ) <> 0 - term.str( p ) - abort string(" -- not found") - else - if strsize(p) > MAXFILENAMELENGTH - 4 - term.str( p ) - abort string(" -- filename too long") - bytemove( @filename, p, strsize(p) + 1 ) - bytemove( @filename + strsize(p), string(".BIN"), 5 ) - if f.Open( @filename, "R" ) <> 0 - bytemove( @filename + strsize(p), string(".EEP"), 5 ) - if f.Open( @filename, "R" ) <> 0 - term.str( p ) - abort string(" -- no .bin or .eep found") - ser.stop - f.Execute( run ) - -pri ToUpper( p ) - repeat while byte[p] - if "a" =< byte[p] and byte[p] =< "z" - byte[p] += "A" - "a" - ++p - -pri EndsWith( p, s ) - if strsize(p) < strsize(s) - return false - p += strsize(p) - strsize(s) - repeat while byte[p] - if byte[p++] <> byte[s++] - return false - return true - -con - MAXFILENAMELENGTH = 12 ' 8 + . + 3 - FILENAMEBUFFERSIZE = MAXFILENAMELENGTH + 1 ' 8 + . + 3 + null - CMDNAMEBUFFERSIZE = 9 ' 8 + null - -var - byte filename[MAXFILENAMELENGTH+1] ' 8 + . + 3 + null - -pri ParseCmdLine : n | pSrc, pDst, state -{{ - Converts cmdLine from " ab de fg \" to "ab\de\fg\" ('\' = null). - Returns # of "words". -}} -{ - state whitespace null other char - 0 ++pSrc; append \0; quit append char; => 1 - 1 append \0; ++n; => 0 append \0; ++n; quit append char; -} - pSrc := @cmdLine - pDst := @cmdLine - state~ - repeat - if state == 0 - if byte[pSrc] == " " - ++pSrc - elseif byte[pSrc] == 0 - byte[pDst++]~ - quit - else - byte[pDst++] := byte[pSrc++] - state := 1 - elseif state == 1 - if byte[pSrc] == " " - ++pSrc - byte[pDst++]~ - ++n - state~ - elseif byte[pSrc] == 0 - byte[pDst++]~ - ++n - quit - else - byte[pDst++] := byte[pSrc++] - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx0/sxfile.spin b/zubehör/sphinx/spinx100225-ori/sphinx0/sxfile.spin deleted file mode 100644 index 921eae9..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx0/sxfile.spin +++ /dev/null @@ -1,98 +0,0 @@ -obj - isxfs: "isxfs" - -var -long filestuff[isxfs#SIZEOFFILESTUFF / 4] - -pub Open( pFilename, mode ) - return isxfs.Open( @filestuff, pFilename, mode ) - -pub Close - isxfs.Close( @filestuff ) - -pub Read( ptr, n ) - return isxfs.Read( @filestuff, ptr, n ) - -pub Write( ptr, n ) - return isxfs.Write( @filestuff, ptr, n ) - -pub Length -{{ - Only valid for files opened for reading. -}} - return long[@filestuff] - -pub Execute( mode ) - isxfs.Execute( @filestuff, mode ) - isxfs.Close( @filestuff ) ' we only get here if Execute fails for some reason. - -pub ReadString( p, MAXLENGTH ) | ch - repeat MAXLENGTH + 1 - ch := ReadByte - ifnot byte[p++] := ch - return - abort string("ReadString: string too long") - -pub ReadStringUpperCase( p, MAXLENGTH ) | ch - repeat MAXLENGTH + 1 - ch := ReadByte - if "a" =< ch and ch =< "z" - ch -= constant("a" - "A") - ifnot byte[p++] := ch - return - abort string("ReadStringUpperCase: string too long") - -pub WriteString( p ) - Write( p, strsize(p) + 1 ) - -pub ReadNumber | ch - repeat - ifnot ch := ReadByte - return - if ch < "0" or ch > "9" - abort string("ReadNumber: non-numeric character") - result := result * 10 + ch - "0" - -pub ReadByte : ch - Read( @ch, 1 ) - -pub WriteByte( b ) - Write( @b, 1 ) - -pub ReadWord - return ReadByte + (ReadByte << 8) - -pub WriteWord( w ) - Write( @w, 2 ) - -pub ReadLong - return ReadByte + (ReadByte << 8) + (ReadByte << 16) + (ReadByte << 24) - -pub WriteLong( l ) - Write( @l, 4 ) - -pub SkipBytes( n ) - repeat while n => 32768 - Read( $8000, 32768 ) - n -= 32768 - Read( $8000, n ) - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx0/sxfs.spin b/zubehör/sphinx/spinx100225-ori/sphinx0/sxfs.spin deleted file mode 100644 index b290d31..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx0/sxfs.spin +++ /dev/null @@ -1,874 +0,0 @@ -' 2010-02-23 fixed duplicate file bug - -SXTVRENDEZVOUS = $8000 - 4 -SXKBRENDEZVOUS = SXTVRENDEZVOUS - 4 -SDSPIRENDEZVOUS = SXKBRENDEZVOUS - 3 * 4 -SXFS2RENDEZVOUS = SDSPIRENDEZVOUS - 4 * 4 ' four rendezvous variables -SXFSRENDEZVOUS = SXFS2RENDEZVOUS - 4 * 4 ' four rendezvous variables -METADATABUFFER = SXFSRENDEZVOUS - 512 - -_free = ($8000 - METADATABUFFER) / 4 - -{ - sxfsrendezvous sdspirendezvous ---------+ +--------+ +-------+ - | <===> command <===> | | <=====> command <=====> | | - Spin | | | | | -routines| <===> param0 <====> | SXFS | <=====> param <=====> | SDSPI | - | | cog | | cog | - | ----> param1 -----> | | ------> blockno ------> | | - | | | +-------+ - | ----> param2 -----> | | ---------+ | | sxfs2rendezvous - | | +-------+ - | | <====> command <======> | | - | | | | <==> (sxfsrendezvous) - | | <====> param0 <=======> | SXFS2 | - | | | cog | <==> (sdspirendezvous) - | | | | - +--------+ +-------+ - - -SXFS cog handles file reading: open, read, close. -SXFS2 cog, under SXFS's direction, handles execute and file writing: write, close. -SDSPI cog handles SD card sector reading and writing. - -SXFS cog communicates with main program via sxfsrendezvous and Spin interface routines. -SXFS cog communicates with SXFS2 cog via sxfs2rendezvous. -SXFS cog communicates with SDSPI cog via sdspirendezvous. - --1: eof, general error --100: bad command --101: not FAT16 --102: file not found --104: bad mode --106: file not closed --107: directory full --109: file not properly opened --110: FAT full. --113: bad filename - -} - -obj - sxfs2: "sxfs2" - sdspi : "sxsdspiq" - -pub Start( sdPin ) | pbrSector - - ' Determine if sxfs cog and, by association, sxfs2 and sdspi cogs, are already running. - ' If not, start them up. - ' Returns true if the cogs needed to be started, false if the cogs were already running. - - ifnot Ping - result~~ - ' start sdspi cog and initialize SD card - long[pSdspiCommand] := "I" - sdspi.start( sdPin, pSdspiCommand ) - repeat while long[pSdspiCommand] - if long[pSdspiParam] - abort long[pSdspiParam] - - pbrSector := ReadPbr - - ' start sxfs cog - long[pCommand] := "?" - if cognew( @sxfsEntry, 0 ) < 0 - abort -1 - repeat while long[pCommand] - - ' start sxfs2 cog - sxfs2.Start( pbrSector ) - -pri ReadPbr : pbrSector - repeat - sdspi.readblock( pbrSector, pMetadataBuffer ) - if bytecompare( pMetadataBuffer+$36, string("FAT16"), 5 ) - quit - if pbrSector - abort -101 ' not FAT16 - pbrSector := PeekL( pMetadataBuffer + $1c6 ) - - bytesPerSector := PeekW( pMetadataBuffer + $0b ) - sectorsPerCluster := byte[pMetadataBuffer][$0d] - clusterShift := >| sectorsPerCluster - 1 - reservedSectors := PeekW( pMetadataBuffer + $0e ) - numberOfFats := byte[pMetadataBuffer][$10] - sectorsPerFat := PeekW( pMetadataBuffer + $16 ) - RootDirEntries := PeekW( pMetadataBuffer + $11 ) - fatSector0 := pbrSector + reservedSectors - dirSector0 := fatSector0 + numberOfFats * sectorsPerFat - dataSector0 := dirSector0 + rootDirEntries >> 4 - -pri bytecompare( _p, _q, _n ) - repeat _n - if byte[_p++] <> byte[_q++] - return - return true - -pri PeekW( a ) - return byte[a++] + byte[a] << 8 - -pri PeekL( a ) - return byte[a++] + byte[a++] << 8 + byte[a++] << 16 + byte[a] << 24 - -pri Ping -{{ - returns 1 if bmfs cog is active, 0 otherwise. -}} - long[pCommand] := "?" - if long[pCommand] - return 0 - else - return 1 - -con - SECTORSIZE = 512 - SECTORSHIFT = 9 - DIRSIZE = 32 - -con -' filestuff definitions -' filestuff must be long-aligned -{ long } _length = 0 -{ long } _leftInFile = 4 -{ long } _sopDir = 8 ' sector/offset "pointer" to directory entry -{ long } _sopTail = 12 ' sector/offset "pointer" to last cluster# in FAT chain -{ word } _cluster = 16 -{ word } _sector = 18 ' sector# within cluster; ranges from 0 to sectorsPerCluster-1 -{ word } _bp = 20 ' byte pointer (actually an index into the sector buffer); range [0..511] -{ word } _mode = 22 ' 0: closed; "R": open for reading; "W": open for writing. - _buffer = 24 ' 512-byte buffer starts here - -SIZEOFFILESTUFF = SECTORSIZE + 24 - -dat -{{ - command param0 param1 param2 - "?" -- -- -- Do nothing, but acknowledge to indicate that sxfs cog is active. - "O" filestuff filename mode Open a file, populate filestuff fields. mode is "R" or "W". - "R" filestuff buffer num Reads num bytes into buffer from file specified by filestuff. - "W" filestuff buffer num Writes num bytes from buffer to file specified by filestuff. - "C" filestuff -- -- Closes file specified by filestuff. - "X" filestuff execmode cog Executes file. - -}} - org 0 -SXFSEntry - -AckNoReturnCode - mov temp, #0 ' clear return code -AckReturnCode ' enter here with temp = return code - wrlong temp, pParam0 - mov temp, #0 - wrlong temp, pCommand ' clear command to signal operation complete. - -:ready ' wait for new command - rdlong temp, pCommand wz - if_z jmp #:ready - - cmp temp, #"?" wz - if_e jmp #AckNoReturnCode - cmp temp, #"O" wz - if_e jmp #Open - cmp temp, #"R" wz - if_e jmp #Read - cmp temp, #"W" wz - if_e jmp #Write - cmp temp, #"C" wz - if_e jmp #Close - cmp temp, #"X" wz - if_e jmp #Execute - ' else - neg temp, #100 ' -100: bad command - jmp #AckReturnCode - - -'********************************************************************************************************************* -'* * -'* Open stuff * -'* * -'********************************************************************************************************************* -Open ' ( param0 = pFilestuff, param1 = pFilename, param2 = mode ) -{ - Return value: - File found File not found Error - mode = "R" 0 1 < 0 - mode = "W" 0 0 < 0 - -Mode W will either open an existing file or create a new file. -} - rdword pFilestuff, pParam0 - rdword pFilename, pParam1 - - mov p, pFilestuff - add p, #_mode - rdword temp, p wz - if_nz neg temp, #106 ' -106: file not closed - if_nz jmp #AckReturnCode - - call #MassageFilename - - rdword temp, pParam2 - cmp temp, #"R" wz - if_e jmp #:openForReading - cmp temp, #"W" wz - if_e jmp #:openForWriting - neg temp, #104 ' -104: bad mode - jmp #AckReturnCode -:openForReading - call #FindFile - - mov p, pFilestuff - add p, #_sopDir ' pFilestuff->sopDir = 0 => file not found - rdlong temp, p wz - if_z mov temp, #1 ' return 1 to indicate file not found - if_z jmp #AckReturnCode - - mov p, sop ' sop sector is still in memory - and p, #$1ff - add p, pMetadataBuffer - add p, #$1a ' point to cluster information - rdword temp, p - - mov q, pFilestuff - add q, #_cluster - wrword temp, q - - add p, #2 ' point to length information - rdlong temp, p - - sub q, #_cluster-_length ' q points to length - wrlong temp, q - add q, #_leftInFile-_length ' q points to leftInFile - wrlong temp, q - - add q, #_sector-_leftInFile ' q points to sector - mov temp, #0 - wrword temp, q - - add q, #_bp-_sector ' q points to bp - wrword k512, q - - mov p, pFilestuff - add p, #_mode - mov temp, #"R" - wrword temp, p ' save mode - - jmp #AckNoReturnCode - -:openForWriting - mov sop, dirSector0 ' sop "points" to directory entries: - shl sop, #9 ' incremented by 32 each time through the loop. - mov sopDir, #0 ' sopDir "points" to the directory entry - ' that will be used or reused for the file being opened. - mov i, rootDirEntries -:forEachDirEntry ' Loop through the directory entries, looking for a deleted entry, - ' an empty entry, or an entry that matches pFilename. - mov sector, sop - shr sector, #9 - call #ReadMetadataSector - mov p, sop - and p, #$1ff - add p, pMetadataBuffer ' p points to the current directory entry - add p, #$0b - rdbyte temp, p ' p[$0b] = attribute byte - sub p, #$0b - and temp, #$02 wz ' If hidden, - if_nz jmp #:next ' skip. Hidden dir entries include long name entries. - - rdbyte temp, p ' p[0] - cmp temp, #$e5 wz ' = $e5? (deleted directory entry?) - if_e cmp sopDir, #0 wz ' save pointer in sopDir (just the first time) - if_e mov sopDir, sop - - tjz temp, #:quit ' empty directory entry? We're done - - mov q, pFilename ' matching filename? Done. - mov n, #11 - call #ByteComp - if_e mov sopDir, sop ' 2010-02-23 duh - if_e jmp #:quit -:next - add sop, #DIRSIZE - djnz i, #:forEachDirEntry -:quit - cmp i, #0 wz ' did we go through the whole directory? - if_z neg temp, #107 ' -107: directory full - if_z jmp #AckReturnCode - - cmp sopDir, #0 wz ' if sopDir hasn't been set yet, - if_e mov sopDir, sop ' set it to sop. - - mov p, pFilestuff - add p, #_sopDir - wrlong sopDir, p ' pFilestuff->sopDir := sopDir - add p, #_sopTail-_sopDir - add sopDir, #$1a - wrlong sopDir, p ' pFilestuff->sopTail := sopDir + $1a - ' (points to directory entry's cluster field). - mov sector, sopDir - shr sector, #9 ' Get the chosen directory entry into memory - call #ReadMetadataSector ' if it isn't already. - - mov p, sopDir ' Recall that sopDir was changed - and p, #$1ff ' to point to the cluster field, - add p, pMetadataBuffer ' so p now points to the cluster field in the buffer. - - rdword cluster, p ' Save the cluster field. - mov temp, #0 - wrword temp, p ' Zero the cluster field. - sub p, #$1a ' Point to start of directory entry - - rdbyte temp, p ' Check to see if this was a deleted dir entry. - cmp temp, #$e5 wz ' If it was, we definitely do not want to zero the - if_e mov cluster, #0 ' cluster chain, so set cluster to 0. - - mov q, pFilename ' Store the filename in the directory entry. - mov n, #11 - call #ByteCopy - - mov temp, #$20 ' Set the attribute byte (immediately following name) - wrbyte temp, p - add p, #$10-$0b ' Point to creation date. - mov temp, aDate ' 2001/01/01 - wrword temp, p - add p, #$12-$10 ' Point to last access date. - wrword temp, p - add p, #$18-$12 ' Point to last update date. - wrword temp, p - - mov dirty, #1 ' We've modified metadata. - - tjz cluster, #:done -:forEachClusterInList ' Traverse the cluster list and zero each link. - - mov sector, cluster - shr sector, #8 - add sector, fatSector0 - call #ReadMetadataSector ' Read FAT sector for current cluster - - mov p, cluster - and p, #$ff - shl p, #1 - add p, pMetadataBuffer ' Point p at cluster entry in FAT - - rdword cluster, p ' Get next cluster link. - cmp cluster, #1 wc, wz ' Break if cluster <= 1 - if_be jmp #:done - - mov temp, #0 - wrword temp, p ' Zero the cluster link. - mov dirty, #1 ' We've modified metadata. - - cmp cluster, kfff0 wc, wz ' repeat unless new cluster >= $fff0 - if_b jmp #:forEachClusterInList -:done - mov p, pFilestuff - add p, #_sector - mov temp, #0 - wrword temp, p ' pFilestuff->sector := 0 - add p, #_bp-_sector - wrword temp, p ' pFilestuff->bp := 0 - - mov p, pFilestuff - mov temp, #0 - wrlong temp, p ' pFilestuff->length := 0 - add p, #_mode - mov temp, #"W" - wrword temp, p ' save mode - - jmp #AckNoReturnCode - -MassageFilename -{ - Take the null-terminated 8.3 filename pointed to by pFilename, - move it into memory starting at pFilestuff->buffer and expand it to 11 characters; - change pFilename to point to the expanded filename. -} - mov p, pFilestuff - add p, #_buffer - mov q, p - add p, #1 - mov temp, #" " - wrbyte temp, q - mov n, #10 - call #ByteCopy - - mov q, pFilename ' q is src - mov p, pFilestuff ' p is dst - add p, #_buffer - mov i, #9 ' Copy up to 8 chars (stop at . or null). -:upTo8 - rdbyte temp, q - add q, #1 - tjz temp, #:done - cmp temp, #"." wz - if_z jmp #:dot - call #ValidateChar - wrbyte temp, p - add p, #1 - djnz i, #:upTo8 - ' If we fall through, we've copied 9 characters (tsk tsk). - neg temp, #113 ' -113: bad filename - jmp #AckReturnCode -:dot - mov p, pFilestuff - add p, #_buffer+8 - mov i, #4 ' Copy up to 3 chars (stop at null). -:upTo3 - rdbyte temp, q - add q, #1 - tjz temp, #:done - call #ValidateChar - wrbyte temp, p - add p, #1 - djnz i, #:upTo3 - ' If we fall through, we've copied 4 characters (tsk tsk ). - neg temp, #113 ' -113: bad filename - jmp #AckReturnCode -:done - mov pFilename, pFilestuff - add pFilename, #_buffer - -MassageFilename_ret ret - -FindFile -{ - pFilename points to 11-character buffer (e.g. "BLAH TXT"). - pFilestuff points to a filestuff structure. - Return value: - If file is found, pFilestuff->sopDir is disk address of directory entry. - If file is not found, pFilestuff->sopDir is 0. -} - mov sop, dirSector0 ' sop starts at dirSector0<<9, counts up by DIRSIZE - shl sop, #SECTORSHIFT - mov i, rootDirEntries -:loop - mov sector, sop - shr sector, #9 - call #readMetadataSector - mov p, sop - and p, #$1ff - add p, pMetadataBuffer - rdbyte temp, p wz - if_z jmp #:notfound - - add p, #$0b - rdbyte temp, p ' p[$0b] = attribute byte - sub p, #$0b - and temp, #$02 wz ' If hidden, - if_nz jmp #:next ' skip. Hidden dir entries include long name entries. - - mov q, pFilename - mov n, #11 - call #ByteComp - if_e jmp #:found -:next - add sop, #DIRSIZE - djnz i, #:loop -:notfound - mov sop, #0 -:found - mov p, pFilestuff - add p, #_sopDir - wrlong sop, p -FindFile_ret ret - - -'********************************************************************************************************************* -'* * -'* Read stuff * -'* * -'********************************************************************************************************************* -Read ' ( param0 = pFilestuff, param1 = ptr, param2 = n ) -{ - Read n bytes from file described by pIoblock into memory starting at p. - Returns number of bytes actually read or -1 if attempting to read past EOF. -} - rdlong pFilestuff, pParam0 - rdlong destPtr, pParam1 - rdlong nBytes, pParam2 - - mov p, pFilestuff ' Verify that file was opened for reading. - add p, #_mode - rdword temp, p - cmp temp, #"R" wz - if_ne neg temp, #109 ' -109: file not properly opened - if_ne jmp #AckReturnCode - sub p, #_mode-_leftInFile - - ' Adjust nBytes depending on how much is left to read in file. - ' E.g. if we're 10 bytes from EOF and we try to read 15 bytes, - ' just read 10. If we're at EOF and try to read 15 bytes, return -1. - rdlong temp, p - max nBytes, temp ' nBytes is lesser of nBytes and leftInFile - tjnz temp, #:x - neg temp, #1 ' -1: eof - jmp #ackReturnCode -:x - mov retcode, nBytes -:while - mov leftInSector, k512 ' leftInSector = 512 - pFilestuff->bp - mov p, pFilestuff - add p, #_bp - rdword temp, p ' temp = bp - sub leftInSector, temp - cmp leftInSector, nBytes wc, wz - if_ae jmp #:endwhile - mov p, destPtr - mov q, pFilestuff - add q, #_buffer ' q points to buffer area - add q, temp ' offset by bp (= temp) - mov n, leftInSector - call #ByteCopy ' bytemove( p, q, n ) - add destPtr, leftInSector ' destPtr += leftInSector - sub nBytes, leftInSector ' nBytes -= leftInSector - mov p, pFilestuff ' long[pIoblock+_leftInFile] -= leftInSector - add p, #_leftInFile - rdlong temp, p - sub temp, leftInSector - wrlong temp, p - -' sdspi.readblock( dataSector0 + (word[pFilestuff+_cluster] - 2) << clusterShift + word[pFilestuff+_sector], pFilestuff+_buffer ) - add p, #_cluster-_leftInFile - rdword temp, p ' temp = (cluster - sub temp, #2 ' - 2) - shl temp, clusterShift ' << clusterShift - add temp, dataSector0 ' + dataSector0 - add p, #_sector-_cluster - rdword temp1, p - add temp, temp1 ' + cluster - wrlong temp, pSdspiBlockno ' Prepare to read sector - add p, #_buffer-_sector - wrlong p, pSdspiParam - mov temp, #"R" - call #SdspiCommand - -' if ++word[pFilestuff+_sector] == sectorsPerCluster - mov p, pFilestuff - add p, #_sector - rdword temp, p - add temp, #1 - wrword temp, p - cmp temp, sectorsPerCluster wz - if_ne jmp #:y - -' word[pIoblock+_sector]~ - mov temp, #0 - wrword temp, p -' word[pFilestuff+_cluster] := NextCluster( word[pFilestuff+_cluster] ) - sub p, #_sector-_cluster - rdword cluster, p - call #NextCluster '( cluster ) - mov p, pFilestuff - add p, #_cluster - wrword cluster, p -:y -' word[pFilestuff+_bp]~ - mov p, pFilestuff - add p, #_bp - mov temp, #0 - wrword temp, p - - jmp #:while -:endwhile -' bytemove( destPtr, pIoblock + word[pIoblock+_bp], n ) - mov p, destPtr - mov q, pFilestuff - add q, #_bp - rdword temp, q - add q, #_buffer-_bp - add q, temp - mov n, nBytes - call #ByteCopy - -' long[pIoblock+_leftInFile] -= n - mov p, pFilestuff - add p, #_leftInFile - rdlong temp, p - sub temp, nBytes - wrlong temp, p -' word[pIoblock+_bp] += n - add p, #_bp-_leftInFile - rdword temp, p - add temp, nBytes - wrword temp, p - - mov temp, retcode - jmp #AckReturnCode - -NextCluster ' ( cluster ) -{ - Given cluster, determines next cluster in FAT. - Result in cluster. -} - cmp cluster, #1 wc, wz - if_be jmp #NextCluster_ret - cmp cluster, kfff0 wc, wz - if_ae jmp #NextCluster_ret - - mov sector, cluster - shr sector, #8 - add sector, fatSector0 - call #ReadMetadataSector - mov p, cluster - and p, #$ff - shl p, #1 - add p, pMetadataBuffer - rdword cluster, p - -NextCluster_ret ret - -kfff0 long $fff0 - -'********************************************************************************************************************* -'* * -'* Write stuff * -'* * -'********************************************************************************************************************* -Write - rdlong p, pParam0 ' p = pFilestuff - add p, #_mode ' Verify that file was opened for writing. - rdword temp, p - cmp temp, #"W" wz - if_ne neg temp, #109 ' -109: file not properly opened - if_ne jmp #AckReturnCode - - call #FlushMetadataSector - neg currentsector, #1 ' invalidate current sector 'cuz we're about to hand the reins - ' to sxfs2 cog. - mov temp, #"W" - wrlong temp, pSxfs2Command -:wait rdlong temp, pSxfs2Command wz - if_nz jmp #:wait - - rdlong temp, pSxfs2Param - jmp #AckReturnCode - -'********************************************************************************************************************* -'* * -'* Close stuff * -'* * -'********************************************************************************************************************* -Close ' ( param0 = pFilestuff ) - rdlong pFilestuff, pParam0 - mov p, pFilestuff - add p, #_mode - rdword temp, p - - cmp temp, #"W" wz - if_e jmp #:closew - -' Files opened in mode "W" need special closing code, but for mode "R" or anything else -' (like file not even open) we can just do this: - - mov temp, #0 - wrword temp, p ' clear mode - jmp #AckNoReturnCode ' and we're done - -:closew - mov temp, #0 ' clear mode - wrword temp, p - - call #FlushMetadataSector - neg currentsector, #1 ' invalidate current sector 'cuz we're about to hand the reins - ' to sxfs2 cog. - mov temp, #"C" - wrlong temp, pSxfs2Command -:wait rdlong temp, pSxfs2Command wz - if_nz jmp #:wait - - rdlong temp, pSxfs2Param - jmp #AckReturnCode - -'********************************************************************************************************************* -'* * -'* Execute stuff * -'* * -'********************************************************************************************************************* -Execute ' ( pFilestuff, execmode, cogid ) - call #FlushMetadataSector - neg currentsector, #1 ' invalidate current sector 'cuz we're about to hand the reins - ' to sxfs2 cog. - mov temp, #"X" - wrlong temp, pSxfs2Command -:wait rdlong temp, pSxfs2Command wz - if_nz jmp #:wait - - rdlong temp, pSxfs2Param - jmp #AckReturnCode - -'********************************************************************************************************************* -'* * -'* Utility stuff * -'* * -'********************************************************************************************************************* - -ByteCopy ' ( p, q, n ) - tjz n, #ByteCopy_ret -:loop rdbyte temp, q - add q, #1 - wrbyte temp, p - add p, #1 - djnz n, #:loop - -ByteCopy_ret ret - -ByteComp ' ( p, q, n ) -{ - Compares j bytes starting at p and q. - Returns Z if they match, NZ if they differ. - Destroys p, q, and j. -} - rdbyte temp, p - add p, #1 - rdbyte temp1, q - add q, #1 - cmp temp, temp1 wz - if_z djnz n, #ByteComp - -ByteComp_ret ret - - -ValidateChar -{ - Make sure that temp is a valid filename character (for our purposes, 0-9, A-Z, _). -} - cmp temp, #"a" wc, wz - if_b jmp #:notLowerCase - cmp temp, #"z" wc, wz - if_a jmp #:notLowerCase - sub temp, #"a"-"A" ' convert to upper-case - jmp #ValidateChar_ret -:notLowerCase - cmp temp, #"A" wc, wz - if_b jmp #:notAlpha - cmp temp, #"Z" wc, wz - if_be jmp #ValidateChar_ret -:notAlpha - cmp temp, #"0" wc, wz - if_b jmp #:notNumeric - cmp temp, #"9" wc, wz - if_be jmp #ValidateChar_ret -:notNumeric - cmp temp, #"_" wz - if_e jmp #ValidateChar_ret - - mov temp, #113 ' -113: bad filename - jmp #AckReturnCode - -ValidateChar_ret ret - - - - - -ReadMetadataSector ' ( sector ) - call #FlushMetadataSector - - cmp sector, currentSector wz - if_e jmp #ReadMetadataSector_ret - wrlong pMetadataBuffer, pSdspiParam - wrlong sector, pSdspiBlockno - mov currentSector, sector - - mov temp, #"R" - call #SdspiCommand -ReadMetadataSector_ret ret - -FlushMetadataSector - tjz dirty, #FlushMetadataSector_ret - mov dirty, #0 - - ' write current sector - wrlong pMetadataBuffer, pSdspiParam - wrlong currentSector, pSdspiBlockno - mov temp, #"W" - call #SdspiCommand -FlushMetadataSector_ret ret - -SdspiCommand - wrlong temp, pSdspiCommand -:wait - rdlong temp, pSdspiCommand wz - if_nz jmp #:wait - - rdlong temp, pSdspiParam wz - if_nz jmp #AckReturnCode - -SdspiCommand_ret ret - -kFAT1 long "F" + "A"<<8 + "T"<<16 + "1"<<24 -k512 long 512 -dirty long 0 -currentSector long -1 -aDate long $2a21 - -pMetadataBuffer long METADATABUFFER - -pCommand long SXFSRENDEZVOUS+0 -pParam0 long SXFSRENDEZVOUS+4 -pParam1 long SXFSRENDEZVOUS+8 -pParam2 long SXFSRENDEZVOUS+12 - -pSdspiCommand long SDSPIRENDEZVOUS+0 -pSdspiParam long SDSPIRENDEZVOUS+4 -pSdspiBlockno long SDSPIRENDEZVOUS+8 - -pSxfs2Command long SXFS2RENDEZVOUS+0 -pSxfs2Param long SXFS2RENDEZVOUS+4 - -bytesPerSector long 0 -sectorsPerCluster long 0 -clusterShift long 0 -reservedSectors long 0 -numberOfFats long 0 -sectorsPerFat long 0 -rootDirEntries long 0 -fatSector0 long 0 -dirSector0 long 0 -dataSector0 long 0 - -temp res 1 -temp1 res 1 -i res 1 -j res 1 -n res 1 -p res 1 -q res 1 -sop res 1 -byte4 res 0 -sopDir res 1 -sector res 1 -cluster res 1 - -pFilename res 1 -pFilestuff res 1 -destPtr res 1 -nBytes res 1 -leftInFile res 1 -leftInSector res 1 -retcode res 1 - - fit - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx0/sxfs2.spin b/zubehör/sphinx/spinx100225-ori/sphinx0/sxfs2.spin deleted file mode 100644 index a2aa7c1..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx0/sxfs2.spin +++ /dev/null @@ -1,529 +0,0 @@ -SXTVRENDEZVOUS = $8000 - 4 -RESERVED = SXTVRENDEZVOUS - 4 -SDSPIRENDEZVOUS = RESERVED - 3 * 4 -SXFS2RENDEZVOUS = SDSPIRENDEZVOUS - 4 * 4 ' four rendezvous variables -SXFSRENDEZVOUS = SXFS2RENDEZVOUS - 4 * 4 ' four rendezvous variables -METADATABUFFER = SXFSRENDEZVOUS - 512 - -_free = ($8000 - METADATABUFFER) / 4 - -con -SECTORSIZE = 512 - -' filestuff definitions -' filestuff must be long-aligned -{ long } _length = 0 -{ long } _leftInFile = 4 -{ long } _sopDir = 8 ' sector/offset "pointer" to directory entry -{ long } _sopTail = 12 ' sector/offset "pointer" to last cluster# in FAT chain -{ word } _cluster = 16 -{ word } _sector = 18 ' sector# within cluster; ranges from 0 to sectorsPerCluster-1 -{ word } _bp = 20 ' byte pointer (actually an index into the sector buffer); range [0..511] -{ word } _mode = 22 ' 0: closed; "R": open for reading; "W": open for writing. - _buffer = 24 ' 512-byte buffer starts here - -SIZEOFFILESTUFF = SECTORSIZE + 24 - -pub Start( pbrSector ) - - bytesPerSector := PeekW( pMetadataBuffer + $0b ) - sectorsPerCluster := byte[pMetadataBuffer][$0d] - clusterShift := >| sectorsPerCluster - 1 - reservedSectors := PeekW( pMetadataBuffer + $0e ) - numberOfFats := byte[pMetadataBuffer][$10] - sectorsPerFat := PeekW( pMetadataBuffer + $16 ) - RootDirEntries := PeekW( pMetadataBuffer + $11 ) - fatSector0 := pbrSector + reservedSectors - dirSector0 := fatSector0 + numberOfFats * sectorsPerFat - dataSector0 := dirSector0 + rootDirEntries >> 4 - - ' start sxfs2 cog - long[pCommand] := "?" - if cognew( @Sxfs2Entry, 0 ) < 0 - abort -1 - repeat while long[pCommand] - -pri PeekW( a ) - return byte[a++] + byte[a] << 8 - -pri PeekL( a ) - return byte[a++] + byte[a++] << 8 + byte[a++] << 16 + byte[a] << 24 - -dat - org 0 -Sxfs2Entry -AckNoReturnCode - mov temp, #0 ' clear return code -AckReturnCode ' enter here with temp = return code - wrlong temp, pParam - mov temp, #0 - wrlong temp, pCommand ' clear command to signal operation complete. - - mov dirty, temp ' Ensure that metatdata is flushed before coming here. - neg temp, #1 - mov currentSector, temp - -:ready ' wait for new command - rdlong temp, pCommand wz - if_z jmp #:ready - - cmp temp, #"?" wz - if_e jmp #AckNoReturnCode - cmp temp, #"W" wz - if_e jmp #Write - cmp temp, #"C" wz - if_e jmp #Close - cmp temp, #"X" wz - if_e jmp #Execute - ' else - neg temp, #100 ' return code -100 : bad command - jmp #AckReturnCode - -'********************************************************************************************************************* -'* * -'* Write stuff * -'* * -'********************************************************************************************************************* -Write ' ( pFilestuff, ptr, n ) - rdlong pFilestuff, pSxfsParam0 - rdlong srcPtr, pSxfsParam1 - rdlong nBytes, pSxfsParam2 - - mov retcode, nBytes - - mov p, pFilestuff ' long[ pFilestuff+_length ] += n - 'add p, #_length (unnecessary cuz _length = 0) - rdlong temp, p - add temp, nBytes - wrlong temp, p - - -' repeat while (leftInSector := SECTORSIZE - word[pIoblock+_bp]) < n -:while - mov p, pFilestuff - add p, #_bp ' p points to pFilestuff->bp - mov leftInSector, k512 - rdword temp, p ' temp = pFilestuff->bp - sub leftInSector, temp - cmp leftInSector, nBytes wc, wz - if_ae jmp #:done -' bytemove( pFilestuff + _buffer + word[pFilestuff+_bp], ptr, leftInSector ) - mov p, pFilestuff - add p, #_buffer - add p, temp ' p now points bp bytes into buffer. - mov q, srcPtr - mov n, leftInSector - call #ByteCopy -' ptr += leftInSector - add srcPtr, leftInSector ' advance the source pointer by #bytes written. -' n -= leftInSector - sub nBytes, leftInSector ' decrease #bytes to write by #bytes written. -' WriteNextSector( pIoblock ) - call #WriteNextSector - - jmp #:while -:done -' bytemove( pFilestuff + _buffer + word[pIoblock+_bp], ptr, n ) - mov p, pFilestuff - add p, #_buffer - add p, temp ' temp = pFilestuff->bp - mov q, srcPtr - mov n, nBytes - call #ByteCopy -' word[pFilestuff+_bp] += n - mov p, pFilestuff - add p, #_bp - rdword temp, p - add temp, nBytes ' advance bp by #bytes written. - wrword temp, p - - call #FlushMetadataSector - - mov temp, retcode - jmp #AckReturnCode - -WriteNextSector - mov p, pFilestuff - add p, #_sector - rdword temp, p wz - if_nz jmp #:writeSector ' sector# <> 0? Write that sector. - -' Writing sector 0 implies that we're starting a new cluster, so find an empty slot in the FAT - mov cluster, #0 - mov sector, fatSector0 - mov i, sectorsPerFat -:forEachFatSector - call #ReadMetadataSector - - mov p, pMetadataBuffer - mov j, #256 -:forEachSlotInSector - rdword temp, p wz ' examine current slot - if_z jmp #:foundEmptySlot - - add p, #2 - add cluster, #1 - djnz j, #:forEachSlotInSector - - add sector, #1 - djnz i, #:forEachFatSector - - neg temp, #110 ' -110: FAT full. - jmp #AckReturnCode -:foundEmptySlot - neg temp, #1 - wrword temp, p ' Claim empty slot by writing $ffff. - mov dirty, #1 ' We've modified metadata. - - mov sop, sector - shl sop, #9 - sub p, pMetadataBuffer - add sop, p ' sop "points" to slot. - - mov p, pFilestuff - add p, #_cluster - wrword cluster, p ' save cluster# in pFilestuff->cluster - - sub p, #_cluster-_sopTail ' p points to pFilestuff->sopTail - rdlong sopTail, p ' get "pointer" to end of cluster list. - - mov sector, sopTail ' Read the sector that sopTail "points" to. - shr sector, #9 - call #ReadMetadataSector - - and sopTail, #$1ff - add sopTail, pMetadataBuffer ' Use sopTail as pointer into buffer. - wrword cluster, sopTail ' Now the word pointed to by pFilestuff->sopTail - ' is updated with the new cluster#. - mov dirty, #1 - - wrlong sop, p ' p is still pointing to pFilestuff->sopTail so - ' update pFilestuff->sopTail to point to new tail. -:writeSector - mov p, pFilestuff - add p, #_cluster ' p points to pFilestuff->cluster - rdword i, p ' using i for sector# - sub i, #2 - shl i, clusterShift - add i, dataSector0 ' At this point, i is the first sector of the cluster. - - add p, #_sector-_cluster ' p points to pFilestuff->sector - rdword temp, p - add i, temp ' Now i is the correct sector of the cluster. - add temp, #1 - wrword temp, p ' Increment pFilestuff->sector - cmp temp, sectorsPerCluster wz - mov temp, #0 ' if pFilestuff->sector = sectorsPerCluster, - if_e wrword temp, p ' pFilestuff->sector := 0. - add p, #_bp-_sector ' p points to pFilestuff->bp - wrword temp, p ' pFilestuff->bp = 0. - - wrlong i, pSdspiBlockno - add p, #_buffer-_bp - wrlong p, pSdspiParam - mov temp, #"W" - call #SdspiCommand -WriteNextSector_ret ret - -'********************************************************************************************************************* -'* * -'* Close stuff * -'* * -'********************************************************************************************************************* -Close ' ( pFilestuff ) - rdlong pFilestuff, pSxfsParam0 - - mov p, pFilestuff - add p, #_bp - rdword temp, p wz ' If there's stuff waiting to be written - if_nz call #WriteNextSector ' (i.e. bp <> 0), write it. - mov p, pFilestuff - add p, #_sopDir - rdlong sop, p ' sop "points" to directory entry. - - mov sector, sop - shr sector, #9 - call #ReadMetadataSector ' We want to update metadata length info. - and sop, #$1ff - add sop, pMetadataBuffer - add sop, #$1c ' sop points to length in metadata buffer. - mov p, pFilestuff ' p points to pFilestuff->length. - rdlong temp, p - wrlong temp, sop ' store length in metadata. - mov dirty, #1 - call #FlushMetadataSector - - jmp #AckNoReturnCode - -'********************************************************************************************************************* -'* * -'* Execute stuff * -'* * -'********************************************************************************************************************* -Execute ' ( pFilestuff, execmode, cogid ) -{ - Loads 63 sectors from file and executes. Requires that the file be contiguous on the SD card, - which is generally accomplished by formatting the card with cluster size >= 32k. - This reads 63 sectors instead of 64 to avoid writing junk into the rendezvous areas. - It is conceivable that some executable files will not run because of this. - - This routine does not handle clock speed changes. - - If execmode is 0, start Spin interpreter in cog specified by cogid. - If execmode is 1, start Spin interpreter in cog specified by cogid and stop all other cogs. -} - call #FlushMetadataSector ' just in case - neg currentsector, #1 ' invalidate current sector 'cuz metadata buffer is about to be overwritten - - rdlong pFilestuff, pSxfsParam0 - - rdlong filesize, pFilestuff wz ' length of file - if_z neg temp, #1 ' if file is empty, return -1: EOF - if_z jmp #AckReturnCode ' This is a bit of a hack. The Sphinx compiler really - ' should delete outdated .bin or .eep files to force - ' (re)linking, but since sxfs doesn't know how to - ' delete files (yet(?)), the compiler just makes - ' a file empty instead of deleting it. This test - ' here catches empty executable files and bails, - ' preventing a crash. - - rdlong execmode, pSxfsParam1 - - rdbyte callingCog, pSxfsParam2 ' stop Spin interpreter - cogstop callingCog - - rdlong oldClkfreq, #0 ' save clkfreq - rdbyte oldClkmode, #4 ' save clkmode - - mov p, pFilestuff - add p, #_cluster - rdword temp, p ' temp = (cluster - sub temp, #2 ' - 2) - shl temp, clusterShift ' << clusterShift - add temp, dataSector0 ' + dataSector0 - mov p, temp ' p repurposed here as sector# - - mov i, #63 ' read 63 contiguous sectors - mov q, #0 -:loop - wrlong p, pSdspiBlockno ' Prepare to read sector p - wrlong q, pSdspiParam ' to memory pointed to by q - mov temp, #"R" - call #SdspiCommand - add p, #1 ' Next sector - add q, k512 ' Next 512-byte block of memory - djnz i, #:loop - - ' clear memory above the loaded file - mov i, #1 - shl i, #15 ' i = 32768 - sub i, filesize wz ' - file size - if_z jmp #:z - mov temp, #0 -:y - wrbyte temp, filesize ' repurpose filesize as pointer - add filesize, #1 - djnz i, #:y -:z - ' store those nutty $fff9ffff longs - rdword p, #$0a - sub p, #4 - wrlong kfff9ffff, p - sub p, #4 - wrlong kfff9ffff, p - - tjz execmode, #:dontChangeClock ' execmode = 0? skip cog-killing and clock change - - cogid temp - mov i, #0 - mov j, #8 -:cogkill - cmp i, temp wz ' kill all cogs except self - if_ne cogstop i ' (suicide comes later) - add i, #1 - djnz j, #:cogkill - - ' The following code is borrowed liberally from sdspiFemto: - rdlong temp, #0 ' new clock frequency - cmp temp, oldClkfreq wz ' compared to old - rdbyte temp, #4 ' get new clock mode in advance - if_ne jmp #:changeClock - cmp temp, oldClkmode wz ' compare new clock mode to old - if_e jmp #:dontChangeClock - -:changeClock and temp, #$f8 ' Force use of RCFAST clock while - clkset temp ' letting requested clock start - mov i, time_xtal -:startupDelay djnz i, #:startupDelay ' Allow 20ms@20MHz for xtal/pll to settle - rdbyte temp, #4 ' Then switch to selected clock - clkset temp - jmp #:x - -:dontChangeClock - wrlong oldClkfreq, #0 ' Restore old clock frequency - wrbyte oldClkmode, #4 ' and mode. - -:x - or interpreter, callingCog - coginit interpreter ' start new Spin interpreter in the same cog. - - tjz execmode, #AckNoReturnCode ' execmode = 0? Done. - - cogid temp ' kill - cogstop temp ' self - - -interpreter long ($0004 << 16) | ($F004 << 2) | %0000 ' Thanks to sdspiFemto -time_xtal long 20 * 20000 / 4 / 1 ' 20ms (@20MHz, 1 inst/loop) - -'********************************************************************************************************************* -'* * -'* Utility stuff * -'* * -'********************************************************************************************************************* -{ -Out'(outch) ''' -:w rdbyte outtemp, pTerm wz -if_nz jmp #:w -wrbyte outch, pTerm -Out_ret ret - -OutHex'(outx, outn) ''' - mov outtemp, outn - sub outtemp, #1 - shl outtemp, #2 - ror outx, outtemp -:loop - mov outch, outx - and outch, #$0f - add outch, #"0" - cmp outch, #"9" wc, wz - if_a add outch, #"a"-"0"-10 - call #out - rol outx, #4 - djnz outn, #:loop -Outhex_ret ret -pTerm long $7ffc -outch long 0 -outx long 0 -outn long 0 -outtemp long 0 ''' -} - -ByteCopy ' ( p, q, n ) - tjz n, #ByteCopy_ret -:loop rdbyte temp, q - add q, #1 - wrbyte temp, p - add p, #1 - djnz n, #:loop - -ByteCopy_ret ret - -ReadMetadataSector ' ( sector ) - call #FlushMetadataSector - - cmp sector, currentSector wz - if_e jmp #ReadMetadataSector_ret - wrlong pMetadataBuffer, pSdspiParam - wrlong sector, pSdspiBlockno - mov currentSector, sector - mov temp, #"R" - call #SdspiCommand -ReadMetadataSector_ret ret - -FlushMetadataSector - tjz dirty, #FlushMetadataSector_ret - mov dirty, #0 - - ' write current sector - wrlong pMetadataBuffer, pSdspiParam - wrlong currentSector, pSdspiBlockno - mov temp, #"W" - call #SdspiCommand -FlushMetadataSector_ret ret - -SdspiCommand - wrlong temp, pSdspiCommand -:wait - rdlong temp, pSdspiCommand wz - if_nz jmp #:wait - - rdlong temp, pSdspiParam wz - if_nz jmp #AckReturnCode - -SdspiCommand_ret ret - - -k512 long 512 -kfff9ffff long $fff9ffff -dirty long 0 -currentSector long -1 -pMetadataBuffer long METADATABUFFER - -pSxfsCommand long SXFSRENDEZVOUS+0 -pSxfsParam0 long SXFSRENDEZVOUS+4 -pSxfsParam1 long SXFSRENDEZVOUS+8 -pSxfsParam2 long SXFSRENDEZVOUS+12 - -pSdspiCommand long SDSPIRENDEZVOUS+0 -pSdspiParam long SDSPIRENDEZVOUS+4 -pSdspiBlockno long SDSPIRENDEZVOUS+8 - -pCommand long SXFS2RENDEZVOUS+0 -pParam long SXFS2RENDEZVOUS+4 - -bytesPerSector long 0 -sectorsPerCluster long 0 -clusterShift long 0 -reservedSectors long 0 -numberOfFats long 0 -sectorsPerFat long 0 -rootDirEntries long 0 -fatSector0 long 0 -dirSector0 long 0 -dataSector0 long 0 - -temp res 1 -i res 1 -j res 1 -n res 1 -p res 1 -q res 1 -pFilestuff res 1 -sop res 1 -sopTail res 1 -srcPtr res 1 -nBytes res 1 -cluster res 1 -sector res 1 -leftInSector res 1 -filesize res 1 -execmode res 1 -callingCog res 1 -oldClkfreq res 1 -oldClkmode res 1 - -retcode res 1 - - fit - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx0/sxkb.spin b/zubehör/sphinx/spinx100225-ori/sphinx0/sxkb.spin deleted file mode 100644 index 3bf5a33..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx0/sxkb.spin +++ /dev/null @@ -1,728 +0,0 @@ -''******************************* -''* PS/2 Keyboard Driver v2.0 * -''* (C) 2004 Parallax, Inc. * -''* Modified by Michael Green * -''* to support Hydra as well * -''******************************* -{ -Modified by Michael Park for Sphinx -2009/06/15 -} - -SXKBRENDEZVOUS = $7ff8 - -VAR - long cog - -PUB start(pingroup) : okay - -'' Start keyboard driver - starts a cog -'' returns false if no cog available -'' -'' pingroup = 1st pin number for 2-pin group for PS/2 I/O -'' (1st - data signal, 2nd - clock signal) -'' Even number selects Demo Board I/O convention -'' -'' use 100-ohm resistors between pins and jack -'' use 10K-ohm resistors to pull jack-side signals to VDD -'' connect jack-power to 5V, jack-gnd to VSS -'' -'' pingroup = 1st pin number for 4-pin group for PS/2 I/O -'' Odd number selects Hydra I/O convention -'' -'' 1st pin drives NPN base for PS/2 'data' signal pull-down -'' 2nd pin reads PS/2 'data' signal -'' 3rd pin drives NPN base for PS/2 'clock' signal pull-down -'' 4th pin reads PS/2 'clock' signal -'' -'' use 2.2K-ohm resistors between 1st/3rd pins and NPN bases -'' use 22K-ohm resistors between 2nd/4th pins and PS/2-side signals -'' use 2.2K-ohm resistors to pull PS/2-side signals to 5V -'' connect PS/2 power to 5V, PS/2 gnd to vss -'' -'' all lock-keys will be enabled, NumLock will be initially 'on', -'' and auto-repeat will be set to 15cps with a delay of .5s - - okay := startx(pingroup, %0_000_100, %01_01000) - -PUB startx(pingroup, locks, auto) | okay - -'' Like start, but allows you to specify lock settings and auto-repeat -'' -'' locks = lock setup -'' bit 6 disallows shift-alphas (case set soley by CapsLock) -'' bits 5..3 disallow toggle of NumLock/CapsLock/ScrollLock state -'' bits 2..0 specify initial state of NumLock/CapsLock/ScrollLock -'' (eg. %0_001_100 = disallow ScrollLock, NumLock initially 'on') -'' -'' auto = auto-repeat setup -'' bits 6..5 specify delay (0=.25s, 1=.5s, 2=.75s, 3=1s) -'' bits 4..0 specify repeat rate (0=30cps..31=2cps) -'' (eg %01_00000 = .5s delay, 30cps repeat) - - long[pRendezvous]~~ ' ping - if long[pRendezvous]~ == -1 ' no response - longmove(@_pingroup, @pingroup, 3) - okay := cog := cognew(@entry, 0) + 1 - -PUB peekkey - -'' Returns a 0 if the buffer is empty -'' returns next key if buffer not empty -'' but doesn't remove the key from buffer - - return long[pRendezvous] - -PUB key : keycode - -'' Get key (never waits) -'' returns key (0 if buffer empty) - - if keycode := long[pRendezvous] - long[pRendezvous]~ - -PUB getkey : keycode - -'' Get next key (may wait for keypress) -'' returns key - - repeat until (keycode := key) - -DAT -'****************************************** -'* Assembly language PS/2 keyboard driver * -'****************************************** - - org -' -' -' Entry -' -entry - mov x,_pingroup 'get mask for 1st pin - andn x,#1 - test _pingroup,#1 wz - mov dwmask,#1 - shl dwmask,x - mov drmask,dwmask - if_nz shl drmask,#1 - mov cwmask,drmask - shl cwmask,#1 - mov crmask,cwmask - if_nz shl crmask,#1 - - if_nz or dira,dwmask 'set directions - if_nz or dira,cwmask - - mov _head,#0 'reset output parameter _head - mov _tail, #0 -' -' -' Reset keyboard -' -reset test _pingroup,#1 wz - if_nz andn outa,dwmask 'let PS/2 lines float (pulled up) - if_nz andn outa,cwmask - if_z mov dira,#0 - - movd :par,#_present 'reset output parameters _present/_states[8] - mov x,#1+8 -:par mov 0,#0 - add :par,dlsb - djnz x,#:par - - mov stat,#8 'set reset flag -' -' -' Update parameters -' -update - call #Rendezvous - - test stat,#8 wc 'if reset flag, transmit reset command - if_c mov data,#$FF - if_c call #transmit -' -' -' Get scancode -' -newcode - mov stat,#0 'reset state - -:same call #receive 'receive byte from keyboard - - cmp data,#$83+1 wc 'scancode? - - if_nc cmp data,#$AA wz 'powerup/reset? - if_nc_and_z jmp #configure - - if_nc cmp data,#$E0 wz 'extended? - if_nc_and_z or stat,#1 - if_nc_and_z jmp #:same - - if_nc cmp data,#$F0 wz 'released? - if_nc_and_z or stat,#2 - if_nc_and_z jmp #:same - - if_nc jmp #newcode 'unknown, ignore -' -' -' Translate scancode and enter into buffer -' - test stat,#1 wc 'lookup code with extended flag - rcl data,#1 - call #look - - cmp data,#0 wz 'if unknown, ignore - if_z jmp #newcode - - mov t,_states+6 'remember lock keys in _states - - mov x,data 'set/clear key bit in _states - shr x,#5 - add x,#_states - movd :reg,x - mov y,#1 - shl y,data - test stat,#2 wc -:reg muxnc 0,y - - if_nc cmpsub data,#$F0 wc 'if released or shift/ctrl/alt/win, done - if_c jmp #update - - mov y,_states+7 'get shift/ctrl/alt/win bit pairs - shr y,#16 - - cmpsub data,#$E0 wc 'translate keypad, considering numlock - if_c test _locks,#%100 wz - if_c_and_z add data,#@keypad1-@table - if_c_and_nz add data,#@keypad2-@table - if_c call #look - if_c jmp #:flags - - cmpsub data,#$DD wc 'handle scrlock/capslock/numlock - if_c mov x,#%001_000 - if_c shl x,data - if_c andn x,_locks - if_c shr x,#3 - if_c shr t,#29 'ignore auto-repeat - if_c andn x,t wz - if_c xor _locks,x - if_c add data,#$DD - if_c_and_nz or stat,#4 'if change, set configure flag to update leds - - test y,#%11 wz 'get shift into nz - - if_nz cmp data,#$60+1 wc 'check shift1 - if_nz_and_c cmpsub data,#$5B wc - if_nz_and_c add data,#@shift1-@table - if_nz_and_c call #look - if_nz_and_c andn y,#%11 - - if_nz cmp data,#$3D+1 wc 'check shift2 - if_nz_and_c cmpsub data,#$27 wc - if_nz_and_c add data,#@shift2-@table - if_nz_and_c call #look - if_nz_and_c andn y,#%11 - - test _locks,#%010 wc 'check shift-alpha, considering capslock - muxnc :shift,#$20 - test _locks,#$40 wc - if_nz_and_nc xor :shift,#$20 - cmp data,#"z"+1 wc - if_c cmpsub data,#"a" wc -:shift if_c add data,#"A" - if_c andn y,#%11 - -:flags ror data,#8 'add shift/ctrl/alt/win flags - mov x,#4 '+$100 if shift -:loop test y,#%11 wz '+$200 if ctrl - shr y,#2 '+$400 if alt - if_nz or data,#1 '+$800 if win - ror data,#1 - djnz x,#:loop - rol data,#12 - - mov x, _tail 'if room in buffer and key valid, enter - sub x,#1 - and x,#$F - cmp x,_head wz - if_e jmp #:z - test data,#$FF wz - if_z jmp #:z - - mov x, #buffer - add x, _head - movd :store, x - nop -:store mov 0-0, data ' buffer[x] := data - add _head,#1 - and _head,#$F -:z - test stat,#4 wc 'if not configure flag, done - if_nc jmp #update 'else configure to update leds -' -' -' Configure keyboard -' -configure mov data,#$F3 'set keyboard auto-repeat - call #transmit - mov data,_auto - and data,#%11_11111 - call #transmit - - mov data,#$ED 'set keyboard lock-leds - call #transmit - mov data,_locks - rev data,#-3 & $1F - test data,#%100 wc - rcl data,#1 - and data,#%111 - call #transmit - - mov x,_locks 'insert locks into _states - and x,#%111 - shl _states+7,#3 - or _states+7,x - ror _states+7,#3 - - mov _present,#1 'set _present - - jmp #update 'done -' -' -' Lookup byte in table -' -look ror data,#2 'perform lookup - movs :reg,data - add :reg,#table - shr data,#27 - mov x,data -:reg mov data,0 - shr data,x - - jmp #rand 'isolate byte -' -' -' Transmit byte to keyboard -' -transmit test _pingroup,#1 wz - if_z or dira,cwmask - if_nz or outa,cwmask 'pull clock low - movs napshr,#13 'hold clock for ~128us (must be >100us) - call #nap - if_z or dira,dwmask - if_nz or outa,dwmask 'pull data low - movs napshr,#18 'hold data for ~4us - call #nap - if_z xor dira,cwmask - if_nz andn outa,cwmask 'release clock - - test data,#$0FF wc 'append parity and stop bits to byte - muxnc data,#$100 - or data,dlsb - - mov x,#10 'ready 10 bits -transmit_bit call #wait_c0 'wait until clock low - shr data,#1 wc 'output data bit - test _pingroup,#1 wz - if_z muxnc dira,dwmask - if_nz muxnc outa,dwmask - mov wcond,c1 'wait until clock high - call #wait - djnz x,#transmit_bit 'another bit? - - mov wcond,c0d0 'wait until clock and data low - call #wait - mov wcond,c1d1 'wait until clock and data high - call #wait - - call #receive_ack 'receive ack byte with timed wait - cmp data,#$FA wz 'if ack error, reset keyboard - if_nz jmp #reset -transmit_ret ret -' -' -' Receive byte from keyboard -' -receive -:waitpne - call #Rendezvous - mov x, ina 'wait indefinitely for initial clock low - and x, crmask - cmp x, crmask wz - if_e jmp #:waitpne - -receive_ack mov x,#11 'ready 11 bits -receive_bit call #wait_c0 'wait until clock low - movs napshr,#16 'pause ~16us - call #nap - test drmask,ina wc 'input data bit - rcr data,#1 - mov wcond,c1 'wait until clock high - call #wait - djnz x,#receive_bit 'another bit? - - shr data,#22 'align byte - test data,#$1FF wc 'if parity error, reset keyboard - if_nc jmp #reset -rand and data,#$FF 'isolate byte -look_ret -receive_ack_ret -receive_ret ret -' -' -' Communicate with the rest of the Propeller via "rendezvous" in hub memory. -' -Rendezvous - rdlong t, pRendezvous wz ' if rendezvous = 0 (location empty), - if_z jmp #:clearToSend ' go fill it with character in buffer. - add t, #1 wz ' if rendezvous = -1 - if_nz jmp #Rendezvous_ret ' someone is pinging to see if sxkb cog is alive; - sub t, #2 ' set rendezvous to -2 to ack. - wrlong t, pRendezvous - jmp #Rendezvous_ret -:clearToSend - cmp _head, _tail wz - if_e jmp #Rendezvous_ret - mov x, _tail - add x, #buffer - movs :read, x - nop -:read mov data, 0-0 ' data := buffer[_tail] - wrlong data, pRendezvous - add _tail, #1 - and _tail, #$0f -Rendezvous_ret ret - -' -' -' Wait for clock/data to be in required state(s) -' -wait_c0 mov wcond,c0 '(wait until clock low) - -wait mov y,tenms 'set timeout to 10ms - -wloop movs napshr,#18 'nap ~4us - call #nap - test crmask,ina wc 'check required state(s) - test drmask,ina wz 'loop until got state(s) or timeout -wcond if_never djnz y,#wloop '(replaced with c0/c1/c0d0/c1d1) - - tjz y,#reset 'if timeout, reset keyboard -wait_ret -wait_c0_ret ret - - -c0 if_c djnz y,#wloop '(if_never replacements) -c1 if_nc djnz y,#wloop -c0d0 if_c_or_nz djnz y,#wloop -c1d1 if_nc_or_z djnz y,#wloop -' -' -' Nap -' -nap rdlong t,#0 'get clkfreq -napshr shr t,#0-0 'shr scales time (set to 13/16/18) - min t,#10 'ensure waitcnt won't snag (was 3 but snagged; upped to 10 [mp]) - add t,cnt 'add cnt to time - waitcnt t,#0 'wait until time elapses (nap) - -nap_ret ret -' -' -' Initialized data -' -' -dlsb long 1 << 9 -tenms long 10_000 / 4 -' -' -' Lookup table -' ascii scan extkey regkey ()=keypad -' -table word $0000 '00 - word $00D8 '01 F9 - word $0000 '02 - word $00D4 '03 F5 - word $00D2 '04 F3 - word $00D0 '05 F1 - word $00D1 '06 F2 - word $00DB '07 F12 - word $0000 '08 - word $00D9 '09 F10 - word $00D7 '0A F8 - word $00D5 '0B F6 - word $00D3 '0C F4 - word $0009 '0D Tab - word $0060 '0E ` - word $0000 '0F - word $0000 '10 - word $F5F4 '11 Alt-R Alt-L - word $00F0 '12 Shift-L - word $0000 '13 - word $F3F2 '14 Ctrl-R Ctrl-L - word $0071 '15 q - word $0031 '16 1 - word $0000 '17 - word $0000 '18 - word $0000 '19 - word $007A '1A z - word $0073 '1B s - word $0061 '1C a - word $0077 '1D w - word $0032 '1E 2 - word $F600 '1F Win-L - word $0000 '20 - word $0063 '21 c - word $0078 '22 x - word $0064 '23 d - word $0065 '24 e - word $0034 '25 4 - word $0033 '26 3 - word $F700 '27 Win-R - word $0000 '28 - word $0020 '29 Space - word $0076 '2A v - word $0066 '2B f - word $0074 '2C t - word $0072 '2D r - word $0035 '2E 5 - word $CC00 '2F Apps - word $0000 '30 - word $006E '31 n - word $0062 '32 b - word $0068 '33 h - word $0067 '34 g - word $0079 '35 y - word $0036 '36 6 - word $CD00 '37 Power - word $0000 '38 - word $0000 '39 - word $006D '3A m - word $006A '3B j - word $0075 '3C u - word $0037 '3D 7 - word $0038 '3E 8 - word $CE00 '3F Sleep - word $0000 '40 - word $002C '41 , - word $006B '42 k - word $0069 '43 i - word $006F '44 o - word $0030 '45 0 - word $0039 '46 9 - word $0000 '47 - word $0000 '48 - word $002E '49 . - word $EF2F '4A (/) / - word $006C '4B l - word $003B '4C ; - word $0070 '4D p - word $002D '4E - - word $0000 '4F - word $0000 '50 - word $0000 '51 - word $0027 '52 ' - word $0000 '53 - word $005B '54 [ - word $003D '55 = - word $0000 '56 - word $0000 '57 - word $00DE '58 CapsLock - word $00F1 '59 Shift-R - word $EB0D '5A (Enter) Enter - word $005D '5B ] - word $0000 '5C - word $005C '5D \ - word $CF00 '5E WakeUp - word $0000 '5F - word $0000 '60 - word $0000 '61 - word $0000 '62 - word $0000 '63 - word $0000 '64 - word $0000 '65 - word $00C8 '66 BackSpace - word $0000 '67 - word $0000 '68 - word $C5E1 '69 End (1) - word $0000 '6A - word $C0E4 '6B Left (4) - word $C4E7 '6C Home (7) - word $0000 '6D - word $0000 '6E - word $0000 '6F - word $CAE0 '70 Insert (0) - word $C9EA '71 Delete (.) - word $C3E2 '72 Down (2) - word $00E5 '73 (5) - word $C1E6 '74 Right (6) - word $C2E8 '75 Up (8) - word $00CB '76 Esc - word $00DF '77 NumLock - word $00DA '78 F11 - word $00EC '79 (+) - word $C7E3 '7A PageDn (3) - word $00ED '7B (-) - word $DCEE '7C PrScr (*) - word $C6E9 '7D PageUp (9) - word $00DD '7E ScrLock - word $0000 '7F - word $0000 '80 - word $0000 '81 - word $0000 '82 - word $00D6 '83 F7 - -keypad1 byte $CA, $C5, $C3, $C7, $C0, 0, $C1, $C4, $C2, $C6, $C9, $0D, "+-*/" - -keypad2 byte "0123456789.", $0D, "+-*/" - -shift1 byte "{|}", 0, 0, "~" - -shift2 byte $22, 0, 0, 0, 0, "<_>?)!@#$%^&*(", 0, ":", 0, "+" - -_pingroup long 0 -_locks long 0 -_auto long 0 -pRendezvous long SXKBRENDEZVOUS -' -' Uninitialized data -' -buffer res 16 -dwmask res 1 'output driver mask for data -drmask res 1 'input mask for data -cwmask res 1 'output driver mask for clock -crmask res 1 'input mask for data -stat res 1 -data res 1 -x res 1 -y res 1 -t res 1 - -_tail res 1 -_head res 1 'write-only -_present res 1 'write-only -_states res 8 'write-only - - fit -'' -'' -'' _________ -'' Key Codes -'' -'' 00..DF = keypress and keystate -'' E0..FF = keystate only -'' -'' -'' 09 Tab -'' 0D Enter -'' 20 Space -'' 21 ! -'' 22 " -'' 23 # -'' 24 $ -'' 25 % -'' 26 & -'' 27 ' -'' 28 ( -'' 29 ) -'' 2A * -'' 2B + -'' 2C , -'' 2D - -'' 2E . -'' 2F / -'' 30 0..9 -'' 3A : -'' 3B ; -'' 3C < -'' 3D = -'' 3E > -'' 3F ? -'' 40 @ -'' 41..5A A..Z -'' 5B [ -'' 5C \ -'' 5D ] -'' 5E ^ -'' 5F _ -'' 60 ` -'' 61..7A a..z -'' 7B { -'' 7C | -'' 7D } -'' 7E ~ -'' -'' 80-BF (future international character support) -'' -'' C0 Left Arrow -'' C1 Right Arrow -'' C2 Up Arrow -'' C3 Down Arrow -'' C4 Home -'' C5 End -'' C6 Page Up -'' C7 Page Down -'' C8 Backspace -'' C9 Delete -'' CA Insert -'' CB Esc -'' CC Apps -'' CD Power -'' CE Sleep -'' CF Wakeup -'' -'' D0..DB F1..F12 -'' DC Print Screen -'' DD Scroll Lock -'' DE Caps Lock -'' DF Num Lock -'' -'' E0..E9 Keypad 0..9 -'' EA Keypad . -'' EB Keypad Enter -'' EC Keypad + -'' ED Keypad - -'' EE Keypad * -'' EF Keypad / -'' -'' F0 Left Shift -'' F1 Right Shift -'' F2 Left Ctrl -'' F3 Right Ctrl -'' F4 Left Alt -'' F5 Right Alt -'' F6 Left Win -'' F7 Right Win -'' -'' FD Scroll Lock State -'' FE Caps Lock State -'' FF Num Lock State -'' -'' +100 if Shift -'' +200 if Ctrl -'' +400 if Alt -'' +800 if Win -'' -'' eg. Ctrl-Alt-Delete = $6C9 -'' -'' -'' Note: Driver will buffer up to 15 keystrokes, then ignore overflow. -{{ -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx0/sxsdspiq.spin b/zubehör/sphinx/spinx100225-ori/sphinx0/sxsdspiq.spin deleted file mode 100644 index 26a879b..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx0/sxsdspiq.spin +++ /dev/null @@ -1,334 +0,0 @@ -' sdspi: SPI interface to a Secure Digital card. -' -' Copyright 2008 Radical Eye Software -' Modified 2009 by Michael Park: added pointer to rendezvous variables. -' -' See end of file for terms of use. -' -' You probably never want to call this; you want to use fsrw -' instead (which calls this); this is only the lowest layer. -' -' Assumes SD card is interfaced using four consecutive Propeller -' pins, as follows (assuming the base pin is pin 0): -' 3.3v -' | | | | | | -' R R R R R R 20k -' p0 --------*-+-+-+-+-+------ do -' p1 ----------*-+-+-+-+------ clk -' p2 ------------*-+-+-+------ di -' p3 --------------*-+-+------ cs (dat3) -' 150 +-+------ irq (dat1) -' +------ p9 (dat2) -' -' The 20k resistors -' are pullups, and should be there on all six lines (even -' the ones we don't drive). -' -' This code is not general-purpose SPI code; it's very specific -' to reading SD cards, although it can be used as an example. -' -' The code does not use CRC at the moment (this is the default). -' With some additional effort we can probe the card to see if it -' supports CRC, and if so, turn it on. -' -' All operations are guarded by a watchdog timer, just in case -' no card is plugged in or something else is wrong. If an -' operation does not complete in one second it is aborted. -' -con - sectorsize = 512 - sectorshift = 9 - -var - long cog - long pCommand, pParam, pBlockno ' rendezvous between spin and assembly -pub stop - if cog - cogstop(cog~ - 1) -pub start(basepin, pRendezvous) -' -' Initialize the card! Send a whole bunch of -' clocks (in case the previous program crashed -' in the middle of a read command or something), -' then a reset command, and then wait until the -' card goes idle. -' - do := basepin++ - clk := basepin++ - di := basepin++ - cs := basepin - stop - - pCommand := pRendezvous - pParam := pRendezvous + 4 - pBlockno := pRendezvous + 8 - - long[pCommand] := "I" - cog := 1 + cognew(@entry, pRendezvous) - repeat while long[pCommand] - if long[pParam] - abort long[pParam] - return 0 -pub readblock(n, b) -' -' Read a single block. The "n" passed in is the -' block number (blocks are 512 bytes); the b passed -' in is the address of 512 blocks to fill with the -' data. -' - long[pParam] := b - long[pBlockno] := n - long[pCommand] := "R" - repeat while long[pCommand] - if long[pParam] - abort long[pParam] - return 0 -pub writeblock(n, b) -' -' Write a single block. Mirrors the read above. -' - long[pParam] := b - long[pBlockno] := n - long[pCommand] := "W" - repeat while long[pCommand] - if long[pParam] - abort long[pParam] - return 0 -dat - org -entry mov comptr,par - mov parptr,par - add parptr,#4 - mov parptr2,parptr - add parptr2,#4 -' set up - mov acca,#1 - shl acca,di - or dira,acca - mov acca,#1 - shl acca,clk - or dira,acca - mov acca,#1 - shl acca,do - mov domask,acca - mov acca,#1 - shl acca,cs - or dira,acca - mov csmask,acca - neg phsb,#1 - mov frqb,#0 - mov acca,nco - add acca,clk - mov ctra,acca - mov acca,nco - add acca,di - mov ctrb,acca - mov ctr2,onek -oneloop - call #sendiohi - djnz ctr2,#oneloop - mov starttime,cnt - mov cmdo,#0 - mov cmdp,#0 - call #cmd - or outa,csmask - call #sendiohi -initloop - mov cmdo,#55 - call #cmd - mov cmdo,#41 - call #cmd - or outa,csmask - cmp accb,#1 wz - if_z jmp #initloop - wrlong accb,parptr -' reset frqa and the clock -finished - mov frqa,#0 - wrlong frqa,comptr - or outa,csmask - neg phsb,#1 - call #sendiohi -pause - mov acca,#511 - add acca,cnt - waitcnt acca,#0 -waitloop - mov starttime,cnt - rdlong acca,comptr wz - cmp acca,#"B" wz - if_z jmp #byteio - mov ctr2,sector - cmp acca,#"R" wz - if_z jmp #rblock - cmp acca,#"W" wz - if_nz jmp #pause -wblock - mov starttime,cnt - mov cmdo,#24 - rdlong cmdp,parptr2 - call #cmd - mov phsb,#$fe - call #sendio - rdlong accb,parptr - neg frqa,#1 -wbyte - rdbyte phsb,accb - shl phsb,#23 - add accb,#1 - mov ctr,#8 -wbit mov phsa,#8 - shl phsb,#1 - djnz ctr,#wbit - djnz ctr2,#wbyte - neg phsb,#1 - call #sendiohi - call #sendiohi - call #readresp - and accb,#$1f - sub accb,#5 - wrlong accb,parptr - call #busy - jmp #finished -rblock - mov starttime,cnt - mov cmdo,#17 - rdlong cmdp,parptr2 - call #cmd - call #readresp - rdlong accb,parptr - sub accb,#1 -rbyte - mov phsa,hifreq - mov frqa,freq - add accb,#1 - test domask,ina wc - addx acca,acca - test domask,ina wc - addx acca,acca - test domask,ina wc - addx acca,acca - test domask,ina wc - addx acca,acca - test domask,ina wc - addx acca,acca - test domask,ina wc - addx acca,acca - test domask,ina wc - addx acca,acca - mov frqa,#0 - test domask,ina wc - addx acca,acca - wrbyte acca,accb - djnz ctr2,#rbyte - mov frqa,#0 - neg phsb,#1 - call #sendiohi - call #sendiohi - or outa,csmask - wrlong ctr2,parptr - jmp #finished -byteio - rdlong phsb,parptr - call #sendio - wrlong accb,parptr - jmp #finished -sendio - rol phsb,#24 -sendiohi - mov ctr,#8 - neg frqa,#1 - mov accb,#0 -bit mov phsa,#8 - test domask,ina wc - addx accb,accb - rol phsb,#1 - djnz ctr,#bit -sendio_ret -sendiohi_ret - ret -checktime - mov duration,cnt - sub duration,starttime - cmp duration,clockfreq wc -checktime_ret - if_c ret - neg duration,#13 - wrlong duration,parptr - jmp #finished -cmd - andn outa,csmask - neg phsb,#1 - call #sendiohi - mov phsb,cmdo - add phsb,#$40 - call #sendio - mov phsb,cmdp - shl phsb,#9 - call #sendiohi - call #sendiohi - call #sendiohi - call #sendiohi - mov phsb,#$95 - call #sendio -readresp - neg phsb,#1 - call #sendiohi - call #checktime - cmp accb,#$ff wz - if_z jmp #readresp -cmd_ret -readresp_ret - ret -busy - neg phsb,#1 - call #sendiohi - call #checktime - cmp accb,#$0 wz - if_z jmp #busy -busy_ret - ret - -di long 0 -do long 0 -clk long 0 -cs long 0 -nco long $1000_0000 -hifreq long $e0_00_00_00 -freq long $20_00_00_00 -clockfreq long 80_000_000 -onek long 1000 -sector long 512 -domask res 1 -csmask res 1 -acca res 1 -accb res 1 -cmdo res 1 -cmdp res 1 -comptr res 1 -parptr res 1 -parptr2 res 1 -ctr res 1 -ctr2 res 1 -starttime res 1 -duration res 1 -{{ -' Permission is hereby granted, free of charge, to any person obtaining -' a copy of this software and associated documentation files -' (the "Software"), to deal in the Software without restriction, -' including without limitation the rights to use, copy, modify, merge, -' publish, distribute, sublicense, and/or sell copies of the Software, -' and to permit persons to whom the Software is furnished to do so, -' subject to the following conditions: -' -' The above copyright notice and this permission notice shall be included -' in all copies or substantial portions of the Software. -' -' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, -' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -' IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY -' CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, -' TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE -' SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -}} \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx0/sxtv.spin b/zubehör/sphinx/spinx100225-ori/sphinx0/sxtv.spin deleted file mode 100644 index 43adc4e..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx0/sxtv.spin +++ /dev/null @@ -1,916 +0,0 @@ -''*************************************** -''* TV Driver v1.1 * -''* Author: Chip Gracey * -''* Copyright (c) 2004 Parallax, Inc. * -''* See end of file for terms of use. * -''*************************************** - -' v1.0 - 01 May 2006 - original version -' v1.1 - 17 May 2006 - pixel tile size can now be 16 x 32 to enable more efficient -' character displays utilizing the internal font - see 'tv_mode' -{ -2009 -May - 11 Moved blank line tasks into one-time initialization section. - Difficulty: one task was flipping the interlace bit of _mode, necessitating a reload of _mode - every superfield. Removed the flip and changed the sense of the Z tests that depended on _mode<1> - being flipped. - 12 Implemented simple scrolling terminal output in background task. - Difficulty: have to keep Z clear so that mainline interlaced code works properly. -June - 9 Added "D"isable and "E"nable commands. - 20 Changing ping response to include basepin. -} - -CON - - fntsc = 3_579_545 'NTSC color frequency - lntsc = 3640 'NTSC color cycles per line * 16 - sntsc = 624 'NTSC color cycles per sync * 16 - - fpal = 4_433_618 'PAL color frequency - lpal = 4540 'PAL color cycles per line * 16 - spal = 848 'PAL color cycles per sync * 16 - - paramcount = 14 -' colortable = $180 'start of colortable inside cog - - cols = 40 - rows = 13 - -VAR - long cog - long rendezvous - -PUB start(basepin, rv) | okay - -'' Start TV driver - starts a cog if necessary -'' returns true if it had to start a cog, false if cog was already running. -'' - _basepin := basepin - rendezvous := rv - long[rendezvous]~~ ' ping the sxtv cog (send -1) - waitcnt( clkfreq/10 + cnt ) - if long[rendezvous] <> -1 ' if the cog is alive it'll set this to _basepin<<8 - long[rendezvous]~ - return false - - _pins := (basepin & $38) << 1 | (basepin & 4 == 4) & %0101 - - if cog := cognew(@entry, rendezvous) + 1 - return true - else - abort string("Couldn't start sxtv cog") - -PUB stop - -'' Stop TV driver - frees a cog - - if cog - cogstop(cog~ - 1) - -PUB GetBasepin - repeat while long[rendezvous] - long[rendezvous]~~ ' ping the sxtv cog (send -1) - repeat while long[rendezvous] == -1 - return long[rendezvous]~ >> 8 - -PUB str(stringptr) - -'' Print a zero-terminated string - - repeat strsize(stringptr) - out(byte[stringptr++]) - - -PUB dec(value) | _i - -'' Print a decimal number - - if value < 0 - -value - out("-") - - _i := 1_000_000_000 - - repeat 10 - if value => _i - out(value / _i + "0") - value //= _i - result~~ - elseif result or _i == 1 - out("0") - _i /= 10 - - -PUB hex(value, digits) - -'' Print a hexadecimal number - - value <<= (8 - digits) << 2 - repeat digits - out(lookupz((value <-= 4) & $F : "0".."9", "A".."F")) - - -PUB bin(value, digits) - -'' Print a binary number - - value <<= 32 - digits - repeat digits - out((value <-= 1) & 1 + "0") - - -pub out( c ) - repeat while byte[rendezvous] - byte[rendezvous] := c - -DAT - -'******************************* -'* Assembly language TV driver * -'******************************* - - org -' -' -' Entry -' -entry - call #init - mov taskptr,#tasks 'reset tasks - -' -' -' Superfield -' -superfield - - test _mode,#%0001 wc 'if ntsc, set phaseflip - if_nc mov phaseflip,phasemask - - test _mode,#%0010 wz 'get interlace into nz -mov temp, #0 wz ''' I messed something up and now Z has to be set, not clear. -' -' -' Field -' -field mov x,vinv 'do invisible back porch lines -:black call #hsync 'do hsync - waitvid burst,sync_high2 'do black - jmpret taskret,taskptr 'call task section (z undisturbed) - djnz x,#:black 'another black line? - -' wrlong visible,par 'set status to visible - - mov x,vb 'do visible back porch lines - call #blank_lines - - - - - mov y,_vt 'set vertical tiles - movs :getchars4, #text '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< -:line - mov vx,_vx 'set vertical expand - mov t1,#32 - mov chset, chset0 -:vert - if_z xor interlace,#1 'interlace skip? - if_z tjz interlace,#:skip - - call #hsync 'do hsync - - mov vscl,hb 'do visible back porch pixels - xor tile,colortable - waitvid tile,#0 - - mov x,_ht 'set horizontal tiles - shr x, #2 'divide by 4 - - mov vscl,hx 'set horizontal expand - -:getchars4 mov chars4, 0-0 - mov t3, #4 -:loop4 - mov char, chars4 - ror chars4, #8 - and char, #$ff - shr char, #1 wc - shl char, #7 - add char, chset - rdlong pixels16, char -' xor colors4, phaseflip - if_nc waitvid colortable, pixels16 - if_c waitvid colortable+1, pixels16 - djnz t3, #:loop4 - add :getchars4, #1 - djnz x, #:getchars4 - - mov vscl,hf 'do visible front porch pixels - mov tile,colortable'phaseflip -' xor tile,colortable - waitvid tile,#0 - sub :getchars4, #10 - -:skip - add chset, #4 - djnz t1, #:vert - - add :getchars4, #10 - djnz y,#:line 'another tile line? - - if_z xor interlace,#1 wz 'get interlace and field1 into z - - test _mode,#%0001 wc 'do visible front porch lines - mov x,vf - if_nz_and_c add x,#1 - call #blank_lines - -' if_z wrlong invisible,par 'unless interlace and field1, set status to invisible - - if_z_eq_c call #hsync 'if required, do short line - if_z_eq_c mov vscl,hrest - if_z_eq_c waitvid burst,sync_high2 - if_z_eq_c xor phaseflip,phasemask - - call #vsync_high 'do high vsync pulses - - movs vsync1,#sync_low1 'do low vsync pulses - movs vsync2,#sync_low2 - call #vsync_low - - call #vsync_high 'do high vsync pulses - - if_nz mov vscl,hhalf 'if odd frame, do half line - if_nz waitvid burst,sync_high2 - - if_z jmp #field 'if interlace and field1, display field2 - jmp #superfield 'else, new superfield -' -' -' Blank lines -' -blank_lines call #hsync 'do hsync - - xor tile,colortable 'do background - waitvid tile,#0 - - djnz x,#blank_lines - -blank_lines_ret ret -' -' -' Horizontal sync -' -hsync test _mode,#%0001 wc 'if pal, toggle phaseflip -' if_c xor phaseflip,phasemask - - mov vscl,sync_scale1 'do hsync - mov tile,burst'phaseflip -' xor tile,burst - waitvid tile,sync_normal - - mov vscl,hvis 'setup in case blank line - mov tile,#0'phaseflip - -hsync_ret ret -' -' -' Vertical sync -' -vsync_high movs vsync1,#sync_high1 'vertical sync - movs vsync2,#sync_high2 - -vsync_low mov x,vrep - -vsyncx mov vscl,sync_scale1 -vsync1 waitvid burst,sync_high1 - - mov vscl,sync_scale2 -vsync2 waitvid burst,sync_high2 - - djnz x,#vsyncx -vsync_low_ret -vsync_high_ret ret -' -' -' Tasks - performed in sections during invisible back porch lines -' -tasks - -clearscreen - mov i, #14 ' clear 13 lines + 1 extra to make scrolling easier -:lines - mov j, #40/4 ' 40 columns, 4 chars at a time -:chars -:storem mov text, x20202020 - add :storem, d0 ' inc dst - djnz j, #:chars - jmpret taskptr,taskret - djnz i, #:lines - -waitforchar - mov temp, #0 ' clear buffer: ready to accept next byte - wrlong temp, par -waitnoclear -:wait - jmpret taskptr,taskret - - rdlong ch, par - tjz ch, #:wait - ' got a byte - - mov temp, cmdPing ' roundabout comparisons to avoid changing Z. - sub temp, ch ' ch = -1 is just a ping to see if this cog is alive. - tjz temp, #ping - mov temp, cmdDisable - sub temp, ch - tjz temp, #disable - mov temp, cmdEnable - sub temp, ch - tjz temp, #enable - neg temp, #256 ' at this point, if ch is > 255, it must be _basepin<<8 - and temp, ch ' as set by a previous ping, so we just ignore it - tjnz temp, #waitnoclear ' (leave the long pointed to by par undisturbed). - -:char - mov temp, #8 - sub temp, ch - tjz temp, #:bksp - mov temp, #13 - sub temp, ch - tjnz temp, #:printchar - call #cr - jmp #waitforchar - -:bksp - sub col, #1 ' warning: no error-checking - jmp #waitforchar - -:printchar - mov temp, #40 - sub temp, col - tjnz temp, #:nocr - call #cr -:nocr - mov temp, col - shr temp, #2 - add temp, #text+12*40/4 - movs :get4chars, temp - movd :put4chars, temp - - mov i, col - and i, #3 - shl i, #3 ' col&3 => 0, 8, 16, 24 -:get4chars mov temp, 0-0 - ror temp, i - andn temp, #$ff - or temp, ch - rol temp, i -:put4chars mov 0-0, temp - - add col, #1 - - - jmp #waitforchar - -cr - movs :move4chars, #text + 40 / 4 - movd :move4chars, #text - - mov i, #13 ' copy 13 lines up. Since we have an extra blank line at the bottom - ' (see clearscreen) the last visible line is automatically cleared. -:copyline - mov j, #40/4 -:move4chars mov 0-0, 0-0 - add :move4chars, d0s0 - djnz j, #:move4chars - jmpret taskptr,taskret - djnz i, #:copyline - - mov col, #0 - -cr_ret ret - - - -ping - mov temp, _basepin - shl temp, #8 - wrlong temp, par - jmp #waitnoclear - -enable - mov dira, saveDira - mov dirb, saveDirb - jmp #waitforchar -disable - mov dira, #0 - mov dirb, #0 - jmp #waitforchar - - -' -' -' Initialized data -' -x20202020 long $20202020 -chset0 long $8000 -m8 long 8_000_000 -m128 long 128_000_000 -d0 long 1 << 9 << 0 -d6 long 1 << 9 << 6 -d0s0 long 1 << 9 << 0 + 1 << 0 -d0s1 long 1 << 9 << 0 + 1 << 1 -interlace long 0 -invisible long 1 -visible long 2 -phaseflip long $00000000 -phasemask long $F0F0F0F0 -line long $00060000 -lineinc long $10000000 -linerot long 0 -pins0 long %11110000_01110000_00001111_00000111 -pins1 long %11111111_11110111_01111111_01110111 -sync_high1 long %0101010101010101010101_101010_0101 -sync_high2 long %01010101010101010101010101010101 'used for black -sync_low1 long %1010101010101010101010101010_0101 -sync_low2 long %01_101010101010101010101010101010 -colortable -' long $07_0a_07_0a ' white on blue -' long $07_07_0a_0a -' long $bc_02_bc_02 ' green on black -' long $bc_bc_02_02 -' long $05_02_05_02 ' white on black -' long $05_05_02_02 - long $02_05_02_05 ' black on white - long $02_02_05_05 -' long $8a_8c_8a_8c ' black on yellow -' long $8a_8a_8c_8c - - -' -' -' NTSC/PAL metrics tables -' ntsc pal -' ---------------------------------------------- -wtab word lntsc - sntsc, lpal - spal 'hvis - word lntsc / 2 - sntsc, lpal / 2 - spal 'hrest - word lntsc / 2, lpal / 2 'hhalf - word 243, 286 'vvis - word 10, 18 'vinv - word 6, 5 'vrep - word $02_8A, $02_AA 'burst -wtabx -ltab long fntsc 'fcolor - long fpal - long sntsc >> 4 << 12 + sntsc 'sync_scale1 - long spal >> 4 << 12 + spal - long 67 << 12 + lntsc / 2 - sntsc 'sync_scale2 - long 79 << 12 + lpal / 2 - spal - long %0101_00000000_01_10101010101010_0101 'sync_normal - long %010101_00000000_01_101010101010_0101 -ltabx - -cmdPing long -1 -cmdEnable long "E"<<8 -cmdDisable long "D"<<8 -_basepin long 0 -' -' -' Parameter buffer -' -_enable long 1 'enable -_pins long 0 'pins -_mode long %10010 'mode -_screen long 0 'screen -_colors long 0 'colors -_ht long cols 'hc -_vt long rows 'vc -_hx long 4 'hx -_vx long 1 'vx -_ho long 0 'ho -_vo long 0 'vo -_broadcast long 0 'broadcast -_auralcog long 0 'auralcog - - -' -' -' Uninitialized data -' -i long 0 -j long 0 -col long 0 -ch long 0 -temp long 0 - -char long 0 -chset long 0 -chars4 long 0 -pixels16 long 0 -taskptr long 0 'tasks -taskret long 0 -t1 long 0 -t2 long 0 -t3 long 0 -m1 long 0 -m2 long 0 - -x long 0 'display -y long 0 -hf long 0 -hb long 0 -vf long 0 -vb long 0 -hx long 0 -vx long 0 -hc2x long 0 -screen long 0 -tile long 0 -pixels long 0 -lineadd long 0 - -hvis long 0 'loaded from word table -hrest long 0 -hhalf long 0 -vvis long 0 -vinv long 0 -vrep long 0 -burst long 0 - -fcolor long 0 'loaded from long table -sync_scale1 long 0 -sync_scale2 long 0 -sync_normal long 0 - -saveDira long 0 -saveDirb long 0 - - -text ' Cog memory from this point on will be reclaimed as text buffer. - -init - mov t1,_pins 'set video pins and directions - test t1,#$08 wc - if_nc mov t2,pins0 - if_c mov t2,pins1 - test t1,#$40 wc - shr t1,#1 - shl t1,#3 - shr t2,t1 - movs vcfg,t2 - shr t1,#6 - movd vcfg,t1 - shl t1,#3 - and t2,#$FF - shl t2,t1 - if_nc mov dira,t2 - if_nc mov saveDira, t2 - if_nc mov dirb,#0 - if_nc mov saveDirb, #0 - if_c mov dira,#0 - if_c mov saveDira, #0 - if_c mov dirb,t2 '+18 - if_c mov saveDirb, t2 - - - - movs :rd,#wtab 'load ntsc/pal metrics from word table - movd :wr,#hvis - mov t1,#wtabx - wtab - test _mode,#%0001 wc -:rd mov t2,0 - add :rd,#1 - if_nc shl t2,#16 - shr t2,#16 -:wr mov 0,t2 - add :wr,d0 - djnz t1,#:rd '+54 - - if_nc movs :ltab,#ltab 'load ntsc/pal metrics from long table - if_c movs :ltab,#ltab+1 - movd :ltab,#fcolor - mov t1,#(ltabx - ltab) >> 1 -:ltab mov 0,0 - add :ltab,d0s1 - djnz t1,#:ltab '+17 - - rdlong t1,#0 'get CLKFREQ - shr t1,#1 'if CLKFREQ < 16MHz, cancel _broadcast - cmp t1,m8 wc - if_c mov _broadcast,#0 - shr t1,#1 'if CLKFREQ < color frequency * 4, disable -' cmp t1,fcolor wc -' if_c jmp #disabled '+11 - - - mov t1,fcolor 'set ctra pll to fcolor * 16 - call #divide 'if ntsc, set vco to fcolor * 32 (114.5454 MHz) - test _mode,#%0001 wc 'if pal, set vco to fcolor * 16 (70.9379 MHz) - if_c movi ctra,#%00001_111 'select fcolor * 16 output (ntsc=/2, pal=/1) - if_nc movi ctra,#%00001_110 - if_nc shl t2,#1 - mov frqa,t2 '+147 - - mov t1,_broadcast 'set ctrb pll to _broadcast - mov t2,#0 'if 0, turn off ctrb - tjz t1,#:off - min t1,m8 'limit from 8MHz to 128MHz - max t1,m128 - mov t2,#%00001_100 'adjust _broadcast to be within 4MHz-8MHz -:scale shr t1,#1 '(vco will be within 64MHz-128MHz) - cmp m8,t1 wc - if_c add t2,#%00000_001 - if_c jmp #:scale -:off movi ctrb,t2 - call #divide - mov frqb,t2 '+165 - - mov t1,#%10100_000 'set video configuration - test _pins,#$01 wc '(swap broadcast/baseband output bits?) - if_c or t1,#%01000_000 - test _mode,#%1000 wc '(strip chroma from broadcast?) - if_nc or t1,#%00010_000 - test _mode,#%0100 wc '(strip chroma from baseband?) - if_nc or t1,#%00001_000 - and _auralcog,#%111 '(set aural cog) - or t1,_auralcog - movi vcfg,t1 '+10 - - mov hx,_hx 'compute horizontal metrics - shl hx,#8 - or hx,_hx - shl hx,#4 - - mov hc2x,_ht - shl hc2x,#1 - - mov t1,_ht - mov t2,_hx - call #multiply - mov hf,hvis - sub hf,t1 - shr hf,#1 wc - mov hb,_ho - addx hb,hf - sub hf,_ho '+52 - - mov t1,_vt 'compute vertical metrics - mov t2,_vx - call #multiply - test _mode,#%10000 wc 'consider tile size - muxc linerot,#1 - mov lineadd,lineinc - if_c shr lineadd,#1 - if_c shl t1,#1 - test _mode,#%0010 wc 'consider interlace - if_c shr t1,#1 - mov vf,vvis - sub vf,t1 - shr vf,#1 wc - neg vb,_vo - addx vb,vf - add vf,_vo '+53 - - -init_ret ret - -' -' -' Divide t1/CLKFREQ to get frqa or frqb value into t2 -' -divide rdlong m1,#0 'get CLKFREQ - - mov m2,#32+1 -:loop cmpsub t1,m1 wc - rcl t2,#1 - shl t1,#1 - djnz m2,#:loop - -divide_ret ret '+140 -' -' -' Multiply t1 * t2 * 16 (t1, t2 = bytes) -' -multiply shl t2,#8+4-1 - - mov m1,#8 -:loop shr t1,#1 wc - if_c add t1,t2 - djnz m1,#:loop - -multiply_ret ret '+37 - - -'' -''___ -''VAR 'TV parameters - 14 contiguous longs -'' -'' long tv_status '0/1/2 = off/invisible/visible read-only -'' long tv_enable '0/non-0 = off/on write-only -'' long tv_pins '%pppmmmm = pin group, pin group mode write-only -'' long tv_mode '%tccip = tile,chroma,interlace,ntsc/pal write-only -'' long tv_screen 'pointer to screen (words) write-only -'' long tv_colors 'pointer to colors (longs) write-only -'' long tv_ht 'horizontal tiles write-only -'' long tv_vt 'vertical tiles write-only -'' long tv_hx 'horizontal tile expansion write-only -'' long tv_vx 'vertical tile expansion write-only -'' long tv_ho 'horizontal offset write-only -'' long tv_vo 'vertical offset write-only -'' long tv_broadcast 'broadcast frequency (Hz) write-only -'' long tv_auralcog 'aural fm cog write-only -'' -''The preceding VAR section may be copied into your code. -''After setting variables, do start(@tv_status) to start driver. -'' -''All parameters are reloaded each superframe, allowing you to make live -''changes. To minimize flicker, correlate changes with tv_status. -'' -''Experimentation may be required to optimize some parameters. -'' -''Parameter descriptions: -'' _________ -'' tv_status -'' -'' driver sets this to indicate status: -'' 0: driver disabled (tv_enable = 0 or CLKFREQ < requirement) -'' 1: currently outputting invisible sync data -'' 2: currently outputting visible screen data -'' _________ -'' tv_enable -'' -'' 0: disable (pins will be driven low, reduces power) -'' non-0: enable -'' _______ -'' tv_pins -'' -'' bits 6..4 select pin group: -'' %000: pins 7..0 -'' %001: pins 15..8 -'' %010: pins 23..16 -'' %011: pins 31..24 -'' %100: pins 39..32 -'' %101: pins 47..40 -'' %110: pins 55..48 -'' %111: pins 63..56 -'' -'' bits 3..0 select pin group mode: -'' %0000: %0000_0111 - baseband -'' %0001: %0000_0111 - broadcast -'' %0010: %0000_1111 - baseband + chroma -'' %0011: %0000_1111 - broadcast + aural -'' %0100: %0111_0000 broadcast - -'' %0101: %0111_0000 baseband - -'' %0110: %1111_0000 broadcast + aural - -'' %0111: %1111_0000 baseband + chroma - -'' %1000: %0111_0111 broadcast baseband -'' %1001: %0111_0111 baseband broadcast -'' %1010: %0111_1111 broadcast baseband + chroma -'' %1011: %0111_1111 baseband broadcast + aural -'' %1100: %1111_0111 broadcast + aural baseband -'' %1101: %1111_0111 baseband + chroma broadcast -'' %1110: %1111_1111 broadcast + aural baseband + chroma -'' %1111: %1111_1111 baseband + chroma broadcast + aural -'' ----------------------------------------------------------- -'' active pins top nibble bottom nibble -'' -'' the baseband signal nibble is arranged as: -'' bit 3: chroma signal for s-video (attach via 560-ohm resistor) -'' bits 2..0: baseband video (sum 270/560/1100-ohm resistors to form 75-ohm 1V signal) -'' -'' the broadcast signal nibble is arranged as: -'' bit 3: aural subcarrier (sum 560-ohm resistor into network below) -'' bits 2..0: visual carrier (sum 270/560/1100-ohm resistors to form 75-ohm 1V signal) -'' _______ -'' tv_mode -'' -'' bit 4 selects between 16x16 and 16x32 pixel tiles: -'' 0: 16x16 pixel tiles (tileheight = 16) -'' 1: 16x32 pixel tiles (tileheight = 32) -'' -'' bit 3 controls chroma mixing into broadcast: -'' 0: mix chroma into broadcast (color) -'' 1: strip chroma from broadcast (black/white) -'' -'' bit 2 controls chroma mixing into baseband: -'' 0: mix chroma into baseband (composite color) -'' 1: strip chroma from baseband (black/white or s-video) -'' -'' bit 1 controls interlace: -'' 0: progressive scan (243 display lines for NTSC, 286 for PAL) -'' less flicker, good for motion -'' 1: interlaced scan (486 display lines for NTSC, 572 for PAL) -'' doubles the vertical display lines, good for text -'' -'' bit 0 selects NTSC or PAL format -'' 0: NTSC -'' 3016 horizontal display ticks -'' 243 or 486 (interlaced) vertical display lines -'' CLKFREQ must be at least 14_318_180 (4 * 3_579_545 Hz)* -'' 1: PAL -'' 3692 horizontal display ticks -'' 286 or 572 (interlaced) vertical display lines -'' CLKFREQ must be at least 17_734_472 (4 * 4_433_618 Hz)* -'' -'' * driver will disable itself while CLKFREQ is below requirement -'' _________ -'' tv_screen -'' -'' pointer to words which define screen contents (left-to-right, top-to-bottom) -'' number of words must be tv_ht * tv_vt -'' each word has two bitfields: a 6-bit colorset ptr and a 10-bit pixelgroup ptr -'' bits 15..10: select the colorset* for the associated pixel tile -'' bits 9..0: select the pixelgroup** address %ppppppppppcccc00 (p=address, c=0..15) -'' -'' * colorsets are longs which each define four 8-bit colors -'' -'' ** pixelgroups are longs which define (left-to-right, top-to-bottom) the 2-bit -'' (four color) pixels that make up a 16x16 or a 32x32 pixel tile -'' _________ -'' tv_colors -'' -'' pointer to longs which define colorsets -'' number of longs must be 1..64 -'' each long has four 8-bit fields which define colors for 2-bit (four color) pixels -'' first long's bottom color is also used as the screen background color -'' 8-bit color fields are as follows: -'' bits 7..4: chroma data (0..15 = blue..green..red..)* -'' bit 3: controls chroma modulation (0=off, 1=on) -'' bits 2..0: 3-bit luminance level: -'' values 0..1: reserved for sync - don't use -'' values 2..7: valid luminance range, modulation adds/subtracts 1 (beware of 7) -'' value 0 may be modulated to produce a saturated color toggling between levels 1 and 7 -'' -'' * because of TV's limitations, it doesn't look good when chroma changes abruptly - -'' rather, use luminance - change chroma only against a black or white background for -'' best appearance -'' _____ -'' tv_ht -'' -'' horizontal number pixel tiles - must be at least 1 -'' practical limit is 40 for NTSC, 50 for PAL -'' _____ -'' tv_vt -'' -'' vertical number of pixel tiles - must be at least 1 -'' practical limit is 13 for NTSC, 15 for PAL (26/30 max for interlaced NTSC/PAL) -'' _____ -'' tv_hx -'' -'' horizontal tile expansion factor - must be at least 3 for NTSC, 4 for PAL -'' -'' make sure 16 * tv_ht * tv_hx + ||tv_ho + 32 is less than the horizontal display ticks -'' _____ -'' tv_vx -'' -'' vertical tile expansion factor - must be at least 1 -'' -'' make sure * tv_vt * tv_vx + ||tv_vo + 1 is less than the display lines -'' _____ -'' tv_ho -'' -'' horizontal offset in ticks - pos/neg value (0 for centered image) -'' shifts the display right/left -'' _____ -'' tv_vo -'' -'' vertical offset in lines - pos/neg value (0 for centered image) -'' shifts the display up/down -'' ____________ -'' tv_broadcast -'' -'' broadcast frequency expressed in Hz (ie channel 2 is 55_250_000) -'' if 0, modulator is turned off - saves power -'' -'' broadcasting requires CLKFREQ to be at least 16_000_000 -'' while CLKFREQ is below 16_000_000, modulator will be turned off -'' ___________ -'' tv_auralcog -'' -'' selects cog to supply aural fm signal - 0..7 -'' uses ctra pll output from selected cog -'' -'' in NTSC, the offset frequency must be 4.5MHz and the max bandwidth +-25KHz -'' in PAL, the offset frequency and max bandwidth vary by PAL type - -{{ - -+------------------------------------------------------------------------------------------------------------------------------+ -¦ TERMS OF USE: MIT License ¦ -+------------------------------------------------------------------------------------------------------------------------------¦ -¦Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation ¦ -¦files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, ¦ -¦modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software¦ -¦is furnished to do so, subject to the following conditions: ¦ -¦ ¦ -¦The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.¦ -¦ ¦ -¦THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE ¦ -¦WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR ¦ -¦COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ¦ -¦ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ¦ -+------------------------------------------------------------------------------------------------------------------------------+ -}} \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/codegen.bin b/zubehör/sphinx/spinx100225-ori/sphinx1/codegen.bin deleted file mode 100644 index 0ff297e657495182dc08a1155ad7201f777359cb..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 16532 zcmeHuYjhjOm1Z^A-2^~@qDhK^B#>%Kltd+@O@IWt^+-%TW7*VWMafoTCpO3i)u0<7 z1cEZ9Pq%t@??%_wA| z$WA7XC~Lo4-2g$$NoLOe9UfM7J#O8)Rdwsuy|)VNFD{Cyi7NJVr?&B%Y}3Z)7A*4o z8FRDG35@-%;AYp#MD}5cu}>iUR1#Tvd4T21-E527$0iV_+>CwS!`O3P#$NJPu_r2g zEa+qG!#;)mV`U5bUJYZvLby>=%kG-*W_Q<#>?d_T_S}Lr3q;fGY)6{y45!%_18LS7 zI_}cf9(OfGkGr}S9e2$DcX|Qif89GagzVINW0&NL>t5>#J@Q+x4Ua0TAV+=oIBuk@DI~r?iYLiwZCvtHhH(kb--qKBsix!xs24`8kjV_CvwpTYlNrb;OpwZsT2DvcwdwwEM2jSbdk6IRzIaLrwY7!A5kC{g zkG#oyV{$`9yzk`-OB_G)YDhR0(0p=(`&6JVVW`6Na{=wn8AENPMEA@!LuHiOiByyl z+h=Hc2=EJm0NSW7Osp43(Che-{|hPg>6gMe9+@e*yU#hwMWk48nWN zdRnx0P~BswQ=Ga7c-^bkr!HEbQX40|G|cvpXssZ?HUQQ;fK?9Q>5JBB2XJgEB;MLb zs};U$w-U?j8%oAgStU6%m{oe>N(?D8n@F2+WuQ;#V1Ox9^$nQjz+-V;={X3n)KIb~ zo1KD`{|7+sXLoh6J2!0I&hEr+V0Z4`aUWA!Ta~_q8BfKMaV0x2 zpqK-xeQanjwlBU0Oq5KcP8m!mQUs(tIFQaJ22z6`XBhY3ow^odn)eJQaq65)$hj~{ zQ}R-mu=;RbUMi!2$xFevf*=P4zHgX{tmnd$)-ypt!iIWUW#GuI!uYW^;z%H(jWd3% z(avE5Qm%$_KqV2nX};BHKcdDPElO!cn5Ya)R0Srg1JM(ylLLW?+Q5W2FyRXb zl24EoFus(l&Q(q2DyP&&{J%N*y!BN=eLQu1U@BKTrLrqi=a`UVxjGC-q^d}c@y-K~ zYI0DN>m|u;cP2=Fjuh2p4mz|Er1J2NbUc+v?NgZlv4PB^n8a8w=9Kxfu^v9Bc6N|& z*Ft4czz|Cw+Yt)eyLsS1Jktl>VKilp_9i~|eGHzBANw}nuo3KwDlq)K=+vv$7l}JX zON=5}XyM1~ezA1!{ziKMf`^wjRB?9BCX(^NY%Q} zKlzIg#8!nBDfCn$j6eAXUzjk(T-dQw;Ubw>1V}y<@cxmespGTzy!GN)>qSaNzUC~3 z>bf#T1<|iPX}uJ9%{mjHTpVC-t5&yA*mco56a8`DOV-a`wa$3V0#gwcKjc&_FH-Sk z>uf|77S67r2NK67<6G8q+9J6@oUQW;QU!6HfWD}LHv9vbM3yh<$Ksg*p4dL1?A)_K z$qWpkB0i|-@jiTYrdL=(SYSHm6kQdj5=LEgs=v#yGzrtz*1w|vC2J@Z$f^ukIai&; znUkd%MHA;~Tx|~_^ z%=YZLt>>g^?N3K$(!B40V8{&~AuTuf1ZLu}tuL1wszhs1n$u8IQjJ;_y8_F~SHe5n zhc}$_(y_lr*J)@8W)LDNE+7xus0~hAbbxb=D&&SrUcd}{-s0khun?6S1wp!_z;k|K z{KVxVw+YfbC!wtY~#Jt-6q{7OhQ8 zt0`pbL@UCyTApn!>rC^_LX}R7lT3*#+EuIr^laZIl&o zJg)|8y3Iapq5^_q0XC+>iEfzTpPRJx$~o;A`l$?tzIpD@f6sur?E!72slb3-iPC{o z3*diF8;FS*qoUPNAi27fWKL(99sge9J~a=-9h^%XrpZMj&NCqfCS-7|hvaLHO`nq| z+&Hb1VL@&zyQ~EI0*o(<7ousb+NS$Yh-^z+gZAm18~fGXhy9k+sc6?lu^-)0w7M63{xF8mDZrY`v`BF&Wg%H7zzDo)` zz*HBI&9;o7T0iHei97_7Lwt!_RpCTZkZK>tQH4!$6Wia5F2Ge#EDn$4L<~14=H#hM zia0utX;I#)#c8Dqhu^Q6(_mym2A}*NrhSk%TCrNVHVa;E_i{L|K+s=-&W(YbgjV|% zAY9_L5*+V>>9;s_4nocY1u{1sPlA;R)?a|#&jE;fIT;-)u!P_4X~<^dZ2Ij(T}*2L zNfo!wi`H5+rm@clvo<=za=KH6gR?!(cn87ryeFC@PeZTM9eT! z!c<;CYIs8I8osP_p-pi!dvE@IPCQo!&JpKw+m1|P9|T)`xHlfx2bC>bcPnNhnaDDn z+38HYH_la>eda(<%v8)+PuygihSFxDH+lmyHe%b2bu>loj}AS&@G( zwG_L4%vZ#*52IIyVaCGFI35pDA<1J|S$No?WIk=qr@j$V8!t7j zzN3|hT`POpHNUlItz5yb)7RB0EVI95i=FQh`|DcCzg4Wv`HFt)qXggRw?2-qOYvJV z;H{e+rwJo$7-0?uXunxi}sog^%x^ zrv^g>W#!)vCy!}URRqZHP01?8JZ`rURLfEt@~(F^Gzy){X4H%2RPKCnAAsFvTWFUv8cic5NVd5hrdl={k#57cfD>UT(few92XEa`U}> zL2Z$-Gp|HuMmlcfo3F!ffH5r&<(styL3wr@M614X6*DKe;Umc_#7dWy z4W2Ay#^aC}*74+xg7TUZZ(K*3Yi>DlLVkMc287XGfxyTJvVAkhld}d)zvr_5CcezB`X~YKOj_S2>Af>~8fc>n*Qo0iF>x=hh z2e|?kb36kBDP{YPoow@P8ddNV>|Ecy%>iV);@P20%9d10!fwZ{_3Z*`T|&->6FZCI>^YxcB26c8&I?l}d(I2(K~{XkfzK=@ z4lM6`>GOB%nh$C{KNO$wg-Y13TmQn{0pZl$@)8m8_%r2vi`|VamcbTVLN&oMbt!{N zTJOm~{YyuAZ}gQG2(U2Hr|zzsj!uIDJ_8={-5X)&9kq+-mqj;S^WTzXkA$lojz?-l*S_Rpz(gXw@XrpUnQ3MoEWim|cj;uCb3okAML3olH&G zd8nNy2b{EF7YR~jcsHD1$yn;3l8$BI49mtdgR>iD>!vyBBB$fXd=})0+5&VT^+Bbj zV@uQml#Sw?w-u>{$d;)r&e_fx;pa}w8KEXQ)V^hZ3%g@psrD^eu4ocg1H+Q&U#|qm znfev|8%Tf2c&j&D+|HmKf1==J&G_Dj@KGkRFXHUzCBtk=2WCx^#Hl0Cy=J@O80lD;j1)+)(s*M8wUETMVb z)(3P0eyTeJ-T1ZEHYLeM-vd2C%*P`Jx8Ws0Ym;Qn+ke03{xB@1X=to{8x6O$Sct4< zuc$)b1$Eh^)~2nl*4ArVs^_7vcvuyUX%6KVqJ0;ls0U`xV7N%Mj?{&)&>_i?Mw{V0 z;)zXmf_+t}7P>ITJqQmX=m<%K{RoFKCx4CrPa~@kMAnV(M-d)IcoZRn@F|3+5PS;* zF1ArO9Q*vDzmwYGP3ZS`+)Jc{F^q0l3m_icSjYnzUV4|2-3b3gSO98;-Q_^jiZ zM6c3oV2|K{$}pifDwTzWeNh`H(2~avBj2a8IYm@c249|3p#>ZOx`EKuO0bDvP%G6+ zsZ6cx+a{XG=s?QY+jXm?Z(wa+M))SeYY5*#xQy@*td{*Rmyf+s##ozJ#a{zYH_RdE;gwN0Su|>Ft3fBdg7^r1?7uB--;#&4k z2!Y00#;lx-ZE{Wy=iKyl!`DP#Z@JLN{$fV`O~>*kKBfqXmwh^dTaF#S6J|_j*XP`%t6+QBD=~vd5}8c z$kTI?@45{+(QMPZo;M|V*HXTpw1HL+$-DjV>Rma&B^<_c>#HQ;T0J>;PM$U+U(3Sp zd77MjSEkMA*G^WG=O5eOEofnBu^=sk9WHbNHcGm zh~Krjdrw!1s^m1t#0PP`qud5wl(r6B@esKk6mtVL5ex9{%yoPv{U+Ao9bR%L+&rkb zi`+c$33^5ApLqd!_iZ2HWu9Md=kE}$mzk#Vd0WXVZlb~-J6&OF{*H*WNYL6b6@1o2 z>oZJix*fhvT3iYrnuY%a)7m(^8#s7={raPxYDugCs6@ZQi+g{chSFQXG+p>q-7;<`b!T6QWh7Rlwl|!t6<521Keo zDS|G!sils&gGX{DAKgN@=A?@K7y_n|C?zNi$`^JJ^Uo^6UtIz!(ZGFSYKFZZLnE7J z&>e=E62efXac`PnFht~4QqoXcZvulV8#q~~^yp^|Xe*y3zveM9WX8q&!uJj((+X}E z=r%DEOYMs{hgQMzf`kQbBj<+VnKacngs2y~vOGmAS)ckVHOWt36KK_P6w+F7v=4;d z2W1#2eaT$q{*%>9U$DOZ;yE9WD^J!ucj+FQ8)z;hQfLXiRu7Z>hiN|G%_&UWVx~&G zQr0RCl6ym4&a-8j7se=ERCvHZBNDv6wMgXLQcaOP`ScEtNR>jak}AZ}U()QV5?@4h zIZg6r;NgYD`dCXYh(O2V77Ty_pA#ZBEMcK(u~dOj8d$&r+ArkXaE<`FLs|qIUuz{2 zNB8CxV!-itLV4v<2SD0bz9ru#Rb6Vzx14h$-86l4Wds(tOLMCL!NsNsEd4==9|#SGurJ&Wx+uiQTCo@;+r|H`?u61sv|4PU;WL#ghTcPopm}I=E4zhELWkO$9Q612FU)-W0UeU~-%aZmAj*s&GlcrG+B{ zId1?uVd&U#xEsN>25ov63xCYCcD@u1DTtj$+Uy3MAUPf5Yl>14&V9L#5)5T z1tbL=<$@969b+0k9SVt~1X=}7!KY@3AHhJIUWxEiE=klK1^L$FBJ6XD(pska5Vd(^=Y6f zOv6GTm^%vedk6Z3$DuvX)Abkfz2KQXAaU{>`t1Q zwt?4UE+ZXMgJ{(O<5IfBGo)o8lo=fnQ)-N%wED0<0?~x)f(6JqQ#Ha##-Mrv*p7Qr z@q%a2OklgmOxD?HzxqiJ4H|RqZk1RcAe0Y6S;&b{1~8(%AutLYbq?nZ^z_@WQkYIQ zJ|tcTP2MMUQa6zUtBMxxV(eU$at||Is^>KB$prd?(WL6?hao&kEkJmkZoGMwaFu6* zeIF4mIjRaN*Mso+LF<8iFKDU>WyEx2xpXb?x&-HN-$u_MHZ~jrZ$e2@Su&F73F@Ye zP}R-oG~rXl{(D8MSvTM0If-(Mbn^|$X^&9O7fo&K2}HDpe%Gy+A0dIJso)|5NDF4u z{&a;^1;K}#rlAl99WkWF_Ovy`(%A^)3AlDi`>croACNJiL&BOStVLWh!jFVaHFF&= z0&LUi^udr3nIVUUp?N5Rpz~S^MstU);Fa?ORf69`96$YWc&o6u+; zw5swQSjq9zL2NoScH`q_>5fPidt-J<=&8-%!DP>XIcuwJ+_Ak-*3GMwq12YZxt<(A{ur8JHTa0ZwbKUU&xV z4IjST7Qlqz1{*sVzQJvgAtc}(oPG;eSfoMQ^9|eJQk&Bj$qw7vwQDac7WvI=#Iu#+ z=ysqAdaWJAgT%v6eJez60=c#RpvvZ;Uq$F2$I}K*TtQj!Jig*~tk!RswuY}|QxR`2 zq)E8i1*zCWj{0O<<9~@&$ zDjOo0!z|y7V+|@52JtLbdL_rh;7^diKO9+=+Big4;U$nq`Ti-e9-m=iw5J{;Mee0IO` zQE6$UogT5st#^2_MIf_r9&z{0d(o&27HB;na1PcLdJ7ZXwYIy5B~%gaJyjw_#5)pw zJ$eOuG}VRvMO9ASYj7uQB!S(O21FUzmYfJfT1wjrU?d5`I|l}{eTiW>)o*9&^@H^0 zhd)-O`=G*=6KD82cM@|lMaM?LRWiFdiX|Ikw!lU5ATgkXx(qeThNx5&nT{ zT+@MmD9ax*a5f0qX>%&8Nmq~#>-@1CBwtgOvLw??Rea}K`W7Z(xr*0u*{OrJf8UL} z<;7vqny2&afvhT08<^J7*9jfKt`K+{+^7m~9qOV6dIT#UgxyR&Y}-bzgd)s!QCqlj zd!Ks_40YZlB%omE(h87LRmiMFrW~0XSe>M~HBQ3y0a9_gg;&piz))-aR_mH7R^_)M z_~4THLu+095_%JTaS44NiY33b9Us|mZS!$NbQp7nbFy44`hdt^I!CGEMeFKi=gu6U{}RHo@L5pmK}Jy-D8^RX&5bdTN0fL!Y_ma-jG~j9rX*em~P$FE&JX; zQgwZ-t8aybX+E>^yK!C3vo_b!;L zpZKQ>+OE}4>&wYuY@SVO^EhD5zAiPxcdaq0K<0)!}l(v2@SBm z2Mb*$%|Wu;U__AU{A`yasAwa3n%xpwgU z8F6^Vy7tNQXWWNothL$m?sX&Upn%Vu`H->B{UPJL*Tam5)@D#{o_Dj6nKQCEGPOE& z{!BEDw&@wGsc+^XJY{{Tj-?-RnKM=t&q4(Hn&+9@oN4JW&s&vjhMLn_LJ)Qr`NI;|gR;0_}lG1iSY;oA-vDsQK@#?09cON zt*vWrQkT6hx>G{M#kO{)bLW9qAXOX0{2-L36?LOL^5>FB^-=obr50&%IE3hF`N86| zX>hl0**8cAOlZ5oPs@O5Mb4T}H=DBt2))PzEUbeHV zD}-z(>OaWtVLP`n@Bf{*wUajK_RSwb4H6at+p@l^do#~cj<<_aH7@V4_jon>49$+3+^S@mix2*3*y@QPH z-n9o^gXCNPz<$j3?p_a{fTzjh`vgnooWkbfT#YT21G#_quA-@Zj{7;BlqEEo5=eylTmw6i_@ zD3%BUk9_5nNunrHYvNaVQ^t=Xv2hXE)J~I&va(c9Zk? zwNj!-VAV%Az}S6qV}QEsXdge43BhaOr{}P+$O|tIw>d8maZf{)@;p}pr`c_7d-0sC z@W|gJo7S{#+FGs>9N7RB9J2uzom^So4m}Bq+if^nLy!Te*kre%$2NsF5-4|m2v8~E zOvXCUnd~o1%avvJi?*?!mB6D9{%eLEM?1+2Q8#y}9RJuWp`+_>>6mytaiM<5wyl&P zI>`fADZ#U7|G;bPMUEIhxOlyNeC)|kcx&oF%uMKx@o2w+$D^khe#`|g3u&?R_G!JN z(3U>9dVhtMo?toh29{^qemP%aWxl^z`u@0fY`C{z)b2?+zbR2>as3XJx&&a4V*}d+ zu|l@wS!**cecrDa*GrK7?%3+GpX$)-v}wP!OncLhm%MmBxkP)*Z`EtR^jnLy-}tSC z+E4w~g7G6)L%yCZzMhZxdLH)mbo+Y#ldos5uV<@o&V$_FF~fA9wOU%h`vW zm!fMF;o<1v@neCI&oHOj5lvI{HbuXt=vNf|D@8w|=*JYjPSF*LeooOZD4L|`Dn&n| z=wB%M2}SQv^jnH%D7rz>O^V*7=o&@W+y8B|g;isUw6bg(r$8;_V-TScVFkhm5!w(U z2%8ZG5Y8cd4dJg5E+G6*gdZSGB3wi8L%z;OP!O6C+7Q+vY(%&Zp&Q{rgakqw;R%G# zAUuokUl7jW(*GCuzJq|nfo=LVV}F5%L{s?w$KQXN|T4T3g}PSFDA3mlxnx{`bp_;2z)ZeHWHQJ9w69ZsoMN2S_=LUy48q|SFx zfPg|TH7J6j;D*K_HT~Y#Ye)aF^!3{NJX*u-_C_(ac(vAqf7?EoO;ZtnTGnJgEo1)= DHx`lw diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/cogcheck.spn b/zubehör/sphinx/spinx100225-ori/sphinx1/cogcheck.spn deleted file mode 100644 index e01fcba..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx1/cogcheck.spn +++ /dev/null @@ -1,27 +0,0 @@ -_clkfreq = 80_000_000 -_clkmode = xtal1 + pll8x -obj - term: "isxtv" - f: "sxfile" - -pub CheckFreeCogs | i, x - x~ - repeat 8 - i := cognew( @nada, 0 ) - if i < 0 - quit - x |= |< i - repeat i from 0 to 7 - if x & |< i - term.str( string("free ") ) - cogstop( i ) - else - term.str( string("busy ") ) - term.out( 13 ) - f.Open( string("sphinx.bin"), "R" ) - f.Execute( 0 ) - -dat - org 0 -nada - jmp #nada \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/combokb.sob b/zubehör/sphinx/spinx100225-ori/sphinx1/combokb.sob deleted file mode 100644 index c394cab78deafb95b9e0afe3500983d6af985553..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1529 zcmYjRZERCj7=G^UE$cc6M3cp!m?BdOD`RwP*TSfPlujXRVGU}y>RRj8!8T9Z%QgY) zjR6ur0{@1;%>6-(k@#ovhd;LKfB`aK%7g+c?!$>gHrxuL(e2Fl-WB6bp1#lfea?GM zPi^(4HK6Z!Pm!wtZyFTL8bA$d!y9*mAqs*?UV8VSDgJli3iep0nlSxoyFXJIGoK(Qaf=@o*4gfxxWuF)ab}tiWP| zli(t(CA>fg6Lt~m2(J^i25nucM7pH#(JkZ?k~}7Sn2rkd ze z*QGv@VK~*EKpzH zUfm^9{92()nPmOL4lp^mSJxIP+&RSfuyiCDwIxQ>#}Wf-N5_=hME;v(wsa-RjFklZc)h$nqwaIvAoY+{txsxNr$kHYYrTcMOu@uqPu3;JEK0%xYL+9 zn6CK~y0ee`#{KY2oQTu?h%fkJrshW1j9f-K-I@3!Ii37X#{HS4zDRIokm+$d?fv4X zGcxUYg?Yy&PAHV4WR7=hm&pD(&EZ;(U(ZRM&i`*Z|3ZXiP;YN@;C?}_&Z1neY-7N< zE2R(Xd_{E%Y2CAlbfl2xGfR6ma<5X&Aw}07t})vjh)`~{UpX~esHDe@n0_TY+OPBz z9uV%1qLteSPD?AVnrhQk;(r-&5P{x&(08411q1jNm+=Gf8@Pt6_zwA~BMrF!$0Yq` z?=K&8t@jpz$K$%Gj?My zD&Pb9>4m@^G}5zG3cuk*30D8!gmqw8W$M6klDn|p)PBMg7TkG-IF0k0TtH5IZOY*@ zz-Z5}y>rH)zTeJ|oc;y3PL7?rfI)nZar}I40(XDBefH*m=^6B$Ieo4NCwotwJ-?uM z)ymbSYush!9&d%uUt;R}54;VepE5EkUkg0DV(EruMNhx_%t|NLqS&y;Dg>X?Dn{Ib z)pDVyL6PVe|8HR9f2w{H5#JFzt6@jbfOz3o=Sy}4@IE_ou7wE4?YL;J^W qH`ta>Dwd4}-LTG!ss*Cd=B^6Dnr8+?h`VDx>&W#*u@UbW)%X{*G)_(c diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/copy.spn b/zubehör/sphinx/spinx100225-ori/sphinx1/copy.spn deleted file mode 100644 index af133ec..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx1/copy.spn +++ /dev/null @@ -1,68 +0,0 @@ -SXTVRENDEZVOUS = $8000 - 4 -SXKBRENDEZVOUS = SXTVRENDEZVOUS - 4 -SDSPIRENDEZVOUS = SXKBRENDEZVOUS - 3 * 4 -SXFS2RENDEZVOUS = SDSPIRENDEZVOUS - 4 * 4 ' four rendezvous variables -SXFSRENDEZVOUS = SXFS2RENDEZVOUS - 4 * 4 ' four rendezvous variables -METADATABUFFER = SXFSRENDEZVOUS - 512 - -_free = ($8000 - METADATABUFFER) / 4 - -obj - term: "isxtv" - kb: "isxkb" - f[2]: "sxfile" - -pub main | err - err := \try - if err > 0 - term.str( err ) - term.out( 13 ) - elseif err < 0 - term.str( string("error ") ) - term.dec( err ) - term.out( 13 ) - f[0].Close - f[0].Open( string("sphinx.bin"), "R" ) - f[0].Execute( 0 ) - -con -FILENAMELENGTH = 12 ' 8 + . + 3 - -var -byte srcfilename[FILENAMELENGTH + 1] ' + null -byte dstfilename[FILENAMELENGTH + 1] ' + null -byte optionstring[3] -byte needConfirmation - -pri try | length, ch - needConfirmation~~ - f[0].Open( string("args.d8a"), "R" ) - if f[0].ReadByte <> 2 - abort string("usage: source destination") - - f[0].ReadString( @srcfilename, FILENAMELENGTH ) - f[0].ReadString( @dstfilename, FILENAMELENGTH ) - - f[0].Close - - if f[0].Open( @srcfilename, "R" ) - term.str( @srcfilename ) - abort string(" -- not found" ) - length := f[0].Length - - if f[1].Open( @dstfilename, "R" ) == 0 - term.str( @dstfilename ) - term.str( string(" -- overwrite? ") ) - ch := kb.getkey - term.out( ch ) - term.out( 13 ) - ifnot ch == "y" or ch == "Y" - return - f[1].Close - - f[1].Open( @dstfilename, "W" ) - repeat length - f[1].WriteByte( f[0].ReadByte ) ' Could probably improve on this - f[1].Close - - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/del.spn b/zubehör/sphinx/spinx100225-ori/sphinx1/del.spn deleted file mode 100644 index 7b2bdb3..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx1/del.spn +++ /dev/null @@ -1,246 +0,0 @@ -' 2009-08-08 fixed off-by-one error in try - -SXTVRENDEZVOUS = $8000 - 4 -SXKBRENDEZVOUS = SXTVRENDEZVOUS - 4 -SDSPIRENDEZVOUS = SXKBRENDEZVOUS - 3 * 4 -SXFS2RENDEZVOUS = SDSPIRENDEZVOUS - 4 * 4 ' four rendezvous variables -SXFSRENDEZVOUS = SXFS2RENDEZVOUS - 4 * 4 ' four rendezvous variables -METADATABUFFER = SXFSRENDEZVOUS - 512 - -_free = ($8000 - METADATABUFFER) / 4 - -obj - term: "isxtv" - kb: "isxkb" - f: "sxfile" - -pub main | err - err := \try - if err > 0 - term.str( err ) - term.out( 13 ) - elseif err < 0 - term.str( string("error ") ) - term.dec( err ) - term.out( 13 ) - f.Close - f.Open( string("sphinx.bin"), "R" ) - f.Execute( 0 ) - -con -ARGSTRINGLENGTH = 12 ' 8 + . + 3 -DIRSTRINGLENGTH = 11 ' 8 + 3 - -var -byte argstring[ARGSTRINGLENGTH + 1] ' + null -byte dirstring[DIRSTRINGLENGTH + 1] ' + null (terminator not strictly necessary, but convenient for debug printing) -byte optionstring[3] -byte needConfirmation - -pri try | nArgs - needConfirmation~~ - f.Open( string("args.d8a"), "R" ) - if nArgs := f.ReadByte - f.ReadString( @argstring, ARGSTRINGLENGTH ) - if nArgs > 1 - f.ReadStringUpperCase( @optionstring, 2 ) - if strcomp( @optionstring, string("/Y") ) - needConfirmation~ - else - abort string("No files specified") - f.Close - - ExpandWildcards - MyMount - Delete - FlushMetadata - -pri ExpandWildcards | i, j - i~ - j~ - bytefill( @dirstring, " ", DIRSTRINGLENGTH ) - dirstring[DIRSTRINGLENGTH]~ - - repeat while argstring[j] - if argstring[j] == "*" - if i < 8 - repeat - dirstring[i++] := "?" - until i == 8 - elseif i < 11 - repeat - dirstring[i++] := "?" - until i == 11 - else - abort string("bad wildcard") - elseif argstring[j] == "." - if i =< 8 - i := 8 - else - abort string("filename too long") - else - if i < DIRSTRINGLENGTH - dirstring[i++] := argstring[j] - else - abort string("filename too long") - ++j - -con -pCommand = SDSPIRENDEZVOUS -pParam = pCommand + 4 -pBlockno = pCommand + 8 - -pri readblock(n, b) -' -' Read a single block. The "n" passed in is the -' block number (blocks are 512 bytes); the b passed -' in is the address of 512 blocks to fill with the -' data. -' - long[pParam] := b - long[pBlockno] := n - long[pCommand] := "R" - repeat while long[pCommand] - if long[pParam] - abort long[pParam] - return 0 -pub writeblock(n, b) -' -' Write a single block. Mirrors the read above. -' - long[pParam] := b - long[pBlockno] := n - long[pCommand] := "W" - repeat while long[pCommand] - if long[pParam] - abort long[pParam] - return 0 - -con - SECTORSIZE = 512 - SECTORSHIFT = 9 - DIRSIZE = 32 - DIRSHIFT = 5 - -con - -{ long } _length = 0 -{ long } _leftInFile = 4 -{ long } _sopDir = 8 ' sector/offset "pointer" to directory entry -{ long } _sopTail = 12 ' sector/offset "pointer" to last cluster# in FAT chain -{ word } _cluster = 16 -{ word } _sector = 18 ' sector# within cluster; ranges from 0 to sectorsPerCluster-1 -{ word } _bp = 20 ' byte pointer (actually an index into the sector buffer); range [0..511] - _buffer = 24 - -SIZEOFIOBLOCK = SECTORSIZE + 24 - -dat - long -myMetadataBuffer byte 0[512] -myMetadataSector word -1 -dirty byte 0 -clusterShift byte 0 - -pri FlushMetadata - if dirty~ - writeblock( myMetadataSector, @myMetadataBuffer ) - -pri ReadMetadataSector( s ) - if myMetadataSector == s - return - FlushMetadata - readblock( myMetadataSector := s, @myMetadataBuffer ) -var - word bytesPerSector - byte sectorsPerCluster - word reservedSectors - byte numberOfFats - word sectorsPerFat - word numberOfRootDirectoryEntries - long fat1[0] - long fatSector0 - long dirSector0 - long dataregion[0] - long dataSector0 - -pri Delete | s, p, ch - s := dirSector0 - repeat numberOfRootDirectoryEntries >> 4 - p := @myMetadataBuffer - repeat 16 - ReadMetadataSector( s ) - ifnot byte[p] - return - if byte[p] == $e5 ' already deleted? - p += 32 - next - if byte[p][$0b] & $0f == 0 and Match( p, @dirstring, 11 ) - ifnot needConfirmation - term.str( string("Deleting ") ) - repeat 11 - term.out( byte[p++] ) - p -= 11 - term.out( " " ) - term.dec( PeekL( p + $1c ) ) - if needConfirmation - term.str( string(" -- delete? ") ) - ch := kb.getkey - term.out( ch ) - else - ch := "y" - if ch == "y" or ch == "Y" - byte[p] := $e5 ' mark as deleted - dirty~~ - term.out( 13 ) - p += 32 - ++s - FlushMetadata - -pri Match( p, q, n ) | c1, c2 - repeat n - c1 := byte[p++] - c2 := byte[q++] - if "a" =< c1 and c1 =< "z" - c1 += "A" - "a" - if "a" =< c2 and c2 =< "z" - c2 += "A" - "a" - if c2 == "?" - next - if c1 <> c2 - return false - return true - -pri MyMount | pbrSector ,i - pbrSector~ - repeat - ReadMetadataSector( pbrSector ) - if bytecomp( @myMetadataBuffer+$36, string("FAT16"), 5 ) - quit - if pbrSector - abort -20 ' not FAT16 - pbrSector := PeekL( @myMetadataBuffer + $1c6 ) - - bytesPerSector := PeekW( @myMetadataBuffer + $0b ) - sectorsPerCluster := myMetadataBuffer[$0d] - clusterShift := >| sectorsPerCluster - 1 - reservedSectors := PeekW( @myMetadataBuffer + $0e ) - numberOfFats := myMetadataBuffer[$10] - sectorsPerFat := PeekW( @myMetadataBuffer + $16 ) - numberOfRootDirectoryEntries := PeekW( @myMetadataBuffer + $11 ) - fatSector0 := pbrSector + reservedSectors - dirSector0 := fatSector0 + numberOfFats * sectorsPerFat - dataSector0 := dirSector0 + numberOfRootDirectoryEntries >> 4 - -pri bytecomp( p, q, n ) - repeat n - if byte[p++] <> byte[q++] - return - return true - -pri PeekW( a ) - return byte[a++] + byte[a] << 8 - -pri PeekL( a ) - return byte[a++] + byte[a++] << 8 + byte[a++] << 16 + byte[a] << 24 - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/dir.spn b/zubehör/sphinx/spinx100225-ori/sphinx1/dir.spn deleted file mode 100644 index d8472b0..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx1/dir.spn +++ /dev/null @@ -1,220 +0,0 @@ -' 2009-08-08 fixed off-by-one error in try - -SXTVRENDEZVOUS = $8000 - 4 -SXKBRENDEZVOUS = SXTVRENDEZVOUS - 4 -SDSPIRENDEZVOUS = SXKBRENDEZVOUS - 3 * 4 -SXFS2RENDEZVOUS = SDSPIRENDEZVOUS - 4 * 4 ' four rendezvous variables -SXFSRENDEZVOUS = SXFS2RENDEZVOUS - 4 * 4 ' four rendezvous variables -METADATABUFFER = SXFSRENDEZVOUS - 512 - -_free = ($8000 - METADATABUFFER) / 4 - -obj - term: "isxtv" - f: "sxfile" - -pub main | err - err := \try - if err > 0 - term.str( err ) - term.out( 13 ) - elseif err < 0 - term.str( string("error ") ) - term.dec( err ) - term.out( 13 ) - f.Close - f.Open( string("sphinx.bin"), "R" ) - f.Execute( 0 ) - -con -ARGSTRINGLENGTH = 12 ' 8 + . + 3 -DIRSTRINGLENGTH = 11 ' 8 + 3 - -var -byte argstring[ARGSTRINGLENGTH + 1] ' + null -byte dirstring[DIRSTRINGLENGTH + 1] ' + null (terminator not strictly necessary, but convenient for debug printing) - -pri try - f.Open( string("args.d8a"), "R" ) - if f.ReadByte - f.ReadString( @argstring, ARGSTRINGLENGTH ) - else - bytemove( @argstring, string("*.*"), 4 ) - f.Close - - ExpandWildcards - MyMount - PrintDir - -pri ExpandWildcards | i, j - i~ - j~ - bytefill( @dirstring, " ", DIRSTRINGLENGTH ) - dirstring[DIRSTRINGLENGTH]~ - - repeat while argstring[j] - if argstring[j] == "*" - if i < 8 - repeat - dirstring[i++] := "?" - until i == 8 - elseif i < 11 - repeat - dirstring[i++] := "?" - until i == 11 - else - abort string("bad wildcard") - elseif argstring[j] == "." - if i =< 8 - i := 8 - else - abort string("filename too long") - else - if i < DIRSTRINGLENGTH - dirstring[i++] := argstring[j] - else - abort string("filename too long") - ++j - -con -pCommand = SDSPIRENDEZVOUS -pParam = pCommand + 4 -pBlockno = pCommand + 8 - -pri readblock(n, b) -' -' Read a single block. The "n" passed in is the -' block number (blocks are 512 bytes); the b passed -' in is the address of 512 blocks to fill with the -' data. -' - long[pParam] := b - long[pBlockno] := n - long[pCommand] := "R" - repeat while long[pCommand] - if long[pParam] - abort long[pParam] - return 0 -pub writeblock(n, b) -' -' Write a single block. Mirrors the read above. -' - long[pParam] := b - long[pBlockno] := n - long[pCommand] := "W" - repeat while long[pCommand] - if long[pParam] - abort long[pParam] - return 0 - -con - SECTORSIZE = 512 - SECTORSHIFT = 9 - DIRSIZE = 32 - DIRSHIFT = 5 - -con - -{ long } _length = 0 -{ long } _leftInFile = 4 -{ long } _sopDir = 8 ' sector/offset "pointer" to directory entry -{ long } _sopTail = 12 ' sector/offset "pointer" to last cluster# in FAT chain -{ word } _cluster = 16 -{ word } _sector = 18 ' sector# within cluster; ranges from 0 to sectorsPerCluster-1 -{ word } _bp = 20 ' byte pointer (actually an index into the sector buffer); range [0..511] - _buffer = 24 - -SIZEOFIOBLOCK = SECTORSIZE + 24 - -dat - long -myMetadataBuffer byte 0[512] -myMetadataSector word -1 -dirty byte 0 -clusterShift byte 0 - -pri ReadMetadataSector( s ) - if myMetadataSector == s - return - readblock( myMetadataSector := s, @myMetadataBuffer ) -var - word bytesPerSector - byte sectorsPerCluster - word reservedSectors - byte numberOfFats - word sectorsPerFat - word numberOfRootDirectoryEntries - long fat1[0] - long fatSector0 - long dirSector0 - long dataregion[0] - long dataSector0 - -pri PrintDir | s, p, c - s := dirSector0 - repeat numberOfRootDirectoryEntries >> 4 - p := @myMetadataBuffer - repeat 16 - ReadMetadataSector( s ) - ifnot byte[p] - return - if byte[p] == $e5 - p += 32 - next - if byte[p][$0b] & $0f == 0 and Match( p, @dirstring, 11 ) - repeat 11 - term.out( byte[p++] ) - p -= 11 - term.out( " " ) - term.dec( PeekL( p + $1c ) ) - term.out( 13 ) - p += 32 - ++s - -pri Match( p, q, n ) | c1, c2 - repeat n - c1 := byte[p++] - c2 := byte[q++] - if "a" =< c1 and c1 =< "z" - c1 += "A" - "a" - if "a" =< c2 and c2 =< "z" - c2 += "A" - "a" - if c2 == "?" - next - if c1 <> c2 - return false - return true - -pri MyMount | pbrSector ,i - pbrSector~ - repeat - ReadMetadataSector( pbrSector ) - if bytecomp( @myMetadataBuffer+$36, string("FAT16"), 5 ) - quit - if pbrSector - abort -20 ' not FAT16 - pbrSector := PeekL( @myMetadataBuffer + $1c6 ) - - bytesPerSector := PeekW( @myMetadataBuffer + $0b ) - sectorsPerCluster := myMetadataBuffer[$0d] - clusterShift := >| sectorsPerCluster - 1 - reservedSectors := PeekW( @myMetadataBuffer + $0e ) - numberOfFats := myMetadataBuffer[$10] - sectorsPerFat := PeekW( @myMetadataBuffer + $16 ) - numberOfRootDirectoryEntries := PeekW( @myMetadataBuffer + $11 ) - fatSector0 := pbrSector + reservedSectors - dirSector0 := fatSector0 + numberOfFats * sectorsPerFat - dataSector0 := dirSector0 + numberOfRootDirectoryEntries >> 4 - -pri bytecomp( p, q, n ) - repeat n - if byte[p++] <> byte[q++] - return - return true - -pri PeekW( a ) - return byte[a++] + byte[a] << 8 - -pri PeekL( a ) - return byte[a++] + byte[a++] << 8 + byte[a++] << 16 + byte[a] << 24 - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/echo.spn b/zubehör/sphinx/spinx100225-ori/sphinx1/echo.spn deleted file mode 100644 index e9e4db1..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx1/echo.spn +++ /dev/null @@ -1,41 +0,0 @@ -_clkfreq = 80_000_000 -_clkmode = xtal1 + pll8x -obj - term: "isxtv" - f: "sxfile" -pub Main | e - Err( \Echo ) - Err( \Bye ) - -pri Err( e ) - ifnot e - return - if e < 0 - term.str( string("Error ") ) - term.dec( e ) - else - term.str( e ) - term.out( 13 ) - -con MAXARGSSIZE = 40 - -pub Echo | p, n - if f.Open( string("args.d8a"), "R" ) <> 0 - return - n := f.ReadByte - term.dec( n ) - term.str( string(" args", 13) ) - f.Read( @buffer, MAXARGSSIZE ) - f.Close - - p := @buffer - repeat while byte[p] - term.str( p ) - term.out( 13 ) - p += strsize(p) + 1 - -pub Bye - f.Open( string("sphinx.bin"), "R" ) - f.Execute( 0 ) - -var byte buffer[MAXARGSSIZE] \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/ed.spn b/zubehör/sphinx/spinx100225-ori/sphinx1/ed.spn deleted file mode 100644 index e06be23..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx1/ed.spn +++ /dev/null @@ -1,569 +0,0 @@ -{ - Simple text editor - 2009 -March - 5 started; basic screen drawing; cursor movement - 6 InsertChar, InsertCR, DeleteLeft/Right - 6 filename edit field - 6 file load, save -June - 9 Sphinxified - 30 Page up/down, minor cursor movement improvement -2010 -January - 29 Bug: Was dropping last character when reading a file that didn't end with CR/LF. Fixed. - -ENTER(CR) Carriage return -BKSP Delete to the left -DEL Delete to the right -?, ?, ?, ? Cursor movement -HOME Start of line -CTRL-HOME Start of file -END End of line -CTRL-END End of file -CTRL-O Open a file -CTRL-S Save to a file -CTRL-Q Quit to Sphinx -PGUP Page up -PGDN Page down - -to do: -block select, cut/copy/paste, find/replace, undo/redo - -} -obj - kb: "isxkb" - sxtv: "isxtv" - term: "tvtexted" - sd: "sxfile" - -var - byte x[10] - -pub Main | e - if e := \Try - if e > 0 - sxtv.str( e ) - else - sxtv.dec( e ) - sxtv.out( 13 ) - term.stop - sxtv.Enable - -pub Try | i, key, refresh, blink, t, done - sxtv.Disable - term.start( sxtv.GetBasepin ) - - Init - - Args - - done~ - blink~ - t := cnt - repeat - refresh~ - repeat while key := kb.key - refresh~~ - blink~ - case key - $20..$7f: InsertChar( key ) - CR: InsertCR - BKSP: DeleteLeft - DEL: DeleteRight - LARROW: MoveCursorLeft - RARROW: MoveCursorRight - UARROW: MoveCursorUp( false ) - DARROW: MoveCursorDown( false ) - HOME: MoveToStartOfLine - CTRL+HOME: MoveToTop - END: MoveToEndOfLine - CTRL+END: MoveToBottom - CTRL+"o": FileOp( OPEN, FALSE ) - CTRL+"s": FileOp( SAVE, FALSE ) - CTRL+"q": FileOp( SAVE, FALSE ) - done~~ - PGUP: PageCursorUp - PGDN: PageCursorDown - other: refresh~ - if cnt - t > 0 - refresh~~ - if refresh - RefreshScreen( blink ^= 1 ) - t := cnt + clkfreq/10 - until done - - term.stop - sxtv.Enable - - sd.Close - sd.Open( string("sphinx.bin"), "R" ) - sd.Execute( 0 ) - -pri Args - if sd.Open( string("args.d8a"), "R" ) == 0 - if sd.ReadByte - sd.ReadString( @filename, FILENAMEBUFFERSIZE-1 ) - sd.Close - FileOp( OPEN, true ) - sd.Close - -con - VISIBLELINES = 13 - VISIBLECOLUMNS = 40 -con - CR = $0d - LARROW = $c0 - RARROW = $c1 - UARROW = $c2 - DARROW = $c3 - HOME = $c4 - END = $c5 - PGUP = $c6 - PGDN = $c7 - BKSP = $c8 - DEL = $c9 - ESC = $cb - CTRL = $0200 - CTRL_ALT_DEL = $06c9 - -con - BUFFERSIZE = 20000 -var - long nLines - long firstVisibleLine - long firstVisibleColumn - long bytesUsed - long cursorLine - long cursorColumn - long desiredColumn - long cp - long currentLineLength - long topPtr ' points to start of first visible line - -pri InsertChar( ch ) | n - if cursorLine < nLines - if bytesUsed + 1 => BUFFERSIZE - return - else ' starting new line at end of file - if bytesUsed + 2 => BUFFERSIZE - return - buffer[bytesUsed++]~ ' terminating null for the new line - ++nLines - n := bytesUsed - (cp - @buffer) - bytemove( cp+1, cp, n ) - byte[cp] := ch - ++bytesUsed - ++currentLineLength - MoveCursorRight - -pri InsertCR | n - if cursorLine < nLines - if bytesUsed + 1 => BUFFERSIZE - return - else ' starting new line at end of file - if bytesUsed + 2 => BUFFERSIZE - return - buffer[bytesUsed++]~ ' terminating null for the new line - ++nLines - n := bytesUsed - (cp - @buffer) - bytemove( cp+1, cp, n ) - byte[cp]~ - ++bytesUsed - ++nLines - currentLineLength := cursorColumn - MoveCursorRight - -pri DeleteLeft - if cursorLine or cursorColumn - MoveCursorLeft - DeleteRight - -pri DeleteRight | n - if cursorLine == nLines ' can't delete if we're on the phantom line - return - if byte[cp] == 0 and cursorLine == nLines - 1 and cursorColumn - return ' can't delete if we're at the end of the last real line - ' unless we're at the start (start = end => empty line - ' which we can delete, making this line the new phantom line) - n := bytesUsed - (cp - @buffer) - 1 - ifnot byte[cp] - --nLines - bytemove( cp, cp+1, n ) - --bytesUsed - repeat while byte[--cp] - currentLineLength := strsize( ++cp ) - cp += cursorColumn - AdjustVisibleColumn - -pri MoveCursorLeft - if cursorColumn - desiredColumn := --cursorColumn - --cp - AdjustVisibleColumn - else - ifnot cursorLine - return - MoveCursorUp( true ) - -pri MoveCursorRight - if cursorColumn < currentLineLength - desiredColumn := ++cursorColumn - ++cp - AdjustVisibleColumn - else - if cursorLine == nLines - return - MoveCursorDown( true ) - -pri MoveCursorDown( f ) -' if f, also move cursor to start of line - if cursorLine == nLines - return - if ++cursorLine - firstVisibleLine => VISIBLELINES - ++firstVisibleLine - repeat while byte[topPtr++] - MoveCpToNextLine - if f - cursorColumn~ - desiredColumn~ - elseif cursorLine < nLines - cursorColumn := currentLineLength <# desiredColumn - else - cursorColumn~ - currentLineLength~ - cp += cursorColumn - AdjustVisibleColumn - -pri PageCursorDown - if firstVisibleLine + VISIBLELINES - 1 => nLines - return - repeat VISIBLELINES - 1 - repeat while byte[topPtr++] - ++firstVisibleLine - MoveCursorDown( false ) - -pri MoveCursorUp( f ) -' if f, also move cursor to end of line - ifnot cursorLine - return - if --cursorLine < firstVisibleLine - --firstVisibleLine - repeat while byte[--topPtr] - repeat while byte[--topPtr] - ++topPtr - MoveCpToPreviousLine - if f - cursorColumn := desiredColumn := currentLineLength - else - cursorColumn := currentLineLength <# desiredColumn - cp += cursorColumn - AdjustVisibleColumn - -pri PageCursorUp | n - n := firstVisibleLine <# VISIBLELINES - 1 - repeat n - repeat 2 - repeat while byte[--topPtr] - ++topPtr - --firstVisibleLine - MoveCursorUp( false ) - -pri MoveCpToNextLine - repeat while byte[cp++] - currentLineLength := strsize( cp ) - -pri MoveCpToPreviousLine - repeat while byte[--cp] - repeat while byte[--cp] - ++cp - currentLineLength := strsize( cp ) - -pri MoveToStartOfLine - cp -= cursorColumn - cursorColumn~ - desiredColumn~ - AdjustVisibleColumn - -pri MoveToEndOfLine - cp -= cursorColumn - cursorColumn := desiredColumn := currentLineLength - cp += currentLineLength - AdjustVisibleColumn - -pri MoveToTop - cp := topPtr := @buffer[1] - currentLineLength := strsize( cp ) - cursorLine~ - cursorColumn~ - desiredColumn~ - firstVisibleLine~ - firstVisibleColumn~ - -pri MoveToBottom ' cheesy implementation - MoveToTop - if nLines - repeat nLines-1 - MoveCursorDown( false ) - MoveToEndOfLine - -pri AdjustVisibleColumn - firstVisibleColumn~ - firstVisibleColumn #>= cursorColumn - VISIBLECOLUMNS + 1 - -var - byte buffer[BUFFERSIZE] - { buffer contains nLines null-terminated strings, with sentinel nulls at the beginning and end: - +-+---------+-+--------+-+- ---------+-+-+ - ¦0¦ line0 0¦ line1 0¦ ... lineN-1 0¦0¦ - +-+---------+-+--------+-+- ---------+-+-+ - } -pri Init - nLines~ - firstVisibleLine~ - firstVisibleColumn~ - bytesUsed := 2 - buffer[0]~ - buffer[1]~ - cursorLine~ - cursorColumn~ - desiredColumn~ - - currentLineLength~ - cp := topPtr := @buffer[1] - - eolLength := 2 - eol[0] := $0d - eol[1] := $0a - -pri RefreshScreen( drawCursor ) | p, len, m, n, l, beyondEnd - p := topPtr - beyondEnd~ - repeat l from 0 to VISIBLELINES-1 - term.setXY( 0, l ) - if firstVisibleLine + l => nLines - beyondEnd~~ - len~ - else - len := strsize( p ) - if len > firstVisibleColumn - m := (len - firstVisibleColumn) <# VISIBLECOLUMNS - p += firstVisibleColumn - repeat m-1 - term.out( byte[p++] ) - term.printNoAdvance( byte[p++] ) - term.setX( m ) - n := VISIBLECOLUMNS - m - if n - repeat n-1 - term.out( " " ) - term.printNoAdvance( " " ) - else - repeat VISIBLECOLUMNS-1 - term.out( " " ) - term.printNoAdvance( " " ) - ifnot beyondEnd - repeat while byte[p++] - if drawCursor - term.setXY( cursorColumn-firstVisibleColumn, cursorLine-firstVisibleLine ) - term.printNoAdvance( "_" ) - -con - #0, OPEN, SAVE ' File ops -' File errors - #1, FILE_TOO_BIG, CARD_FULL_MAYBE - - FILENAMEBUFFERSIZE = 13 ' 8.3 + null - -pri FileOp( op, t ) | e, i - if e := \_FileOp( op, t ) - RefreshScreen( false ) ' cursor off - term.setXY( 0, VISIBLELINES-1 ) - term.out( $0c ) ' set color - term.out( 1 ) - repeat VISIBLECOLUMNS-1 - term.out( " " ) - term.printNoAdvance( " " ) - term.setX( 0 ) - case e - FILE_TOO_BIG: term.str( string("File too large") ) - CARD_FULL_MAYBE: term.str( string("SD card full?") ) - -13: term.str( string("Unable to mount SD card") ) - other: - term.str( string("Error code ") ) - term.dec( e ) - kb.getkey - term.out( $0c ) ' set color - term.out( 0 ) - -pri _FileOp( op, t ) | r - case op - OPEN: - if t - ReadFile - elseif EditFilename - ReadFile - SAVE: - WriteFile - -pri ReadFile | r, p, pEnd - sd.Close - if r := sd.Open( @filename, "R" ) <> 0 - abort r - - Init - r := sd.Read( @buffer[1], BUFFERSIZE-2 ) - - if r < 0 - abort r - p := @buffer[1] - pEnd := @buffer[r+1] - repeat while p <> pEnd - if byte[p] == $0d or byte[p] == $0a ' change CR, LF, or CRLF - if byte[p] == $0d and byte[p+1] == $0a ' - eolLength := 2 ' - bytemove( p, p + 1, pEnd - p - 1 ) ' - --pEnd ' - else ' - eolLength := 1 ' - byte[p]~ ' to null - ++nLines - ++p - - if byte[pEnd-1] ' if byte[pEnd-1] isn't null, that means that the file didn't - byte[pEnd++]~ ' end with CR, LF, or CRLF, so we have to fake it. (fixed 2010/01/29 mp) - ++nLines - - byte[pEnd]~ ' add final null - bytesUsed := pEnd + 1 - @buffer - - currentLineLength := strsize( topPtr ) - - if r == BUFFERSIZE-2 - abort FILE_TOO_BIG ' technically we don't know that it's too big at this point, but it's a good guess. - if r := sd.Close - abort r - -pri WriteFile | p, len, r - ifnot EditFilename - return - sd.Close - if r := sd.Open( @filename, "W" ) - abort r - - p := @buffer[1] - repeat nLines - len := strsize( p ) - r := sd.Write( p, len ) - if r < 0 - abort r - if r <> len ' Does this ever happen? - abort CARD_FULL_MAYBE - - r := sd.Write( @eol, eolLength ) - if r < 0 - abort r - if r <> eolLength ' Does this ever happen? - abort CARD_FULL_MAYBE - p += len + 1 - - if (r := sd.Close) < 0 - abort r - -var - byte filename[FILENAMEBUFFERSIZE] - long filenameCursorColumn - long filenameLength - byte eolLength - byte eol[2] -con - EDITOFFSET = 10 ' filename edit field starts at column 10 - -pri EditFilename | t, key, blink, refresh - RefreshScreen( false ) ' cursor off - term.setXY( 0, VISIBLELINES-1 ) - term.out( $0c ) ' set color - term.out( 2 ) - repeat VISIBLECOLUMNS-1 - term.out( " " ) - term.printNoAdvance( " " ) - term.setX( 0 ) - term.str( string("Filename: ") ) - - filenameCursorColumn := filenameLength := strsize( @filename ) - blink~ - t := cnt - repeat - refresh~ - repeat while key := kb.key - refresh~~ - blink~ - case key - $20..$7f: FilenameInsertChar( key ) - CR: - term.out( $0c ) ' set color - term.out( 0 ) ' back to normal - return true - BKSP: - if filenameCursorColumn - filenameCursorColumn := (filenameCursorColumn - 1) #> 0 - FilenameDeleteRight - DEL: FilenameDeleteRight - LARROW: filenameCursorColumn := (filenameCursorColumn - 1) #> 0 - RARROW: filenameCursorColumn := (filenameCursorColumn + 1) <# filenameLength - ESC: - term.out( $0c ) ' set color - term.out( 0 ) ' back to normal - return false - other: refresh~ - if cnt - t > 0 - refresh~~ - if refresh - RefreshFilename( blink ^= 1 ) - t := cnt + clkfreq/10 - -pri RefreshFilename( drawCursor ) | i - term.setXY( EDITOFFSET, VISIBLELINES-1 ) - repeat i from 0 to FILENAMEBUFFERSIZE-1 - if drawCursor and i == filenameCursorColumn - term.out( "_" ) - else - if i < filenameLength - term.out( filename[i] ) - else - term.out( " " ) - -pri FilenameInsertChar( ch ) | n - if filenameLength => FILENAMEBUFFERSIZE-1 - return - n := filenameLength - filenameCursorColumn + 1 - bytemove( @filename[filenameCursorColumn+1], @filename[filenameCursorColumn], n ) - ++filenameLength - filename[filenameCursorColumn++] := ch - -pri FilenameDeleteRight | n - ifnot filenameLength - return - ifnot n := filenameLength - filenameCursorColumn - return - bytemove( @filename[filenameCursorColumn], @filename[filenameCursorColumn+1], n ) - --filenameLength - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/fdserial.sob b/zubehör/sphinx/spinx100225-ori/sphinx1/fdserial.sob deleted file mode 100644 index e89a53bcfcca67b104dbe2fcf63791983e98419d..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 791 zcmYjQ%}Z2K6hHU+p7Z97p}0`6uq>eo45nu@^TZ+Zdn8Sn89$ktkEZb%E`*F)xOfX| zkt(-4|mLS>;CmDytLD;|+{A&f;Yzo#t20@Dr0plE_VRU09w9)8(m9ApKqo zWR|r09d1Mz^ApVHKDt5`5b>MWxG}WO46@Fxho6~_zFz2gu)vJNMK%o!Q=6Be+h6D> z32v)iY;G67GyKy+7ds#Ay=adTERY50+d~1x)!L?l6DhJ<^%} zQ@wE}4a8ip>Ou1d<4hk&F+iLqapcB%&=+?}@P%tM#p_6lYnCl;9Bwn?{7odaH;(xm zf%MWuAoFH&=qu9;dmjC#y9af5Z1Mei)IdbqX?K#U!BJ;TwLLkJ-@P(p-L1X7ZR@l; zGA(*Yxhsn;bB=6Hr(HEyDIf~=W0?ximGB*R+mUQ>&sjrmN5*+A-K8|mj$u8l+mD-O zwX8kaP?XN+BY$!hDvTDGSow|IXG&l9DdPwWlacPX>c6nZ@1$wDh=|2Xq(YKNbXgZo z<`+r?S*BRKwU`&;z>k;i(E+Y{wui7%ANsA7KF9{_<&B1fBNK~6>QspND z=3&K2wX73Z75fp)sFH~-11m)3R GzrbHovmf~Y diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/gr_demo.spn b/zubehör/sphinx/spinx100225-ori/sphinx1/gr_demo.spn deleted file mode 100644 index 0dadc8c..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx1/gr_demo.spn +++ /dev/null @@ -1,246 +0,0 @@ -''***************************** -''* Graphics Demo v1.0 * -''* (C) 2005 Parallax, Inc. * -''***************************** - -CON - - _clkmode = xtal1 + pll8x - _xinfreq = 10_000_000 + 0000 - _stack = ($3000 + $3000 + 100) >> 2 'accomodate display memory and stack - - x_tiles = 16 - y_tiles = 12 - - paramcount = 14 - bitmap_base = $2000 - display_base = $5000 - - lines = 5 - thickness = 2 - -VAR - - long mousex, mousey - - long tv_status '0/1/2 = off/visible/invisible read-only - long tv_enable '0/? = off/on write-only - long tv_pins '%ppmmm = pins write-only - long tv_mode '%ccinp = chroma,interlace,ntsc/pal,swap write-only - long tv_screen 'pointer to screen (words) write-only - long tv_colors 'pointer to colors (longs) write-only - long tv_hc 'horizontal cells write-only - long tv_vc 'vertical cells write-only - long tv_hx 'horizontal cell expansion write-only - long tv_vx 'vertical cell expansion write-only - long tv_ho 'horizontal offset write-only - long tv_vo 'vertical offset write-only - long tv_broadcast 'broadcast frequency (Hz) write-only - long tv_auralcog 'aural fm cog write-only - - word screen[x_tiles * y_tiles] - long colors[64] - - byte x[lines] - byte y[lines] - byte xs[lines] - byte ys[lines] - -OBJ - - tv : "tv" - gr : "graphics" - mouse : "mouseiso" - - -PUB start | i, j, k, kk, dx, dy, pp, pq, rr, numx, numchr - - 'start tv - longmove(@tv_status, @tvparams, paramcount) - tv_screen := @screen - tv_colors := @colors - tv.start(@tv_status) - - 'init colors - repeat i from 0 to 64 - colors[i] := $00001010 * (i+4) & $F + $2B060C02 - - 'init tile screen - repeat dx from 0 to tv_hc - 1 - repeat dy from 0 to tv_vc - 1 - screen[dy * tv_hc + dx] := display_base >> 6 + dy + dx * tv_vc + ((dy & $3F) << 10) - - 'init bouncing lines - i := 1001 - j := 123123 - k := 8776434 - repeat i from 0 to lines - 1 - x[i] := ?j // 64 - y[i] := k? // 48 - repeat until xs[i] := k? ~> 29 - repeat until ys[i] := ?j ~> 29 - - 'start and setup graphics - gr.start - gr.setup(16, 12, 128, 96, bitmap_base) - - 'start mouse - mouse.start(2) - - repeat - - 'clear bitmap - gr.clear - - 'draw falling stars - gr.colorwidth(1,0) - kk := 100000 - repeat 8 - gr.vec(?kk & $FF - 128, (kk>>8 - k<<2) & $FF - 128, kk>>16 & $3F #> 20, kk->24 + k<<7, @vecdef2) - - 'draw spinning triangles - gr.colorwidth(3,0) - repeat i from 1 to 8 - gr.vec(0, 0, (k & $7F) << 3 + i << 5, k << 6 + i << 8, @vecdef) - - 'draw expanding mouse crosshairs - gr.colorwidth(2,k>>2) - mousex := mousex + mouse.delta_x #> -128 <# 127 - mousey := mousey + mouse.delta_y #> -96 <# 95 - gr.pix(mousex, mousey, k>>4 & $7, @pixdef) - - 'if left mouse button pressed, throw snowballs - if mouse.button(0) - gr.width(pq & $F) - gr.color(2) - pp := (pq & $F)*(pq & $F) + 5 - pq++ - gr.arc(mousex, mousey, pp, pp>>1, -k * 200, $200, 8, 0) - else - pq~ - - 'if right mouse button pressed, pause - repeat while mouse.button(1) - - 'draw expanding pixel halo - gr.colorwidth(1,k) - gr.arc(0,0,80,30,-k<<5,$2000/9,9,0) - - 'step bouncing lines - repeat i from 0 to lines - 1 - if ||~x[i] > 60 - -xs[i] - if ||~y[i] > 40 - -ys[i] - x[i] += xs[i] - y[i] += ys[i] - - 'draw bouncing lines - gr.colorwidth(1,thickness) - gr.plot(~x[0], ~y[0]) - repeat i from 1 to lines - 1 - gr.line(~x[i],~y[i]) - gr.line(~x[0], ~y[0]) - - 'draw spinning stars and revolving crosshairs and dogs - gr.colorwidth(2,0) - repeat i from 0 to 7 - gr.vecarc(80,50,30,30,-(i<<10+k<<6),$40,-(k<<7),@vecdef2) - gr.pixarc(-80,-40,30,30,i<<10+k<<6,0,@pixdef2) - gr.pixarc(-80,-40,20,20,-(i<<10+k<<6),0,@pixdef) - - 'draw small box with text - gr.colorwidth(1,14) - gr.box(60,-80,60,16) - gr.textmode(1,1,6,5) - gr.colorwidth(2,0) - gr.text(90,-72,@pchip) - - 'draw incrementing digit - if not ++numx & 3 - numchr++ - if numchr < "0" or numchr > "9" - numchr := "0" - gr.textmode(8,8,6,5) - gr.colorwidth(1,8) - gr.text(-90,50,@numchr) - - 'copy bitmap to display - gr.copy(display_base) - - 'increment counter that makes everything change - k++ - -DAT - -tvparams long 0 'status - long 1 'enable - long %011_0000 'pins - long %0000 'mode - long 0 'screen - long 0 'colors - long x_tiles 'hc - long y_tiles 'vc - long 10 'hx - long 1 'vx - long 0 'ho - long 0 'vo - long 60_000_000'_xinfreq<<4 'broadcast - long 0 'auralcog - -vecdef word $4000+$2000/3*0 'triangle - word 50 - word $8000+$2000/3*1+1 - word 50 - word $8000+$2000/3*2-1 - word 50 - word $8000+$2000/3*0 - word 50 - word 0 - -vecdef2 word $4000+$2000/12*0 'star - word 50 - word $8000+$2000/12*1 - word 20 - word $8000+$2000/12*2 - word 50 - word $8000+$2000/12*3 - word 20 - word $8000+$2000/12*4 - word 50 - word $8000+$2000/12*5 - word 20 - word $8000+$2000/12*6 - word 50 - word $8000+$2000/12*7 - word 20 - word $8000+$2000/12*8 - word 50 - word $8000+$2000/12*9 - word 20 - word $8000+$2000/12*10 - word 50 - word $8000+$2000/12*11 - word 20 - word $8000+$2000/12*0 - word 50 - word 0 - -pixdef word 'crosshair - byte 2,7,3,3 - word %%00333000,%%00000000 - word %%03020300,%%00000000 - word %%30020030,%%00000000 - word %%32222230,%%00000000 - word %%30020030,%%02000000 - word %%03020300,%%22200000 - word %%00333000,%%02000000 - -pixdef2 word 'dog - byte 1,4,0,3 - word %%20000022 - word %%02222222 - word %%02222200 - word %%02000200 - -pchip byte "Propeller",0 'text \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/graphics.sob b/zubehör/sphinx/spinx100225-ori/sphinx1/graphics.sob deleted file mode 100644 index 23ef517eaa04aeaa7c5510968829a4ba2f86acc0..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 4290 zcmY*c4^&Nct5(3C%IU`1P|ETrj9=s5q%I zd9%>Xvq=cW(m$&{C@R9-LU1~u^fq;vQ285dYbz*F+CodtskYWrSNisSFNr(LIrn|P z``vrL`}_XABt-?rR05x;1}_)wAw+_>J!(0rB|D0?6hCevgaOTt?1KD)LPA)?Pvqqk z=MoZz*py#T95}TjKku%%PS#dc@T-}2%HpeDFJJd zAt)|Hg=UWyW;tq-#byauI-?)gk~p3K4)EwFtlt5-_8kOcB6SFMn zBkMHQUl;|m5&R;_2*584huH{z5in{tf?pUHvl09vn+Y+Lh=qp$XmFr3m_r(K z&_RP4iGe!?GZF(YLdn705byz0gDzl((F05{I)M2_{+M2*k6A(Xh9G%EkUORXsbfZv zxgkj05aewL(l!KHZw-_=Y$jX9`XqWn9xW)uZ5-%I0)?}4)3PMyw z%S_Ny>uR{`JzP@7Bi{Po4H< z-*w&XTj!fmw5vMwN}u25S2z_8eM>3a=2}Qm`@V54DV*sY3P))wtTdi#Db*;P_!QUM zRc~!dP&idCy;9kwXe`yZ7Sdte%BvKxI~G@rP9tbkE>%k4MEZIk-0|ZL?dctw6+umx zD$zIYGAp~#PKq;KqjV}Yr480bV}mhP*}Wo4rgkV@kkPdTED{ro$9t1`*uKC<*c>vE}U1{lS+IFv1h zmM4=AEyasc;Y>NKY1PDnzN;*C!}O+U1+P4&N`T$GD&A#qxn&BMJ4)F*tx)vNbu20z zM&*Zh^sSmCV9TqNdPh!7()=&x)%^Oy$x3~rLg`w-`%?JjQhjSqgCe%*cIr3Vm(pI2 z&)EKL+IK~FQeQPpXWJfWc%)Gg+dH%2&ZedJ8#*0)LtBhdPsj~Bg=(}}Mk4PPdmNOP zH441<7?t%!p5P=60w--0=5D;0B^zj5vc%R4idFRj=Se(aV(SG}SiO);8YmCv)Ix($ z>SZ=t$m*XZs(!BCxS`;&+I{CPl94XTk9Jdj?4Oh$|CsUT^IerKBFnkeJS&RJN{ zGac9YiFYWM)Go}St@?)q3*l=PeMf0H+a_@6ug^{;h{qiC{qe(;A3jVQx?d119QY@z z7u23N!LMe@AA!419L*|Ab&QBIuIyXOrl3tXoSW>Yz=`swKcPHxTHwZeC}CPb_64Oq zC>;Umb0ekzKo4mBMsT5*QP6_-Z>>Ga* z_<~(|laMSsDDZ5PpkkV8%1-X16)Z@)k3OH~IA;mjo9XXtn4!&0Gj7T~dr+9$4YsD? zj_KeXGyTo5-q~R573PM5dB8Z09H-nU#BR(^S%we9DzRRuEvv7o`-tRQPQ6F@1NAkF z6As|>uE3peWR)@XqqT29OeT&7bbU}O+>x5HF4+HXsHwG3Q)fDsEEv-Pm~RWsA-)g` zers?Z3H9WGn1<$__i3A?T}U>x3moPFYXc?L26sr{{s#H|5bi}i-idk^?ma*%ET7sb zk9T8EJ>b)R*oX6HLw6s8m>#1X@_8$ydzvml>4#|>avg4Vhs(0J*H7e z8nn|=rv4@;X%y6hN2&S&;0%~&>V=2A_HNFHIfMNpufy3tL*2g-sB8JZgya)F)HVrr zzJNQSw~`s~YYgrgw^Pp3ljWWq?&dwCFox~?6Jk$yEaIz*9WQX%3zj^bqUEAaGy(1 zvm?-7pPz4AINQmGjS6$jyF#7scsI}V3fy$C-@fXhZswHW{JIb1X~8+!L))kNVDx0w zJ={~UI5}YFrv|$DSr5eYQ$d}?R9Mm=htvI(oAS`QNl!O7L%TWUfH3zkQ!TE|P|8ih z+7zr!_jhwiu!d(a)}bEEtE-v+3iAXx2^$l555@#~`3rki-36LfmkY6TgP-6l_Hp1|CQe?j0E zE&eNzLm$equj+*)=*2&PO#SFUpdVpJ;NK2M2>y-={iZ@SVwCV#;m3jh&)(zyH1N8Y zk+SKY*Sy=*+C?K*rqM@8jfb@U#I36}jBag)bWO(I$|_rC_@!HmRXsTwR;^#By8JTx zTOG4I+g9P%`k(8}+55!r8SO6Vn#w$@?bf5gbGaG$@j+VWB3u+YWk9e26(5Jw^YEPa=bNnkRgaZ+yjp~CdTjRf9#*jjKKWzJPUX9age-$cBi{h3ln_qfA z_+%@u00VJgrFuvKmg6)VqGD_n_jJsBMb$kWnZIVMx~HALmJuDRBhd-E#OU=pCR&>* zjphtdHM?{qVb@FWc&P>+!TBC=>i_2?VNYNkx9&lwcLnBqaQ?sZKqugWt;(-myj?E3 zg9Wg7yRsZzs}S{|felDsEFQ?j3XGujKCR!Ie#^W0mNz|9dJCfUOvZ+&y> 1 + 1 - - setcommand(_width, @w) 'do width command now to avoid updating slices when busy - - p := w ^ $F 'update slices to new shape/width - repeat i from 0 to w >> 1 - slices[i] := true >> (p << 1) << (p & $E) - if r and pixels[w] & |< i - p += 2 - if r and i == pixel_passes - 2 - p += 2 - - -PUB colorwidth(c, w) - -'' Set pixel color and width - - color(c) - width(w) - - -PUB plot(x, y) - -'' Plot point -'' -'' x,y - point - - setcommand(_plot, @x) - - -PUB line(x, y) - -'' Draw a line to point -'' -'' x,y - endpoint - - setcommand(_line, @x) - - -PUB arc(x, y, xr, yr, angle, anglestep, steps, arcmode) - -'' Draw an arc -'' -'' x,y - center of arc -'' xr,yr - radii of arc -'' angle - initial angle in bits[12..0] (0..$1FFF = 0°..359.956°) -'' anglestep - angle step in bits[12..0] -'' steps - number of steps (0 just leaves (x,y) at initial arc position) -'' arcmode - 0: plot point(s) -'' 1: line to point(s) -'' 2: line between points -'' 3: line from point(s) to center - - setcommand(_arc, @x) - - -PUB vec(x, y, vecscale, vecangle, vecdef_ptr) - -'' Draw a vector sprite -'' -'' x,y - center of vector sprite -'' vecscale - scale of vector sprite ($100 = 1x) -'' vecangle - rotation angle of vector sprite in bits[12..0] -'' vecdef_ptr - address of vector sprite definition -'' -'' -'' Vector sprite definition: -'' -'' word $8000|$4000+angle 'vector mode + 13-bit angle (mode: $4000=plot, $8000=line) -'' word length 'vector length -'' ... 'more vectors -'' ... -'' word 0 'end of definition - - setcommand(_vec, @x) - - -PUB vecarc(x, y, xr, yr, angle, vecscale, vecangle, vecdef_ptr) - -'' Draw a vector sprite at an arc position -'' -'' x,y - center of arc -'' xr,yr - radii of arc -'' angle - angle in bits[12..0] (0..$1FFF = 0°..359.956°) -'' vecscale - scale of vector sprite ($100 = 1x) -'' vecangle - rotation angle of vector sprite in bits[12..0] -'' vecdef_ptr - address of vector sprite definition - - setcommand(_vecarc, @x) - - -PUB pix(x, y, pixrot, pixdef_ptr) - -'' Draw a pixel sprite -'' -'' x,y - center of vector sprite -'' pixrot - 0: 0°, 1: 90°, 2: 180°, 3: 270°, +4: mirror -'' pixdef_ptr - address of pixel sprite definition -'' -'' -'' Pixel sprite definition: -'' -'' word 'word align, express dimensions and center, define pixels -'' byte xwords, ywords, xorigin, yorigin -'' word %%xxxxxxxx,%%xxxxxxxx -'' word %%xxxxxxxx,%%xxxxxxxx -'' word %%xxxxxxxx,%%xxxxxxxx -'' ... - - setcommand(_pix, @x) - - -PUB pixarc(x, y, xr, yr, angle, pixrot, pixdef_ptr) - -'' Draw a pixel sprite at an arc position -'' -'' x,y - center of arc -'' xr,yr - radii of arc -'' angle - angle in bits[12..0] (0..$1FFF = 0°..359.956°) -'' pixrot - 0: 0°, 1: 90°, 2: 180°, 3: 270°, +4: mirror -'' pixdef_ptr - address of pixel sprite definition - - setcommand(_pixarc, @x) - - -PUB text(x, y, string_ptr) | justx, justy - -'' Draw text -'' -'' x,y - text position (see textmode for sizing and justification) -'' string_ptr - address of zero-terminated string (it may be necessary to call .finish -'' immediately afterwards to prevent subsequent code from clobbering the -'' string as it is being drawn - - justify(string_ptr, @justx) 'justify string and draw text - setcommand(_text, @x) - - -PUB textarc(x, y, xr, yr, angle, string_ptr) | justx, justy - -'' Draw text at an arc position -'' -'' x,y - center of arc -'' xr,yr - radii of arc -'' angle - angle in bits[12..0] (0..$1FFF = 0°..359.956°) -'' string_ptr - address of zero-terminated string (it may be necessary to call .finish -'' immediately afterwards to prevent subsequent code from clobbering the -'' string as it is being drawn - - justify(string_ptr, @justx) 'justify string and draw text - setcommand(_textarc, @x) - - -PUB textmode(x_scale, y_scale, spacing, justification) - -'' Set text size and justification -'' -'' x_scale - x character scale, should be 1+ -'' y_scale - y character scale, should be 1+ -'' spacing - character spacing, 6 is normal -'' justification - bits[1..0]: 0..3 = left, center, right, left -'' bits[3..2]: 0..3 = bottom, center, top, bottom - - longmove(@text_xs, @x_scale, 4) 'retain high-level text data - - setcommand(_textmode, @x_scale) 'set text mode - - -PUB box(x, y, box_width, box_height) | x2, y2, pmin, pmax - -'' Draw a box with round/square corners, according to pixel width -'' -'' x,y - box left, box bottom - - if box_width > pixel_width and box_height > pixel_width - - pmax := pixel_width - (pmin := pixel_width >> 1) 'get pixel-half-min and pixel-half-max - - x += pmin 'adjust coordinates to accomodate width - y += pmin - x2 := x + box_width - 1 - pixel_width - y2 := y + box_height - 1 - pixel_width - - plot(x, y) 'plot round/square corners - plot(x, y2) - plot(x2, y) - plot(x2, y2) - - fill(x, y2 + pmax, 0, (x2 - x) << 16, 0, 0, pmax) 'fill gaps - fill(x, y, 0, (x2 - x) << 16, 0, 0, pmin) - fill(x - pmin, y2, 0, (x2 - x + pixel_width) << 16, 0, 0, y2 - y) - - -PUB quad(x1, y1, x2, y2, x3, y3, x4, y4) - -'' Draw a solid quadrilateral -'' vertices must be ordered clockwise or counter-clockwise - - tri(x1, y1, x2, y2, x3, y3) 'draw two triangle to make 4-sides polygon - tri(x3, y3, x4, y4, x1, y1) - - -PUB tri(x1, y1, x2, y2, x3, y3) | xy[2] - -'' Draw a solid triangle - -' reorder vertices by descending y - - case (y1 => y2) & %100 | (y2 => y3) & %010 | (y1 => y3) & %001 - %000: - longmove(@xy, @x1, 2) - longmove(@x1, @x3, 2) - longmove(@x3, @xy, 2) - %010: - longmove(@xy, @x1, 2) - longmove(@x1, @x2, 4) - longmove(@x3, @xy, 2) - %011: - longmove(@xy, @x1, 2) - longmove(@x1, @x2, 2) - longmove(@x2, @xy, 2) - %100: - longmove(@xy, @x3, 2) - longmove(@x2, @x1, 4) - longmove(@x1, @xy, 2) - %101: - longmove(@xy, @x2, 2) - longmove(@x2, @x3, 2) - longmove(@x3, @xy, 2) - -' draw triangle - - fill(x1, y1, (x3 - x1) << 16 / (y1 - y3 + 1), (x2 - x1) << 16 / (y1 - y2 + 1), (x3 - x2) << 16 / (y2 - y3 + 1), y1 - y2, y1 - y3) - - -PUB finish - -'' Wait for any current graphics command to finish -'' use this to insure that it is safe to manually manipulate the bitmap - - setcommand(_loop, 0) 'make sure last command finished - - -PRI fill(x, y, da, db, db2, linechange, lines_minus_1) - - setcommand(_fill, @x) - - -PRI justify(string_ptr, justptr) | x - - x := (strsize(string_ptr) - 1) * text_xs * text_sp + text_xs * 5 - 1 - long[justptr] := -lookupz(text_just >> 2 & 3: 0, x >> 1, x, 0) - long[justptr][1] := -lookupz(text_just & 3: 0, text_ys << 3, text_ys << 4, 0) - - -PRI setcommand(cmd, argptr) - - command := cmd << 16 + argptr 'write command and pointer - repeat while command 'wait for command to be cleared, signifying receipt - - -CON - - ' Vector font primitives - - xa0 = %000 << 0 'x line start / arc center - xa1 = %001 << 0 - xa2 = %010 << 0 - xa3 = %011 << 0 - xa4 = %100 << 0 - xa5 = %101 << 0 - xa6 = %110 << 0 - xa7 = %111 << 0 - - ya0 = %0000 << 3 'y line start / arc center - ya1 = %0001 << 3 - ya2 = %0010 << 3 - ya3 = %0011 << 3 - ya4 = %0100 << 3 - ya5 = %0101 << 3 - ya6 = %0110 << 3 - ya7 = %0111 << 3 - ya8 = %1000 << 3 - ya9 = %1001 << 3 - yaA = %1010 << 3 - yaB = %1011 << 3 - yaC = %1100 << 3 - yaD = %1101 << 3 - yaE = %1110 << 3 - yaF = %1111 << 3 - - xb0 = %000 << 7 'x line end - xb1 = %001 << 7 - xb2 = %010 << 7 - xb3 = %011 << 7 - xb4 = %100 << 7 - xb5 = %101 << 7 - xb6 = %110 << 7 - xb7 = %111 << 7 - - yb0 = %0000 << 10 'y line end - yb1 = %0001 << 10 - yb2 = %0010 << 10 - yb3 = %0011 << 10 - yb4 = %0100 << 10 - yb5 = %0101 << 10 - yb6 = %0110 << 10 - yb7 = %0111 << 10 - yb8 = %1000 << 10 - yb9 = %1001 << 10 - ybA = %1010 << 10 - ybB = %1011 << 10 - ybC = %1100 << 10 - ybD = %1101 << 10 - ybE = %1110 << 10 - ybF = %1111 << 10 - - ax1 = %0 << 7 'x arc radius - ax2 = %1 << 7 - - ay1 = %00 << 8 'y arc radius - ay2 = %01 << 8 - ay3 = %10 << 8 - ay4 = %11 << 8 - - a0 = %0000 << 10 'arc start/length - a1 = %0001 << 10 'bits[1..0] = start (0..3 = 0°, 90°, 180°, 270°) - a2 = %0010 << 10 'bits[3..2] = length (0..3 = 360°, 270°, 180°, 90°) - a3 = %0011 << 10 - a4 = %0100 << 10 - a5 = %0101 << 10 - a6 = %0110 << 10 - a7 = %0111 << 10 - a8 = %1000 << 10 - a9 = %1001 << 10 - aA = %1010 << 10 - aB = %1011 << 10 - aC = %1100 << 10 - aD = %1101 << 10 - aE = %1110 << 10 - aF = %1111 << 10 - - fline = %0 << 14 'line command - farc = %1 << 14 'arc command - - more = %1 << 15 'another arc/line - - -DAT - -' Color codes - -colors long %%0000000000000000 - long %%1111111111111111 - long %%2222222222222222 - long %%3333333333333333 - -' Round pixel recipes - -pixels byte %00000000,%00000000,%00000000,%00000000 '0,1,2,3 - byte %00000000,%00000000,%00000010,%00000101 '4,5,6,7 - byte %00001010,%00001010,%00011010,%00011010 '8,9,A,B - byte %00110100,%00111010,%01110100,%01110100 'C,D,E,F - -' Vector font - standard ascii characters ($21-$7E) - -font word fline + xa2 + yaC + xb2 + yb7 + more '! - word fline + xa2 + ya5 + xb2 + yb4 - - word fline + xa1 + yaD + xb1 + ybC + more '" - word fline + xa3 + yaD + xb3 + ybC - - word fline + xa1 + yaA + xb1 + yb6 + more '# - word fline + xa3 + yaA + xb3 + yb6 + more - word fline + xa0 + ya9 + xb4 + yb9 + more - word fline + xa0 + ya7 + xb4 + yb7 - - word farc + xa2 + ya9 + a9 + ax2 + ay1 + more '$ - word farc + xa2 + ya7 + aB + ax2 + ay1 + more - word fline + xa0 + ya6 + xb2 + yb6 + more - word fline + xa2 + yaA + xb4 + ybA + more - word fline + xa2 + yaA + xb2 + ybB + more - word fline + xa2 + ya6 + xb2 + yb5 - - word farc + xa1 + yaA + a0 + ax1 + ay1 + more '% - word farc + xa3 + ya6 + a0 + ax1 + ay1 + more - word fline + xa0 + ya6 + xb4 + ybA - - word farc + xa2 + yaA + a7 + ax1 + ay1 + more '& - word farc + xa2 + ya7 + a5 + ax2 + ay2 + more - word fline + xa1 + yaA + xb4 + yb5 - - word fline + xa2 + yaD + xb2 + ybC ' ' - - word farc + xa3 + ya9 + aD + ax1 + ay4 + more '( - word farc + xa3 + ya7 + aE + ax1 + ay4 + more - word fline + xa2 + ya7 + xb2 + yb9 - - word farc + xa1 + ya9 + aC + ax1 + ay4 + more ') - word farc + xa1 + ya7 + aF + ax1 + ay4 + more - word fline + xa2 + ya7 + xb2 + yb9 - - word fline + xa4 + ya6 + xb0 + ybA + more '* - word fline + xa0 + ya6 + xb4 + ybA + more - word fline + xa2 + yaB + xb2 + yb5 - - word fline + xa0 + ya8 + xb4 + yb8 + more '+ - word fline + xa2 + yaA + xb2 + yb6 - - word fline + xa2 + ya4 + xb1 + yb3 ', - - word fline + xa0 + ya8 + xb4 + yb8 '- - - word fline + xa2 + ya5 + xb2 + yb4 '. - - word fline + xa0 + ya4 + xb4 + ybC '/ - - word farc + xa2 + ya8 + a0 + ax2 + ay4 '0 - - word fline + xa0 + ya4 + xb4 + yb4 + more '1 - word fline + xa2 + ya4 + xb2 + ybC + more - word fline + xa0 + yaA + xb2 + ybC - - word farc + xa2 + yaA + a8 + ax2 + ay2 + more '2 - word farc + xa2 + yaA + aF + ax2 + ay3 + more - word farc + xa2 + ya4 + aD + ax2 + ay3 + more - word fline + xa0 + ya4 + xb4 + yb4 - - word farc + xa2 + yaA + a7 + ax2 + ay2 + more '3 - word farc + xa2 + ya6 + a6 + ax2 + ay2 - - word fline + xa2 + yaC + xb0 + yb7 + more '4 - word fline + xa0 + ya7 + xb4 + yb7 + more - word fline + xa3 + ya4 + xb3 + yb8 - - word farc + xa2 + ya6 + aB + ax2 + ay2 + more '5 - word fline + xa4 + yaC + xb0 + ybC + more - word fline + xa0 + yaC + xb0 + yb8 + more - word fline + xa0 + ya8 + xb2 + yb8 + more - word fline + xa0 + ya4 + xb2 + yb4 - - word farc + xa2 + ya6 + a0 + ax2 + ay2 + more '6 - word farc + xa2 + ya8 + aD + ax2 + ay4 + more - word fline + xa0 + ya6 + xb0 + yb8 + more - word fline + xa2 + yaC + xb3 + ybC - - word fline + xa0 + yaC + xb4 + ybC + more '7 - word fline + xa1 + ya4 + xb4 + ybC - - word farc + xa2 + ya6 + a0 + ax2 + ay2 + more '8 - word farc + xa2 + yaA + a0 + ax2 + ay2 - - word farc + xa2 + yaA + a0 + ax2 + ay2 + more '9 - word farc + xa2 + ya8 + aF + ax2 + ay4 + more - word fline + xa4 + ya8 + xb4 + ybA + more - word fline + xa1 + ya4 + xb2 + yb4 - - word fline + xa2 + ya6 + xb2 + yb7 + more ': - word fline + xa2 + yaA + xb2 + yb9 - - word fline + xa2 + ya4 + xb1 + yb3 + more '; - word fline + xa2 + ya8 + xb2 + yb7 - - word fline + xa0 + ya8 + xb4 + ybA + more '< - word fline + xa0 + ya8 + xb4 + yb6 - - word fline + xa0 + yaA + xb4 + ybA + more '= - word fline + xa0 + ya6 + xb4 + yb6 - - word fline + xa4 + ya8 + xb0 + ybA + more '> - word fline + xa4 + ya8 + xb0 + yb6 - - word farc + xa2 + yaB + a8 + ax2 + ay1 + more '? - word farc + xa3 + yaB + aF + ax1 + ay2 + more - word farc + xa3 + ya7 + aD + ax1 + ay2 + more - word fline + xa2 + ya5 + xb2 + yb4 - - word farc + xa2 + ya8 + a0 + ax1 + ay1 + more '@ - word farc + xa2 + ya8 + a4 + ax2 + ay3 + more - word farc + xa3 + ya8 + aF + ax1 + ay1 + more - word farc + xa2 + ya6 + aF + ax2 + ay1 + more - word fline + xa3 + ya7 + xb3 + yb9 - - word farc + xa2 + yaA + a8 + ax2 + ay2 + more 'A - word fline + xa0 + ya4 + xb0 + ybA + more - word fline + xa4 + ya4 + xb4 + ybA + more - word fline + xa0 + ya8 + xb4 + yb8 - - word farc + xa2 + yaA + aB + ax2 + ay2 + more 'B - word farc + xa2 + ya6 + aB + ax2 + ay2 + more - word fline + xa0 + ya4 + xb0 + ybC + more - word fline + xa0 + ya4 + xb2 + yb4 + more - word fline + xa0 + ya8 + xb2 + yb8 + more - word fline + xa0 + yaC + xb2 + ybC - - word farc + xa2 + yaA + a8 + ax2 + ay2 + more 'C - word farc + xa2 + ya6 + aA + ax2 + ay2 + more - word fline + xa0 + ya6 + xb0 + ybA - - word farc + xa2 + yaA + aC + ax2 + ay2 + more 'D - word farc + xa2 + ya6 + aF + ax2 + ay2 + more - word fline + xa0 + ya4 + xb0 + ybC + more - word fline + xa4 + ya6 + xb4 + ybA + more - word fline + xa0 + ya4 + xb2 + yb4 + more - word fline + xa0 + yaC + xb2 + ybC - - word fline + xa0 + ya4 + xb0 + ybC + more 'E - word fline + xa0 + ya4 + xb4 + yb4 + more - word fline + xa0 + ya8 + xb3 + yb8 + more - word fline + xa0 + yaC + xb4 + ybC - - word fline + xa0 + ya4 + xb0 + ybC + more 'F - word fline + xa0 + ya8 + xb3 + yb8 + more - word fline + xa0 + yaC + xb4 + ybC - - word farc + xa2 + yaA + a8 + ax2 + ay2 + more 'G - word farc + xa2 + ya6 + aA + ax2 + ay2 + more - word fline + xa0 + ya6 + xb0 + ybA + more - word fline + xa4 + ya4 + xb4 + yb7 + more - word fline + xa3 + ya7 + xb4 + yb7 - - word fline + xa0 + ya4 + xb0 + ybC + more 'H - word fline + xa4 + ya4 + xb4 + ybC + more - word fline + xa0 + ya8 + xb4 + yb8 - - word fline + xa2 + ya4 + xb2 + ybC + more 'I - word fline + xa0 + ya4 + xb4 + yb4 + more - word fline + xa0 + yaC + xb4 + ybC - - word farc + xa2 + ya6 + aA + ax2 + ay2 + more 'J - word fline + xa4 + ya6 + xb4 + ybC - - word fline + xa0 + ya4 + xb0 + ybC + more 'K - word fline + xa4 + yaC + xb0 + yb8 + more - word fline + xa4 + ya4 + xb0 + yb8 - - word fline + xa0 + ya4 + xb0 + ybC + more 'L - word fline + xa0 + ya4 + xb4 + yb4 - - word fline + xa0 + ya4 + xb0 + ybC + more 'M - word fline + xa4 + ya4 + xb4 + ybC + more - word fline + xa2 + ya8 + xb0 + ybC + more - word fline + xa2 + ya8 + xb4 + ybC - - word fline + xa0 + ya4 + xb0 + ybC + more 'N - word fline + xa4 + ya4 + xb4 + ybC + more - word fline + xa4 + ya4 + xb0 + ybC - - word farc + xa2 + yaA + a8 + ax2 + ay2 + more '0 - word farc + xa2 + ya6 + aA + ax2 + ay2 + more - word fline + xa0 + ya6 + xb0 + ybA + more - word fline + xa4 + ya6 + xb4 + ybA - - word farc + xa2 + yaA + aB + ax2 + ay2 + more 'P - word fline + xa0 + ya4 + xb0 + ybC + more - word fline + xa0 + ya8 + xb2 + yb8 + more - word fline + xa0 + yaC + xb2 + ybC - - word farc + xa2 + yaA + a8 + ax2 + ay2 + more 'Q - word farc + xa2 + ya6 + aA + ax2 + ay2 + more - word fline + xa0 + ya6 + xb0 + ybA + more - word fline + xa4 + ya6 + xb4 + ybA + more - word fline + xa2 + ya6 + xb4 + yb3 - - word farc + xa2 + yaA + aB + ax2 + ay2 + more 'R - word fline + xa0 + ya4 + xb0 + ybC + more - word fline + xa0 + ya8 + xb2 + yb8 + more - word fline + xa0 + yaC + xb2 + ybC + more - word fline + xa4 + ya4 + xb2 + yb8 - - word farc + xa2 + yaA + a4 + ax2 + ay2 + more 'S - word farc + xa2 + ya6 + a6 + ax2 + ay2 - - word fline + xa2 + ya4 + xb2 + ybC + more 'T - word fline + xa0 + yaC + xb4 + ybC - - word farc + xa2 + ya6 + aA + ax2 + ay2 + more 'U - word fline + xa0 + ya6 + xb0 + ybC + more - word fline + xa4 + ya6 + xb4 + ybC - - word fline + xa2 + ya4 + xb0 + ybC + more 'V - word fline + xa2 + ya4 + xb4 + ybC - - word fline + xa0 + yaC + xb0 + yb4 + more 'W - word fline + xa4 + yaC + xb4 + yb4 + more - word fline + xa2 + ya8 + xb0 + yb4 + more - word fline + xa2 + ya8 + xb4 + yb4 - - word fline + xa4 + ya4 + xb0 + ybC + more 'X - word fline + xa0 + ya4 + xb4 + ybC - - word fline + xa0 + yaC + xb2 + yb8 + more 'Y - word fline + xa4 + yaC + xb2 + yb8 + more - word fline + xa2 + ya4 + xb2 + yb8 - - word fline + xa0 + yaC + xb4 + ybC + more 'Z - word fline + xa0 + ya4 + xb4 + ybC + more - word fline + xa0 + ya4 + xb4 + yb4 - - word fline + xa2 + yaD + xb2 + yb3 + more '[ - word fline + xa2 + yaD + xb4 + ybD + more - word fline + xa2 + ya3 + xb4 + yb3 - - word fline + xa4 + ya4 + xb0 + ybC '\ - - word fline + xa2 + yaD + xb2 + yb3 + more '[ - word fline + xa2 + yaD + xb0 + ybD + more - word fline + xa2 + ya3 + xb0 + yb3 - - word fline + xa2 + yaA + xb0 + yb6 + more '^ - word fline + xa2 + yaA + xb4 + yb6 - - word fline + xa0 + ya1 + xa4 + yb1 '_ - - word fline + xa1 + ya9 + xb3 + yb7 '` - - word farc + xa2 + ya6 + a0 + ax2 + ay2 + more 'a - word fline + xa4 + ya4 + xb4 + yb8 - - word farc + xa2 + ya6 + a0 + ax2 + ay2 + more 'b - word fline + xa0 + ya4 + xb0 + ybC - - word farc + xa2 + ya6 + a9 + ax2 + ay2 + more 'c - word fline + xa2 + ya4 + xb4 + yb4 + more - word fline + xa2 + ya8 + xb4 + yb8 - - word farc + xa2 + ya6 + a0 + ax2 + ay2 + more 'd - word fline + xa4 + ya4 + xb4 + ybC - - word farc + xa2 + ya6 + a4 + ax2 + ay2 + more 'e - word fline + xa0 + ya6 + xb4 + yb6 + more - word fline + xa2 + ya4 + xb4 + yb4 - - word farc + xa4 + yaA + aD + ax2 + ay2 + more 'f - word fline + xa0 + ya8 + xb4 + yb8 + more - word fline + xa2 + ya4 + xb2 + ybA - - word farc + xa2 + ya6 + a0 + ax2 + ay2 + more 'g - word farc + xa2 + ya3 + aF + ax2 + ay2 + more - word fline + xa4 + ya3 + xb4 + yb8 + more - word fline + xa1 + ya1 + xb2 + yb1 - - word farc + xa2 + ya6 + a8 + ax2 + ay2 + more 'h - word fline + xa0 + ya4 + xb0 + ybC + more - word fline + xa4 + ya4 + xb4 + yb6 - - word fline + xa1 + ya4 + xb3 + yb4 + more 'i - word fline + xa2 + ya4 + xb2 + yb8 + more - word fline + xa1 + ya8 + xb2 + yb8 + more - word fline + xa2 + yaB + xb2 + ybA - - word farc + xa0 + ya3 + aF + ax2 + ay2 + more 'j - word fline + xa2 + ya3 + xb2 + yb8 + more - word fline + xa1 + ya8 + xb2 + yb8 + more - word fline + xa2 + yaB + xb2 + ybA - - word fline + xa0 + ya4 + xb0 + ybC + more 'k - word fline + xa0 + ya6 + xb2 + yb6 + more - word fline + xa2 + ya6 + xb4 + yb8 + more - word fline + xa2 + ya6 + xb4 + yb4 - - word fline + xa1 + ya4 + xb3 + yb4 + more 'l - word fline + xa2 + ya4 + xb2 + ybC + more - word fline + xa1 + yaC + xb2 + ybC - - word farc + xa1 + ya7 + a8 + ax1 + ay1 + more 'm - word farc + xa3 + ya7 + a8 + ax1 + ay1 + more - word fline + xa0 + ya4 + xb0 + yb8 + more - word fline + xa2 + ya4 + xb2 + yb7 + more - word fline + xa4 + ya4 + xb4 + yb7 - - word farc + xa2 + ya6 + a8 + ax2 + ay2 + more 'n - word fline + xa0 + ya4 + xb0 + yb8 + more - word fline + xa4 + ya4 + xb4 + yb6 - - word farc + xa2 + ya6 + a0 + ax2 + ay2 'o - - word farc + xa2 + ya6 + a0 + ax2 + ay2 + more 'p - word fline + xa0 + ya1 + xb0 + yb8 - - word farc + xa2 + ya6 + a0 + ax2 + ay2 + more 'q - word fline + xa4 + ya1 + xb4 + yb8 - - word farc + xa2 + ya7 + a8 + ax2 + ay1 + more 'r - word fline + xa0 + ya4 + xb0 + yb8 - - word farc + xa2 + ya7 + a9 + ax2 + ay1 + more 's - word farc + xa2 + ya5 + aB + ax2 + ay1 + more - word fline + xa0 + ya4 + xb2 + yb4 + more - word fline + xa2 + ya8 + xb4 + yb8 - - word farc + xa4 + ya6 + aE + ax2 + ay2 + more 't - word fline + xa0 + ya8 + xb4 + yb8 + more - word fline + xa2 + ya6 + xb2 + ybA - - word farc + xa2 + ya6 + aA + ax2 + ay2 + more 'u - word fline + xa0 + ya6 + xb0 + yb8 + more - word fline + xa4 + ya4 + xb4 + yb8 - - word fline + xa0 + ya8 + xb2 + yb4 + more 'v - word fline + xa4 + ya8 + xb2 + yb4 - - word farc + xa1 + ya5 + aA + ax1 + ay1 + more 'w - word farc + xa3 + ya5 + aA + ax1 + ay1 + more - word fline + xa0 + ya5 + xb0 + yb8 + more - word fline + xa2 + ya5 + xb2 + yb6 + more - word fline + xa4 + ya5 + xb4 + yb8 - - word fline + xa0 + ya8 + xb4 + yb4 + more 'x - word fline + xa0 + ya4 + xb4 + yb8 - - word farc + xa2 + ya6 + aA + ax2 + ay2 + more 'y - word farc + xa2 + ya3 + aF + ax2 + ay2 + more - word fline + xa4 + ya3 + xb4 + yb8 + more - word fline + xa0 + ya6 + xb0 + yb8 + more - word fline + xa1 + ya1 + xb2 + yb1 - - word fline + xa0 + ya8 + xb4 + yb8 + more 'z - word fline + xa4 + ya8 + xb0 + yb4 + more - word fline + xa0 + ya4 + xb4 + yb4 - - word farc + xa3 + yaA + aD + ax1 + ay3 + more '{ - word farc + xa1 + ya6 + aC + ax1 + ay2 + more - word farc + xa1 + yaA + aF + ax1 + ay2 + more - word farc + xa3 + ya6 + aE + ax1 + ay3 - - word fline + xa2 + ya3 + xb2 + ybD '| - - word farc + xa1 + yaA + aC + ax1 + ay3 + more '} - word farc + xa3 + ya6 + aD + ax1 + ay2 + more - word farc + xa3 + yaA + aE + ax1 + ay2 + more - word farc + xa1 + ya6 + aF + ax1 + ay3 - - word farc + xa1 + ya8 + a8 + ax1 + ay1 + more '~ - word farc + xa3 + ya8 + aA + ax1 + ay1 - -' Vector font - custom characters ($7F+) - - word fline + xa2 + ya9 + xb0 + yb4 + more 'delta - word fline + xa2 + ya9 + xb4 + yb4 + more - word fline + xa0 + ya4 + xb4 + yb4 - - word farc + xa2 + ya7 + a8 + ax2 + ay2 + more 'omega - word farc + xa1 + ya7 + aE + ax1 + ay2 + more - word farc + xa3 + ya7 + aF + ax1 + ay2 + more - word fline + xa1 + ya5 + xb1 + yb4 + more - word fline + xa3 + ya5 + xb3 + yb4 + more - word fline + xa0 + ya4 + xb1 + yb4 + more - word fline + xa4 + ya4 + xb3 + yb4 - - word farc + xa2 + ya8 + a0 + ax1 + ay1 'bullet - -CON fx = 3 'number of custom characters - -DAT - -'************************************* -'* Assembly language graphics driver * -'************************************* - - org -' -' -' Graphics driver - main loop -' -loop rdlong t1,par wz 'wait for command - if_z jmp #loop - - movd :arg,#arg0 'get 8 arguments - mov t2,t1 - mov t3,#8 -:arg rdlong arg0,t2 - add :arg,d0 - add t2,#4 - djnz t3,#:arg - - wrlong zero,par 'zero command to signify received - - call #setd 'set dx,dy from arg0,arg1 - - ror t1,#16+2 'lookup command address - add t1,#jumps - movs :table,t1 - rol t1,#2 - shl t1,#3 -:table mov t2,0 - shr t2,t1 - and t2,#$FF - jmp t2 'jump to command - - -jumps byte 0 '0 - byte setup_ '1 - byte color_ '2 - byte width_ '3 - byte plot_ '4 - byte line_ '5 - byte arc_ '6 - byte vec_ '7 - byte vecarc_ '8 - byte pix_ '9 - byte pixarc_ 'A - byte text_ 'B - byte textarc_ 'C - byte textmode_ 'D - byte fill_ 'E - byte loop 'F -' -' -' setup(x_tiles, y_tiles*16, x_origin, y_origin, base_ptr) bases_ptr, slices_ptr -' -setup_ mov xlongs,arg0 'set xlongs, ylongs - mov ylongs,arg1 - mov xorigin,arg2 'set xorigin, yorigin - mov yorigin,arg3 - mov basesptr,arg5 'set pointers - mov slicesptr,arg6 - - jmp #loop -' -' -' color(c) -' -color_ mov pcolor,arg0 'set pixel color - - jmp #loop -' -' -' width(w) pixel_passes -' -width_ mov pwidth,arg0 'set pixel width - mov passes,arg1 'set pixel passes - - jmp #loop -' -' -' plot(x, y) -' -plot_ call #plotd - - jmp #loop -' -' -' line(x, y) -' -line_ call #linepd - - jmp #loop -' -' -' arc(x, y, xr, yr, angle, anglestep, iterations, mode) -' -arc_ and arg7,#3 'limit mode - -:loop call #arca 'get arc dx,dy - - cmp arg7,#1 wz 'if not mode 1, set px,py - if_nz mov px,dx - if_nz mov py,dy - - tjz arg6,#loop 'if no points exit with new px,py - - cmp arg7,#3 wz 'if mode 3, set center - if_z call #setd - - test arg7,#1 wz 'if mode 0 or 2, plot point - if_z call #plotp - - test arg7,#1 wz 'if mode 1 or 3, plot line - if_nz call #linepd - - cmp arg7,#2 wz 'if mode 2, set mode 1 - if_z mov arg7,#1 - - add arg4,arg5 'step angle - djnz arg6,#:loop 'loop if more iterations - - jmp #loop -' -' -' vec(x, y, vecscale, vecangle, vecdef_ptr) -' vecarc(x, y, xr, yr, angle, vecscale, vecangle, vecdef_ptr) -' -' vecdef: word $8000/$4000+angle 'vector mode + 13-bit angle (mode: $4000=plot, $8000=line) -' word length 'vector length -' ... 'more vectors -' ... -' word 0 'end of definition -' -vecarc_ call #arcmod - -vec_ tjz arg2,#loop 'if scale 0, exit - -:loop rdword t7,arg4 wz 'get vector mode+angle - add arg4,#2 - - if_z jmp #loop 'if mode+angle 0, exit - - rdword t1,arg4 'get vector length - add arg4,#2 - - abs t2,arg2 wc 'add/sub vector angle to/from angle - mov t6,arg3 - sumc t6,t7 - - call #multiply 'multiply length by scale - add t1,#$80 'round up 1/2 lsb - shr t1,#8 - - mov t4,t1 'get arc dx,dy - mov t5,t1 - call #arcd - - test t7,h8000 wc 'plot pixel or draw line? - if_nc call #plotd - test t7,h8000 wc - if_c call #linepd - - jmp #:loop 'get next vector -' -' -' pix(x, y, pixrot, pixdef_ptr) -' pixarc(x, y, xr, yr, angle, pixrot, pixdef_ptr) -' -' pixdef: word -' byte xwords, ywords, xorigin, yorigin -' word %%xxxxxxxx,%%xxxxxxxx -' word %%xxxxxxxx,%%xxxxxxxx -' word %%xxxxxxxx,%%xxxxxxxx -' ... -' -pixarc_ call #arcmod - -pix_ mov t6,pcolor 'save color - - mov px,dx 'get center into px,py - mov py,dy - - mov sy,pwidth 'get actual pixel width - add sy,#1 - - rdbyte dx,arg3 'get dimensions into dx,dy - add arg3,#1 - rdbyte dy,arg3 - add arg3,#1 - - rdbyte t1,arg3 'get origin and adjust px,py - add arg3,#1 - rdbyte t2,arg3 - add arg3,#1 - neg t2,t2 - sub t2,#1 - add t2,dy - mov t3,sy -:adjust test arg2,#%001 wz - test arg2,#%110 wc - if_z sumnc px,t1 - if_nz sumc py,t1 - test arg2,#%010 wc - if_nz sumnc px,t2 - if_z sumnc py,t2 - djnz t3,#:adjust - -:yline mov sx,#0 'plot entire pix - mov t3,dx -:xword rdword t4,arg3 'read next pix word - add arg3,#2 - shl t4,#16 - mov t5,#8 -:xpixel rol t4,#2 'plot pixel within word - test t4,#1 wc 'set color - muxc pcolor,color1 - test t4,#2 wc - muxc pcolor,color2 wz '(z=1 if color=0) - if_nz call #plotp - test arg2,#%001 wz 'update px,py for next x - test arg2,#%110 wc - if_z sumc px,sy - if_nz sumnc py,sy - add sx,sy - djnz t5,#:xpixel 'another x pixel? - djnz t3,#:xword 'another x word? - if_z sumnc px,sx 'update px,py for next y - if_nz sumc py,sx - test arg2,#%010 wc - if_nz sumc px,sy - if_z sumc py,sy - djnz dy,#:yline 'another y line? - - mov pcolor,t6 'restore color - - jmp #loop -' -' -' text(x, y, @string) justx, justy -' textarc(x, y, xr, yr, angle, @string) justx, justy -' -textarc_ call #arcmod - -text_ add arg3,arg0 'add x into justx - add arg4,arg1 'add y into justy - -:chr rdbyte t1,arg2 wz 'get chr - add arg2,#1 - - if_z jmp #loop 'if 0, done - - sub t1,#$21 'if chr out of range, skip - cmp t1,#$7F-$21+fx wc - if_nc jmp #:skip - - mov arg5,fontptr 'scan font for chr definition -:scan tjz t1,#:def - rdword t2,arg5 - add arg5,#2 - test t2,h8000 wc - if_nc sub t1,#1 - jmp #:scan - -:def rdword t7,arg5 'get font definition word - add arg5,#2 - - call #fontxy 'extract initial x,y - - test t7,#$80 wc 'arc or line? - if_nc jmp #:line - - - mov t2,textsx 'arc, extract x radius - mov t3,#%0001_0001_1 - call #fontb - mov t4,t1 - - mov t2,textsy 'extract y radius - mov t3,#%0010_0011_1 - call #fontb - mov t5,t1 - - mov t2,#1 'extract starting angle - mov t3,#%0010_0011_0 - call #fontb - shl t1,#11 - - mov t6,t1 'extract angle sweep - mov t3,#%0010_0011_0 - call #fontb - neg arg6,t1 - shl arg6,#4 - add arg6,#65 - - call #arcd 'plot initial arc point - call #plotd - -:arc call #arcd 'connect subsequent arc points with lines - call #linepd - add t6,#$80 - djnz arg6,#:arc - - jmp #:more - - -:line call #plotd 'line, plot initial x,y - - call #fontxy 'extract terminal x,y - - call #linepd 'draw line - - -:more test t7,#$02 wc 'more font definition? - if_c jmp #:def - -:skip mov t1,textsp 'advance x to next chr position - mov t2,textsx - call #multiply - add arg3,t1 - - jmp #:chr 'get next chr - - -fontxy mov t2,textsx 'extract x - mov t3,#%0011_0111_0 - call #fontb - mov arg0,t1 - add arg0,arg3 - - mov t2,textsy 'extract y - mov t3,#%0100_1111_0 - call #fontb - mov arg1,t1 - add arg1,arg4 - -setd mov dx,xorigin 'set dx,dy from arg0,arg1 - add dx,arg0 - mov dy,yorigin - sub dy,arg1 -setd_ret -fontxy_ret ret - - -fontb mov t1,t7 'extract bitrange from font word - shr t3,#1 wc - and t1,t3 - if_c add t1,#1 - shr t3,#4 - shr t7,t3 - - shl t1,#32-4 'multiply t1[3..0] by t2 - mov t3,#4 -:loop shl t1,#1 wc - if_c add t1,t2 - djnz t3,#:loop - -fontb_ret ret -' -' -' textmode(x_scale, y_scale, spacing, justification) -' -textmode_ mov textsx,arg0 'set text x scale - mov textsy,arg1 'set text y scale - mov textsp,arg2 'set text spacing - - jmp #loop -' -' -' fill(x, y, da, db, db2, linechange, lines_minus_1) -' -fill_ shl dx,#16 'get left and right fractions - or dx,h8000 - mov t1,dx - - mov t2,xlongs 'get x pixels - shl t2,#4 - - add arg6,#1 'pre-increment line counter - -:yloop add dx,arg2 'adjust left and right fractions - add t1,arg3 - - cmps dx,t1 wc 'get left and right integers - if_c mov base0,dx - if_c mov base1,t1 - if_nc mov base0,t1 - if_nc mov base1,dx - sar base0,#16 - sar base1,#16 - - cmps base0,t2 wc 'left out of range? - if_c cmps hFFFFFFFF,base1 wc 'right out of range? - if_c cmp dy,ylongs wc 'y out of range? - if_nc jmp #:skip 'if any, skip - - mins base0,#0 'limit left and right - maxs base1,t2 wc - if_nc sub base1,#1 - - shl base0,#1 'make left mask - neg mask0,#1 - shl mask0,base0 - shr base0,#5 - - shl base1,#1 'make right mask - xor base1,#$1E - neg mask1,#1 - shr mask1,base1 - shr base1,#5 - - sub base1,base0 wz 'ready long count - add base1,#1 - - if_z and mask0,mask1 'if single long, merge masks - - shl base0,#1 'get long base - add base0,basesptr - rdword base0,base0 - shl dy,#2 - add base0,dy - shr dy,#2 - - mov bits0,mask0 'ready left mask -:xloop mov bits1,pcolor 'make color mask - and bits1,bits0 - rdlong pass,base0 'read-modify-write long - andn pass,bits0 - or pass,bits1 - wrlong pass,base0 - shl ylongs,#2 'advance to next long - add base0,ylongs - shr ylongs,#2 - cmp base1,#2 wz 'one more? - if_nz neg bits0,#1 'if not, ready full mask - if_z mov bits0,mask1 'if one more, ready right mask - djnz base1,#:xloop 'loop if more longs - -:skip sub arg5,#1 wc 'delta change? - if_c mov arg3,arg4 'if so, set new deltas -:same - add dy,#1 'adjust y - djnz arg6,#:yloop 'another y? - - jmp #loop -' -' -' Plot line from px,py to dx,dy -' -linepd cmps dx,px wc, wr 'get x difference - negc sx,#1 'set x direction - - cmps dy,py wc, wr 'get y difference - negc sy,#1 'set y direction - - abs dx,dx 'make differences absolute - abs dy,dy - - cmp dx,dy wc 'determine dominant axis - if_nc tjz dx,#:last 'if both differences 0, plot single pixel - if_nc mov count,dx 'set pixel count - if_c mov count,dy - mov ratio,count 'set initial ratio - shr ratio,#1 - if_c jmp #:yloop 'x or y dominant? - - -:xloop call #plotp 'dominant x line - add px,sx - sub ratio,dy wc - if_c add ratio,dx - if_c add py,sy - djnz count,#:xloop - - jmp #:last 'plot last pixel - - -:yloop call #plotp 'dominant y line - add py,sy - sub ratio,dx wc - if_c add ratio,dy - if_c add px,sx - djnz count,#:yloop - -:last call #plotp 'plot last pixel - -linepd_ret ret -' -' -' Plot pixel at px,py -' -plotd mov px,dx 'set px,py to dx,dy - mov py,dy - -plotp tjnz pwidth,#wplot 'if width > 0, do wide plot - - mov t1,px 'compute pixel mask - shl t1,#1 - mov mask0,#%11 - shl mask0,t1 - shr t1,#5 - - cmp t1,xlongs wc 'if x or y out of bounds, exit - if_c cmp py,ylongs wc - if_nc jmp #plotp_ret - - mov bits0,pcolor 'compute pixel bits - and bits0,mask0 - - shl t1,#1 'get address of pixel long - add t1,basesptr - mov t2,py - rdword t1,t1 - shl t2,#2 - add t1,t2 - - rdlong t2,t1 'write pixel - andn t2,mask0 - or t2,bits0 - wrlong t2,t1 -plotp_ret -plotd_ret ret -' -' -' Plot wide pixel -' -wplot mov t1,py 'if y out of bounds, exit - add t1,#7 - mov t2,ylongs - add t2,#7+8 - cmp t1,t2 wc - if_nc jmp #plotp_ret - - mov t1,px 'determine x long pair - sub t1,#8 - sar t1,#4 - cmp t1,xlongs wc - muxc jumps,#%01 '(use jumps[1..0] to store writes) - add t1,#1 - cmp t1,xlongs wc - muxc jumps,#%10 - - test jumps,#%11 wz 'if x out of bounds, exit - if_z jmp #plotp_ret - - shl t1,#1 'get base pair - add t1,basesptr - rdword base1,t1 - sub t1,#2 - rdword base0,t1 - - mov t1,px 'determine pair shifts - shl t1,#1 - movs :shift1,t1 - xor :shift1,#7<<1 - add t1,#9<<1 - movs :shift0,t1 - test t1,#$F<<1 wz '(account for special case) - if_z andn jumps,#%01 - - mov pass,#0 'ready to plot slices - mov slice,slicesptr - -:loop rdlong mask0,slice 'get next slice - mov mask1,mask0 - -:shift0 shl mask0,#0 'position slice -:shift1 shr mask1,#0 - - mov bits0,pcolor 'colorize slice - and bits0,mask0 - mov bits1,pcolor - and bits1,mask1 - - mov t1,py 'plot lower slice - add t1,pass - cmp t1,ylongs wc - if_c call #wslice - - mov t1,py 'plot upper slice - test pwidth,#1 wc - subx t1,pass - cmp t1,ylongs wc - if_c call #wslice - - add slice,#4 'next slice - add pass,#1 - cmp pass,passes wz - if_nz jmp #:loop - - jmp #plotp_ret -' -' -' Plot wide pixel slice -' -wslice shl t1,#2 'ready long offset - - add base0,t1 'plot left slice - test jumps,#%01 wc - if_c rdlong t2,base0 - if_c andn t2,mask0 - if_c or t2,bits0 - if_c wrlong t2,base0 - - add base1,t1 'plot right slice - test jumps,#%10 wc - if_c rdlong t2,base1 - if_c andn t2,mask1 - if_c or t2,bits1 - if_c wrlong t2,base1 - - sub base0,t1 'restore bases - sub base1,t1 - -wslice_ret ret -' -' -' Get arc point from args and then move args 5..7 to 2..4 -' -arcmod call #arca 'get arc using first 5 args - - mov arg0,dx 'set arg0,arg1 - sub arg0,xorigin - mov arg1,yorigin - sub arg1,dy - - mov arg2,arg5 'move args 5..7 to 2..4 - mov arg3,arg6 - mov arg4,arg7 - -arcmod_ret ret -' -' -' Get arc dx,dy from arg0,arg1 -' -' in: arg0,arg1 = center x,y -' arg2/t4 = x length -' arg3/t5 = y length -' arg4/t6 = 13-bit angle -' -' out: dx,dy = arc point -' -arca mov t4,arg2 'use args - mov t5,arg3 - mov t6,arg4 - -arcd call #setd 'reset dx,dy to arg0,arg1 - - mov t1,t6 'get arc dx - mov t2,t4 - call #polarx - add dx,t1 - - mov t1,t6 'get arc dy - mov t2,t5 - call #polary - sub dy,t1 -arcd_ret -arca_ret ret -' -' -' Polar to cartesian -' -' in: t1 = 13-bit angle -' t2 = 16-bit length -' -' out: t1 = x|y -' -polarx add t1,sine_90 'cosine, add 90° for sine lookup -polary test t1,sine_180 wz 'get sine quadrant 3|4 into nz - test t1,sine_90 wc 'get sine quadrant 2|4 into c - negc t1,t1 'if sine quadrant 2|4, negate table offset - or t1,sine_table 'or in sine table address >> 1 - shl t1,#1 'shift left to get final word address - rdword t1,t1 'read sine/cosine word - call #multiply 'multiply sine/cosine by length to get x|y - add t1,h8000 'add 1/2 lsb to round up x|y fraction - shr t1,#16 'justify x|y integer - negnz t1,t1 'if sine quadrant 3|4, negate x|y -polary_ret -polarx_ret ret - -sine_90 long $0800 '90° bit -sine_180 long $1000 '180° bit -sine_table long $E000 >> 1 'sine table address shifted right -' -' -' Multiply -' -' in: t1 = 16-bit multiplicand (t1[31..16] must be 0) -' t2 = 16-bit multiplier -' -' out: t1 = 32-bit product -' -multiply mov t3,#16 - shl t2,#16 - shr t1,#1 wc - -:loop if_c add t1,t2 wc - rcr t1,#1 wc - djnz t3,#:loop - -multiply_ret ret -' -' -' Defined data -' -zero long 0 'constants -d0 long $200 -h8000 long $8000 -hFFFFFFFF long $FFFFFFFF -color1 long %%1111111111111111 -color2 long %%2222222222222222 - -fontptr long 0 'font pointer (set before cognew command) - -pcolor long %%1111111111111111 'pixel color -pwidth long 0 'pixel width -passes long 1 'pixel passes -textsx long 1 'text scale x -textsy long 1 'text scale y -textsp long 6 'text spacing -' -' -' Undefined data -' -t1 res 1 'temps -t2 res 1 -t3 res 1 -t4 res 1 -t5 res 1 -t6 res 1 -t7 res 1 - -arg0 res 1 'arguments passed from high-level -arg1 res 1 -arg2 res 1 -arg3 res 1 -arg4 res 1 -arg5 res 1 -arg6 res 1 -arg7 res 1 - -basesptr res 1 'pointers -slicesptr res 1 - -xlongs res 1 'bitmap metrics -ylongs res 1 -xorigin res 1 -yorigin res 1 - -dx res 1 'line/plot coordinates -dy res 1 -px res 1 -py res 1 - -sx res 1 'line -sy res 1 -count res 1 -ratio res 1 - -pass res 1 'plot -slice res 1 -base0 res 1 -base1 res 1 -mask0 res 1 -mask1 res 1 -bits0 res 1 -bits1 res 1 - -{{ - -+------------------------------------------------------------------------------------------------------------------------------+ -¦ TERMS OF USE: MIT License ¦ -+------------------------------------------------------------------------------------------------------------------------------¦ -¦Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation ¦ -¦files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, ¦ -¦modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software¦ -¦is furnished to do so, subject to the following conditions: ¦ -¦ ¦ -¦The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.¦ -¦ ¦ -¦THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE ¦ -¦WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR ¦ -¦COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ¦ -¦ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ¦ -+------------------------------------------------------------------------------------------------------------------------------+ -}} \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/hello1.spn b/zubehör/sphinx/spinx100225-ori/sphinx1/hello1.spn deleted file mode 100644 index f9fc20b..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx1/hello1.spn +++ /dev/null @@ -1,12 +0,0 @@ -_xinfreq = 6_000_000 -_clkmode = xtal1 + pll16x -vidpin = 24 - -obj term : "tv_text" - -pub Main - term.start( vidpin ) - term.str( string("Howdy, ") ) - - waitcnt( clkfreq*2 + cnt ) - reboot diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/hello2.spn b/zubehör/sphinx/spinx100225-ori/sphinx1/hello2.spn deleted file mode 100644 index ba95a0c..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx1/hello2.spn +++ /dev/null @@ -1,11 +0,0 @@ -obj - term : "isxtv" - f : "sxfile" - -pub Main - term.str( string("Howdy, ") ) - term.out( 13 ) - - f.Open( string("sphinx.bin"), "R" ) - f.Execute( 0 ) - diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/isxfs.sob b/zubehör/sphinx/spinx100225-ori/sphinx1/isxfs.sob deleted file mode 100644 index 3efd8cccb15aa264b4016ef8f1234015d1d2382a..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 453 zcmZ9HzfQw25XQeaNh>-c1_owUXsU{2LT=(n5ltQ0=^u5WLxu`hSHmG1gukzW%^ETN6t~&Lf`l-Y|}Z0@e?}b*zK{p3D--RLD3^`aji3;NM^UwFWd3Ym!km}Q53sRbCbl;9DVZI4xw6L4%X z5#i9JF8h6eHJl}yIKdH4X`3_BjC4b~Bf*!&eBm}ap5=!{x9c{%A}BZ2JSex-A}Dv2 yuYz)2kyb6{+|%9aV)oH;P0}`@X`S$k*z diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/isxkb.sob b/zubehör/sphinx/spinx100225-ori/sphinx1/isxkb.sob deleted file mode 100644 index 6c6df314bce721d7f0decfb78a162657fa8870c0..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 122 zcmWIccQRxEg2tJ#p)3prASRF$29m)M-cCWTelD(2Vg8}P3=BW&85jawUA?_sBN><& z8Nd`1gS%@8n8gg##lj!})F%eSDnM*m|KotM5r|A`;9>>Rha`*`SecR?#o~kCd*8=<+;@J?JRncV3-XSX2gxm?S|8_KE;WS&?NMq^ZTh^grfG ztUiy5-z=l*M6BvYrE-1``+}KEQT)T^NECmH{F`pXYP*-yruX7f^1*Z>^130|L1^u8 zo5o`sMyeK@3#2HnZK8(u;;YDua#mDDJv)mbirZQ|PH$#NNexT5#z(C~{{Pbm#gLPN PZg3)`O-Fyioe1~^l?+^K diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/lex.bin b/zubehör/sphinx/spinx100225-ori/sphinx1/lex.bin deleted file mode 100644 index 7f8299761a7bb0ea678a73cb0ecfe55e894f5959..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 9552 zcmai43v?6Lnf~V`OC#BUV?ZRv2ylP|+t{+L8G>;v%QCi+B_qo=5K=4{2^nNr7RG_Z zNe05kB=p@TA@p(BJeo%vHr=#oPmkISDQQVcd)S_|&DnN$(?AlM+O0$LD2WLB-5J@? z$2mLa{JQ`D-~Vy%fB*ZKJEHHL6jPs_O7jgCV7MbHD;b4X56In0d#`n)* zZIDEFGPc)My}H`tRtkw5KX9wzf-F{hEdC?AE{-3#xrRF|st$|QdRUw{kWjeEBcfWB zODKyO(w&=1D8#TXU>=49b5n4^1dobN=qNlwCc_9kjvu%I=H>vm@!*UfD7V-IFvbro z0uuj`tcSS6Wr&s4T7RTWt<1@~q^_!exa@G*_<_>-vTnJzvQ*TUGjhQU>157>&0Rp>QCAS-b|~nvDC#z@sc9Zk&nhx~ z^%F!=5Ha!=a9C6m>vtqWykL!}fw%4uIUqoiaTRF8-vaDHi z^c5OVWvhOpmOzZ=a9ZL6wR%FbB;tMBFvx}d2@mU-#HrPowDQhgTd!N;6O#&^jr$T- z{W`9GHNBv4@e|6@^J=xax>)t9t;Mt8E9O?j#H1lr$a&%?JgA3d+iv$vqcvbB++3Yx zadWC);m;aKi;2*C1;ye<^zi^-9B>%$S-=+o4+0*h61oQ~#08N^Lb*s1X$#8F0X!Cw ziVKLU3aqe0++#MUaK31x@SW>63Z!9z6?63;%a~hwriPPd-@nSqNmlpvXlnV0YbYH{ z8F_~sD(2mXi)!6XweBZnfVI}$QtLjXUy}7Thjc`2+5P$_&K5RF5B^WhA^qbc)#?&v zS1t3p@7F(Ga=(7bDeAKzRjMrXg7fr|YQLMLBKe*a#1H9z#c<76FL@6ajURkXwUj>T zc*=^3r)2S-1$ldrxN(Nfj9%fx?ayjh6X2&5JrEC^Gb^vpnPoW}y)n3+F)&>(>kEN; zCeY&R;Xzio0cKm&1%(FKuVBz*$S3M0htbLBYFeFnR-NRK^)l1kR`j{BCGnnFB^6Hi z4O>0pfr!acWmu5)k7k+?cc$`&R2i0%o{OfXs@&9cv#LIxx{y>TUlGgq$e+6awkL<0 z+yzr-WxlGCRmpmE+7c#$XV4_B(#9lID9^r1ld%`)*{nMynj&I=5#h(ofsG%3xX9?$ z<#pQ8B4-jkR!Y5exX5yi%`fU~d|RDyr*@}nOoph=QLevQs-TodQz@u zE5D^lEzaGyij88KSJcnUxQjcDa44b~RK@ZMyrGMGYYwe419ekwinWF1g=B{*Hjr@7 zod17q9r$N$H5w3tMWi}bp292UMC6<}9n>q`%INkDng`p}{P^?eE9Bjn`mDpOr>slM zy(HOWedQrNw}+F8%yzFu4$r+}oY_-Knma^Y9Jx==iF%3pi805vUp>d%EBv9>8z?fg z3p0LZgK1ADV>_Zr*Y-p-6Wu-%%eYqb1lxU~7XQuvAp3W!%~9aj7zl$eLW+jYzRdakstmZUj$ov*JI`^|B%p-tlW zy{`OXxE!PnYWL|Mi)_hc3*?>P6^!3Ir$*FoFgbUCW8tJ(qCTCUOa!Be<%s!l*42ua z?{@d3VtdmujELr1e&=$U9;b-6`AX2uLF&z6Z=PF=S^dI@7Mq8ykEZv_{jOR1I5RHTq)aR+=r{theP^D z6JG&xu@rH*_?2q)6pBepv0xsWB@NmEuqSuPB%MNCVLCNCwYr>~gmykaFfuK)MdR(jIuSjHFKjdQFy z^{<%YG!17)ycNJ=+-L(P=|#-fkBp^ye@#t4_7-gdGdC*UVzex1oS<)VrG`?KI8Dbg z1KY2f5Zrc;B)GX99@8ew;(Ud3gK`DxN zib)U}j1sj-v$$sv?+*b2Z>9Bs>jk0}fR%t%0FO{YzeTwp=d`RSl8EzJ4Paz$6Fofo z;9W2NaBA!q4>jH4xaR1-|2_D@Z3`6t=<%1nHZnGp%e-=-ec1ZBe;rzVGne|@&w|Ns z3_ZSc!zOW{^u_KS^Ab0kO&dFw9wr*6$Y^6gt*xvpsQQ(L!h zT>RE|d*41dr|0ok6W!nQ{b0jIes0%_U8$fe`=fyVpmRNykF-^$+~VuWN5Rz0$okeP8wEw|-l7 z`H!nAPiH^9@|vpO-|)Ngx)paW{QR;99(b$#>D$z$fBxc^7I&0QEV91YPeolO!#O)`MZjq`}>?Bztq?&YYdc^2sp9wGYu`x3o!bj`lo zqwzHIfp&GSi*)%nZz4^SqXA6HfGU4z*Bz=H>{aD(Z)>ACDC&Hxb2ayuHq~BVq&wft;nn+`bLh9%U^;B9KU1<4GeXctL4?e!nVbdQ;EW!$9%0f#=a)X5jh#>H1u<{vy^x z0THuxuvWo`T8S!Aw{Agywg7GF#|g3k{RMZoTifK;Zgp!fy8z{hmshxV;_y4_yxo~` zt`?rvbhWZjzgDd()SW8cpo(x-i52RLRezz5SFo@nRqF5zJFvmOr|E3k52O)=%rZxO z*=pfQXs;~PXEPHHQ`;))a~+P`OC2LK8haoshOw8j^73Jf1;4YE5(r*&FLv+IR#=qM zp2^Vw^^d%&zlM-T-5c>zu+ei)S@I@Mw}P_7f4IVXrMqkd^W8nZUule=lJ)JH=d9{{ zLs>SdcD|?Ze`;@2G;9HLNL$l0=iu8g8dD3m=^a?#wYHW?&xGj-gVz~o@l0a)AT4z? z;;4>hcoCjWjFLX4_8FpEG5+#MzpOSgKt$=8iQPb0Xe?E zqrFX)!7W0;UTeWp<&M5K6Lo7lb@l=)6`m?bD|a>~aG&zwWelx!svM%WSc|ML!2uJ+ zb*EO~P=A%c3JC11g02{KM-V8r8jM~vy$sTG16_G{UBSNm1Vj2T5%+XPvG|!O=|1fc zIUVP$9|Jz?5a~2Zo{DI@r9J2+OmHftU-Q1suI`Q0a8lrxQy;gskv<_SHi;LhvXNdV zUTmOy=tg=EOL{BCsGP2YUKeeqrF1PY_AI8i3D<3SmNwEkDiDWgA1)b683)fYI!^+Y zXrdcvA$~tY&rk)G0egrZp_RCHz&kab8*ild;f0|qSCVT5Ild3HvXZJ*Ld${DBt(Bs z^SFkk^d|hgMjz6uRrry_v#6`8A{UdxQ$>qRgjV4?P!f60!QHf$mgEI)LYvK}fi9xE zF3!uXMUUW_^KcCfbQT?F0u7b)`)Rb1K89$3BU-zbazL5D+6KA=RO1SHZ%fNY%AOMV z4437+&7p7v(ZcD1`x@6chKm)>dWicX*VsUR&RcB6O^a!zv60>Y^9k2M}z* zOqtEM34KhhI}+-m#axpi4La!WBWb#=p&-qHg|zUX(9$0E60V8pPT_vR7YR2T8!Ko6 z;Uycx@U(a%RE+XbOvaXu;AYC6GaW;}*~o$)3X84TRvkVwwtX@RA)wh1ksk>1Fwb zYi&OW%q8<_>uE;k8ysc}O~0#96~jbeI)Og#rf!-AMJCTUezwSP`^DQNP(eQ;MckJ} z2cvvjL*cEPu^18e4e?jZr*A7V4J_n7_ndgbU>W0?x7O@8r1O+1jflZH_qKS^v=H>e z0FraM1-`BR4d5W$S2*wswL-95QkT)NY0nr`u1Z>C@{FeEo%z}5OMqsPYh|U5_g~?$Nha&5E-s7}=HVQK=1kq;%aRXv& znED5YSNY3W4%)*0NKZIODop5>YpqzLSaN3t{?it%pwo-BC?N0;Tc{uq3a+CC5PQmU z#u5nm*82isdiURp>ARK_mJYU3LJnH_%X+E|A^wWoyWMV7 zbfibD|7HzE+OP@L8Ztz1y^-A0L{9`4b0A(uemBCCRr7co@D&0-TW*lMBjN7$&3=k6DIN+;T|*rFLlIYW$g8}u49{%@$@1x^MGAzf78B^MK3Av zEA3yfv%xf`{Q^w;HTGThK5u)Z7e|2QIDo9T-(t{RIGFZbU)adq2ITHH?OBk>>MLT#!n82I4)ukN zG;Khd{u;gNV;f*zG;G*xKq~&(Uf~#{cd+YUw9j{Ziv9>pa1=VWP_yBjU4eP?*sbIP zwipMeJE$ek`_!lCuQ;xH9KDXaXtt9aUPr(&Hb#HQAM?i==r4KnPVz%33iZ40qLNbc zyn0t7{fQlCOTJMO;GQT^XoB78Xckc#z)N%?r#(@!^Rz{@a0v+?%}|}Mnawfcs!Aw5 zR$>uxw-(`Lu7txd0=97??ZpenpMYNkh}gg806!IK!E|b&CP-g)s z;B%>*UWqz&Cvezy1FugsjF+RVg$(1@GTlV(vARU|QN{!QD52C|s!qIA$4UH8no8?_ z+VWF%g=gZWijx)WgWCQzH7A?!Ixg;W`-b);HTL~+_eeB@@8koikxVS++CH>{PFCQ4 z{3jJhJd=y@0ryvG!t*N?#`2mc8*rzYkfaoD3oE(ANqnj0PFB}T7KMIN9r#;R!ygye z{URz(R@ai2RJaNJEnzrqH0C!oY4&;83V!`_lE~^ktaNwp8{9UObVZXHT!ij(X|XtN zZ8d!0(ly<@O-#g(?@!=+v$o%@a8}*kkGgjh{`IJBkHL_cfWq%=wvD<^R!6m;RG&Us zhnpR7{D4y94&fqrDDK*Ax*3UX!#Dli>FD+t%aJE>LNCQ`z+Ma3L3SG;2^a;C8qyL; z$%5-l)u+{?({6lJK64_m`tDaxBv;@4+6gth`tH*w057mG<2(787nFW>(ZH}8_JioD zeKS@zYKfcggBe&j!z{ddBF)Ue>fc#mk@_1W3G99)m|1Ke@B%sj+PuNUyy0Z}O{-pl zi0nMBE6dJLj_SBS8vSyuEtyPD;$uuAfgve%v#Z~Ugv7fw)X&F<8~qZlcZ|t` z0=T`=u-)=SII%hKzW}0szz)D5U^h0ZZ;=yk*tm~HIhS+NI?h39z>@&&4;k29pef~V z45Z)nOb#mL$;pgQp-eOFk_r(9%_G@aQO^q8_56|jHlD{XyM%LdyEI(nz3n-lY4)Uo z%ECQLxmCYrWLrmn|NChO2qW9pdq$gWgZ-X2hE0>)5LCE362=7}E}Hg2>KCro^w{Jd zl=3&D=`pAk^#8&Y#BE6bXmD)!v}-glQh#x9w4H{`HX*e|sQ?2!V`^_|{a7Y2a@zI2 zviR&CQ||9-JJm9)KG(C&2PxbDSzxwvTa{B-UN z#ApEBV7FwWts}MW1OhggFz&X76N=~j9^97MM^wvMrSzRWqFyxet~!4*+CQu;>7N|+ zDa$gQ+K{ri%)Lv)FJ#xNi_`By0HI#oKbZV0d9Hgp}%CZS{-rMJt<+$tg kAg2nIvb5)oiQ(j1ndX!e&d(;*`DfortF|}Z!Qc@69~tyds{jB1 diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/link.bin b/zubehör/sphinx/spinx100225-ori/sphinx1/link.bin deleted file mode 100644 index 80eb563b266648086c4528a27a5ef98f30da6e76..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 3808 zcmZt|ZEPIHb!KmOeZEiISmv78WdklUl*GP`?`AHbK;k4y$PouSUo=AT+H>bUXYa#z z=fpt?8HmZHc79YXZ33dw899-IQVU8Ys#c>F=r0$zN ze^AOwZ|2Rs**EX|4O;&WLdWaS-vYUNX3^+9K5syN6UhkS5c;hvg#IMAqO|Hm9W@B` z)%eiIFn?Ynqdjhf#@sS`-`$Bm@gU^$9zk_J0Xb>be?k5VBXrA!R=<9992LfW&v9fKu|y$7~+?OpwI4Ov>cy(D052O&w363oLj7Wu}* z-I%EXN#;IW;V=${%8YL6Pi4@~d_J4k5H6j& zMtjsCMrzQTNWSaka_QVe7*A}aJ~il`*xEFlBY5%hR=Vj6L_M9HUjU+J@QJ+ zL`&&h;a(4KSeBtT3=(->Isn=U(taSh&L3))m;Q*=pfq+M`X9Ivr0;?&sHc2mx1BO? z#O*W*Sc~uNA3H!09Pr~C`-MqL=QhHz8~Y=7Jwm_x!WhmfDhR05VzX26jW>soNnA?J zDdH;ei)6!F)9Z+IiC>(YUN>qJ$)+A>(L`J}^$FD3C{H)q)1jzM&`p~L#5S1xBJgp; z{2GxI_l4%qsq#yH5d_)*0(F}sMGxPDiv-(c;V~i$XBDZ>E)%Q<J$7(u?9jhFyaOy;I=4=(cP(pv59nMkE|}OW#%fGV>@}?$`xTe$ zSPs}p`o63t!a+NkPZf)aj2|5aB$XM|(5CHs_8}mj%;t}4g`6>vKwAH)VxpjBli%9( zBP*3Tu64vZqB`-T_C2Wmkd_`P6t(_@mdsjK_GE&=kD8%nM$-L>JkXK0aidnq_GgTA zLMvvonw8BAqLG3znAoB@>{f_Jv$6Qc&gj2?DE+OafXvgzS}g`hGW zo7RKMEv2zPteL_O8^Q*qvERUC(g2vQn1cY7OJlDO}u@F|lv*yZ^)6XKzK#-tutXeL$dvYT%?T^2qx#jrTvTG3!{eWi7DlA!0} zmA2}9x-8tf&=#*v5cGVUpam^ny9@4ev=BZ`$xC4;b#=$=Mm}LU1}dZt%W}*%kjG?vAW}NRBYqx?`ni`NKlhOhehyVl z4F-qB=p7NmsiDh|T%*@QzQ~!0meapGatT4U-D^21EKFBA|C4a;^vCG*mkX^=MhJdh zI#RpzD{}ur>+aoT!!1Z*A^|0){Jzo(*KLZD4FUcT!G8V_Rm7nBc^kPOC`6*(0FP0h zpGT;lJP_dRK40nl<6#&=Vc!$;ZN445srqU3?_UA>#0vgz4@ae!z7G4~@JoLQ`zmeV z{5iB+Q3!_Q(tEmgZRuh*ruwafb~05owUr9ozFL6?vYDin8gK%A zg{m1Drmdb>-Gw5#vbh@8g2u{;X10<(JggBqccs_m7lEYPv@7yIoPG1 zyp%Kvx(#)1h4NWg=5@}(LzMm}EvhW`$Msa^gkhyXyXD5Cwe@uUcz-gdc-QG za$vger6YEgPw^}K4f6`WI>o1^_*MG~pPu4xT;3vX(j$IFOK9OshaQrK~P^$ ziqUcssy|*kL{J9uDIc%h*T*2qCUw)z-N_ljymnMyE{YAfbYYt)1)^cC(&s1rs7%X;KKJSt4=Or0IYs}zHQXaUlt`z zf|7y?hhY=A1iscmdYKhlU&~Po5 z$ZJItN(nlc$tMP~gPGKG&{m-ZXvq`=QZk!Q8%5NUFq~*STI~*)l_pdO18AAm76GWP27Ov zpyNS+qW}yb4KNIF25j;+fCO)SFP2d+%+CNE12_(l2e=6E3xJRml28{j)dmcy*`+o} zdUfgAyo|`3^{!b#V`_s^Jz+*|HxDAko3@fOFG9d#y>__7FNJmC*xq6uD$N$H;LL09 zCg-pF#9!2~?ppM@yO13+kuy)NaWP8#lW%i5n9C*dT}A=kTi<1eAu6J_BJ030>Bzun z$8APq-+)i#(hK2mAN732Y}&DC$VVN?_Bju`Ezs^V8{v_c$fpLh0n^AE14Vf6;en{) z((z!l$`javt!>bJ5K6dn&GMF*TsLi)XlVHWh69WQoToeqkbvSMf#g%Ng-L(`Q-n;U zpho0FG4RhefF}W1Q`&4AwsN1jc_W12&>wlR17if@cQ2+n{ diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/mouseiso.sob b/zubehör/sphinx/spinx100225-ori/sphinx1/mouseiso.sob deleted file mode 100644 index 40054ea77d1c0cd552e3c55b605f265232eb107a..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 930 zcmXw&U1-x#6vt0)Ti1O-5fK@i)Q^V>MKpF}4{ofbE$NoE-5P7H0T=0@q7Oy(A}){z z9q1kezwn{DOgb5YAn23y`hi0$C_eZmKKN0`lufoeL1wP;q^5x%|Np(`C*U0;Ff%|I|xDHm}I$2?6`BHusnfdV`Ka0!<49PXfbO1vy2FhB;AgjWXsl#_u z=b}uXj~bFSgG*%k92|5Pqh-yB^Xw8?m5Zv1DXi&ZtE)0#?iml0?+WTv81ix{P3vn< zT2*cdv`|V?&5C;)>rtvTrP&zCsOP;_qfU8*6N)?iDepz~pmqw(kMx!#dd>@z z^}O62BRTTWkSn%w0`nnSDMR(jBO`hAu_3Pu4CgXr>z>9Qv13VFYj%#+8!+#uy@rP3 z-t5woeEVLOyxzm)8T6ZNkNc-gK~*5eCW->hx8NCG*vVv^V-My{T-i?bi?}|C=Xurk z*K9qD{WkENxT^!a;C+#>a_R<`Gu@hA0&k<+BT7qime_MHg-{3+s z{w}6zaxRj4^PF?fITzB|$JR|wAkL{m#uCz$VU0Fw=M#?H#<1iMC=)asc}tT- z)%|-R?8|zQV|Ykl!Q~c*s4O(YqF6B+$P<(t>@+W|Z>+UDOqHvvo5l_GubF@iLp?AhSwrg-<84!Uo+21$<-u7 z9QZA)WlEeFYc(3hRO9g==FoGD?FKgZgqgSA_BC%U{(4w1#?a_;?zJyx)};__bhX23RP-Y2Ui+V!LS4ru zXNeFifIXlWCot}{PtxI7?<}DpG`3nTD~<spwko6^&7+peCC7%U5HB~80_VcWkV{+)TCZ#Tg=ft?0j^|1q zXsBDjG-$b)Mt;=-hvlX-@E9Ul_qviy-Vzgt4R+FOWSZ1OUN;XunN1ZBHC3)K!Tu&A zDHJM~-M?aGt*Mfxn`-$od)-YeWiIH(Y3=1So-pW+O!K1EC6$eH5DHUMbuGrI zeq|Fu>WqsvBmP=Ll^82B=JjkfBWU&OS+{G=_(l5Jm(Vze! zs%OPptEPnMIYX2Ky;P2n9WnJyIgo{=#dVM6dURwl1Kh5~Y8{EAN~R%g(u)&`+qLjY z-oc`onT&3nhRN0?=!oEUS+ubfn6WCecc=-|dRAYA1aw%WsHK*zZ!pQXV}UGNu8>nCT3vt2a%rz`BR@n_gMjfIM7T z$CK%E=N6Ocb8cU#jyX-x@6Wxu`lj!3J1SSJ(!QaEG2|8pxn&u#H!fc>owwS_!un9! zuV|=TR$WzH$&wDSdm-VG028csUX*#!`ml_}hO^GL+K2eH3#z8Db~B$WBx8Zo zWY3_rp{fP6LtIsdSkob5Rszq~X3aoSRU)tIQXDi1rt(-Q0kx1IUc-wNr?2T)o5G57 zS&>saKax|+idhai&eOx}#;PflsbWeU7{lERAq?I#tf&ihWP`sp6C!AJWRjMUDO#4? z26zXG4Q1ALuf%jHJo9i%1@odJmHok+e%BV@HXlu2^b+77mGqKV0AD_ue%H{mLJ11# zQY6x;NVLygpFPW$pb-B#$@arQX-o%bBp`h@ty{dhLmA}S6sfOGwsCDO_F(&{^i27P zjR3dPCEJ|sEswUfFLbRU^KHignYOouYf&FYT@$WPCJSr~`ZDcG*5l|y+FM+ciC|l{ z+bb=G?b;3{?I+t6v8=Ycl-Z$3i+6g{HQ-;ubTr@QF0F|6goTI}Y=Cz}*Dg^f5TinijihPoSwlg?)~n!B>0x=!w~o z6}4lO=h_t$i&#;a8ra6P9~I!EsT?sgv@5CihQ`Gi-=UP>w>{6*1fPTLEfo~b-mXaZ zZTE_0r@BiCev6rIiRn_r_%5ZKh40rOW?!@`h_!6X-{zHC+m&)!9}460fRnc=Guie~ zT%*JEJm`#uzNiCAdf8iE0no(kQKW0g8k+{TExyiEeC}FVoY=0U(b$uAuT-|po3+AtZ*|pgU-;zz;jwrZj!l?iKWi!O?En2H&Tu`82e( z34NN5@9{|Q1OI!(<3zZAG7P(r2bYlt@ubv7pqu8`DC{ZS?kz7xtac(sv0=FhVcnx! z@@NiaMC85(xykS&xUIz=k9Y+U11hUvw^#oT`ZK$fweLZ`W|!hD*qz6{2im=_<+;WI3_3${K7p-gcX*|U@1w8e*-Y4&o zzmgbIjus&o{xOW_=ob%=OtnqO!(;`qlLrZwfQy7IBdZBdDoGZZLCBYcn8+$pMVd$> z$tI+qkUCO91hSkwL~;l@NJZ3=8nTjDh?S55Lek0oq?*)|43ewLpH6Q1+(CXs8pzFI zeK!H#M`o$5kI4uzp8E;v7^Zi_3}J9Ug(vnAGT3vvFN8e)_Sv^i{`v3Z)7~?C-yxrn z4~UmvBe#+tUXc^3Txtd6EsQlytFfE=9!=Rhi9VjAn}l)u zA2lquTz_rW{*>&r9RD2g0m{%bLw#0YUDs096f@DX71%0h*i~jSGdhN(=vcBEXOFcg zzeU-K_IbeZ(S+QBqWwg%Ejb`djMQx3ZhKPFNX-?*E58^x>XGI@AFy==W(5Y{_SmA2 z%7eqe6>bRFjvVtyT1%k#=%7b3^~=)cy&j2K{F&qC#npb==e**RUO($`kh9H!zoL)k zsGK$e9O?5&>>*h?+2fJ8KG_uPk;|DLd1`czoPMImBOZU#!<}k022M3)1|}bp2br9J zI1ze>Lh>XkPoEQTvU_DQv0olUU5q~lzQv!_QTsoKF6QW8L~7&w=Lc?!@I%Ogc~$>k{N z1oXdoJ*J>n<{@7|J@pfUwfzlQr1Ii#l#8`D%B9Aze+0BwQa$1`VgEK#|K142=^$jm z&UEUl9etyQd=mS)Poi>&KPZv&LA7qekBFE9i4S8r_d4cbZ3A9G)jYZ*OBL~kv5 zT+^o6^t&8#_>YC8p;1GMOQJ}77E3n#gC$$qbj4fRn9?AAWG<8xQB5H`C`_b}@GlL} zh{B>!JO97_-tEVD^*7sh4?HP#4(yZ)P-pt(w5WbL{nG(Y+UbC=Scmqf0beP_1qbAE z;L}h0pOQ}NHefv8l?XQ=5&stw(Tz%{&+nE_bGxKJjllefN`u>L=Y3M`Gf%nlq0-mE`o&?Bd zc)4NcdGtR&lE(Cpq+=~c+(**B{uuo~M*olHsmG3cHh+HHbKuy=9#MTCAC|f6kI2$z z{hkxdfSd)N(i`6ktzEGLayoZd^>ga!{+;4Oe+}XJee0G8bBp#)%I>l1FXnIb-%!*; zZ&S2IdsA>$uv*XLoWg79jD-nUwP()mTUVa7Keb4G>wqb121`$m<(cNf`jrlz9?n-Z z*&Fd(-Lwi<3(H9XxaK^UGjzSVs0YUk_93W(2E4^I?1M#npR;IA&cNY>!$lO11-LC( zZRWFaP>HUZ$5?OHazFafuiqxsRy`+9;{{xnjAMA=qBX;><%FuTib^VaP&GRTT=HIFZTDjZU;MRlSxQ&R8?7xrsO!%}b1ju1d3o6^2wU zBa>6rn*%x|$E+|H;VlYd`JzX#LE*V*jVYQX4R}W;bA(Jo$wpa-vd2Kk)8jC^TY}QI z)_jh_cEI*lpPt3LB)_HAg;S30PQWC;Qy{kTv+J=1bd zVnBZrxZq>K@~w~g#0eo9`_6iwl<;^^+}E1VYC<>;Z713s8^UvOfYdLQhvM$czhc)S z;QP>*=AY+DpA_>%Fr91&N`G4Cliu8j_S3<%r!#}!(j6PpLjawcmSDv_@Cp8rzr!E0 z;eOYfPi>X%Yiaer4clT}L1`7{&3&-n^h8jcyEZsT*0#FtZ#jop2sW~zRpr0p?^CcF z@+WLS%uwGy#)kc4{O|jPkEK3Q+Yt-r75&eglOlTS&nY%jh=*t)v#r&q@`vJ-&+1e^ z@>!-hC~bVE)&CZBaqzc$qfewhzeV-^JXp^BJeW>nPIWTRw7NHv)wYOk+IQ|R^4*W% zyhnXVgvA7LC0 z#QRmmu=%vvK$MO*$+k^Tp@X*}Z`B*+j=a2N` z;FYnb`e7U7<+EL_`L632oF&8K4H-_FLzc%Bl|O;%`9)|hQrjbZpCcv_yOZdAg-kk^ zsr?7T_K&suVAyU|9(d7K^&djM)3u1^Y!S2CM)R}?G5L4$oQ}(IkdSSU`P7`He$h2A zG9H`qgEnSSa5K&2-H69-te3^`wG(j+uYcbfOWOA*SRW%kQu&d3L{{M#SIG=5q&1d{QJo zD9;ObwfYIx3zc4y&(YY?+@Z7`h~W;z@b~a*Cm?-KQ2e~vrJ0dUauC1kr{O@2V`x9l zmxoY}pd3T-qYR^5K=}~mILg2M)9PZy+bbqnZ|`#r_A)%4I!=S9`o@2-&vgbBEd`lG ztEsl!*ylRZi)}=98hz7ivNF*QvEnW_nlUrweXc_~E{XtHbNud~Cs?&wd<2SO#jDG4 zM{ea$XHr@&^QK>`wX=7sjIn+#yU%rr_Ax%a&lTu%1x9j)_PKFK0aP5Nx>-~$QBUu4 zb1E`fMH=-6;2=@F=w? z51=&T6tNpcgM&mYzAcsj-h;9f<$jb#lqXPrL7^cB5)VH5=zAb`*afq?-7Z;8W(6Q5DzEOFW>OI+0* ztOE@mLJ8TdF%S{)ei3B{${Q#LF*aubFQSac!8BFFk_y1bQHEdXmJ(hLh^1}a9J4DR z-MyMk z;|}1bEJq;J%GObU0 zD>Z9>#%=21#BMIohYlXMWm{t=(7Ui~MUOLwxgu|V(bxLe`Ol@<=jZrwCb-?4zp+}q zE6Y~$Hwr`9J-Jb5E?(p>kH%`)<)K?NEL0kHrMY;4+T&{wn)n5qtfA%|HjCzr9^a>R z^du8H$V7(^GU0Pf^p$hWP4pO(5IMy}hfXnu&>==W!$hlRn0v;aVdxP?^XNZ0!bFcb z!i+h=MB@a5b>kSzk~HkhccFMth(VFQHso;>UIx^i!1>akY}TFfpzYO1W9;$`E$Vrt z4Dc$n3jrSlTmrZrkOx0~KVL}ka{sv2%Uv{ixr7;B$#At-(i>4XdPTi4kE89RBt<+w zMa8qao4n41oATW07(+@+0Zn(cSBxL;m9DzVEB&QIwq13dSG?+auk%)az%~&&zRQ;o z=8MRNJ~ph6Jux8Lt})_!P`FTEXUD!_=ANa#E$7LyTqF0KUproU}Q$NuwQaci;o*VL5Hc4^n zCwsX#=!r>H(x{%`WTkv`l2?oao%YvH48=w56Ypg;af(xk^QLR#y&|=N`lCY~I%y19 z*^uX=W2HAvV?*>j_N%x&4!XokNqJluXlFjax2N!UjERfxR{s$-ejJrM(aRaf+BFe& zP4J47CMc>8(90PyX4FO+M=Fm(=A^utjl=P%{ud4&& zL48g#<`E`M5x0V_Pf|kh{bUyP-KhsWFs;RpI2j1~atVs0i_ddK#T_+3miQXR5i+>( z#yl5mP)ILwAO-aUkbTLZloLaX;ZU4c>Vs@br|q}lGnw83e_BZL3m!r9yJiCk>xhD$ zgq~<3xft?(Vv9f4=p{_DI!1*0aX1nB!Z903&2t^6dIo24U!~@8iI`gvpDEAjGDNFEJ;-#60{A_Fe*v?BVGCEg1YNh#3qR4E~?*-}=@avts+C+2zt1_TkNzd}Ig_w`a+><+ zUy8bYa;9Scv+feMe+l1g|JGd!ZU6qQ{SzVOQCjjLV)7}xpbS6Yk%m{`n?j>3 zzTO1bB#Vq7OD_wa^iID|p!K#f^;c+}$NC5S)-b-a3hm3m&Ez8Pa0CzK7dwZ2Y8`UK z&QYJVW3@+WG03)wtL4FwpW!aif&0ihS=um1w(UOS6DZ9B9BoexLyBi=n$^3S*K1~R zQXKTrDn)^y~e{a7lNB#z3e07F9*|^8d>C4$r5)7XAQLHuaXCgV0%O_)%`sB zUsofSYindDweQ7+vh9b+RjOm$7#);Pl@GpcmwZwO?o+A!(aKr&PQi2Fe+y|GB7I&J zW)U0gqPVfP(HOnHdKO3RdHu4F3;7sor(6!EQs1b*q$cDemG^3m=Ky4+J_29qoEvHO zNS-ww=k_(YBgQ?8agDtB^)(?Gkk3c-bzSyJ1($;&)$tnYF^Ct9&)D*-aGWE3+({Ta zjP3In8>(w8o&f)17*FT!cYgFc#c>o9!T%DTK@QV-UU22Uw5ns@+CB8qO&^{7zO_A! zmJ#L(7RGycn3uMTO}d-yUId{E z(u-IB2T!8^fme?n1n+x|AmT-#;=E-2g%3WwH#6V)&YQsNGy%`u53k>Cz7Qa-rvd0a39oq-0lyf?_xmz8|SygbclpT0Jeqy~URDoI+9FI@DR28b= zG6`;V`@A~pylH%Ln-mfWB^l%dc%e~2yJddq7}Zb+44(k|9ikm~7l^y=xNPV`#7T)b%NeiE@@ zo*!o89qpvNwfStOO=sB{c+XYdV@A`})O@u1tcZq~^?qB#%f-jPEyAOtB)6iI^ZibX$wvOxNt@k0I-yC211db!paKn%mKbJ8Wf0EO7*1 z6dmyjtAbz!U(^>pVl$zPi5vKoo@^l47dPD=e35||kwT|;iD|{%ocNujJCJ<;zwdW` z=iHN-O#}efaPs|oosj1$yeYi~5=_o$nIynxpNApcR)@O*GHo?40!*s$G{D^}Nl3S} z(vui&X{rrCjnBo;CTHhoGytrF1`G=cjVocKKD$V~k`ksHZ@h-}N9!Tq$XY>rS3eLXB zaUa21Lin!1v6;04a%!!j4>rFhw)4jHK{lW%kWJxmJjEr?h>dp6Gzv9AsLoiM_WGDUN?y2S zX-+>QlERE$p(NLDmW-GDtP;YQtQ3|Yuu6o$bux~+pfHb3Vcy;V^|%{l)sA*=qpWdX z)6W*s?{z=;h`?WW2yEAg`|lfM>y^Ux!6B;KcP-V^v^0m(K2z``H#?T$^56El{LJGP zN~F$8#@h<3IGsPL-Oh)q&)Lur7Xc`d-L4JeJ&b|EWR9bzL|5Qam2lnXi>_=zUgvXs zi2K*?8!e9Zo3({*^Ui{RGu-tu;qfTO0r&frQrNC3bm||4rn}JQeR}_ltO)+9@dfsB z*UAgLk9)UWM>y_mVQE~cW@S8EmvTERp_EZN3T!dvqgmu)VKj-nC72gwRzf*^8uvMg z66cNvDEa-ThVB`oq<4&77Dn0NsR$*9B6RZ<+9Q}VwwL3=-U4gn*$mdtR6T-H_2M^x zXHfMF#jrkx^-(q$iPNOweQ$IKl94L7B7Qt-*w}UVA~I7lRy=JR+E@p zF`1u-jNIWJn0n}=2HOAf`v*O50rY+80DLmQ0RE}B7QO*37dK2?0Cujr_@85c-hAVo z-DdIJd}|fgTWfi9U#|PAwA%5kgWqT^Bsz?S!!u9PjK%d>VexAB6t_LF)`M diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/tv_text.sob b/zubehör/sphinx/spinx100225-ori/sphinx1/tv_text.sob deleted file mode 100644 index 183413bc71f7145aa68140af4cd1689a13228c79..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 740 zcmX|7O-K}R6o2pU%+BoW{B7|NX=S32+acTrX6Ca@2!bG_gQqf~TL*8#UWOPi5s9=&Z|vj2d++!E{T}b*@7Br}fb7-Gr^g&Z zKuEzb`wCB`N^Q&q$dOjB%@E>*+)CYXCfw1h4uHx4#!9Y7D!?uRc+)p4wW$dYpgk$| zN_7tyqU+TrfiWWLz}j%wsQ{C3#F+&qv-0Q!uoSCJQK^Ei@qUr!=Y%Ho_5s290Qz!Tr?U#I zr@+)svl^E4qfpdXc}PcFlG8=IH_ANH{c%G_S<`i2bw4xM9xwfz@2S zmqaUGeXuA_G?(nQX1r*#X1o*=y^~GI#e`h?Pg?O#*0g&USkV}v-?pMyXiZyJaTMavQWf?w%%35bF`SP6K`e$49ir diff --git a/zubehör/sphinx/spinx100225-ori/sphinx1/tvtexted.spn b/zubehör/sphinx/spinx100225-ori/sphinx1/tvtexted.spn deleted file mode 100644 index 86f7c87..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx1/tvtexted.spn +++ /dev/null @@ -1,245 +0,0 @@ -''*************************************** -''* TV Text 40x13 v1.0 * -''* Author: Chip Gracey * -''* Copyright (c) 2006 Parallax, Inc. * -''* See end of file for terms of use. * -''*************************************** - -' Modified for ed by Michael Park - -CON - - cols = 40 - rows = 13 - - screensize = cols * rows - lastrow = screensize - cols - - tv_count = 14 - - -VAR - - long col, row, color, flag - - word screen[screensize] - long colors[8 * 2] - - long tv_status '0/1/2 = off/invisible/visible read-only (14 longs) - long tv_enable '0/non-0 = off/on write-only - long tv_pins '%pppmmmm = pin group, pin group mode write-only - long tv_mode '%tccip = tile,chroma,interlace,ntsc/pal write-only - long tv_screen 'pointer to screen (words) write-only - long tv_colors 'pointer to colors (longs) write-only - long tv_ht 'horizontal tiles write-only - long tv_vt 'vertical tiles write-only - long tv_hx 'horizontal tile expansion write-only - long tv_vx 'vertical tile expansion write-only - long tv_ho 'horizontal offset write-only - long tv_vo 'vertical offset write-only - long tv_broadcast 'broadcast frequency (Hz) write-only - long tv_auralcog 'aural fm cog write-only - - -OBJ - - tv : "tv" - - -PUB start(basepin) : okay - -'' Start terminal - starts a cog -'' returns false if no cog available - - setcolors(@palette) - out(0) - - longmove(@tv_status, @tv_params, tv_count) - tv_pins := (basepin & $38) << 1 | (basepin & 4 == 4) & %0101 - tv_screen := @screen - tv_colors := @colors - - okay := tv.start(@tv_status) - - -PUB stop - -'' Stop terminal - frees a cog - - tv.stop - - -PUB str(stringptr) - -'' Print a zero-terminated string - - repeat strsize(stringptr) - out(byte[stringptr++]) - - -PUB dec(value) | i - -'' Print a decimal number - - if value < 0 - -value - out("-") - - i := 1_000_000_000 - - repeat 10 - if value => i - out(value / i + "0") - value //= i - result~~ - elseif result or i == 1 - out("0") - i /= 10 - - -PUB hex(value, digits) - -'' Print a hexadecimal number - - value <<= (8 - digits) << 2 - repeat digits - out(lookupz((value <-= 4) & $F : "0".."9", "A".."F")) - - -PUB bin(value, digits) - -'' Print a binary number - - value <<= 32 - digits - repeat digits - out((value <-= 1) & 1 + "0") - - -PUB out(c) | i, k - -'' Output a character -'' -'' $00 = clear screen -'' $01 = home -'' $08 = backspace -'' $09 = tab (8 spaces per) -'' $0A = set X position (X follows) -'' $0B = set Y position (Y follows) -'' $0C = set color (color follows) -'' $0D = return -'' others = printable characters - - case flag - $00: case c - $00: wordfill(@screen, $220, screensize) - col := row := 0 - $01: col := row := 0 - $08: if col - col-- - $09: repeat - print(" ") - while col & 7 - $0A..$0C: flag := c - return - $0D: newline - other: print(c) - $0A: col := c // cols - $0B: row := c // rows - $0C: color := c & 7 - flag := 0 - -PUB setcolors(colorptr) | i, fore, back - -'' Override default color palette -'' colorptr must point to a list of up to 8 colors -'' arranged as follows: -'' -'' fore back -'' ------------ -'' palette byte color, color 'color 0 -'' byte color, color 'color 1 -'' byte color, color 'color 2 -'' ... - - repeat i from 0 to 7 - fore := byte[colorptr][i << 1] - back := byte[colorptr][i << 1 + 1] - colors[i << 1] := fore << 24 + back << 16 + fore << 8 + back - colors[i << 1 + 1] := fore << 24 + fore << 16 + back << 8 + back - - -PUB printNoAdvance(c) ' mpark - screen[row * cols + col] := (color << 1 + c & 1) << 10 + $200 + c & $FE - -PUB SetXY( x, y ) ' mpark - col := x - row := y - -PUB SetX( x ) ' mpark - col := x - -PUB SetY( y ) ' mpark - row := y - -PRI print(c) - - screen[row * cols + col] := (color << 1 + c & 1) << 10 + $200 + c & $FE - if ++col == cols - newline - -PRI newline | i - - col := 0 - if ++row == rows - row-- - wordmove(@screen, @screen[cols], lastrow) 'scroll lines - wordfill(@screen[lastrow], $220, cols) 'clear new line - - -DAT - -tv_params long 0 'status - long 1 'enable - long 0 'pins - long %10010 'mode - long 0 'screen - long 0 'colors - long cols 'hc - long rows 'vc - long 4 'hx - long 1 'vx - long 0 'ho - long 0 'vo - long 0 'broadcast - long 0 'auralcog - - - ' fore back - ' color color -palette byte $07, $0A '0 white / dark blue - byte $07, $BB '1 white / red - byte $9E, $9B '2 yellow / brown - byte $04, $07 '3 grey / white - byte $3D, $3B '4 cyan / dark cyan - byte $6B, $6E '5 green / gray-green - byte $BB, $CE '6 red / pink - byte $3C, $0A '7 cyan / blue - -{{ - -+------------------------------------------------------------------------------------------------------------------------------+ -¦ TERMS OF USE: MIT License ¦ -+------------------------------------------------------------------------------------------------------------------------------¦ -¦Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation ¦ -¦files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, ¦ -¦modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software¦ -¦is furnished to do so, subject to the following conditions: ¦ -¦ ¦ -¦The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.¦ -¦ ¦ -¦THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE ¦ -¦WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR ¦ -¦COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ¦ -¦ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ¦ -+------------------------------------------------------------------------------------------------------------------------------+ -}} \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/bintree.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/bintree.spn deleted file mode 100644 index 62778ed..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/bintree.spn +++ /dev/null @@ -1,238 +0,0 @@ -obj - str: "stringx" - -dat -cog long 0 - -pub Init( p0, p1 ) - pFree := p0 ' leave some room for the stack, then free space. - pLimit := p1 - - Stop - sync~~ - cog := cognew( @LookerUpper, @input ) + 1 - ifnot cog - abort string("Couldn't start bintree cog") - repeat while sync - -pub Stop - if cog - cogstop( cog~ - 1 ) - -pub FindInTable( s, p ) | d -{{ - Finds string s in table pointed to by p. - Returns pointer to s's data area if s is found, 0 otherwise. -}} - input[0] := s - input[1] := p - sync~~ - repeat while sync - return output -{ - ifnot p - return 0 - d := str.Compare( s, p+4 ) - ifnot d - return p + 4 + strsize(s) + 1 - if d < 0 - return FindInTable( s, Peekw(p) ) - ' else - return FindInTable( s, Peekw(p+2) ) -} - -pub AddToTable( s, pP ) | p, d -{{ - Adds string s to table. Note: pP is a pointer-to-pointer to table. - Returns a pointer to s's data area (actually pFree, so if you add - any data, increment pFree past it). -}} - ifnot p := PeekW( pP ) - PokeW( pP, pFree ) - PokeW( pFree, 0 ) - pFree += 2 - PokeW( pFree, 0 ) - pFree += 2 - str.Copy( pFree, s ) - pFree += strsize(s) + 1 - return pFree - - d := str.Compare( s, p+4 ) -{ - term.dec(d) - term.out(13) - waitcnt( clkfreq + cnt ) -} - ifnot d - abort string("Symbol already defined") - if d < 0 - return AddToTable( s, @word[p][0] ) - ' else - return AddToTable( s, @word[p][1] ) - -pub PeekW( p ) - return byte[p++] + byte[p] << 8 - -pub PokeW( p, w ) - byte[p++] := w - byte[p] := w >> 8 - -pub PeekL( p ) : t - repeat 4 - t := (t | byte[p++]) -> 8 - -pub PokeL( p, l ) - repeat 4 - byte[p++] := l - l >>= 8 - -dat -pFree long 0 -pLimit long 0 - -pub Alloc( n ) - result := pFree - if (pFree += n) > pLimit - abort string("Out of symbol table space") - -dat -input long 0 ' rendezvous variables for LookerUpper -output long 0 -sync long 1 - -{ -This PASM routine is equivalent to the following: - -pub FindInTable( s, p ) | d -{{ - Finds string s in table pointed to by p. - Returns pointer to s's data area if s is found, 0 otherwise. -}} - ifnot p - return 0 - d := str.Compare( s, p+4 ) - ifnot d - return p + 4 + strsize(s) + 1 - if d < 0 - return FindInTable( s, Peekw(p) ) - ' else - return FindInTable( s, Peekw(p+2) ) -} - -dat org 0 -LookerUpper - mov pInput, par ' Enter with par pointing to rendezvous area, - mov pOutput, par ' sync = 1 - add pOutput, #4 - mov pSync, par - add pSync, #8 - - rdlong pTable, pInput ' Save @tableStart - ' and ack to inform Spin program that the cog is running. -Ack - wrlong retval, pOutput - mov temp, #0 - wrlong temp, pSync - -:wait ' Wait for caller to set sync to indicate that input is ready. - rdlong temp, pSync wz - if_z jmp #:wait - - rdlong pString, pInput ' input[0] points to string to look up. - rdlong ptr, pOutput ' input[1] points to table. (input[1] = output) - - mov retval, #0 -:loop - tjz ptr, #Ack - - mov pLeft, pString ' Compare string - mov pRight, ptr ' to string at current position in table - add pRight, #4 ' (bump up ptr by 4 to skip two link words). - - call #StringCompare - - if_e jmp #:equal - if_b jmp #:less -:greater ' If left > right, - add ptr, #2 ' use the 2nd link. -:less ' If left < right, use 1st link. - rdbyte temp, ptr ' Follow the link - add ptr, #1 ' It would be nice to just "rdword ptr, ptr" here - rdbyte ptr, ptr ' but ptr might be odd so we have to go through - shl ptr, #8 ' some extra gyrations. - add ptr, temp - - jmp #:loop ' and recurse (well, just iterate). - -:equal ' If left = right, return ptr + 4 + strsize(pString) + 1 - mov retval, ptr - add retval, #5 -:x - rdbyte temp, pString wz ' add strsize(pString) - if_z jmp #:y - add retval, #1 - add pString, #1 - jmp #:x -:y - jmp #Ack - -StringCompare -' Compares zero-terminated strings pointed to by pLeft and pRight. -' On return, Z and C are set appropriately. - rdbyte temp, pLeft wz - add pLeft, #1 - if_z jmp #:leftEnd - rdbyte temp1, pRight wz - add pRight, #1 - if_z jmp #:rightEnd - cmp temp, temp1 wc, wz - if_e jmp #StringCompare ' If they match, try the next pair. - jmp #StringCompare_ret ' Otherwise, we're done. - -:leftEnd rdbyte temp1, pRight wz ' If we're at the end of both strings, - if_z jmp #StringCompare_ret ' leave (with Z set). - ' Otherwise, left string is shorter than the right - ' and therefore less. - neg temp, #1 - mov temp, temp wc, wz ' Set C=1 and Z=0 for "less than" - jmp #StringCompare_ret -:rightEnd ' Here we've reached the end of the right string. - ' The left string is longer than the right - ' and therefore greater. - mov temp, #1 wc, wz ' Set C=0 and Z=0 for "greater than" - -StringCompare_ret - ret - -temp res 1 -temp1 res 1 -ptr res 1 -pLeft res 1 -pRight res 1 -pString res 1 -pTable res 1 -pInput res 1 -pOutput res 1 -pSync res 1 -retval res 1 - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/codegen.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/codegen.spn deleted file mode 100644 index 33d3c4a..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/codegen.spn +++ /dev/null @@ -1,1072 +0,0 @@ -' 2010-02-25 new version number -con - _clkmode = xtal1 + pll8x - _xinfreq = 10_000_000 - - tvPin = 24 - sdPin = 16 - -obj - term: "isxtv" - kw: "kwdefs" - st: "symbols" - bt: "bintree" - fs: "sxfile" - str: "stringx" - token: "tokenrdr" - eval: "eval" - methods: "methods" - -pub Main | err, p - - err := \Try - if err - if err > 0 - term.str( err ) - else - term.str( string("Error ") ) - term.dec( err ) - term.out( 13 ) - if stackset and long[pSymbolTableSpace] <> $6666_6666 - term.str( string("Stack corrupt",13) ) - term.dec( token.LineNumber ) - term.out( "," ) - term.dec( token.Column + 1 ) - term.out( " " ) - term.out( "'" ) - term.str( token.Text ) - term.out( "'" ) - term.out( 13 ) - fs.Close - fs.Open( string("sphinx.bin"), "R" ) - else - fs.Close - if link - fs.Open( string("link.bin"), "R" ) - else - fs.Open( string("sphinx.bin"), "R" ) - bt.Stop - fs.Execute( 0 ) - -pri Try - ProcessCommandLine - if verbosity => 1 - term.str( string("codegen 100225", 13) ) - - Start - -pri ProcessCommandLine | nArgs, l - fs.Open( string("args.d8a"), "R" ) - nArgs := fs.ReadByte - ifnot nArgs-- - abort string("usage: compile spinfile [options]") - fs.ReadStringUpperCase( @tokenFilename, MAXFILENAMELENGTH ) - - l := strsize( @tokenFilename ) - if tokenFilename[l-4] == "." and tokenFilename[l-3] == "S" and tokenFilename[l-2] == "P" and tokenFilename[l-1] == "N" - tokenFilename[l-4]~ - if strsize( @tokenFilename ) > 8 - term.str( @tokenFilename ) - abort string(" -- filename too long") - str.Copy( @outputFilename, @tokenFilename ) - str.Copy( @binFilename, @tokenFilename ) - str.Append( @tokenFilename, string(".TOK") ) - str.Append( @outputFilename, string(".SOB") ) - str.Append( @binFilename, string(".BIN") ) - - ' Process command line arguments - - repeat while nArgs-- - fs.ReadStringUpperCase( @stringBuffer, MAXSTRINGBUFFERLENGTH ) - if stringBuffer[0] == "-" - stringBuffer[0] := "/" - if strcomp( @stringBuffer, string("/L") ) - link~~ - elseif strcomp( @stringBuffer, string("/V") ) - ifnot nArgs-- - abort string("/V must be followed by a number") - verbosity := fs.ReadNumber - elseif strcomp( @stringBuffer, string("/S") ) - ifnot nArgs-- - abort string("/S must be followed by a number") - STACKSPACE := fs.ReadNumber - if STACKSPACE & 3 - abort string("/S argument must be a multiple of 4") - elseif strcomp( @stringBuffer, string("/T") ) - ifnot nArgs-- - abort string("/T must be followed by a number") - TABLESPACE := fs.ReadNumber - if TABLESPACE & 3 - abort string("/T argument must be a multiple of 4") - 'else - ' ignore - - fs.Close - -con - MAXFILENAMELENGTH = 8 + 1 + 3 ' 8.3 - MAXSTRINGBUFFERLENGTH = 32 - -SXTVRENDEZVOUS = $8000 - 4 -RESERVED = SXTVRENDEZVOUS - 4 -SDSPIRENDEZVOUS = RESERVED - 3 * 4 -SXFS2RENDEZVOUS = SDSPIRENDEZVOUS - 4 * 4 ' four rendezvous variables -SXFSRENDEZVOUS = SXFS2RENDEZVOUS - 4 * 4 ' four rendezvous variables -METADATABUFFER = SXFSRENDEZVOUS - 512 - -_free = ($8000 - METADATABUFFER) / 4 - -var - byte tokenFilename[MAXFILENAMELENGTH+1] ' input .tok file - byte outputFilename[MAXFILENAMELENGTH+1] ' output .sob file - byte binFilename[MAXFILENAMELENGTH+1] ' output .bin file (just used to empty the .bin) - byte sobFilename[MAXFILENAMELENGTH+1] ' used for child .sob file(s) - byte stringBuffer[MAXSTRINGBUFFERLENGTH+1] ' temp string buffer - -dat -STACKSPACE long 575<<2 -TABLESPACE long 1500<<2 -verbosity byte 0 ' set by /V option -stackset byte 0 -link byte 0 ' set by /L; if non-zero, run link.bin automatically. - -{ - |<---STACKSPACE--->|<--------TABLESPACE---------->|<-----------OBJECTSPACE------------>|<-I/O RENDEZVOUS etc. - +-----+------------+-----------+------------------+------+----------------+------------+--+ - |stack| |symboltable| |header|dat/PASM|methods| | | - +-----+------------+-----------+------------------+------+----------------+------------+--+ - |tempstorage| ^ ^ |stringtemp| ^ - | | ^ ^ | - pObjSpace-+ pObjWork-+ | | +--$8000 - pStringWork-+ pObjTop-+ -} -var -' These next 3 vars actually live in methods.spin now. -' word pObjSpace ' points to area where the compiled object's header and bytecode will live (this pointer doesn't change) -' word pObjWork ' points to next available byte (this pointer changes as code is compiled) -' word pObjTop ' points just beyond available object workspace - - word pDatWork ' like pObjWork but for the DAT segment - word pSymbolTableSpace - -pri Start | i - pSymbolTableSpace := word[ $0a ] + STACKSPACE - - methods.set_pObjSpace( pSymbolTableSpace + TABLESPACE ) - methods.set_pObjTop( METADATABUFFER ) - - bt.Init( pSymbolTableSpace, methods.get_pObjSpace ) - st.Init - - long[ bt.Alloc(4) ] := $6666_6666 - stackset~~ - - ReadTimestamp - - if verbosity => 2 - term.str( string("stack space: ") ) - term.dec( STACKSPACE ) - term.str( string(13,"table space: ") ) - term.dec( TABLESPACE ) - term.str( string(13,"work space: ") ) - term.dec( methods.get_pObjTop - methods.get_pObjSpace ) - term.out( 13 ) - - term.str( string("Opening ") ) - term.str( @tokenFilename ) - term.out( 13 ) - token.Open( @tokenFilename ) - - bvarSize~ - wvarSize~ - lvarSize~ - nPubs := 1 ' pub indexes start at 1; 0th entry in object header is not a pub - nPris~ ' pri indexes have to be compensated later once final nPubs is known - nObjs~ - pObjList~ - pObjListEnd~ - - ParsePass1 - token.Close - - CheckStack - - varSize := (lvarSize + wvarSize + bvarSize + 3) & !3 - pDatWork := methods.get_pObjSpace + (nPubs + nPris + nObjs) << 2 ' each PUB/PRI/OBJ takes up 4 bytes in the object header - methods.set_pObjWork( pDatWork + datSize ) - bytefill( methods.get_pObjSpace, 0, pDatWork - methods.get_pObjSpace ) ' zero the header - - FixupOffsets( bt.PeekW( st.GetPSymbolTable ) ) - - token.Open( @tokenFilename ) - - ParsePass2 - token.Close - - methods.set_pObjWork( (methods.get_pObjWork + 3) & !3 ) ' Round up to multiple of 4 - - WriteSobFile - -pri CheckStack - if long[pSymbolTableSpace] <> $6666_6666 - abort string("Stack overflow") - -pri ReadTimestamp - if verbosity => 3 - term.str( string("reading timestamp: ") ) - - if fs.Open( string("timestmp.d8a"), "R" ) == 0 - timestamp := fs.ReadLong + 1 - fs.Close - else - timestamp := 1 - - if verbosity => 3 - term.dec( timestamp ) - term.out( 13 ) - - fs.Open( string("timestmp.d8a"), "W" ) - fs.WriteLong( timestamp ) - fs.Close - -pri WriteSobFile | p - - if nPubs == 1 ' recall that nPubs starts at 1 because of the 0th entry in the object header. - abort string("No PUB routines defined") - - ifnot link ' If we're not running the linker immediately after codegen, - if verbosity => 3 ' empty the .bin file if it exists(would be better to delete, - term.str( string("Zeroing ") ) ' but sxfs doesn't have that ability). If we forget to link, - term.str( @binFilename ) ' we'll get an error when we try to run the .bin. - term.out( 13 ) - - if fs.Open( @binFilename, "R" ) == 0 ' Check for existence - fs.Close - fs.Open( @binFilename, "W" ) - - fs.Close - - objBinSize := methods.get_pObjWork - methods.get_pObjSpace ' This gets stored in .sob header - word[methods.get_pObjSpace][0] := objBinSize ' This gets stored in object header - word[methods.get_pObjSpace][1] := nPubs + nPris + nObjs << 8 - - ' Compute checksum and hash - checksum~ - hash~ - p := methods.get_pObjSpace - repeat objBinSize - checksum += byte[p] - hash := (hash <- 1) ^ byte[p++] - - if verbosity => 2 - term.str( string("Writing ") ) - term.str( @outputFilename ) - term.out( 13 ) - - wordfill( @numExports, 0, 4 ) - ComputeSobInfo( bt.PeekW( st.GetPSymbolTable ) ) - - fs.Open( @outputFilename, "W" ) - fs.Write( @SobFileHeader, SIZEOFSOBHEADER ) - WriteExports( bt.PeekW( st.GetPSymbolTable ) ) - WriteImports - fs.Write( methods.get_pObjSpace, objBinSize ) - fs.Close - -pri FixupOffsets( p ) | s, t, v, size, headerSize, q -{{ - Goes through the symbol table and adjusts offsets of word VARs to put them after long VARs - and puts byte VARs after word VARs. - Also adjusts PRI method indexes so they come after PUBs, and OBJ indexes to put them after PRIs. - And now also adjusts DAT labels upward by the size of the object header. -}} - ifnot p - return - - FixupOffsets( bt.PeekW( p ) ) - - s := p + 4 - s += strsize(s) + 1 - if byte[s] == st#kVAR_SYMBOL ' var is followed by - ++s - size := byte[s++] ' 1-byte size (1, 2, 4) and 2-byte offset - t~ - if size == 2 - t := lvarSize ' word vars come after long vars - elseif size == 1 - t := lvarSize + wvarSize ' byte vars come after word vars - bt.PokeW( s, bt.PeekW(s) + t ) ' adjust var symbol's offset - elseif byte[s] == st#kPRI_SYMBOL - ++s - byte[s] += nPubs ' the PUBs are 1..nPubs-1, the PRIs are nPubs..nPubs+nPris-1 - elseif byte[s] == st#kOBJ_SYMBOL - ++s - byte[s][2] += nPubs + nPris ' the OBJs are nPubs+nPris.. - elseif byte[s] == st#kDAT_SYMBOL - headerSize := (nPubs + nPris + nObjs) << 2 - q := s ' start at global label - repeat ' and follow the linked list of local labels - bt.PokeW( q+2, bt.PeekW( q+2 ) + headerSize ) ' adjust label's dp - ifnot q := bt.PeekW( q+6 ) - quit - q += strsize(q) + 1 ' next in the list - - FixupOffsets( bt.PeekW( p + 2 ) ) - -{ -pri TraverseTable( p ) | s, t, v, q -{ - Symbol table dump. Call thusly: - TraverseTable( bt.PeekW( st.GetPSymbolTable ) ) -} - ifnot p - return - - TraverseTable( bt.PeekW( p ) ) - - s := p + 4 - term.str( s ) - s += strsize(s) + 1 - case t := byte[s++] - st#kINT_CON_SYMBOL: - v := bt.PeekL( s ) - term.out( "=" ) - term.dec( v ) - st#kPRI_SYMBOL, st#kPUB_SYMBOL: - if t == st#kPRI_SYMBOL - term.str( string(" pri: ") ) - else - term.str( string(" pub: ") ) - term.dec( byte[s++] ) ' method index - term.out( " " ) - term.dec( byte[s++] ) ' #params - st#kDAT_SYMBOL: - q := s-1 - repeat while q := bt.PeekW( q+6 ) - term.out(":") - term.str( q ) - q += strsize( q ) + 1 - term.str( string(" dat ") ) - case byte[s++] - 1: term.str( string("byte@") ) - 2: term.str( string("word@") ) - 4: term.str( string("long@") ) - term.hex( bt.PeekW(s), 4 ) - term.out(",") - term.hex( bt.PeekW(s+2), 4 ) - st#kVAR_SYMBOL: - term.str( string(" var ") ) - case byte[s++] - 1: term.str( string("byte@") ) - 2: term.str( string("word@") ) - 4: term.str( string("long@") ) - term.hex( bt.PeekW(s), 4 ) - st#kOBJ_SYMBOL: - term.out( ":" ) - term.str( bt.PeekW(s) ) - st#kSOB_SYMBOL: - term.out( ">" ) - term.hex( bt.PeekW(s), 4) - other: - term.out( "?" ) - term.hex( t, 2 ) - term.out( ";" ) - term.out( " " ) - - TraverseTable( bt.PeekW( p + 2 ) ) -} -con -SIZEOFSOBHEADER = 26 - -dat -SobFileHeader long - byte "SOB1" -timestamp long 0 -hash long 0 -numExports word 0 -exportSize word 0 -numImports word 0 -importSize word 0 -objBinSize word 0 -checksum byte 0 -{padding} byte 0 -varSize word 0 ' total size in bytes of vars (rounded up to multiple of 4) - - -pri ComputeSobInfo( p ) | pName, type -{{ - Traverses the symbol table and computes exportSize, numExports, importSize, numImports. - Initialize those variables to 0 before entering this routine. -}} - ifnot p - return - - pName := p + 4 - type := byte[pName + strsize(pName) + 1] - if type == st#kINT_CON_SYMBOL or type == st#kFLOAT_CON_SYMBOL - ++numExports - exportSize += strsize(pName) + 6 ' name + null + type + 4-byte value - elseif type == st#kPUB_SYMBOL - ++numExports - exportSize += strsize(pName) + 4 ' name + null + type + index + #args - elseif type == st#kOBJ_SYMBOL - pName := bt.PeekW( pName + strsize(pName) + 2 ) - ++numImports - importSize += strsize(pName) - 4 + 4 ' name (excluding ".SOB") + null + 2-byte count + reserved - - ComputeSobInfo( bt.PeekW( p ) ) - ComputeSobInfo( bt.PeekW( p + 2 ) ) - -pri WriteExports( p ) | pName, pData, type -{{ - Traverses the symbol table and writes exports to output file. -}} - ifnot p - return - - pName := p + 4 - pData := pName + strsize(pName) + 1 - type := byte[pData] - - if type == st#kINT_CON_SYMBOL or type == st#kFLOAT_CON_SYMBOL ' name + null + type + 4-byte value - fs.WriteString( pName ) - fs.WriteByte( type ) - fs.WriteLong( bt.PeekL( pData+1 ) ) - elseif type == st#kPUB_SYMBOL ' name + null + type + index + #args - fs.WriteString( pName ) - fs.WriteByte( type ) - fs.Write( pData+1, 2 ) ' index + #args - - WriteExports( bt.PeekW( p ) ) - WriteExports( bt.PeekW( p + 2 ) ) - -pri WriteImports | pName, pData, type -{{ - Traverses the OBJ list and writes imports to output file. - - We use a list so that the imports are written in the order they appear in the source. - This is important for OBJ symbols because we want the SOB imports to line up properly. -}} - pName := pObjList - repeat while pName - - pData := pName + strsize(pName) + 1 ' pName is name of symbol (e.g. "DEBUG") - ' pData points to symbol's data: 1-byte type + 2-byte pointer to SOB + 1-byte index + 2-byte count + 2-byte link - pName := bt.PeekW( pData + 1 ) ' pName is name of .sob file (e.g. "TV_TEXT.SOB") - fs.Write( pName, strsize(pName)-4 ) ' Write name but drop .SOB suffix. - fs.WriteByte( 0 ) ' Write null terminator - fs.WriteWord( bt.PeekW( pData + 4 ) ) ' Write count - fs.WriteByte( 0 ) ' Write reserved byte - - pName := bt.PeekW( pData + 6 ) ' link to next - -pri ParsePass1 - Eval.set_pass( 1 ) - InitDat - if verbosity => 2 - term.str( string("Pass 1") ) - term.out( 13 ) - ParseCon1 - repeat while token.Type <> kw#kEOF - ifnot token.IsBlockDesignator - abort string("Syntax error") - if token.Column - abort string("Block designator not in column 1") - if token.AdvanceIf( kw#kCON ) - ParseCon1 - elseif token.AdvanceIf( kw#kDAT ) - ParseDat1 - elseif token.AdvanceIf( kw#kOBJ ) - ParseObj1 - elseif token.AdvanceIf( kw#kPRI ) - ParseMethod1( st#kPRI_SYMBOL ) - elseif token.AdvanceIf( kw#kPUB ) - ParseMethod1( st#kPUB_SYMBOL ) - elseif token.AdvanceIf( kw#kVAR ) - ParseVar1 - else - abort string("Syntax error") - -pri ParsePass2 - Eval.set_pass( 2 ) - InitDat - if verbosity => 2 - term.str( string("Pass 2") ) - term.out( 13 ) - ParseCon2 - repeat while token.Type <> kw#kEOF - CheckStack - ifnot token.IsBlockDesignator - abort string("Syntax error") - if token.AdvanceIf( kw#kCON ) - ParseCon2 - elseif token.AdvanceIf( kw#kDAT ) - ParseDat2 - elseif token.AdvanceIf( kw#kOBJ ) - SkipBlock - elseif token.AdvanceIf( kw#kPRI ) - methods.Parse2( st#kPRI_SYMBOL ) - elseif token.AdvanceIf( kw#kPUB ) - methods.Parse2( st#kPUB_SYMBOL ) - elseif token.AdvanceIf( kw#kVAR ) - SkipBlock - else - abort string("Syntax error") - -pri SkipBlock - repeat until token.IsBlockDesignator or token.Type == kw#kEOF - token.Advance - -pri ParseCon1 | o, p, inc, v - o~ - token.AdvanceIf( kw#kEOL ) - repeat - inc := 1 - if token.AdvanceIf( kw#kOCTOTHORP ) - o := Eval.EvaluateExpression( 0 ) - elseif token.IsId ' Id +? - st.AddToTable( token.Text ) - byte[ p := bt.Alloc(1) ] := st#kINT_CON_SYMBOL ' p points to symbol type byte - ' in case we have to patch the type retroactively - token.Advance - if token.AdvanceIf( kw#kEQUAL ) ' Id = - v := Eval.TryToEvaluateExpression( 0 ) - if Eval.Succeeded - bt.PokeL( bt.Alloc(4), v ) - else ' it is undefined - byte[p] := st#kUNDEFINED_CON_SYMBOL - bt.Alloc(4) ' but we should allocate space for the eventual value. - elseif token.AdvanceIf( kw#kLBRACKET ) ' Id [ - inc := Eval.EvaluateExpression( 0 ) - token.Eat( kw#kRBRACKET ) - bt.PokeL( bt.Alloc(4), o ) - o += inc - else ' Plain Id - bt.PokeL( bt.Alloc(4), o ) - o += inc - else - quit - if token.Type == kw#kCOMMA or token.Type == kw#kEOL - token.Advance - else - abort string("Syntax error") - -pri ParseCon2 | o, p, inc - o~ - token.AdvanceIf( kw#kEOL ) - repeat - inc := 1 - if token.AdvanceIf( kw#kOCTOTHORP ) - o := Eval.EvaluateExpression( 0 ) - elseif token.IsId ' Id +? - p := st.SymbolLookup( token.Text ) - token.Advance - if token.AdvanceIf( kw#kEQUAL ) ' Id = - bt.PokeL( p+1, Eval.EvaluateExpression( 0 ) ) - byte[p] := st#kINT_CON_SYMBOL - elseif token.AdvanceIf( kw#kLBRACKET ) ' Id [ - inc := Eval.EvaluateExpression( 0 ) - token.Eat( kw#kRBRACKET ) - o += inc - else ' Plain Id - o += inc - else - quit - if token.Type == kw#kCOMMA or token.Type == kw#kEOL - token.Advance - else - abort string("Syntax error") - -var - word dp ' dp is the address in DAT space of current source line. - ' dp = pObjWork - pObjSpace - word ooo ' dp + ooo = cogx4; cogx4 / 4 = cog address of current source line. - word pGlobalLabel ' points to most-recently defined global label; used as the head of a linked list of local labels - byte alignment ' 1, 2, or 4 -{ - a DAT line consists of (in rough pseudo-bnf) one of the following: - 1) [label | :label] ORG|RES [ ] - 2) [label | :label] * (with commas between -- yeah, yeah, I said it was rough) - 3) [label | :label] [ ] , * - - As we process DAT statements and emit bytes, pDatWork increases, always pointing where the next byte will go. - dp = pDatWork - pObjSpace (i.e., dp 0 is the beginning of DAT space) - cogx4 = dp + ooo, where ooo is updated each time an ORG directive is encountered: - ooo = org_expression * 4 - dp - Example: - Let us say pObjSpace is 1000. The object header starts there. Say it takes up 100 bytes, so pDatWork is 1100. - In terms of DAT space, dp = 1100 - 1000 = 100. - Say there's an ORG 100, so ooo = 100 * 4 - 100 = 300. - A label defined at this point would have dp = 100, cogx4 = 100 + 300 = 400 (divide this by 4 to get cog address 100). - Suppose we assemble a PASM instruction and emit the four bytes. - Now pDatWork = 1104, dp = 104, and cogx4 = 104 + 300 = 404 (cog address 101). -} -pri InitDat - if Eval.get_pass == 1 - dp~ - ooo~ - else - ooo := methods.get_pObjSpace - pDatWork '= -dp - - pGlobalLabel~ - alignment := 1 - -pri ParseDat1 | pLabelData, p, v, size, count, dpInc, temp, cogx4 - Eval.EnteringDat - cogx4~ - repeat - pLabelData~ - if token.AdvanceIf( kw#kEOL ) - next - - if token.IsId ' label? - if byte[token.Text] == ":" ' local label? - ' Traverse the list of locals to check for duplicates - p := pGlobalLabel - repeat while p := bt.PeekW( p + 6 ) ' p points to string part of local label - if strcomp( p, token.Text ) - abort string("Duplicate local label") - p += strsize(p) + 1 ' Increment p past string part to data part - - p := bt.Alloc( strsize( token.Text ) + 9 ) ' p points to - str.Copy( p, token.Text ) ' local label's text followed by - pLabelData := p + strsize( token.Text ) + 1 ' 8 bytes of label data (to be filled in later) - byte[ pLabelData ] := st#kDAT_SYMBOL ' type - bt.PokeW( pLabelData+6, bt.PeekW(pGlobalLabel+6) ) ' pointer to local labels - ifnot pGlobalLabel - abort string("No preceding global label") - bt.PokeW( pGlobalLabel+6, p ) ' Insert this local label at head of list - - else ' plain old label - st.AddToTable( token.Text ) - pLabelData := bt.Alloc( 8 ) ' local label data - byte[ pLabelData ] := st#kDAT_SYMBOL ' type - bt.PokeW( pLabelData+6, 0 ) ' pointer to local labels - - pGlobalLabel := pLabelData - - token.Advance - - dpInc~ - if token.AdvanceIf( kw#kORG ) ' Case 1a: ORG [ ] - alignment := 4 - PadToAlignment - temp~ ' default ORG is 0 - if token.Type <> kw#kEOL - temp := Eval.EvaluateExpression( pGlobalLabel ) << 2 - ooo := temp - dp - cogx4 := dp + ooo - elseif token.AdvanceIf( kw#kRES ) ' Case 1b: RES [ ] - alignment := 4 - PadToAlignment - temp := 4 ' default RES is 1 long - if token.Type <> kw#kEOL - temp := Eval.EvaluateExpression( pGlobalLabel ) << 2 - cogx4 := dp + ooo - ooo += temp - elseif token.AdvanceIf( kw#kFIT ) - temp := 496 - if token.Type <> kw#kEOL - temp := Eval.EvaluateExpression( pGlobalLabel ) - if cogx4 > temp << 2 - abort string("Origin exceeds FIT limit") - elseif token.IsSize ' Case 2. BYTE/WORD/LONG * - alignment := |< (token.Type - kw#kBYTE) ' 1/2/4 - PadToAlignment - cogx4 := dp + ooo - token.Advance - if token.Type <> kw#kEOL - repeat - size := alignment - if token.IsSize - size := |< (token.Type - kw#kBYTE) ' 1/2/4 -- just size - token.Advance - v := Eval.TryToEvaluateExpression( pGlobalLabel ) - count := 1 - if token.AdvanceIf( kw#kLBRACKET ) - count := Eval.EvaluateExpression( pGlobalLabel ) - token.Eat( kw#kRBRACKET ) - dpInc += count * size - while token.AdvanceIf( kw#kCOMMA ) - elseif token.IsCond or token.IsPasm ' Case 3. [ ] - alignment := 4 - PadToAlignment - cogx4 := dp + ooo - dpInc := 4 - repeat - token.Advance - until token.Type == kw#kEOL - elseif token.Type <> kw#kEOL - abort string("Syntax error") - - if pLabelData ' Was a label defined on the current source line? - byte[pLabelData+1] := alignment ' data size - bt.PokeW( pLabelData+2, dp ) ' Address in DAT space - bt.PokeW( pLabelData+4, cogx4 ) ' Cog address x 4 - ' The local label linked list pointer was filled in previously - dp += dpInc - cogx4 += dpInc - - until token.IsBlockDesignator or token.Type == kw#kEOF - - datSize := dp - - Eval.LeavingDat - -pri ParseDat2 | pLabelData, p, v, size, count, temp, cond, pasmOp, ds, effect, oooInc - Eval.EnteringDat - oooInc~ - repeat - pLabelData~ - if token.AdvanceIf( kw#kEOL ) - next - - if token.IsId ' label? - if byte[token.Text] == ":" ' local label? - ' Traverse the list of locals to find this one. - p := pGlobalLabel - repeat while p := bt.PeekW( p + 6 ) ' p points to string part of local label - if strcomp( p, token.Text ) - quit - p += strsize(p) + 1 ' Increment p past string part to data part - pLabelData := p + strsize(p) + 1 - else ' plain old label - pLabelData := st.SymbolLookup( token.Text ) - pGlobalLabel := pLabelData - - token.Advance - - dp := pDatWork - methods.get_pObjSpace - - if token.AdvanceIf( kw#kORG ) ' Case 1: ORG - temp~ ' default ORG is 0 - alignment := 4 - PadToAlignment - if token.Type <> kw#kEOL - temp := Eval.EvaluateExpression( pGlobalLabel ) << 2 - ooo := temp - dp - elseif token.AdvanceIf( kw#kRES ) ' Case 1b: RES [ ] - alignment := 4 - PadToAlignment - oooInc := 4 ' default RES is 1 long - if token.Type <> kw#kEOL - oooInc := Eval.EvaluateExpression( pGlobalLabel ) << 2 - elseif token.AdvanceIf( kw#kFIT ) ' ignore FIT in pass 2 - if token.Type <> kw#kEOL - Eval.EvaluateExpression( pGlobalLabel ) - - elseif token.IsSize ' Case 2. BYTE/WORD/LONG * - alignment := |< (token.Type - kw#kBYTE) ' 1/2/4 - PadToAlignment - token.Advance - if token.Type == kw#kEOL - next - repeat - size := alignment - if token.IsSize - size := |< (token.Type - kw#kBYTE) ' 1/2/4 -- just size - token.Advance - v := Eval.EvaluateExpression( pGlobalLabel ) - count := 1 - if token.AdvanceIf( kw#kLBRACKET ) - count := Eval.EvaluateExpression( pGlobalLabel ) - token.Eat( kw#kRBRACKET ) - repeat count - temp := v - repeat size - EmitDat( temp ) - temp >>= 8 - while token.AdvanceIf( kw#kCOMMA ) - elseif token.IsCond or token.IsPasm - alignment := 4 - PadToAlignment - cond~~ - if token.IsCond - cond := token.GetCond - token.Advance - ifnot token.IsPasm - abort string("Expected PASM instruction") - ds := %11 - case token.Type - kw#kAND: pasmOp := $60bc0000 ' Special handling for double-duty PASM mnemonics - kw#kOR: pasmOp := $68bc0000 - kw#kWAITCNT: pasmOp := $f8bc0000 - kw#kWAITPEQ: pasmOp := $f03c0000 - kw#kWAITPNE: pasmOp := $f43c0000 - kw#kWAITVID: pasmOp := $fc3c0000 - kw#kCOGID: pasmOp := $0cfc0001 - ds := %10 - kw#kCOGINIT: pasmOp := $0c7c0002 - ds := %10 - kw#kCOGSTOP: pasmOp := $0cfc0003 - ds := %10 - kw#kCLKSET: pasmOp := $0c7c0000 - ds := %10 - other: - pasmOp := token.GetPasmOp - ds := token.GetPasmDS - - if token.Type == kw#kCALL ' special handling for CALL instruction - token.Advance - token.Eat( kw#kOCTOTHORP ) - ifnot token.IsId - abort string("Expected return label") - str.Copy( @stringBuffer, token.Text ) - str.Append( @stringBuffer, string("_RET") ) - ifnot p := st.SymbolLookup( @stringBuffer ) - abort string("Return label not found") - if byte[p] <> st#kDAT_SYMBOL - abort string("Non-DAT return label") - temp := bt.PeekW( p+4 ) - if temp & 3 - abort string("Return label is not long") - pasmOp |= ((temp >> 2 & $1ff) << 9) | (Eval.EvaluateExpression( pGlobalLabel ) & $1ff) ' combine destination and source - - else ' regular PASM instruction - token.Advance - if ds & %10 ' destination operand - pasmOp |= (Eval.EvaluateExpression( pGlobalLabel ) & $1ff) << 9 - if ds == %11 - token.Eat( kw#kCOMMA ) - if ds & %01 - if token.AdvanceIf( kw#kOCTOTHORP ) ' immediate? - pasmOp |= |< 22 ' set I - pasmOp |= Eval.EvaluateExpression( pGlobalLabel ) & $1ff ' source operand - - effect~ - if token.Type <> kw#kEOL - repeat - ifnot token.IsEffect - abort string("Expected PASM effect") - if token.GetEffect == 8 ' NR? - effect &= %110 ' clear R - else - effect |= token.GetEffect - token.Advance - while token.AdvanceIf( kw#kCOMMA ) - - if pasmOp == 0 and (cond <> -1 or effect ) - abort string("Conditions and effects not allowed on NOP") - - pasmOp |= (effect << 23) - if cond <> -1 - pasmOp := pasmOp & %111111_1111_0000_111111111_111111111 | (cond << 18) - - repeat 4 - EmitDat( pasmOp ) - pasmOp >>= 8 - - if pLabelData ' Was a label defined on the current source line? - if byte[pLabelData+1] <> alignment { data size -} or bt.PeekW( pLabelData+2 ) <> dp { Address in DAT space -} or bt.PeekW( pLabelData+4 ) <> dp + ~~ooo ' Cog address x 4 - term.dec(byte[pLabelData+1]) - term.out(" ") - term.dec(alignment) - term.out(13) - term.dec(bt.PeekW( pLabelData+2 )) - term.out(" ") - term.dec(dp) - term.out(13) - term.dec(bt.PeekW( pLabelData+4 )) - term.out(" ") - term.dec(dp+~~ooo) - abort string("Phase error") - - ooo += oooInc~ - - until token.IsBlockDesignator or token.Type == kw#kEOF - Eval.LeavingDat - -pri PadToAlignment - repeat (alignment - dp) & (alignment - 1) ' number of bytes needed to pad to new alignment - ++dp - if Eval.get_pass == 2 - EmitDat( 0 ) ' padding - -pri EmitDat( b ) - byte[pDatWork++] := b - -var - word pObjList ' OBJ symbols are linked together in a list. - word pObjListEnd ' Pointer to the last OBJ; append new OBJs at the end. - -pri ParseObj1 | i, count, pObj, pSob, pObjName -{{ - { [ ] } : -}} - token.AdvanceIf( kw#kEOL ) - repeat while token.IsId - pObjName := bt.Alloc( 0 ) + 4 ' Hacky way to get pointer to the name field of the symbol we're about to add. - st.AddToTable( token.Text ) - pObj := bt.Alloc( 8 ) ' type (1), ptr to sym table (2), index(1), count (2), ptr to next (2) - byte[pObj] := st#kOBJ_SYMBOL - - token.Advance - - count := 1 - if token.AdvanceIf( kw#kLBRACKET ) - count := Eval.EvaluateExpression( 0 ) - token.Eat( kw#kRBRACKET ) - - token.Eat( kw#kCOLON ) - - byte[pObj][3] := nObjs - nObjs += count - bt.PokeW( pObj+4, count ) - - ' Link this OBJ into the list of OBJs - if pObjListEnd ' this points to last OBJ name field - pObjListEnd += strsize(pObjListEnd)+1 ' now this points to OBJ data - bt.PokeW( pObjListEnd+6, pObjName ) ' make a link to new OBJ name field - - pObjListEnd := pObjName - bt.PokeW( pObj+6, 0 ) - - ifnot pObjList - pObjList := pObjName - - i~ - repeat - ifnot token.IsIntLiteral - abort string("Syntax error") - sobFilename[i++] := token.Value - if i > MAXFILENAMELENGTH-4 ' have to leave room for ".sob" suffix - abort string("SOB filename too long") - token.Advance - while token.AdvanceIf( kw#kCOMMA ) - - sobFilename[i]~ - str.ToUpper( @sobFilename ) - str.Append( @sobFilename, string(".SOB") ) - - ifnot pSob := st.SymbolLookup( @sobFilename ) - st.AddToTable( @sobFilename ) - byte[ pSob := bt.Alloc(3) ] := st#kSOB_SYMBOL ' type (1), ptr to sym table (2) - bt.PokeW( pSob+1, 0 ) - ReadSobFile( pSob+1 ) - bt.PokeW( pObj+1, pSob - strsize(@sobFilename) - 1 ) - - token.Eat( kw#kEOL ) - -con -SOBFILEFORMATVERSION = "S" + "O" << 8 + "B" << 16 + "1" << 24 ' "SOB1" - -pri ReadSobFile( pSobTable ) | p, t - if verbosity => 3 - term.str( string("Reading ") ) - term.str( @sobFilename ) - term.out( 13 ) - if fs.Open( @sobFilename, "R" ) <> 0 - term.str( @sobFilename ) - abort string(" -- couldn't open") - - if fs.Readlong <> SOBFILEFORMATVERSION ' SOB file format version - abort string("Unrecognized SOB file format") - fs.Readlong ' timestamp - fs.ReadLong ' hash - numExports := fs.ReadWord ' number of exports - exportSize := fs.ReadWord ' size of exports segment - fs.ReadWord ' number of imports - importSize := fs.ReadWord ' size of imports segment - fs.ReadWord ' size of bytecode segment - fs.ReadByte ' checksum - fs.ReadByte ' padding - fs.ReadWord ' size of sob's VAR space - - repeat numExports - fs.ReadStringUpperCase( @stringBuffer, MAXSTRINGBUFFERLENGTH ) - bt.AddToTable( @stringBuffer, pSobTable ) - case t := fs.ReadByte - st#kINT_CON_SYMBOL, st#kFLOAT_CON_SYMBOL: - p := bt.Alloc( 5 ) - byte[p++] := t - bt.PokeL( p, fs.ReadLong ) - st#kPUB_SYMBOL: - p := bt.Alloc( 3 ) - byte[p++] := t - byte[p++] := fs.ReadByte ' method index - byte[p++] := fs.ReadByte ' #params - - fs.Close - -pri ParseMethod1( type ) | nargs -' type = st#kPRI_SYMBOL or st#kPUB_SYMBOL - ifnot token.IsId - abort string("Expected ID") - st.AddToTable( token.Text ) - token.Advance - nargs~ - if token.AdvanceIf( kw#kLPAREN ) - repeat - ++nargs - ifnot token.IsId - abort string("Expected ID") - token.Advance - while token.AdvanceIf( kw#kCOMMA ) - token.Eat( kw#kRPAREN ) - if nargs > 255 - abort string("Too many parameters") - byte[ bt.Alloc(1) ] := type - if type == st#kPUB_SYMBOL - byte[ bt.Alloc(1) ] := nPubs++ - else - byte[ bt.Alloc(1) ] := nPris++ - byte[ bt.Alloc(1) ] := nargs - - SkipBlock - -var - word bvarSize ' size in bytes of byte var area - word wvarSize ' size in bytes of word var area - word lvarSize ' size in bytes of long var area - byte nPubs, nPris - word nObjs - word datSize ' size in bytes of DAT area - -pri ParseVar1 | s, t, dim - token.AdvanceIf( kw#kEOL ) - repeat while token.IsSize - if token.Type == kw#kBYTE - s~ - elseif token.Type == kw#kWORD - s := 1 - elseif token.Type == kw#kLONG - s := 2 - token.Advance - repeat - ifnot token.IsId - abort string("Expected ID") - st.AddToTable( token.Text ) - token.Advance - byte[ bt.Alloc(1) ] := st#kVAR_SYMBOL - byte[ bt.Alloc(1) ] := |< s - if token.AdvanceIf( kw#kLBRACKET ) - dim := Eval.EvaluateExpression( 0 ) - token.Eat( kw#kRBRACKET ) - else - dim := 1 - bt.PokeW( bt.Alloc(2), bvarSize[s] ) - bvarSize[s] += dim << s - while token.AdvanceIf( kw#kCOMMA ) - token.Eat( kw#kEOL ) - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/eval.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/eval.spn deleted file mode 100644 index 7990199..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/eval.spn +++ /dev/null @@ -1,216 +0,0 @@ -obj - kw : "kwdefs" - token : "tokenrdr" - bt : "bintree" - st : "symbols" - -dat -pass byte 0 -insideDAT byte 0 -ignoreUndefined byte 0 -evalSuccess byte 0 -pGlobalLabel word 0 - -pub set_Pass( p ) - pass := p - -pub get_Pass - return pass - -pub EnteringDat - insideDAT~~ - -pub LeavingDat - insideDAT~ - -pub Succeeded - return evalSuccess - -pub TryToEvaluateExpression( _pGlobalLabel ) -{{ -}} - pGlobalLabel := _pGlobalLabel - ignoreUndefined~~ - evalSuccess~~ - return Evaluate( 13 ) - -pub EvaluateExpression( _pGlobalLabel ) - pGlobalLabel := _pGlobalLabel - ignoreUndefined~ - evalSuccess~~ - return Evaluate( 13 ) - -pri Evaluate( rbp ) | prec, lbp, t - prec := token.GetPrecedence - - if token.AdvanceIf( kw#kAT ) - result := EvaluateSymbol( true ) - elseif (token.IsUnaryOp and not token.IsPostfixOp) or token.Type == kw#kMINUS - t := token.Type - token.Advance - result := EvaluateUnary( t, prec ) - elseif token.AdvanceIf( kw#kLPAREN ) - result := Evaluate( 13 ) - token.Eat( kw#kRPAREN ) - elseif token.IsIntLiteral or token.IsFloatLiteral - result := token.Value - token.Advance - elseif token.IsReg - result := $1f0 + token.GetReg - token.Advance - else - result := EvaluateSymbol( false ) - - repeat - lbp := token.GetPrecedence - - if rbp =< lbp - quit - - t := token.Type - token.Advance - result := EvaluateBinary( t, result, Evaluate( lbp ) ) - -pri EvaluateSymbol( takeAddress ) | p, t, pObj, cogx4, pLocalLabels -{{ - CON symbols evaluate as their defined values, as do OBJ#constants. - DAT symbols evaluate differently depending on context. -}} - if byte[token.Text] == ":" ' local label? - ifnot pGlobalLabel - abort string("Unknown local label(1)") - - p := pGlobalLabel ' Search local label list for current token. - repeat - ifnot p := bt.PeekW( p + 6 ) ' p points to string part of local label - if ignoreUndefined - evalSuccess~ - token.Advance - return -1 ' dummy value - abort string("Unknown local label(2)") - if strcomp( p, token.Text ) - quit - p += strsize(p) + 1 ' Increment p past string part to data part - ' On exit, we've found the local label. - p += strsize(p) + 1 ' Increment p past string part to data part - - else - p := st.SymbolLookup( token.Text ) - ifnot p - if ignoreUndefined - evalSuccess~ - token.Advance - return -1 - abort string("Unknown symbol") - - t := byte[p] - - if t == st#kINT_CON_SYMBOL or t == st#kFLOAT_CON_SYMBOL or t == st#kBUILTIN_INT_SYMBOL or t == st#kBUILTIN_FLOAT_SYMBOL - ' TODO: should handle floats differently - if takeAddress - abort string("Can't take address of CON symbol") - token.Advance - return bt.PeekL( p+1 ) - if t == st#kUNDEFINED_CON_SYMBOL - if ignoreUndefined - evalSuccess~ - token.Advance - return -1 ' dummy value - abort string("Undefined CON symbol") - if t == st#kOBJ_SYMBOL - if takeAddress - abort string("Can't take address of OBJ symbol") - token.Advance - p := bt.PeekW( p+1 ) - pObj := bt.PeekW( p + strsize(p) + 2 ) - token.Eat( kw#kOCTOTHORP ) - ifnot p := bt.FindInTable( token.Text, pObj ) - abort string("CON symbol unknown in sub-object") - 't := byte[p] -- at this point, t should be either kINT_CON_SYMBOL or kFLOAT_CON_SYMBOL - ' TODO: should handle floats differently - token.Advance - return bt.PeekL( p+1 ) - - if t == st#kDAT_SYMBOL - if pass == 1 - if ignoreUndefined - evalSuccess~ - token.Advance - return -1 ' dummy value - if takeAddress - abort string("Can't take address of DAT symbol in pass 1") - if not insideDAT or takeAddress - token.Advance - return bt.PeekW( p+2 ) - - cogx4 := bt.PeekW( p+4 ) - if cogx4 & 3 - abort string("Address is not long") - token.Advance - return cogx4 >> 2 - - abort string("Invalid symbol in constant expression") - -pri EvaluateUnary( t, prec ) -{{ - -}} - result := Evaluate( prec ) - case t & $ff - $ed: -result - $e7: !result - $ff: not result - $f3: ||result - $f8: ^^result - $e9: ||result - other: abort string("Syntax error in constant expression(1)") - -pri EvaluateBinary( t, a, b ) - case t & $ff - $ec: return a + b - $ed: return a - b - $f4: return a * b - $f6: return a / b - $f5: return a ** b - $f7: return a // b - $e0: return a -> b - $e1: return a <- b - $e2: return a >> b - $e3: return a << b - $ee: return a ~> b - $ef: return a >< b - $e8: return a & b - $ea: return a | b - $eb: return a ^ b - $e4: return a #> b - $e5: return a <# b - $f9: return a < b - $fa: return a > b - $fc: return a == b - $fb: return a <> b - $fd: return a =< b - $fe: return a => b - $f0: return a and b - $f2: return a or b - other: abort string("Syntax error in constant expression(2)") - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/fltmath.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/fltmath.spn deleted file mode 100644 index 4204f99..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/fltmath.spn +++ /dev/null @@ -1,219 +0,0 @@ -''*************************************** -''* Floating-Point Math * -''* Single-precision IEEE-754 * -''* Author: Chip Gracey * -''* Copyright (c) 2006 Parallax, Inc. * -''* See end of file for terms of use. * -''*************************************** - - -PUB FFloat(integer) : single | s, x, m - -''Convert integer to float - - if m := ||integer 'absolutize mantissa, if 0, result 0 - s := integer >> 31 'get sign - x := >|m - 1 'get exponent - m <<= 31 - x 'msb-justify mantissa - m >>= 2 'bit29-justify mantissa - - return Pack(@s) 'pack result - - -PUB FRound(single) : integer - -''Convert float to rounded integer - - return FInteger(single, 1) 'use 1/2 to round - - -PUB FTrunc(single) : integer - -''Convert float to truncated integer - - return FInteger(single, 0) 'use 0 to round - - -PUB FNeg(singleA) : single - -''Negate singleA - - return singleA ^ $8000_0000 'toggle sign bit - - -PUB FAbs(singleA) : single - -''Absolute singleA - - return singleA & $7FFF_FFFF 'clear sign bit - - -PUB FSqr(singleA) : single | s, x, m, root - -''Compute square root of singleA - - if singleA > 0 'if a =< 0, result 0 - - Unpack(@s, singleA) 'unpack input - - m >>= !x & 1 'if exponent even, shift mantissa down - x ~>= 1 'get root exponent - - root := $4000_0000 'compute square root of mantissa - repeat 31 - result |= root - if result ** result > m - result ^= root - root >>= 1 - m := result >> 1 - - return Pack(@s) 'pack result - - -PUB FAdd(singleA, singleB) : single | sa, xa, ma, sb, xb, mb - -''Add singleA and singleB - - Unpack(@sa, singleA) 'unpack inputs - Unpack(@sb, singleB) - - if sa 'handle mantissa negation - -ma - if sb - -mb - - result := ||(xa - xb) <# 31 'get exponent difference - if xa > xb 'shift lower-exponent mantissa down - mb ~>= result - else - ma ~>= result - xa := xb - - ma += mb 'add mantissas - sa := ma < 0 'get sign - ||ma 'absolutize result - - return Pack(@sa) 'pack result - - -PUB FSub(singleA, singleB) : single - -''Subtract singleB from singleA - - return FAdd(singleA, FNeg(singleB)) - - -PUB FMul(singleA, singleB) : single | sa, xa, ma, sb, xb, mb - -''Multiply singleA by singleB - - Unpack(@sa, singleA) 'unpack inputs - Unpack(@sb, singleB) - - sa ^= sb 'xor signs - xa += xb 'add exponents - ma := (ma ** mb) << 3 'multiply mantissas and justify - - return Pack(@sa) 'pack result - - -PUB FDiv(singleA, singleB) : single | sa, xa, ma, sb, xb, mb - -''Divide singleA by singleB - - Unpack(@sa, singleA) 'unpack inputs - Unpack(@sb, singleB) - - sa ^= sb 'xor signs - xa -= xb 'subtract exponents - - repeat 30 'divide mantissas - result <<= 1 - if ma => mb - ma -= mb - result++ - ma <<= 1 - ma := result - - return Pack(@sa) 'pack result - - -PRI FInteger(a, r) : integer | s, x, m - -'Convert float to rounded/truncated integer - - Unpack(@s, a) 'unpack input - - if x => -1 and x =< 30 'if exponent not -1..30, result 0 - m <<= 2 'msb-justify mantissa - m >>= 30 - x 'shift down to 1/2-lsb - m += r 'round (1) or truncate (0) - m >>= 1 'shift down to lsb - if s 'handle negation - -m - return m 'return integer - - -PRI Unpack(pointer, single) | s, x, m - -'Unpack floating-point into (sign, exponent, mantissa) at pointer - - s := single >> 31 'unpack sign - x := single << 1 >> 24 'unpack exponent - m := single & $007F_FFFF 'unpack mantissa - - if x 'if exponent > 0, - m := m << 6 | $2000_0000 '..bit29-justify mantissa with leading 1 - else - result := >|m - 23 'else, determine first 1 in mantissa - x := result '..adjust exponent - m <<= 7 - result '..bit29-justify mantissa - - x -= 127 'unbias exponent - - longmove(pointer, @s, 3) 'write (s,x,m) structure from locals - - -PRI Pack(pointer) : single | s, x, m - -'Pack floating-point from (sign, exponent, mantissa) at pointer - - longmove(@s, pointer, 3) 'get (s,x,m) structure into locals - - if m 'if mantissa 0, result 0 - - result := 33 - >|m 'determine magnitude of mantissa - m <<= result 'msb-justify mantissa without leading 1 - x += 3 - result 'adjust exponent - - m += $00000100 'round up mantissa by 1/2 lsb - if not m & $FFFFFF00 'if rounding overflow, - x++ '..increment exponent - - x := x + 127 #> -23 <# 255 'bias and limit exponent - - if x < 1 'if exponent < 1, - m := $8000_0000 + m >> 1 '..replace leading 1 - m >>= -x '..shift mantissa down by exponent - x~ '..exponent is now 0 - - return s << 31 | x << 23 | m >> 9 'pack result - -{{ - -+------------------------------------------------------------------------------------------------------------------------------+ -¦ TERMS OF USE: MIT License ¦ -+------------------------------------------------------------------------------------------------------------------------------¦ -¦Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation ¦ -¦files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, ¦ -¦modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software¦ -¦is furnished to do so, subject to the following conditions: ¦ -¦ ¦ -¦The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.¦ -¦ ¦ -¦THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE ¦ -¦WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR ¦ -¦COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ¦ -¦ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ¦ -+------------------------------------------------------------------------------------------------------------------------------+ -}} \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/fltstr.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/fltstr.spn deleted file mode 100644 index b997b59..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/fltstr.spn +++ /dev/null @@ -1,534 +0,0 @@ -''***************************************** -''* Floating-Point <-> Strings v 1.2 * -''* Single-precision IEEE-754 * -''* Authors: Chip Gracey and Cam Thompson * -''* (C) 2006 Parallax, Inc. * -''* See end of file for terms of use. * -''***************************************** - -'' v1.0 - 01 May 2006 - original version -'' v1.1 - 12 Jul 2006 - added FloatToFormat routine -'' v1.2 - 06 Mar 2009 - added StringToFloat [mpark] -VAR - - long p, digits, exponent, integer, tens, zeros, precision - long positive_chr, decimal_chr, thousands_chr, thousandths_chr - byte float_string[20] - - -OBJ - ' The F object can be FloatMath, Float32 or Float32Full depending on the application - F : "FltMath" - -PUB FloatToString(Single) : StringPtr - -''Convert floating-point number to string -'' -'' entry: -'' Single = floating-point number -'' -'' exit: -'' StringPtr = pointer to resultant z-string -'' -'' Magnitudes below 1e+12 and within 1e-12 will be expressed directly; -'' otherwise, scientific notation will be used. -'' -'' examples results -'' ----------------------------------------- -'' FloatToString(0.0) "0" -'' FloatToString(1.0) "1" -'' FloatToString(-1.0) "-1" -'' FloatToString(^^2.0) "1.414214" -'' FloatToString(2.34e-3) "0.00234" -'' FloatToString(-1.5e-5) "-0.000015" -'' FloatToString(2.7e+6) "2700000" -'' FloatToString(1e11) "100000000000" -'' FloatToString(1e12) "1.000000e+12" -'' FloatToString(1e-12) "0.000000000001" -'' FloatToString(1e-13) "1.000000e-13" - - 'perform initial setup - StringPtr := Setup(Single) - - 'eliminate trailing zeros - if integer - repeat until integer // 10 - integer /= 10 - tens /= 10 - digits-- - else - digits~ - - 'express number according to exponent - case exponent - 'in range left of decimal - 11..0: - AddDigits(exponent + 1) - 'in range right of decimal - -1..digits - 13: - zeros := -exponent - AddDigits(1) - 'out of range, do scientific notation - other: - DoScientific - - 'terminate z-string - byte[p]~ - - -PUB FloatToScientific(Single) : StringPtr - -''Convert floating-point number to scientific-notation string -'' -'' entry: -'' Single = floating-point number -'' -'' exit: -'' StringPtr = pointer to resultant z-string -'' -'' examples results -'' ------------------------------------------------- -'' FloatToScientific(1e-9) "1.000000e-9" -'' FloatToScientific(^^2.0) "1.414214e+0" -'' FloatToScientific(0.00251) "2.510000e-3" -'' FloatToScientific(-0.0000150043) "-1.500430e-5" - - 'perform initial setup - StringPtr := Setup(Single) - - 'do scientific notation - DoScientific - - 'terminate z-string - byte[p]~ - - -PUB FloatToMetric(Single, SuffixChr) : StringPtr | x, y - -''Convert floating-point number to metric string -'' -'' entry: -'' Single = floating-point number -'' SuffixChr = optional ending character (0=none) -'' -'' exit: -'' StringPtr = pointer to resultant z-string -'' -'' Magnitudes within the metric ranges will be expressed in metric -'' terms; otherwise, scientific notation will be used. -'' -'' range name symbol -'' ----------------------- -'' 1e24 yotta Y -'' 1e21 zetta Z -'' 1e18 exa E -'' 1e15 peta P -'' 1e12 tera T -'' 1e9 giga G -'' 1e6 mega M -'' 1e3 kilo k -'' 1e0 - - -'' 1e-3 milli m -'' 1e-6 micro u -'' 1e-9 nano n -'' 1e-12 pico p -'' 1e-15 femto f -'' 1e-18 atto a -'' 1e-21 zepto z -'' 1e-24 yocto y -'' -'' examples results -'' ------------------------------------ -'' metric(2000.0, "m") "2.000000km" -'' metric(-4.5e-5, "A") "-45.00000uA" -'' metric(2.7e6, 0) "2.700000M" -'' metric(39e31, "W") "3.9000e+32W" - - 'perform initial setup - StringPtr := Setup(Single) - - 'determine thousands exponent and relative tens exponent - x := (exponent + 45) / 3 - 15 - y := (exponent + 45) // 3 - - 'if in metric range, do metric - if ||x =< 8 - 'add digits with possible decimal - AddDigits(y + 1) - 'if thousands exponent not 0, add metric indicator - if x - byte[p++] := " " - byte[p++] := metric[x] - 'if out of metric range, do scientific notation - else - DoScientific - - 'if SuffixChr not 0, add SuffixChr - if SuffixChr - byte[p++] := SuffixChr - - 'terminate z-string - byte[p]~ - - -PUB FloatToFormat(single, width, dp) : stringptr | n, w2 - -''Convert floating-point number to formatted string -'' -'' entry: -'' Single = floating-point number -'' width = width of field -'' dp = number of decimal points -'' -'' exit: -'' StringPtr = pointer to resultant z-string -'' -'' asterisks are displayed for format errors -'' leading blank fill is used - - ' get string pointer - stringptr := p := @float_string - - ' width must be 1 to 9, dp must be 0 to width-1 - w2 := width := width #> 1 <# 9 - dp := dp #> 0 <# (width - 2) - if dp > 0 - w2-- - if single & $8000_0000 or positive_chr - w2-- - - ' get positive scaled integer value - n := F.FRound(F.FMul(single & $7FFF_FFFF , F.FFloat(teni[dp]))) - - if n => teni[w2] - ' if format error, display asterisks - repeat while width - if --width == dp - if decimal_chr - byte[p++] := decimal_chr - else - byte[p++] := "." - else - byte[p++] := "*" - byte[p]~ - - else - ' store formatted number - p += width - byte[p]~ - - repeat width - byte[--p] := n // 10 + "0" - n /= 10 - if --dp == 0 - if decimal_chr - byte[--p] := decimal_chr - else - byte[--p] := "." - if n == 0 and dp < 0 - quit - - ' store sign - if single & $80000000 - byte[--p] := "-" - elseif positive_chr - byte[--p] := positive_chr - ' leading blank fill - repeat while p <> stringptr - byte[--p] := " " - -PUB SetPrecision(NumberOfDigits) - -''Set precision to express floating-point numbers in -'' -'' NumberOfDigits = Number of digits to round to, limited to 1..7 (7=default) -'' -'' examples results -'' ------------------------------- -'' SetPrecision(1) "1e+0" -'' SetPrecision(4) "1.000e+0" -'' SetPrecision(7) "1.000000e+0" - - precision := NumberOfDigits - - -PUB SetPositiveChr(PositiveChr) - -''Set lead character for positive numbers -'' -'' PositiveChr = 0: no character will lead positive numbers (default) -'' non-0: PositiveChr will lead positive numbers (ie " " or "+") -'' -'' examples results -'' ---------------------------------------- -'' SetPositiveChr(0) "20.07" "-20.07" -'' SetPositiveChr(" ") " 20.07" "-20.07" -'' SetPositiveChr("+") "+20.07" "-20.07" - - positive_chr := PositiveChr - - -PUB SetDecimalChr(DecimalChr) - -''Set decimal point character -'' -'' DecimalChr = 0: "." will be used (default) -'' non-0: DecimalChr will be used (ie "," for Europe) -'' -'' examples results -'' ---------------------------- -'' SetDecimalChr(0) "20.49" -'' SetDecimalChr(",") "20,49" - - decimal_chr := DecimalChr - - -PUB SetSeparatorChrs(ThousandsChr, ThousandthsChr) - -''Set thousands and thousandths separator characters -'' -'' ThousandsChr = -'' 0: no character will separate thousands (default) -'' non-0: ThousandsChr will separate thousands -'' -'' ThousandthsChr = -'' 0: no character will separate thousandths (default) -'' non-0: ThousandthsChr will separate thousandths -'' -'' examples results -'' ----------------------------------------------------------- -'' SetSeparatorChrs(0, 0) "200000000" "0.000729345" -'' SetSeparatorChrs(0, "_") "200000000" "0.000_729_345" -'' SetSeparatorChrs(",", 0) "200,000,000" "0.000729345" -'' SetSeparatorChrs(",", "_") "200,000,000" "0.000_729_345" - - thousands_chr := ThousandsChr - thousandths_chr := ThousandthsChr - - -PUB StringToFloat(strptr) : flt | significand, ssign, places, exp, esign -{{ - Converts string to floating-point number - entry: - strptr = pointer to z-string - - exit: - flt = floating-point number - - - Assumes the following floating-point syntax: [-] [0-9]* [ . [0-9]* ] [ e|E [-|+] [0-9]* ] - +-- +----- +----------- +------------------- - ¦ ¦ ¦ ¦ +---- +----- - Optional negative sign --------------------+ ¦ ¦ ¦ ¦ ¦ - Digits ----------------------------------------+ ¦ ¦ ¦ ¦ - Optional decimal point followed by digits ------------+ ¦ ¦ ¦ - Optional exponent -------------------------------------------------+ ¦ ¦ - optional exponent sign ------------------------------------------------+ ¦ - exponent digits -------------------------------------------------------------+ - - Examples of recognized floating-point numbers: - "123", "-123", "123.456", "123.456e+09" - Conversion stops as soon as an invalid character is encountered. No error-checking. - - Based on Ariba's StrToFloat in http://forums.parallax.com/forums/default.aspx?f=25&m=280607 - Expanded by Michael Park -}} - significand~ - ssign~ - exp~ - esign~ - places~ - repeat - case byte[strptr] - "-": - ssign~~ - ".": - places := 1 - "0".."9": - significand := significand * 10 + byte[strptr] - "0" - if places - ++places 'count decimal places - "e", "E": - ++strptr ' skip over the e or E - repeat - case byte[strptr] - "+": - ' ignore - "-": - esign~~ - "0".."9": - exp := exp * 10 + byte[strptr] - "0" - other: - quit - ++strptr - quit - other: - quit - ++strptr - - if ssign - -significand - flt := f.FFloat(significand) - - ifnot esign ' tenf table is in decreasing order, so the sign of exp is reversed - -exp - - if places - exp += places - 1 - - flt := f.FMul(flt, tenf[exp]) 'adjust flt's decimal point - - -PRI Setup(single) : stringptr - - 'limit digits to 1..7 - if precision - digits := precision #> 1 <# 7 - else - digits := 7 - - 'initialize string pointer - p := @float_string - - 'add "-" if negative - if single & $80000000 - byte[p++] := "-" - 'otherwise, add any positive lead character - elseif positive_chr - byte[p++] := positive_chr - - 'clear sign and check for 0 - if single &= $7FFFFFFF - - 'not 0, estimate exponent - exponent := ((single << 1 >> 24 - 127) * 77) ~> 8 - - 'if very small, bias up - if exponent < -32 - single := F.FMul(single, 1e13) - exponent += result := 13 - - 'determine exact exponent and integer - repeat - integer := F.FRound(F.FMul(single, tenf[exponent - digits + 1])) - if integer < teni[digits - 1] - exponent-- - elseif integer => teni[digits] - exponent++ - else - exponent -= result - quit - - 'if 0, reset exponent and integer - else - exponent~ - integer~ - - 'set initial tens and clear zeros - tens := teni[digits - 1] - zeros~ - - 'return pointer to string - stringptr := @float_string - - -PRI DoScientific - - 'add digits with possible decimal - AddDigits(1) - 'add exponent indicator - byte[p++] := "e" - 'add exponent sign - if exponent => 0 - byte[p++] := "+" - else - byte[p++] := "-" - ||exponent - 'add exponent digits - if exponent => 10 - byte[p++] := exponent / 10 + "0" - exponent //= 10 - byte[p++] := exponent + "0" - - -PRI AddDigits(leading) | i - - 'add leading digits - repeat i := leading - AddDigit - 'add any thousands separator between thousands - if thousands_chr - i-- - if i and not i // 3 - byte[p++] := thousands_chr - 'if trailing digits, add decimal character - if digits - AddDecimal - 'then add trailing digits - repeat while digits - 'add any thousandths separator between thousandths - if thousandths_chr - if i and not i // 3 - byte[p++] := thousandths_chr - i++ - AddDigit - - -PRI AddDigit - - 'if leading zeros, add "0" - if zeros - byte[p++] := "0" - zeros-- - 'if more digits, add current digit and prepare next - elseif digits - byte[p++] := integer / tens + "0" - integer //= tens - tens /= 10 - digits-- - 'if no more digits, add "0" - else - byte[p++] := "0" - - -PRI AddDecimal - - if decimal_chr - byte[p++] := decimal_chr - else - byte[p++] := "." - - -DAT - long 1e+38, 1e+37, 1e+36, 1e+35, 1e+34, 1e+33, 1e+32, 1e+31 - long 1e+30, 1e+29, 1e+28, 1e+27, 1e+26, 1e+25, 1e+24, 1e+23, 1e+22, 1e+21 - long 1e+20, 1e+19, 1e+18, 1e+17, 1e+16, 1e+15, 1e+14, 1e+13, 1e+12, 1e+11 - long 1e+10, 1e+09, 1e+08, 1e+07, 1e+06, 1e+05, 1e+04, 1e+03, 1e+02, 1e+01 -tenf long 1e+00, 1e-01, 1e-02, 1e-03, 1e-04, 1e-05, 1e-06, 1e-07, 1e-08, 1e-09 - long 1e-10, 1e-11, 1e-12, 1e-13, 1e-14, 1e-15, 1e-16, 1e-17, 1e-18, 1e-19 - long 1e-20, 1e-21, 1e-22, 1e-23, 1e-24, 1e-25, 1e-26, 1e-27, 1e-28, 1e-29 - long 1e-30, 1e-31, 1e-32, 1e-33, 1e-34, 1e-35, 1e-36, 1e-37, 1e-38 - -teni long 1, 10, 100, 1_000, 10_000, 100_000, 1_000_000, 10_000_000, 100_000_000, 1_000_000_000 - - byte "yzafpnum" -metric byte 0 - byte "kMGTPEZY" - -{{ -+------------------------------------------------------------------------------------------------------------------------------+ -¦ TERMS OF USE: MIT License ¦ -+------------------------------------------------------------------------------------------------------------------------------¦ -¦Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation ¦ -¦files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, ¦ -¦modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software¦ -¦is furnished to do so, subject to the following conditions: ¦ -¦ ¦ -¦The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.¦ -¦ ¦ -¦THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE ¦ -¦WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR ¦ -¦COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ¦ -¦ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ¦ -+------------------------------------------------------------------------------------------------------------------------------+ -}} \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/isxfs.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/isxfs.spn deleted file mode 100644 index 661adbe..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/isxfs.spn +++ /dev/null @@ -1,80 +0,0 @@ -SXTVRENDEZVOUS = $8000 - 4 -SXKBRENDEZVOUS = SXTVRENDEZVOUS - 4 -SDSPIRENDEZVOUS = SXKBRENDEZVOUS - 3 * 4 -SXFS2RENDEZVOUS = SDSPIRENDEZVOUS - 4 * 4 ' four rendezvous variables -SXFSRENDEZVOUS = SXFS2RENDEZVOUS - 4 * 4 ' four rendezvous variables -METADATABUFFER = SXFSRENDEZVOUS - 512 - -_free = ($8000 - METADATABUFFER) / 4 - -SIZEOFFILESTUFF = 512 + 24 - -pCommand = SXFSRENDEZVOUS -pParam0 = pCommand+4 -pParam1 = pCommand+8 -pParam2 = pCommand+12 - -pub Open( pFilestuff, pFilename, mode ) | filenameBuffer[3], p, i -{{ - mode is either "R" or "W". - Returns 0 on success, 1 if file not found (and opening for reading). -}} - return Command( "O", pFilestuff, pFilename, mode ) - -pub Close( pFilestuff ) - Command( "C", pFilestuff, 0, 0 ) - -pub Read( pFilestuff, pBuffer, nBytes ) -{{ - Returns number of bytes actually read, -1 at EOF. -}} - long[pParam0] := pFilestuff - long[pParam1] := pBuffer - long[pParam2] := nBytes - - long[pCommand] := "R" - repeat while long[pCommand] - if long[pParam0] < -2 ' don't abort for return code -1. - abort long[pParam0] - return long[pParam0] - -pub Write( pFilestuff, pBuffer, nBytes ) - return Command( "W", pFilestuff, pBuffer, nBytes ) - -pub Execute( pFilestuff, execmode ) -{{ - If execmode is non-0, all cogs are stopped except Spin interpreter. - If execmode is 0, running cogs are left running. -}} - Command( "X", pFilestuff, execmode, cogid ) - -pub Command( cmd, param0, param1, param2 ) - long[pParam0] := param0 - long[pParam1] := param1 - long[pParam2] := param2 - - long[pCommand] := cmd - repeat while long[pCommand] - if long[pParam0] < 0 - abort long[pParam0] - return long[pParam0] - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/isxtv.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/isxtv.spn deleted file mode 100644 index ed79757..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/isxtv.spn +++ /dev/null @@ -1,96 +0,0 @@ -''This file is an excerpt of tv.spin. Copyright and license are from tv.spin. -''*************************************** -''* TV Driver v1.1 * -''* Author: Chip Gracey * -''* Copyright (c) 2004 Parallax, Inc. * -''* See end of file for terms of use. * -''*************************************** - -'' Modified for Sphinx by Michael Park - - -SXTVRENDEZVOUS = $8000 - 4 - -PUB GetBasepin - repeat while long[SXTVRENDEZVOUS] - long[SXTVRENDEZVOUS]~~ ' ping the sxtv cog (send -1) - repeat while long[SXTVRENDEZVOUS] == -1 - return long[SXTVRENDEZVOUS]~ >> 8 - -PUB str(stringptr) - -'' Print a zero-terminated string - - repeat strsize(stringptr) - out(byte[stringptr++]) - - -PUB dec(value) | i - -'' Print a decimal number - - if value < 0 - -value - out("-") - - i := 1_000_000_000 - - repeat 10 - if value => i - out(value / i + "0") - value //= i - result~~ - elseif result or i == 1 - out("0") - i /= 10 - - -PUB hex(value, digits) - -'' Print a hexadecimal number - - value <<= (8 - digits) << 2 - repeat digits - out(lookupz((value <-= 4) & $F : "0".."9", "A".."F")) - - -PUB bin(value, digits) - -'' Print a binary number - - value <<= 32 - digits - repeat digits - out((value <-= 1) & 1 + "0") - - -pub out(ch) - repeat while long[SXTVRENDEZVOUS] - long[SXTVRENDEZVOUS] := ch - -pub Ping - out( -1 ) - -pub Enable - out( "E"<<8 ) - -pub Disable - out( "D"<<8 ) - -{{ -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/keywords.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/keywords.spn deleted file mode 100644 index 612a0e4..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/keywords.spn +++ /dev/null @@ -1,530 +0,0 @@ -obj - bt: "bintree" - -pub Init - - tableStart += @tableStart - FixupTable( @tableStart + 2 ) - -pri FixupTable( p ) | q - q := bt.PeekW( p ) - if q - bt.PokeW( p, q += @tableStart ) - FixupTable( q ) - q := bt.PeekW( p + 2 ) - if q - bt.PokeW( p + 2, q += @tableStart ) - FixupTable( q ) - -pub KeywordLookup( s ) - return bt.FindInTable( s, tableStart ) - -con -{ - 31 (plain ID) - 30 (int literal) - 29 (float literal) - 28 ? - 27 unary - 26 binary/postfix - 25 pasm (TJZ, XOR) - 24 cond (IF_Z, IF_E) - 23 effect (WC, WZ) - 22 stmtfn (BYTEMOVE, WAITCNT) - 21 assignment op (-=, OR=) - 20 intrinsic - 19 prec3 - 18 prec2 - 17 d prec1 - 16 s prec0 - 15 pasmop spinop7 - 14 pasmop spinop6 - 13 pasmop spinop5 keyword - 12 pasmop spinop4 uniquifier - 11 pasmop spinop3 bits - 10 pasmop spinop2 | - 9 pasmop spinop1 | #args - 8 pasmop spinop0 V #args - 7 pasmop spinop7 id7 op - 6 pasmop spinop6 id6 op - 5 pasmop spinop5 id5 op - 4 pasmop spinop4 id4 op - 3 pasmop spinop3 cond3 id3 effect op - 2 pasmop spinop2 cond2 id2 effect op - 1 pasmop spinop1 cond1 id1 effect op - 0 pasmop spinop0 cond0 id0 effect op -} -con ' The following is auto-generated. Do not edit. - kID = $80000000 - kINTLITERAL = $40000000 - kFLOATLITERAL = $20000000 - kUNARY = $08000000 - kBINARY = $04000000 - kPOSTFIX = $04000000 - kPASM = $02000000 - kCOND = $01000000 - kEFFECT = $00800000 - kSTMTFN = $00400000 - kASSIGNMENT = $00200000 - kINTRINSIC = $00100000 - -' kBANG = $080100e7 -' kOCTOTHORPRANGLE = $040700e4 -' kAMPERSAND = $040300e8 -' kSTAR = $040500f4 -' kSTARSTAR = $040500f5 - kPLUS = $040600ec -' kPLUSPLUS = $0c002820 - kMINUS = $040600ed -' kMINUSMINUS = $0c003830 -' kMINUSRANGLE = $040200e0 -' kSLASH = $040500f6 -' kSLASHSLASH = $040500f7 -' kLANGLE = $040800f9 -' kLANGLEOCTOTHORP = $040700e5 -' kLANGLEMINUS = $040200e1 -' kLANGLELANGLE = $040200e3 -' kLANGLERANGLE = $040800fb -' kEQUALLANGLE = $040800fd -' kEQUALEQUAL = $040800fc -' kEQUALRANGLE = $040800fe -' kRANGLE = $040800fa -' kRANGLELANGLE = $040200ef -' kRANGLERANGLE = $040200e2 -' kRANGLEBAR = $080100f1 - kQUESTION = $0c000c08 - kAT = $08000000 - kATAT = $08000001 -' kCARET = $040400eb -' kCARETCARET = $080100f8 - kBAR = $040400ea -' kBARLANGLE = $080100f3 -' kBARBAR = $080100e9 - kTILDE = $0c001810 -' kTILDERANGLE = $040200ee - kTILDETILDE = $0c001c14 - kAND = $060a00f0 -' kNOT = $080900ff - kOR = $060b00f2 -' kABS = $0203a8bc -' kABSNEG = $0203acbc -' kADD = $020380bc -' kADDABS = $020388bc -' kADDS = $0203d0bc -' kADDSX = $0203d8bc -' kADDX = $0203c8bc -' kANDN = $020364bc - kCALL = $02015cfc -' kCMP = $0203843c -' kCMPS = $0203c03c -' kCMPSUB = $0203e0bc -' kCMPSX = $0203c43c -' kCMPX = $0203cc3c -' kDJNZ = $0203e4bc -' kHUBOP = $02030c3c -' kJMP = $02015c3c -' kJMPRET = $02035cbc -' kMAX = $02034cbc -' kMAXS = $020344bc -' kMIN = $020348bc -' kMINS = $020340bc -' kMOV = $0203a0bc -' kMOVD = $020354bc -' kMOVI = $020358bc -' kMOVS = $020350bc -' kMUXC = $020370bc -' kMUXNC = $020374bc -' kMUXNZ = $02037cbc -' kMUXZ = $020378bc -' kNEG = $0203a4bc -' kNEGC = $0203b0bc -' kNEGNC = $0203b4bc -' kNEGNZ = $0203bcbc -' kNEGZ = $0203b8bc -' kNOP = $02000000 -' kRCL = $020334bc -' kRCR = $020330bc -' kRDBYTE = $020300bc -' kRDLONG = $020308bc -' kRDWORD = $020304bc -' kRET = $02005c7c -' kREV = $02033cbc -' kROL = $020324bc -' kROR = $020320bc -' kSAR = $020338bc -' kSHL = $02032cbc -' kSHR = $020328bc -' kSUB = $020384bc -' kSUBABS = $02038cbc -' kSUBS = $0203d4bc -' kSUBSX = $0203dcbc -' kSUBX = $0203ccbc -' kSUMC = $020390bc -' kSUMNC = $020394bc -' kSUMNZ = $02039cbc -' kSUMZ = $020398bc -' kTEST = $0203603c -' kTJNZ = $0203e83c -' kTJZ = $0203ec3c -' kWRBYTE = $0203003c -' kWRLONG = $0203083c -' kWRWORD = $0203043c -' kXOR = $02036cbc - kPAR = $00000001 -' kCNT = $00000002 -' kINA = $00000003 -' kINB = $00000004 -' kOUTA = $00000005 -' kOUTB = $00000006 -' kDIRA = $00000007 -' kDIRB = $00000008 -' kCTRA = $00000009 -' kCTRB = $0000000a -' kFRQA = $0000000b -' kFRQB = $0000000c -' kPHSA = $0000000d -' kPHSB = $0000000e -' kVCFG = $0000000f - kVSCL = $00000010 -' kIF_A = $01000001 -' kIF_AE = $01000003 -' kIF_ALWAYS = $0100000f -' kIF_B = $0100000c -' kIF_BE = $0100000e -' kIF_C = $0100000c -' kIF_C_AND_NZ = $01000004 -' kIF_C_AND_Z = $01000008 -' kIF_C_EQ_Z = $01000009 -' kIF_C_NE_Z = $01000006 -' kIF_C_OR_NZ = $0100000d -' kIF_C_OR_Z = $0100000e -' kIF_E = $0100000a -' kIF_NC = $01000003 -' kIF_NC_AND_NZ = $01000001 -' kIF_NC_AND_Z = $01000002 -' kIF_NC_OR_NZ = $01000007 -' kIF_NC_OR_Z = $0100000b -' kIF_NE = $01000005 -' kIF_NEVER = $01000000 -' kIF_NZ = $01000005 -' kIF_NZ_AND_C = $01000004 -' kIF_NZ_AND_NC = $01000001 -' kIF_NZ_OR_C = $0100000e -' kIF_NZ_OR_NC = $0100000b -' kIF_Z = $0100000a -' kIF_Z_AND_C = $01000008 -' kIF_Z_AND_NC = $01000002 -' kIF_Z_EQ_C = $01000009 -' kIF_Z_NE_C = $01000006 -' kIF_Z_OR_C = $0100000e -' kIF_Z_OR_NC = $0100000b -' kNR = $00800008 -' kWC = $00800002 -' kWR = $00800001 -' kWZ = $00800004 - kCON = $00000011 - kDAT = $00000012 - kOBJ = $00000013 - kPRI = $00000014 - kPUB = $00000015 - kVAR = $00000016 - kBYTE = $00000017 - kWORD = $00000018 - kLONG = $00000019 -' kBYTEFILL = $00400318 -' kWORDFILL = $00400319 -' kLONGFILL = $0040031a -' kBYTEMOVE = $0040031c -' kWORDMOVE = $0040031d -' kLONGMOVE = $0040031e - kCLKSET = $02400220 - kCOGSTOP = $02400121 -' kLOCKRET = $00400122 - kWAITCNT = $02400123 - kWAITPEQ = $0240031b - kWAITPNE = $0240031f - kWAITVID = $02400227 - kOCTOTHORP = $0000001a -' kDOLLAR = $0000001b - kLPAREN = $0000001c - kRPAREN = $0000001d - kCOMMA = $0000001e - kDOT = $0000001f - kDOTDOT = $00000020 - kCOLON = $00000021 - kCOLONEQUAL = $00200022 - kEQUAL = $00000023 - kABORT = $00000024 - kCASE = $00000025 - kCHIPVER = $00100000 - kCLKFREQ = $00100010 - kCLKMODE = $00100020 - kCOGID = $02100003 - kCOGINIT = $02100004 - kCOGNEW = $00100005 - kREBOOT = $00100006 -' kSTRCOMP = $00100172 -' kSTRSIZE = $00100161 -' kLOCKCLR = $0012b2f1 -' kLOCKNEW = $001292d0 -' kLOCKSET = $0012a2e1 -' kLOOKDOWN = $00113111 -' kLOOKDOWNZ = $00113110 -' kLOOKUP = $00112101 -' kLOOKUPZ = $00112100 - kCONSTANT = $00000026 - kELSE = $00000027 - kELSEIF = $00000028 - kELSEIFNOT = $00000029 -' kFILE = $0000002a - kFIT = $0000002b -' kFLOAT = $0000002c - kFROM = $0000002d - kIF = $0000002e - kIFNOT = $0000002f - kNEXT = $00000030 - kORG = $00000031 -' kORGX = $00000032 - kOTHER = $00000033 - kQUIT = $00000034 - kREPEAT = $00000035 - kRES = $00000036 - kRESULT = $00000037 - kRETURN = $00000038 -' kROUND = $00000039 - kSPR = $0000003a - kSTEP = $0000003b - kSTRING = $0000003c - kTO = $0000003d -' kTRUNC = $0000003e - kUNTIL = $0000003f - kWHILE = $00000040 - kLBRACKET = $00000041 - kBACKSLASH = $00000042 - kRBRACKET = $00000043 - kLBRACE = $00000044 - kRBRACE = $00000045 - kEOL = $000000fd - kEOF = $000000fe - kUNKNOWN = $000000ff -dat -tableStart word $0002 - - byte $0e,$00,$63,$06,$49,$4e,$41,$00,$03,$00,$00,$00,$1c,$00,$d6,$02 - byte $43,$4d,$50,$53,$58,$00,$3c,$c4,$03,$02,$27,$00,$57,$01,$3d,$3e - byte $00,$fe,$00,$08,$04,$32,$00,$c2,$00,$2d,$3e,$00,$e0,$00,$02,$04 - byte $3c,$00,$83,$00,$2a,$00,$f4,$00,$05,$04,$46,$00,$65,$00,$24,$00 - byte $1b,$00,$00,$00,$50,$00,$5a,$00,$23,$00,$1a,$00,$00,$00,$00,$00 - byte $00,$00,$21,$00,$e7,$00,$01,$08,$00,$00,$00,$00,$23,$3e,$00,$e4 - byte $00,$07,$04,$6f,$00,$79,$00,$28,$00,$1c,$00,$00,$00,$00,$00,$00 - byte $00,$26,$00,$e8,$00,$03,$04,$00,$00,$00,$00,$29,$00,$1d,$00,$00 - byte $00,$8d,$00,$ad,$00,$2c,$00,$1e,$00,$00,$00,$97,$00,$a2,$00,$2b - byte $00,$ec,$00,$06,$04,$00,$00,$00,$00,$2a,$2a,$00,$f5,$00,$05,$04 - byte $00,$00,$00,$00,$2b,$2b,$00,$20,$28,$00,$0c,$b8,$00,$00,$00,$2d - byte $2d,$00,$30,$38,$00,$0c,$00,$00,$00,$00,$2d,$00,$ed,$00,$06,$04 - byte $cd,$00,$16,$01,$3c,$23,$00,$e5,$00,$07,$04,$d8,$00,$f7,$00,$2f - byte $2f,$00,$f7,$00,$05,$04,$e3,$00,$ed,$00,$2e,$2e,$00,$20,$00,$00 - byte $00,$00,$00,$00,$00,$2e,$00,$1f,$00,$00,$00,$00,$00,$00,$00,$2f - byte $00,$f6,$00,$05,$04,$02,$01,$0c,$01,$3a,$3d,$00,$22,$00,$20,$00 - byte $00,$00,$00,$00,$3a,$00,$21,$00,$00,$00,$00,$00,$00,$00,$3c,$00 - byte $f9,$00,$08,$04,$20,$01,$41,$01,$3d,$00,$23,$00,$00,$00,$2b,$01 - byte $36,$01,$3c,$3c,$00,$e3,$00,$02,$04,$00,$00,$00,$00,$3c,$2d,$00 - byte $e1,$00,$02,$04,$00,$00,$00,$00,$3c,$3e,$00,$fb,$00,$08,$04,$4c - byte $01,$00,$00,$3d,$3d,$00,$fc,$00,$08,$04,$00,$00,$00,$00,$3d,$3c - byte $00,$fd,$00,$08,$04,$64,$01,$0d,$02,$41,$44,$44,$58,$00,$bc,$c8 - byte $03,$02,$72,$01,$bc,$01,$41,$42,$4f,$52,$54,$00,$24,$00,$00,$00 - byte $7d,$01,$9d,$01,$3e,$7c,$00,$f1,$00,$01,$08,$88,$01,$92,$01,$3e - byte $3c,$00,$ef,$00,$02,$04,$00,$00,$00,$00,$3e,$00,$fa,$00,$08,$04 - byte $00,$00,$00,$00,$3e,$3e,$00,$e2,$00,$02,$04,$a7,$01,$b1,$01,$40 - byte $00,$00,$00,$00,$08,$00,$00,$00,$00,$3f,$00,$08,$0c,$00,$0c,$00 - byte $00,$00,$00,$40,$40,$00,$01,$00,$00,$08,$cb,$01,$f2,$01,$41,$44 - byte $44,$41,$42,$53,$00,$bc,$88,$03,$02,$da,$01,$e6,$01,$41,$42,$53 - byte $4e,$45,$47,$00,$bc,$ac,$03,$02,$00,$00,$00,$00,$41,$42,$53,$00 - byte $bc,$a8,$03,$02,$00,$00,$00,$00,$41,$44,$44,$00,$bc,$80,$03,$02 - byte $00,$02,$00,$00,$41,$44,$44,$53,$58,$00,$bc,$d8,$03,$02,$00,$00 - byte $00,$00,$41,$44,$44,$53,$00,$bc,$d0,$03,$02,$1d,$02,$7f,$02,$43 - byte $48,$49,$50,$56,$45,$52,$00,$00,$00,$10,$00,$2e,$02,$54,$02,$42 - byte $59,$54,$45,$46,$49,$4c,$4c,$00,$18,$03,$40,$00,$3b,$02,$47,$02 - byte $41,$4e,$44,$4e,$00,$bc,$64,$03,$02,$00,$00,$00,$00,$41,$4e,$44 - byte $00,$f0,$00,$0a,$06,$00,$00,$00,$00,$42,$59,$54,$45,$00,$17,$00 - byte $00,$00,$61,$02,$72,$02,$43,$41,$4c,$4c,$00,$fc,$5c,$01,$02,$00 - byte $00,$00,$00,$42,$59,$54,$45,$4d,$4f,$56,$45,$00,$1c,$03,$40,$00 - byte $00,$00,$00,$00,$43,$41,$53,$45,$00,$25,$00,$00,$00,$8b,$02,$ba - byte $02,$43,$4d,$50,$00,$3c,$84,$03,$02,$9b,$02,$ab,$02,$43,$4c,$4b - byte $4d,$4f,$44,$45,$00,$20,$00,$10,$00,$00,$00,$00,$00,$43,$4c,$4b - byte $46,$52,$45,$51,$00,$10,$00,$10,$00,$00,$00,$00,$00,$43,$4c,$4b - byte $53,$45,$54,$00,$20,$02,$40,$02,$c9,$02,$00,$00,$43,$4d,$50,$53 - byte $55,$42,$00,$bc,$e0,$03,$02,$00,$00,$00,$00,$43,$4d,$50,$53,$00 - byte $3c,$c0,$03,$02,$e3,$02,$73,$04,$49,$46,$5f,$42,$00,$0c,$00,$00 - byte $01,$f0,$02,$b0,$03,$45,$4c,$53,$45,$00,$27,$00,$00,$00,$01,$03 - byte $63,$03,$43,$4f,$4e,$53,$54,$41,$4e,$54,$00,$26,$00,$00,$00,$11 - byte $03,$38,$03,$43,$4f,$47,$49,$4e,$49,$54,$00,$04,$00,$10,$02,$1d - byte $03,$2a,$03,$43,$4e,$54,$00,$02,$00,$00,$00,$00,$00,$00,$00,$43 - byte $4d,$50,$58,$00,$3c,$cc,$03,$02,$00,$00,$00,$00,$43,$4f,$47,$49 - byte $44,$00,$03,$00,$10,$02,$48,$03,$57,$03,$43,$4f,$47,$53,$54,$4f - byte $50,$00,$21,$01,$40,$02,$00,$00,$00,$00,$43,$4f,$47,$4e,$45,$57 - byte $00,$05,$00,$10,$00,$00,$00,$00,$00,$43,$4f,$4e,$00,$11,$00,$00 - byte $00,$70,$03,$96,$03,$44,$49,$52,$41,$00,$07,$00,$00,$00,$7d,$03 - byte $8a,$03,$43,$54,$52,$42,$00,$0a,$00,$00,$00,$00,$00,$00,$00,$43 - byte $54,$52,$41,$00,$09,$00,$00,$00,$00,$00,$00,$00,$44,$41,$54,$00 - byte $12,$00,$00,$00,$a3,$03,$00,$00,$44,$4a,$4e,$5a,$00,$bc,$e4,$03 - byte $02,$00,$00,$00,$00,$44,$49,$52,$42,$00,$08,$00,$00,$00,$bd,$03 - byte $1f,$04,$46,$52,$51,$42,$00,$0c,$00,$00,$00,$c9,$03,$f7,$03,$46 - byte $49,$54,$00,$2b,$00,$00,$00,$db,$03,$ea,$03,$45,$4c,$53,$45,$49 - byte $46,$4e,$4f,$54,$00,$29,$00,$00,$00,$00,$00,$00,$00,$45,$4c,$53 - byte $45,$49,$46,$00,$28,$00,$00,$00,$00,$00,$00,$00,$46,$49,$4c,$45 - byte $00,$2a,$00,$00,$00,$04,$04,$12,$04,$46,$52,$4f,$4d,$00,$2d,$00 - byte $00,$00,$00,$00,$00,$00,$46,$4c,$4f,$41,$54,$00,$2c,$00,$00,$00 - byte $00,$00,$00,$00,$46,$52,$51,$41,$00,$0b,$00,$00,$00,$2c,$04,$53 - byte $04,$49,$46,$5f,$41,$00,$01,$00,$00,$01,$37,$04,$45,$04,$49,$46 - byte $00,$2e,$00,$00,$00,$00,$00,$00,$00,$48,$55,$42,$4f,$50,$00,$3c - byte $0c,$03,$02,$00,$00,$00,$00,$49,$46,$4e,$4f,$54,$00,$2f,$00,$00 - byte $00,$65,$04,$00,$00,$49,$46,$5f,$41,$4c,$57,$41,$59,$53,$00,$0f - byte $00,$00,$01,$00,$00,$00,$00,$49,$46,$5f,$41,$45,$00,$03,$00,$00 - byte $01,$81,$04,$77,$05,$49,$46,$5f,$4e,$45,$00,$05,$00,$00,$01,$93 - byte $04,$0c,$05,$49,$46,$5f,$43,$5f,$4f,$52,$5f,$5a,$00,$0e,$00,$00 - byte $01,$a6,$04,$d5,$04,$49,$46,$5f,$43,$5f,$41,$4e,$44,$5f,$5a,$00 - byte $08,$00,$00,$01,$b3,$04,$c1,$04,$49,$46,$5f,$43,$00,$0c,$00,$00 - byte $01,$00,$00,$00,$00,$49,$46,$5f,$42,$45,$00,$0e,$00,$00,$01,$00 - byte $00,$00,$00,$49,$46,$5f,$43,$5f,$41,$4e,$44,$5f,$4e,$5a,$00,$04 - byte $00,$00,$01,$e7,$04,$f9,$04,$49,$46,$5f,$43,$5f,$4e,$45,$5f,$5a - byte $00,$06,$00,$00,$01,$00,$00,$00,$00,$49,$46,$5f,$43,$5f,$45,$51 - byte $5f,$5a,$00,$09,$00,$00,$01,$00,$00,$00,$00,$49,$46,$5f,$43,$5f - byte $4f,$52,$5f,$4e,$5a,$00,$0d,$00,$00,$01,$20,$05,$50,$05,$49,$46 - byte $5f,$4e,$43,$5f,$41,$4e,$44,$5f,$5a,$00,$02,$00,$00,$01,$2e,$05 - byte $3b,$05,$49,$46,$5f,$4e,$43,$00,$03,$00,$00,$01,$00,$00,$00,$00 - byte $49,$46,$5f,$45,$00,$0a,$00,$00,$01,$00,$00,$00,$00,$49,$46,$5f - byte $4e,$43,$5f,$41,$4e,$44,$5f,$4e,$5a,$00,$01,$00,$00,$01,$63,$05 - byte $00,$00,$49,$46,$5f,$4e,$43,$5f,$4f,$52,$5f,$5a,$00,$0b,$00,$00 - byte $01,$00,$00,$00,$00,$49,$46,$5f,$4e,$43,$5f,$4f,$52,$5f,$4e,$5a - byte $00,$07,$00,$00,$01,$84,$05,$f3,$05,$49,$46,$5f,$5a,$00,$0a,$00 - byte $00,$01,$99,$05,$cc,$05,$49,$46,$5f,$4e,$5a,$5f,$41,$4e,$44,$5f - byte $4e,$43,$00,$01,$00,$00,$01,$a7,$05,$b8,$05,$49,$46,$5f,$4e,$5a - byte $00,$05,$00,$00,$01,$00,$00,$00,$00,$49,$46,$5f,$4e,$45,$56,$45 - byte $52,$00,$00,$00,$00,$01,$00,$00,$00,$00,$49,$46,$5f,$4e,$5a,$5f - byte $41,$4e,$44,$5f,$43,$00,$04,$00,$00,$01,$e0,$05,$00,$00,$49,$46 - byte $5f,$4e,$5a,$5f,$4f,$52,$5f,$4e,$43,$00,$0b,$00,$00,$01,$00,$00 - byte $00,$00,$49,$46,$5f,$4e,$5a,$5f,$4f,$52,$5f,$43,$00,$0e,$00,$00 - byte $01,$05,$06,$3e,$06,$49,$46,$5f,$5a,$5f,$4e,$45,$5f,$43,$00,$06 - byte $00,$00,$01,$19,$06,$2c,$06,$49,$46,$5f,$5a,$5f,$41,$4e,$44,$5f - byte $4e,$43,$00,$02,$00,$00,$01,$00,$00,$00,$00,$49,$46,$5f,$5a,$5f - byte $41,$4e,$44,$5f,$43,$00,$08,$00,$00,$01,$00,$00,$00,$00,$49,$46 - byte $5f,$5a,$5f,$45,$51,$5f,$43,$00,$09,$00,$00,$01,$51,$06,$00,$00 - byte $49,$46,$5f,$5a,$5f,$4f,$52,$5f,$4e,$43,$00,$0b,$00,$00,$01,$00 - byte $00,$00,$00,$49,$46,$5f,$5a,$5f,$4f,$52,$5f,$43,$00,$0e,$00,$00 - byte $01,$72,$06,$84,$09,$52,$45,$54,$55,$52,$4e,$00,$38,$00,$00,$00 - byte $80,$06,$1a,$08,$4e,$45,$47,$4e,$5a,$00,$bc,$bc,$03,$02,$8c,$06 - byte $64,$07,$4d,$41,$58,$00,$bc,$4c,$03,$02,$99,$06,$00,$07,$4c,$4f - byte $4e,$47,$00,$19,$00,$00,$00,$a9,$06,$d0,$06,$4c,$4f,$43,$4b,$43 - byte $4c,$52,$00,$f1,$b2,$12,$00,$b5,$06,$c1,$06,$4a,$4d,$50,$00,$3c - byte $5c,$01,$02,$00,$00,$00,$00,$49,$4e,$42,$00,$04,$00,$00,$00,$00 - byte $00,$00,$00,$4a,$4d,$50,$52,$45,$54,$00,$bc,$5c,$03,$02,$e0,$06 - byte $f0,$06,$4c,$4f,$43,$4b,$52,$45,$54,$00,$22,$01,$40,$00,$00,$00 - byte $00,$00,$4c,$4f,$43,$4b,$4e,$45,$57,$00,$d0,$92,$12,$00,$00,$00 - byte $00,$00,$4c,$4f,$43,$4b,$53,$45,$54,$00,$e1,$a2,$12,$00,$12,$07 - byte $45,$07,$4c,$4f,$4f,$4b,$44,$4f,$57,$4e,$5a,$00,$10,$31,$11,$00 - byte $23,$07,$34,$07,$4c,$4f,$4e,$47,$4d,$4f,$56,$45,$00,$1e,$03,$40 - byte $00,$00,$00,$00,$00,$4c,$4f,$4e,$47,$46,$49,$4c,$4c,$00,$1a,$03 - byte $40,$00,$00,$00,$00,$00,$4c,$4f,$4f,$4b,$44,$4f,$57,$4e,$00,$11 - byte $31,$11,$00,$55,$07,$00,$00,$4c,$4f,$4f,$4b,$55,$50,$5a,$00,$00 - byte $21,$11,$00,$00,$00,$00,$00,$4c,$4f,$4f,$4b,$55,$50,$00,$01,$21 - byte $11,$00,$71,$07,$ca,$07,$4d,$55,$58,$43,$00,$bc,$70,$03,$02,$7d - byte $07,$a3,$07,$4d,$4f,$56,$00,$bc,$a0,$03,$02,$89,$07,$96,$07,$4d - byte $49,$4e,$00,$bc,$48,$03,$02,$00,$00,$00,$00,$4d,$41,$58,$53,$00 - byte $bc,$44,$03,$02,$00,$00,$00,$00,$4d,$49,$4e,$53,$00,$bc,$40,$03 - byte $02,$b0,$07,$bd,$07,$4d,$4f,$56,$49,$00,$bc,$58,$03,$02,$00,$00 - byte $00,$00,$4d,$4f,$56,$44,$00,$bc,$54,$03,$02,$00,$00,$00,$00,$4d - byte $4f,$56,$53,$00,$bc,$50,$03,$02,$d6,$07,$ff,$07,$4e,$45,$47,$00 - byte $bc,$a4,$03,$02,$e4,$07,$f2,$07,$4d,$55,$58,$4e,$5a,$00,$bc,$7c - byte $03,$02,$00,$00,$00,$00,$4d,$55,$58,$4e,$43,$00,$bc,$74,$03,$02 - byte $00,$00,$00,$00,$4d,$55,$58,$5a,$00,$bc,$78,$03,$02,$0d,$08,$00 - byte $00,$4e,$45,$47,$4e,$43,$00,$bc,$b4,$03,$02,$00,$00,$00,$00,$4e - byte $45,$47,$43,$00,$bc,$b0,$03,$02,$27,$08,$d5,$08,$50,$48,$53,$42 - byte $00,$0e,$00,$00,$00,$33,$08,$87,$08,$4f,$52,$47,$00,$31,$00,$00 - byte $00,$3f,$08,$65,$08,$4e,$4f,$54,$00,$ff,$00,$09,$08,$4c,$08,$59 - byte $08,$4e,$45,$58,$54,$00,$30,$00,$00,$00,$00,$00,$00,$00,$4e,$45 - byte $47,$5a,$00,$bc,$b8,$03,$02,$00,$00,$00,$00,$4e,$4f,$50,$00,$00 - byte $00,$00,$02,$71,$08,$7c,$08,$4f,$42,$4a,$00,$13,$00,$00,$00,$00 - byte $00,$00,$00,$4e,$52,$00,$08,$00,$80,$00,$00,$00,$00,$00,$4f,$52 - byte $00,$f2,$00,$0b,$06,$94,$08,$bc,$08,$4f,$55,$54,$42,$00,$06,$00 - byte $00,$00,$a2,$08,$af,$08,$4f,$54,$48,$45,$52,$00,$33,$00,$00,$00 - byte $00,$00,$00,$00,$4f,$52,$47,$58,$00,$32,$00,$00,$00,$00,$00,$00 - byte $00,$4f,$55,$54,$41,$00,$05,$00,$00,$00,$c9,$08,$00,$00,$50,$48 - byte $53,$41,$00,$0d,$00,$00,$00,$00,$00,$00,$00,$50,$41,$52,$00,$01 - byte $00,$00,$00,$e4,$08,$30,$09,$52,$44,$4c,$4f,$4e,$47,$00,$bc,$08 - byte $03,$02,$f0,$08,$15,$09,$52,$43,$4c,$00,$bc,$34,$03,$02,$fc,$08 - byte $08,$09,$50,$55,$42,$00,$15,$00,$00,$00,$00,$00,$00,$00,$50,$52 - byte $49,$00,$14,$00,$00,$00,$00,$00,$00,$00,$51,$55,$49,$54,$00,$34 - byte $00,$00,$00,$24,$09,$00,$00,$52,$44,$42,$59,$54,$45,$00,$bc,$00 - byte $03,$02,$00,$00,$00,$00,$52,$43,$52,$00,$bc,$30,$03,$02,$3c,$09 - byte $69,$09,$52,$45,$53,$00,$36,$00,$00,$00,$4b,$09,$5a,$09,$52,$45 - byte $42,$4f,$4f,$54,$00,$06,$00,$10,$00,$00,$00,$00,$00,$52,$44,$57 - byte $4f,$52,$44,$00,$bc,$04,$03,$02,$00,$00,$00,$00,$52,$45,$50,$45 - byte $41,$54,$00,$35,$00,$00,$00,$75,$09,$00,$00,$52,$45,$54,$00,$7c - byte $5c,$00,$02,$00,$00,$00,$00,$52,$45,$53,$55,$4c,$54,$00,$37,$00 - byte $00,$00,$91,$09,$0e,$0b,$56,$53,$43,$4c,$00,$10,$00,$00,$00,$9e - byte $09,$57,$0a,$53,$55,$42,$53,$00,$bc,$d4,$03,$02,$aa,$09,$00,$0a - byte $53,$50,$52,$00,$3a,$00,$00,$00,$b8,$09,$dc,$09,$52,$4f,$55,$4e - byte $44,$00,$39,$00,$00,$00,$c4,$09,$d0,$09,$52,$4f,$4c,$00,$bc,$24 - byte $03,$02,$00,$00,$00,$00,$52,$45,$56,$00,$bc,$3c,$03,$02,$00,$00 - byte $00,$00,$52,$4f,$52,$00,$bc,$20,$03,$02,$e8,$09,$f4,$09,$53,$48 - byte $4c,$00,$bc,$2c,$03,$02,$00,$00,$00,$00,$53,$41,$52,$00,$bc,$38 - byte $03,$02,$00,$00,$00,$00,$53,$48,$52,$00,$bc,$28,$03,$02,$10,$0a - byte $3c,$0a,$53,$54,$52,$53,$49,$5a,$45,$00,$61,$01,$10,$00,$20,$0a - byte $2d,$0a,$53,$54,$52,$43,$4f,$4d,$50,$00,$72,$01,$10,$00,$00,$00 - byte $00,$00,$53,$54,$45,$50,$00,$3b,$00,$00,$00,$00,$00,$00,$00,$53 - byte $54,$52,$49,$4e,$47,$00,$3c,$00,$00,$00,$4b,$0a,$00,$00,$53,$55 - byte $42,$41,$42,$53,$00,$bc,$8c,$03,$02,$00,$00,$00,$00,$53,$55,$42 - byte $00,$bc,$84,$03,$02,$64,$0a,$c2,$0a,$54,$4a,$4e,$5a,$00,$3c,$e8 - byte $03,$02,$72,$0a,$9a,$0a,$53,$55,$4d,$4e,$43,$00,$bc,$94,$03,$02 - byte $7f,$0a,$8d,$0a,$53,$55,$42,$58,$00,$bc,$cc,$03,$02,$00,$00,$00 - byte $00,$53,$55,$42,$53,$58,$00,$bc,$dc,$03,$02,$00,$00,$00,$00,$53 - byte $55,$4d,$43,$00,$bc,$90,$03,$02,$a7,$0a,$b5,$0a,$53,$55,$4d,$5a - byte $00,$bc,$98,$03,$02,$00,$00,$00,$00,$53,$55,$4d,$4e,$5a,$00,$bc - byte $9c,$03,$02,$00,$00,$00,$00,$54,$45,$53,$54,$00,$3c,$60,$03,$02 - byte $d0,$0a,$f5,$0a,$55,$4e,$54,$49,$4c,$00,$3f,$00,$00,$00,$db,$0a - byte $e7,$0a,$54,$4f,$00,$3d,$00,$00,$00,$00,$00,$00,$00,$54,$4a,$5a - byte $00,$3c,$ec,$03,$02,$00,$00,$00,$00,$54,$52,$55,$4e,$43,$00,$3e - byte $00,$00,$00,$02,$0b,$00,$00,$56,$43,$46,$47,$00,$0f,$00,$00,$00 - byte $00,$00,$00,$00,$56,$41,$52,$00,$16,$00,$00,$00,$1a,$0b,$e5,$0b - byte $58,$4f,$52,$00,$bc,$6c,$03,$02,$2b,$0b,$91,$0b,$57,$4f,$52,$44 - byte $46,$49,$4c,$4c,$00,$19,$03,$40,$00,$3b,$0b,$6b,$0b,$57,$41,$49 - byte $54,$56,$49,$44,$00,$27,$02,$40,$02,$4b,$0b,$5b,$0b,$57,$41,$49 - byte $54,$50,$45,$51,$00,$1b,$03,$40,$02,$00,$00,$00,$00,$57,$41,$49 - byte $54,$43,$4e,$54,$00,$23,$01,$40,$02,$00,$00,$00,$00,$57,$41,$49 - byte $54,$50,$4e,$45,$00,$1f,$03,$40,$02,$79,$0b,$84,$0b,$57,$48,$49 - byte $4c,$45,$00,$40,$00,$00,$00,$00,$00,$00,$00,$57,$43,$00,$02,$00 - byte $80,$00,$00,$00,$00,$00,$57,$4f,$52,$44,$00,$18,$00,$00,$00,$a0 - byte $0b,$cb,$0b,$57,$52,$4c,$4f,$4e,$47,$00,$3c,$08,$03,$02,$ab,$0b - byte $bc,$0b,$57,$52,$00,$01,$00,$80,$00,$00,$00,$00,$00,$57,$4f,$52 - byte $44,$4d,$4f,$56,$45,$00,$1d,$03,$40,$00,$00,$00,$00,$00,$57,$52 - byte $42,$59,$54,$45,$00,$3c,$00,$03,$02,$d6,$0b,$00,$00,$57,$5a,$00 - byte $04,$00,$80,$00,$00,$00,$00,$00,$57,$52,$57,$4f,$52,$44,$00,$3c - byte $04,$03,$02,$ef,$0b,$2c,$0c,$7c,$00,$ea,$00,$04,$04,$f9,$0b,$17 - byte $0c,$5e,$00,$eb,$00,$04,$04,$03,$0c,$0d,$0c,$5c,$00,$42,$00,$00 - byte $00,$00,$00,$00,$00,$5b,$00,$41,$00,$00,$00,$00,$00,$00,$00,$5d - byte $00,$43,$00,$00,$00,$21,$0c,$00,$00,$7b,$00,$44,$00,$00,$00,$00 - byte $00,$00,$00,$5e,$5e,$00,$f8,$00,$01,$08,$36,$0c,$56,$0c,$7e,$00 - byte $10,$18,$00,$0c,$41,$0c,$4c,$0c,$7c,$7c,$00,$e9,$00,$01,$08,$00 - byte $00,$00,$00,$7c,$3c,$00,$f3,$00,$01,$08,$00,$00,$00,$00,$7d,$00 - byte $45,$00,$00,$00,$61,$0c,$00,$00,$7e,$7e,$00,$14,$1c,$00,$0c,$00 - byte $00,$00,$00,$7e,$3e,$00,$ee,$00,$02,$04 - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/kwdefs.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/kwdefs.spn deleted file mode 100644 index eb4ef69..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/kwdefs.spn +++ /dev/null @@ -1,274 +0,0 @@ -pub blah -con ' The following is auto-generated. Do not edit. - kID = $80000000 - kINTLITERAL = $40000000 - kFLOATLITERAL = $20000000 - kUNARY = $08000000 - kBINARY = $04000000 - kPOSTFIX = $04000000 - kPASM = $02000000 - kCOND = $01000000 - kEFFECT = $00800000 - kSTMTFN = $00400000 - kASSIGNMENT = $00200000 - kINTRINSIC = $00100000 - -' kBANG = $080100e7 -' kOCTOTHORPRANGLE = $040700e4 -' kAMPERSAND = $040300e8 -' kSTAR = $040500f4 -' kSTARSTAR = $040500f5 - kPLUS = $040600ec -' kPLUSPLUS = $0c002820 - kMINUS = $040600ed -' kMINUSMINUS = $0c003830 -' kMINUSRANGLE = $040200e0 -' kSLASH = $040500f6 -' kSLASHSLASH = $040500f7 -' kLANGLE = $040800f9 -' kLANGLEOCTOTHORP = $040700e5 -' kLANGLEMINUS = $040200e1 -' kLANGLELANGLE = $040200e3 -' kLANGLERANGLE = $040800fb -' kEQUALLANGLE = $040800fd -' kEQUALEQUAL = $040800fc -' kEQUALRANGLE = $040800fe -' kRANGLE = $040800fa -' kRANGLELANGLE = $040200ef -' kRANGLERANGLE = $040200e2 -' kRANGLEBAR = $080100f1 - kQUESTION = $0c000c08 - kAT = $08000000 - kATAT = $08000001 -' kCARET = $040400eb -' kCARETCARET = $080100f8 - kBAR = $040400ea -' kBARLANGLE = $080100f3 -' kBARBAR = $080100e9 - kTILDE = $0c001810 -' kTILDERANGLE = $040200ee - kTILDETILDE = $0c001c14 - kAND = $060a00f0 -' kNOT = $080900ff - kOR = $060b00f2 -' kABS = $0203a8bc -' kABSNEG = $0203acbc -' kADD = $020380bc -' kADDABS = $020388bc -' kADDS = $0203d0bc -' kADDSX = $0203d8bc -' kADDX = $0203c8bc -' kANDN = $020364bc - kCALL = $02015cfc -' kCMP = $0203843c -' kCMPS = $0203c03c -' kCMPSUB = $0203e0bc -' kCMPSX = $0203c43c -' kCMPX = $0203cc3c -' kDJNZ = $0203e4bc -' kHUBOP = $02030c3c -' kJMP = $02015c3c -' kJMPRET = $02035cbc -' kMAX = $02034cbc -' kMAXS = $020344bc -' kMIN = $020348bc -' kMINS = $020340bc -' kMOV = $0203a0bc -' kMOVD = $020354bc -' kMOVI = $020358bc -' kMOVS = $020350bc -' kMUXC = $020370bc -' kMUXNC = $020374bc -' kMUXNZ = $02037cbc -' kMUXZ = $020378bc -' kNEG = $0203a4bc -' kNEGC = $0203b0bc -' kNEGNC = $0203b4bc -' kNEGNZ = $0203bcbc -' kNEGZ = $0203b8bc -' kNOP = $02000000 -' kRCL = $020334bc -' kRCR = $020330bc -' kRDBYTE = $020300bc -' kRDLONG = $020308bc -' kRDWORD = $020304bc -' kRET = $02005c7c -' kREV = $02033cbc -' kROL = $020324bc -' kROR = $020320bc -' kSAR = $020338bc -' kSHL = $02032cbc -' kSHR = $020328bc -' kSUB = $020384bc -' kSUBABS = $02038cbc -' kSUBS = $0203d4bc -' kSUBSX = $0203dcbc -' kSUBX = $0203ccbc -' kSUMC = $020390bc -' kSUMNC = $020394bc -' kSUMNZ = $02039cbc -' kSUMZ = $020398bc -' kTEST = $0203603c -' kTJNZ = $0203e83c -' kTJZ = $0203ec3c -' kWRBYTE = $0203003c -' kWRLONG = $0203083c -' kWRWORD = $0203043c -' kXOR = $02036cbc - kPAR = $00000001 -' kCNT = $00000002 -' kINA = $00000003 -' kINB = $00000004 -' kOUTA = $00000005 -' kOUTB = $00000006 -' kDIRA = $00000007 -' kDIRB = $00000008 -' kCTRA = $00000009 -' kCTRB = $0000000a -' kFRQA = $0000000b -' kFRQB = $0000000c -' kPHSA = $0000000d -' kPHSB = $0000000e -' kVCFG = $0000000f - kVSCL = $00000010 -' kIF_A = $01000001 -' kIF_AE = $01000003 -' kIF_ALWAYS = $0100000f -' kIF_B = $0100000c -' kIF_BE = $0100000e -' kIF_C = $0100000c -' kIF_C_AND_NZ = $01000004 -' kIF_C_AND_Z = $01000008 -' kIF_C_EQ_Z = $01000009 -' kIF_C_NE_Z = $01000006 -' kIF_C_OR_NZ = $0100000d -' kIF_C_OR_Z = $0100000e -' kIF_E = $0100000a -' kIF_NC = $01000003 -' kIF_NC_AND_NZ = $01000001 -' kIF_NC_AND_Z = $01000002 -' kIF_NC_OR_NZ = $01000007 -' kIF_NC_OR_Z = $0100000b -' kIF_NE = $01000005 -' kIF_NEVER = $01000000 -' kIF_NZ = $01000005 -' kIF_NZ_AND_C = $01000004 -' kIF_NZ_AND_NC = $01000001 -' kIF_NZ_OR_C = $0100000e -' kIF_NZ_OR_NC = $0100000b -' kIF_Z = $0100000a -' kIF_Z_AND_C = $01000008 -' kIF_Z_AND_NC = $01000002 -' kIF_Z_EQ_C = $01000009 -' kIF_Z_NE_C = $01000006 -' kIF_Z_OR_C = $0100000e -' kIF_Z_OR_NC = $0100000b -' kNR = $00800008 -' kWC = $00800002 -' kWR = $00800001 -' kWZ = $00800004 - kCON = $00000011 - kDAT = $00000012 - kOBJ = $00000013 - kPRI = $00000014 - kPUB = $00000015 - kVAR = $00000016 - kBYTE = $00000017 - kWORD = $00000018 - kLONG = $00000019 -' kBYTEFILL = $00400318 -' kWORDFILL = $00400319 -' kLONGFILL = $0040031a -' kBYTEMOVE = $0040031c -' kWORDMOVE = $0040031d -' kLONGMOVE = $0040031e - kCLKSET = $02400220 - kCOGSTOP = $02400121 -' kLOCKRET = $00400122 - kWAITCNT = $02400123 - kWAITPEQ = $0240031b - kWAITPNE = $0240031f - kWAITVID = $02400227 - kOCTOTHORP = $0000001a -' kDOLLAR = $0000001b - kLPAREN = $0000001c - kRPAREN = $0000001d - kCOMMA = $0000001e - kDOT = $0000001f - kDOTDOT = $00000020 - kCOLON = $00000021 - kCOLONEQUAL = $00200022 - kEQUAL = $00000023 - kABORT = $00000024 - kCASE = $00000025 - kCHIPVER = $00100000 - kCLKFREQ = $00100010 - kCLKMODE = $00100020 - kCOGID = $02100003 - kCOGINIT = $02100004 - kCOGNEW = $00100005 - kREBOOT = $00100006 -' kSTRCOMP = $00100172 -' kSTRSIZE = $00100161 -' kLOCKCLR = $0012b2f1 -' kLOCKNEW = $001292d0 -' kLOCKSET = $0012a2e1 -' kLOOKDOWN = $00113111 -' kLOOKDOWNZ = $00113110 -' kLOOKUP = $00112101 -' kLOOKUPZ = $00112100 - kCONSTANT = $00000026 - kELSE = $00000027 - kELSEIF = $00000028 - kELSEIFNOT = $00000029 -' kFILE = $0000002a - kFIT = $0000002b -' kFLOAT = $0000002c - kFROM = $0000002d - kIF = $0000002e - kIFNOT = $0000002f - kNEXT = $00000030 - kORG = $00000031 -' kORGX = $00000032 - kOTHER = $00000033 - kQUIT = $00000034 - kREPEAT = $00000035 - kRES = $00000036 - kRESULT = $00000037 - kRETURN = $00000038 -' kROUND = $00000039 - kSPR = $0000003a - kSTEP = $0000003b - kSTRING = $0000003c - kTO = $0000003d -' kTRUNC = $0000003e - kUNTIL = $0000003f - kWHILE = $00000040 - kLBRACKET = $00000041 - kBACKSLASH = $00000042 - kRBRACKET = $00000043 - kLBRACE = $00000044 - kRBRACE = $00000045 - kEOL = $000000fd - kEOF = $000000fe - kUNKNOWN = $000000ff - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/lex.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/lex.spn deleted file mode 100644 index e235909..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/lex.spn +++ /dev/null @@ -1,166 +0,0 @@ -{{ - Lex - - usage: lex filename [options] - - Reads filename.spn on SD card, writes tokens to filename.tok. - -}} -con - _clkmode = xtal1 + pll8x - _xinfreq = 10_000_000 - - tvPin = 24 - sdPin = 16 - -obj - term: "isxtv" - token: "tokenizr" - kw: "keywords" - fs: "sxfile" ' used for writing .tok file - str: "stringx" - bt: "bintree" - -pub Main | err, p - err := \Try - if err - if err > 0 - term.str( err ) - else - term.str( string("Error ") ) - term.dec( err ) - term.out( 13 ) - term.dec( token.LineNumber ) - term.out( "," ) - term.dec( token.Column + 1 ) - term.out( " " ) - term.out( "'" ) - term.str( pTokenText ) - term.out( "'" ) - term.out( 13 ) - fs.Close - fs.Open( string("sphinx.bin"), "R" ) - else - fs.Close - if compile - fs.Open( string("codegen.bin"), "R" ) - else - fs.Open( string("sphinx.bin"), "R" ) - bt.Stop - fs.Execute( 0 ) - -var - long pTokenText - -pri Try - bt.Init( 0, 0 ) - ProcessCommandLine - if verbosity => 1 - term.str( string("lex 090627", 13) ) - Start - -pri ProcessCommandLine | nArgs, l - fs.Open( string("args.d8a"), "R" ) - nArgs := fs.ReadByte - ifnot nArgs-- - abort string("usage: lex spinfile [options]") - fs.ReadStringUpperCase( @spinFilename, MAXFILENAMELENGTH ) - - l := strsize( @spinFilename ) - if spinFilename[l-4] == "." and spinFilename[l-3] == "S" and spinFilename[l-2] == "P" and spinFilename[l-1] == "N" - spinFilename[l-4]~ - if strsize( @spinFilename ) > 8 - term.str( @spinFilename ) - abort string(" -- filename too long") - str.Copy( @outputFilename, @spinFilename ) - str.Append( @spinFilename, string(".SPN") ) - str.Append( @outputFilename, string(".TOK") ) - - ' Process command line arguments - - repeat while nArgs-- - fs.ReadStringUpperCase( @stringBuffer, MAXSTRINGBUFFERLENGTH ) - if stringBuffer[0] == "-" - stringBuffer[0] := "/" - if strcomp( @stringBuffer, string("/C") ) - compile~~ - elseif strcomp( @stringBuffer, string("/L") ) - compile~~ - elseif strcomp( @stringBuffer, string("/V") ) - ifnot nArgs-- - abort string("/V must be followed by a number") - verbosity := fs.ReadNumber - 'else ignore - - fs.Close - -con - MAXFILENAMELENGTH = 8 + 1 + 3 ' 8.3 - MAXSTRINGBUFFERLENGTH = 32 - -var - byte spinFilename[MAXFILENAMELENGTH+1] ' input .spi file - byte outputFilename[MAXFILENAMELENGTH+1] ' output .tok file - byte stringBuffer[MAXSTRINGBUFFERLENGTH+1] ' temp string buffer - -dat -verbosity byte 0 ' set by /V option -compile byte 0 ' set by /C or /L: if non-zero, run compile.bin automatically. -type long 0 -lineNum word 0 -column word 0 - -pri Start | v - - kw.Init - pTokenText := token.GetPText - - if verbosity => 2 - term.str( string("Reading ") ) - term.str( @spinFilename ) - term.out( 13 ) - token.Open( @spinFilename ) - - if verbosity => 2 - term.str( string("Writing ") ) - term.str( @outputFilename ) - term.out( 13 ) - fs.Open( @outputFilename, "W" ) - - repeat - type := token.Type - lineNum := token.LineNumber - column := token.Column - fs.Write( @type, 8 ) ' long + word + word - - if type == kw#kINTLITERAL or type == kw#kFLOATLITERAL - v := token.Value - fs.Write( @v, 4 ) - else - fs.Write( pTokenText, strsize(pTokenText) + 1 ) - - if token.Type == kw#kEOF - quit - token.Advance - token.Close - fs.Close - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/link.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/link.spn deleted file mode 100644 index f5f72e2..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/link.spn +++ /dev/null @@ -1,616 +0,0 @@ -{ - .sob linker -2009 -April - 10 Successfully linked two test programs - 15 SOB1 format: - #args in exported pubs now just one byte - added byte to imports for possible future use with object "pointers" - rearranged fields in SOB file header so that longs are long-aligned in memory -June - 9 Sphinxified - timestamp comparison - 12 Removed /s and /t options - 18 Don't stop on first out-of-date error. - -To do: - removal of duplicate sobs - - -Usage: link sobname [options] -sobname is name of .sob file, with or without .sob suffix. -Options start with / or - and are case-insensitive: - /v -- Sets verbosity level. Higher values of n => more verbose. Default is 0. - - SOB file format - - 0 4 bytes: SOB file format version # - 4 4 bytes: OBJ timestamp or version - 8 4 bytes: hash of OBJ's binary code. - 12 2 bytes: NUMEXPORTS - 14 2 bytes: EXPORTSIZE - 16 2 bytes: NUMIMPORTS - 18 2 bytes: IMPORTSIZE - 20 2 bytes: OBJBINSIZE (this is always a multiple of 4) - 22 1 byte: checksum - 23 1 byte: reserved - 24 2 bytes: size of OBJ's VAR space. - 26 EXPORTSIZE bytes: exported symbols: CONs, PUBs, maybe PRIs. - IMPORTSIZE bytes: OBJ's sub-OBJs. - OBJBINSIZE bytes: the compiled OBJ: header followed by methods. - - Export record format - - name + null + 0 + 4-byte int CON int - name + null + 1 + 4-byte float CON float - name + null + 2 + index + #args PUB - name + null + 3 + index + #args PRI (not exported) - - Import record format - - name + null + 2-byte count + reserved - - Export and import names are uppercase. Import name must not include ".SOB" or other suffix. - -} -SIZEOFSOBHEADER = 26 - -obj - term: "isxtv" - fs[2]: "sxfile" - str: "stringx" - -pub Main | err - err := \Try - if err - if err > 0 - term.str( err ) - else - term.str( string("Error ") ) - term.dec( err ) - term.out( 13 ) - - fs[0].Close - fs[0].Open( string("sphinx.bin"), "R" ) - fs[0].Execute( 0 ) - -dat -STACKSPACE long 500 ' in bytes; must be multiple of 4 -TABLESPACE long 1000 ' in bytes; must be multiple of 4 -WORKSPACE long 0 -verbosity byte 0 -outOfDate byte 0 -ignoreOutOfDate byte 0 - -pri Try | nArgs, pTable, pWork, l, p, totalVarSize - - fs.Open( string("args.d8a"), "R" ) - nArgs := fs.ReadByte - ifnot nArgs-- - abort string("usage: link sobname [options]") - fs.ReadStringUpperCase( @sobName, MAXFILENAMELENGTH ) - - l := strsize( @sobName ) - if sobName[l-4] == "." and sobName[l-3] == "S" and sobName[l-2] == "O" and sobName[l-1] == "B" - sobName[l-4]~ - if strsize( @sobName ) > 8 - term.str( @sobName ) - abort string(" -- sobname too long") - str.Copy( @outputName, @sobName ) - - ' Process command line arguments - - repeat while nArgs-- - fs.ReadStringUpperCase( @stringBuffer, 20 ) - if stringBuffer[0] == "-" - stringBuffer[0] := "/" - if strcomp( @stringBuffer, string("/V") ) - ifnot nArgs-- - abort string("/V must be followed by a number") - verbosity := fs.ReadNumber - elseif strcomp( @stringBuffer, string("/I") ) - ignoreOutOfDate~~ -{ - elseif strcomp( @stringBuffer, string("/S") ) - ifnot nArgs-- - abort string("/S must be followed by a number") - STACKSPACE := fs.ReadNumber - if STACKSPACE & 3 - abort string("/S argument must be a multiple of 4") - elseif strcomp( @stringBuffer, string("/T") ) - ifnot nArgs-- - abort string("/T must be followed by a number") - TABLESPACE := fs.ReadNumber - if TABLESPACE & 3 - abort string("/T argument must be a multiple of 4") -} - 'else - 'ignore - - fs.Close - - if verbosity => 1 - term.str( string("link 090627", 13) ) - - pTable := word[$000a] + STACKSPACE - pWork := pTable + TABLESPACE - WORKSPACE := 32768-pWork - - if verbosity => 2 - term.dec( WORKSPACE ) - term.str( string(" bytes of work space", 13) ) - - if WORKSPACE =< 0 - abort string("No work space") - - SobInit( pTable, TABLESPACE ) - AddSob( @sobName ) - ProcessSob( pTable, true ) - checksum~ - totalVarSize := ComputeAddressAndTotalVarSize( pTable, $0010 ) - - word[@header][3] := $0010 - word[@header[$08]] := objBinEndAddress - word[@header[$0a]] := objBinEndAddress + totalVarSize + 8 - word[@header[$0c]] := firstPubOffset + $0010 - word[@header[$0e]] := word[@header[$0a]] + firstPubLocalsSize + (firstPubNumArgs + 1) << 2 - - AddToChecksum( @header, $10 ) - AddToChecksum( @footer, 8 ) - header[5] := -checksum - - if verbosity => 3 - p := pTable - repeat while p - term.str( word[p +_pName] ) - term.out( " " ) - term.hex( word[p +_startAddress], 4 ) - term.out( " " ) - term.dec( word[p +_totalVarSize] ) - term.out( " " ) - term.hex( byte[p +_checksum], 2 ) - term.out( 13 ) - p := word[p +_pNextSorted] - - if not outOfDate or ignoreOutOfDate - str.Append( @outputName, string(".BIN") ) - if verbosity => 2 - term.str( string("Writing ") ) - term.str( @outputName ) - term.out( 13 ) - WriteBinaryFile( @outputName, pTable, pWork, WORKSPACE ) - else - term.str( string("No .bin written", 13) ) - -pri WriteBinaryFile( pFilename, pSob, pBuff, buffsize ) | n, p, pImports, pCounts, interObjectOffset, varOffset -{{ - Go down the priority-sorted list of sobs assigning them hub addresses such that they follow one - another in memory. On the way back up the list, compute each sob's total VAR size (the sob's - own VARs plus its imported sobs' VARs.) - Also updates checksum. - Return value is the current sob's total VAR size. Only the top object's return value is looked at. -}} - fs[0].Open( pFilename, "W" ) - fs[0].Write( @header, 16 ) - - repeat while pSob - str.Copy( @stringBuffer, word[pSob +_pName] ) - str.Append( @stringBuffer, string(".SOB") ) - if verbosity => 2 - term.str( @stringBuffer ) - term.str( string(" -- copying", 13) ) - - n := word[pSob +_objBinSize] - if n > buffsize - abort string("work area too small") - - fs[1].Open( @stringBuffer, "R" ) - fs[1].SkipBytes( SIZEOFSOBHEADER + word[pSob +_exportImportSize] ) - fs[1].Read( pBuff, n ) - fs[1].Close - - p := pBuff + byte[pBuff][2] << 2 ' byte[2] is index of 1st obj entry; multiply by 4 bytes/entry - varOffset := word[pSob +_varSize] - pImports := word[pSob +_pImports] - pCounts := word[pSob +_pCounts] - repeat word[pSob +_nImports] - interObjectOffset := word[ word[pImports] +_startAddress] - word[pSob +_startAddress] - repeat word[pCounts] - word[p] := interObjectOffset - p += 2 - word[p] := varOffset - p += 2 - varOffset += word[ word[pImports] +_totalVarSize] - - pImports += 2 - pCounts += 2 - - - fs[0].Write( pBuff, n ) - pSob := word[pSob +_pNextSorted] - fs[0].Close - -{{ - objBinEndAddress := address ' end address will point just beyond the last obj in hub memory. - ' Here we're just overwriting as we go and keeping the last one. - - ComputeAddressAndTotalVarSize( word[p +_pNextSorted], address ) - - checksum += byte[p +_checksum] ' this is the partial checksum of the obj (doesn't count its sub-object table because - ' sub-object links are not known until link time (i.e., now)) - totalVarSize := word[p +_varSize] - pImports := word[p +_pImports] - pCounts := word[p +_pCounts] - repeat word[p +_nImports] ' for each import, add the import's VAR size multiplied by its count - interObjectOffset := word[ word[pImports] +_startAddress] - word[p +_startAddress] - repeat word[pCounts] - AddToChecksum( @totalVarSize, 2 ) ' checksum needs to include this half of an object table entry - AddToChecksum( @interObjectOffset, 2 ) ' and this other half of an object table entry - - totalVarSize += word[ word[pImports] +_totalVarSize] - - pImports += 2 - pCounts += 2 - - word[p +_totalVarSize] := totalVarSize -}} - -var - word firstPubLocalsSize - word firstPubOffset - word firstPubNumArgs - word objBinEndAddress - byte checksum - long clk_freq - long xin_freq - long clk_mode - long free - long stack - -pri ReadExports( numExports ) | firstPub, type, val, index, nArgs, i, p, f, frequency - f~ - firstPub~~ - stack := 16 - frequency := 12_000_000 - - repeat numExports - fs.ReadStringUpperCase( @stringBuffer, MAXEXPORTLENGTH ) - case type := fs.ReadByte - 0, 1: ' int or float CON - val := fs.ReadLong - 2, 3: ' PUB or PRI - index := fs.ReadByte - nArgs := fs.ReadByte - if firstPub~ - firstPubNumArgs := nArgs - - repeat i from 0 to 4 - if strcomp( @stringBuffer, @@ptrs[i] ) - if type - term.str( @stringBuffer ) - abort string(" -- not an int CON") - clk_freq[i] := val - f |= |< i - - f &= 7 - if clk_mode & 3 - f |= 8 - case f ' four bits: rc|clkmode|xinfreq|clkfreq - %0000: ' none of clkmode/xinfreq/clkfreq specified - %0001..%0011: abort string("_CLKMODE must be specified") - %0100: abort string("_CLKFREQ or _XINFREQ must be specified") - %0101: frequency := clk_freq - %0110: frequency := xin_freq * ((clk_mode >> 6) #> 1) - %0111: if clk_freq <> xin_freq * ((clk_mode >> 6) #> 1) - abort string("conflicting _CLKFREQ and _XINFREQ") - %1000..%1011: ' these cases shouldn't happen - %1100: ' this case is OK - %1101..%1111: abort string("RCFAST/SLOW incompatible with _CLKFREQ/_XINFREQ") - - long[@header] := frequency - - header[4] := ComputeClkmodeByte( clk_mode ) - -pri ComputeClkmodeByte( mode ) : m | b1, b2, i -{ -rcfast $001 exactly one 1 in 0000_0000_00xx incompatible with clkfreq/xinfreq -rcslow $002 - or -xinput $004 exactly one 1 in 0000_00xx_xx00 and requires clkfreq/xinfreq -xtal1 $008 up to one 1 in 0xxx_xx00_0000 -xtal2 $010 -xtal3 $020 -pll1x $040 -pll2x $080 -pll4x $100 -pll8x $200 -pll16x $400 -} - b1 := -1 ' b1 is the position of the single 1 in mode[5..0]. - repeat i from 0 to 5 - if mode & |< i - if b1 <> -1 - abort string("invalid _CLKMODE") ' only one 1 allowed - b1 := i - m := lookupz( b1: $00, $01, $22, $2a, $32, $3a ) - - b2 := -1 ' b2 is the position of single 1 in mode[10..6] (-1 if no 1 bit) - repeat i from 6 to 10 - if mode & |< i - if b2 <> -1 - abort string("invalid _CLKMODE (multiple PLL)") ' only one 1 allowed - b2 := i - - if b1 < 2 ' RCFAST/RCSLOW? - if b2 <> -1 ' b2 better not be set - abort string("invalid _CLKMODE (RC+PLL)") - else ' one of the X-modes - if b2 <> -1 - m |= $40 ' PLLENA - m += b2 - 5 - - -dat -ptrs word @s0, @s1, @s2, @s3, @s4 -s0 byte "_CLKFREQ", 0 -s1 byte "_XINFREQ", 0 -s2 byte "_CLKMODE", 0 -s3 byte "_FREE", 0 -s4 byte "_STACK", 0 - - -dat - long -header byte 0[16] -footer byte $ff, $ff, $f9, $ff - byte $ff, $ff, $f9, $ff - -con - MAXFILENAMELENGTH = 8 + 1 + 3 ' 8.3 - MAXEXPORTLENGTH = 32 - -var - byte stringBuffer[MAXEXPORTLENGTH+1] - byte sobName[MAXFILENAMELENGTH+1] - byte outputName[MAXFILENAMELENGTH+1] - -con -#0 -_pNext[2] -_pNextSorted[2] -_pName[2] -_nImports[2] -_pImports[2] -_pCounts[2] -_startAddress[2] -_objBinSize[2] -_totalVarSize[2] -_varSize[2] -_timestamp[4] -_exportImportSize[2] -_checksum[1] -_[1] ' for alignment: _SIZEOFSOBINFO must be a multiple of 4 -_SIZEOFSOBINFO - -SOBFILEFORMATVERSION = "S" + "O" << 8 + "B" << 16 + "1" << 24 ' "SOB1" - -dat -pSobSpace word 0 -SOBSSIZE word 0 -pDataSpace word 0 -pFirst word 0 -pLast word 0 -pLastSorted word 0 - -pri SobInit( p, size ) - pFirst := pSobSpace := p - SOBSSIZE := size - pDataSpace := pSobSpace + SOBSSIZE - - pLastSorted := pLast := pFirst - - word[pFirst +_pNext]~ - word[pFirst +_pNextSorted]~ - -pri ComputeAddressAndTotalVarSize( p, address ) : totalVarSize | pImports, pCounts, interObjectOffset -{{ - Go down the priority-sorted list of sobs assigning them hub addresses such that they follow one - another in memory. On the way back up the list, compute each sob's total VAR size (the sob's - own VARs plus its imported sobs' VARs.) - Also updates checksum. - Return value is the current sob's total VAR size. Only the top object's return value is looked at. -}} - ifnot p - return - - word[p +_startAddress] := address - address += word[p +_objBinSize] - - objBinEndAddress := address ' end address will point just beyond the last obj in hub memory. - ' Here we're just overwriting as we go and keeping the last one. - - ComputeAddressAndTotalVarSize( word[p +_pNextSorted], address ) - - checksum += byte[p +_checksum] ' this is the partial checksum of the obj (doesn't count its sub-object table because - ' sub-object links are not known until link time (i.e., now)) - totalVarSize := word[p +_varSize] - pImports := word[p +_pImports] - pCounts := word[p +_pCounts] - repeat word[p +_nImports] ' for each import, add the import's VAR size multiplied by its count - interObjectOffset := word[ word[pImports] +_startAddress] - word[p +_startAddress] - repeat word[pCounts] - AddToChecksum( @totalVarSize, 2 ) ' checksum needs to include this half of an object table entry - AddToChecksum( @interObjectOffset, 2 ) ' and this other half of an object table entry - - totalVarSize += word[ word[pImports] +_totalVarSize] - - pImports += 2 - pCounts += 2 - - word[p +_totalVarSize] := totalVarSize - -pri AddToChecksum( p, n ) - repeat n - checksum += byte[p++] - -pri AddSob( pName ) : p | n -{{ - Copies name to data area, appends name to the sobs list, returns pointer to new sob entry. -}} - if verbosity => 2 - term.str(string("adding ")) - term.str(pName) - term.out(13) - - p := pSobSpace - pSobSpace += _SIZEOFSOBINFO - - n := strsize(pName) + 1 - bytemove( Alloc(n), pName, n ) - - word[pLast +_pNext] := p - word[pLastSorted +_pNextSorted] := p - word[p +_pName] := pDataSpace - word[p +_pNext]~ - word[p +_pNextSorted]~ - pLast := p - pLastSorted := p - -pri Alloc( n ) - pDataSpace := (pDataSpace - n) & $fffffffc ' long-aligned - if pDataSpace < pSobSpace - abort string("Insufficient sob table space") - return pDataSpace - -pri FindSob( pName ) : p | pPrev -{{ - Search the sob list in priority order. If a sob in the list matches name, - update priority-order links to put the sob at the end and return a pointer to it. - Otherwise, return 0. -}} - p := pPrev := pFirst - repeat while p - if strcomp( word[p +_pName], pName ) - if p <> pLastSorted - word[pPrev +_pNextSorted] := word[p +_pNextSorted] - word[pLastSorted +_pNextSorted] := p - word[p +_pNextSorted]~ - pLastSorted := p - return - pPrev := p - p := word[p +_pNextSorted] - return 0 - -pri ProcessSob( p, top ) | len, numExports, exportSize, numImports, importSize, objBinSize, hash, pStart, temp, pImports, pCounts, ts0, ts1 -{{ - Reads the sob file identified by p, appends the sob's imports to the sob list, - then recursively processes the imported sobs. - top is true for the top sob, false for all other sobs. -}} - Str.Copy( @stringBuffer, word[p +_pName] ) - Str.Append( @stringBuffer, string(".SOB") ) - - if verbosity => 2 - term.str( string("Reading [") ) - term.str( @stringBuffer ) - term.out( "]" ) - term.out( 13 ) - - fs.Open( @stringBuffer, "R" ) - - if fs.Readlong <> SOBFILEFORMATVERSION ' SOB file format version - abort string("Unrecognized SOB file format") - long[p +_timestamp] := fs.Readlong ' timestamp - hash := fs.ReadLong ' hash - numExports := fs.ReadWord ' number of exports - exportSize := fs.ReadWord ' size of exports segment - numImports := fs.ReadWord ' number of imports - importSize := fs.ReadWord ' size of imports segment - word[p +_objBinSize] := fs.ReadWord ' size of bytecode segment - byte[p +_checksum] := fs.ReadByte ' checksum - fs.ReadByte ' padding - word[p +_varSize] := fs.ReadWord ' size of sob's VAR space - - ts0 := long[p +_timestamp] - - if top - ReadExports( numExports ) - else - fs.SkipBytes( exportSize ) - - word[p +_exportImportSize] := exportSize + importSize - - word[p +_nImports] := numImports - word[p +_pImports] := pImports := Alloc( numImports << 1 ) ' points to an array of sob pointers - word[p +_pCounts] := pCounts := Alloc( numImports << 1 ) ' points to an array of sob counts - - pStart := pLast - repeat numImports - fs.ReadStringUpperCase( @stringBuffer, 8 ) - ts1 := GetTimestamp( @stringBuffer ) - if ts0 and ts1 ' Only compare non-zero timestamps - if ts0 =< ts1 - term.str( word[p+_pName] ) - term.str( string(".SOB is older than ") ) - term.str( @stringBuffer ) - term.str( string(".SOB", 13) ) - outOfDate~~ - ifnot temp := FindSob( @stringBuffer ) - temp := AddSob( @stringBuffer ) - word[pImports] := temp - word[pCounts] := fs.ReadWord - fs.ReadByte ' reserved byte - if verbosity => 3 - term.str( word[ word[pImports] +_pName] ) - term.out( "*" ) - term.dec( word[pCounts] ) - term.out( 13 ) - pImports += 2 - pCounts += 2 - - if top - fs.SkipBytes( $4 ) ' look into the top sob's object header - firstPubOffset := fs.ReadWord ' and get offset to first pub - firstPubLocalsSize := fs.ReadWord ' and size of first pub's locals - - fs.Close - - ' Process the imported sobs - - pStart := word[pStart +_pNext] - repeat while pStart - ProcessSob( pStart, false ) - pStart := word[pStart +_pNext] - - if verbosity => 2 - term.str( string("done with ") ) - term.str( word[p +_pName] ) - term.out( 13 ) - -pri GetTimestamp( pFilename ) - str.Append( pFilename, string(".SOB") ) - fs[1].Open( pFilename, "R" ) - fs[1].ReadLong - result := fs[1].ReadLong - fs[1].Close - byte[pFilename][ strsize(pFilename) - 4 ]~ ' remove .SOB tail - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/methods.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/methods.spn deleted file mode 100644 index cec76d7..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/methods.spn +++ /dev/null @@ -1,1172 +0,0 @@ -' 2010-01-25 fix for outa[x..y] := z - -obj - bt : "bintree" - st : "symbols" - kw : "kwdefs" - eval : "eval" - token : "tokenrdr" - -var - long pLocalSymbols - byte repeatDepth ' nested REPEAT depth. 0 => at top level - word pStringWork - word pObjSpace - word pObjWork - word pObjTop - -pub get_pObjSpace - return pObjSpace - -pub set_pObjSpace( p ) - pObjSpace := p - -pub get_pObjWork - return pObjWork - -pub set_pObjWork( p ) - pObjWork := p - -pub get_pObjTop - return pObjTop - -pub set_pObjTop( p ) - pObjTop := p - -pub Parse2( type ) | pSym, pHeaderEntry, dim, localOffset, addedResult -{{ - Second pass processing of PRI and PUB methods. -}} - pLocalSymbols := bt.Alloc( 2 ) ' Local symbol table space will be freed at the end of this method - bt.PokeW( pLocalSymbols, 0 ) - - pStringWork := pObjTop ' temp string storage starts at high end of memory - - pSym := st.SymbolLookup( token.Text ) - - pHeaderEntry := pObjSpace + byte[pSym][1] << 2 ' method index * 4 - - token.Advance ' past method name - - localOffset := 4 ' LOC+0 is RESULT, LOC+4, +8, +12... are params, beyond that are locals - ' parse parameter names - if token.AdvanceIf( kw#kLPAREN ) - repeat - ifnot token.IsId - abort string("Expected ID") - if st.SymbolLookup( token.Text ) - abort string("Expected unique parameter name") - bt.AddToTable( token.Text, pLocalSymbols ) - bt.PokeW( bt.Alloc(2), localOffset ) - localOffset += 4 - token.Advance - while token.AdvanceIf( kw#kCOMMA ) - token.Eat( kw#kRPAREN ) - - ' parse return value - addedResult~ - if token.AdvanceIf( kw#kCOLON ) - ifnot token.IsId or token.Type == kw#kRESULT - abort string("Expected ID") - if st.SymbolLookup( token.Text ) - abort string("Expected unique result name") - bt.AddToTable( token.Text, pLocalSymbols ) - bt.PokeW( bt.Alloc(2), 0 ) - addedResult := token.Type == kw#kRESULT - token.Advance - - ifnot addedResult - bt.AddToTable( string("RESULT"), pLocalSymbols ) - bt.PokeW( bt.Alloc(2), 0 ) - - ' parse local variables - if token.AdvanceIf( kw#kBAR ) - ifnot token.IsId - abort string("Expected ID") - repeat - if st.SymbolLookup( token.Text ) - abort string("Expected unique variable name") - bt.AddToTable( token.Text, pLocalSymbols ) - bt.PokeW( bt.Alloc(2), localOffset ) - token.Advance - if token.AdvanceIf( kw#kLBRACKET ) - dim := Eval.EvaluateExpression( 0 ) - token.Eat( kw#kRBRACKET ) - else - dim := 1 - localOffset += dim << 2 - while token.AdvanceIf( kw#kCOMMA ) - token.Eat( kw#kEOL ) - - word[pHeaderEntry][0] := pObjWork - pObjSpace - ' Now store size of locals in header. - word[pHeaderEntry][1] := localOffset - (byte[pSym][2] + 1) << 2 - -''' DumpLocals( bt.PeekW( pLocalSymbols ) )''' - - repeatDepth~ - pFloatingReferences~ - - CompileStatements( -1 ) - - Emit( $32 ) ' RETURN - - StringCleanup - ResolveFloatingReferences - - bt.Alloc( pLocalSymbols - bt.Alloc(0) ) ' hack to free local symbol table memory - ' should be fine as long as no permanent allocations were made - -pri CompileStatements( col ) | p, op, nArgs - repeat until token.IsBlockDesignator or token.Type == kw#kEOF or token.Column =< col - if token.Type == kw#kIF or token.Type == kw#kIFNOT - CompileIf - elseif token.Type == kw#kREPEAT - CompileRepeat - elseif token.Type == kw#kCASE - CompileCase - elseif token.AdvanceIf( kw#kRETURN ) - if token.Type == kw#kEOL - Emit( $32 ) ' RETURN - else - CompileExpression( 13, true, false ) - Emit( $33 ) ' RETVAL - token.Eat( kw#kEOL ) - elseif token.AdvanceIf( kw#kABORT ) - if token.Type == kw#kEOL - Emit( $30 ) ' ABORT - else - CompileExpression( 13, true, false ) - Emit( $31 ) ' ABOVAL - token.Eat( kw#kEOL ) - elseif token.AdvanceIf( kw#kNEXT ) - NextQuitHelper( nextDest ) - elseif token.AdvanceIf( kw#kQUIT ) - NextQuitHelper( quitDest ) - elseif token.IsStmtFn - op := token.GetSpinOpcode - nArgs := token.GetNumArgs - token.Advance - CompileArgs( nArgs ) - Emit( op ) - token.Eat( kw#kEOL ) - elseifnot token.AdvanceIf( kw#kEOL ) - CompileExpression( 13, false, false ) - token.Eat( kw#kEOL ) - -pri NextQuitHelper( dest ) - ifnot repeatDepth - abort string("No enclosing REPEAT") - if caseNesting - EmitPushInt( caseNesting << 3 ) - Emit( $14 ) ' mystery op - - Emit( $04 ) ' GOTO - MakeFloatingReference( pObjWork, dest ) - Emit( $80 ) ' placeholder - Emit( $00 ) - token.Eat( kw#kEOL ) - -pri CompileIf | col, jumpOp, pIfJump, pElseJump -{{ - Current token is IF, IFNOT, ELSEIF, or ELSEIFNOT. -}} - col := token.Column - if token.Type == kw#kIF or token.Type == kw#kELSEIF - jumpOp := $0a ' JPF - else - jumpOp := $0b ' JPT - token.Advance - CompileExpression( 13, true, false ) - pIfJump := MakeForwardJump( jumpOp ) - token.Eat( kw#kEOL ) - CompileStatements( col ) - if token.Column == col - if token.AdvanceIf( kw#kELSE ) - pElseJump := MakeForwardJump( $04 ) ' GOTO - ResolveForwardJump( pIfJump ) - token.Eat( kw#kEOL ) - CompileStatements( col ) - ResolveForwardJump( pElseJump ) - return - if token.Type == kw#kELSEIF or token.Type == kw#kELSEIFNOT - pElseJump := MakeForwardJump( $04 ) ' GOTO - ResolveForwardJump( pIfJump ) - CompileIf - ResolveForwardJump( pElseJump ) - return - ResolveForwardJump( pIfJump ) - -pri MakeForwardJump( jumpOp ) -{{ - Emits jump instruction with 2-byte jump offset to be filled in by a subsequent call to ResolveJump. - Returns a pointer to the jump instruction; pass this pointer to ResolveJump. -}} - result := pObjWork - Emit( jumpOp ) - Emit( $00 ) - Emit( $00 ) - -pri ResolveForwardJump( pJump ) | d, p -{{ - Resolves the jump instruction at pJump. If that instruction is part of a linked list - of jumps (as in a bunch of QUIT jumps out of a loop) then this method resolves all - the linked jumps. -}} - repeat while pJump - d := pObjWork - pJump - 3 - p := bt.PeekW( pJump + 1 ) - if d =< 16383 - byte[pJump][1] := $80 + (d >> 8) - byte[pJump][2] := d - else - abort string("Jump out of range(1)") - pJump := p - -pri MarkBackwardJumpDestination - return pObjWork - -pri ResolveBackwardJump( jumpOp, pDest ) | d -{{ - Emits a jump instruction to the location pointed to by pDest. -}} - Emit( jumpOp ) - d := pDest - pObjWork - 1 ' d < 0 - if d => -64 - Emit( d + 128 ) - elseif --d => -16384 ' decrementing d to compensate for emitting an additional byte - Emit( (d >> 8) + 256 ) - Emit( d ) - else - abort string("Jump out of range(2)") - -var - word nextDest ' destination for NEXT - word quitDest ' destination for QUIT -dat -uniqueDest word $8000 - -var - byte caseNesting { #CASE levels between REPEAT and NEXT or QUIT. E.g. - REPEAT - CASE - NEXT caseNesting = 1 - CASE - REPEAT - NEXT caseNesting = 0 - NEXT caseNesting = 2 -} - -pri CompileRepeat | col, pJump, saveNextDest, saveQuitDest, pQuitJump, jumpOp, topDest, fromAllowed, p, q { -}, pFromVarStart { points to start of code for REPEAT FROM variable -}, pFromVarEnd { points to end " -}, pFromVarOp { points to the PUSH op that has to change to USING -}, pFromToExprStart { points to start of code for FROM..TO.. expressions -}, pFromToExprEnd { points to end " -}, pStepExprStart { points to start of STEP expression -}, pStepExprEnd { points to end " -}, saveCaseNesting -{{ - Current token is REPEAT -}} - saveNextDest := nextDest - saveQuitDest := quitDest - ++repeatDepth - nextDest := uniqueDest++ - quitDest := uniqueDest++ - - saveCaseNesting := caseNesting~ ' save case nesting, make it 0 - - col := token.Column - token.Advance - if token.AdvanceIf( kw#kEOL ) ' Uncounted REPEAT or REPEAT ... WHILE/UNTIL -- can't tell until the end of the loop - topDest := MarkBackwardJumpDestination - CompileStatements( col ) - - jumpOp := $04 ' GOTO (used if this is an uncounted REPEAT) - if token.Column == col - if token.AdvanceIf( kw#kWHILE ) - jumpOp := $0b ' JPT - elseif token.AdvanceIf( kw#kUNTIL ) - jumpOp := $0a ' JPF - if jumpOp == $04 - Retarget( nextDest, topDest ) ' for plain uncounted REPEAT, NEXT jumps to the top of the loop. - else - Retarget( nextDest, pObjWork ) ' for REPEAT ... WHILE/UNTIL , NEXT jumps to the expression. - CompileExpression( 13, true, false ) - token.Eat( kw#kEOL ) - - ResolveBackwardJump( jumpOp, topDest ) ' back to top of loop - Retarget( quitDest, pObjWork ) - - elseif token.Type == kw#kWHILE or token.Type == kw#kUNTIL - jumpOp := $0a ' JPF - if token.Type == kw#kUNTIL - jumpOp := $0b ' JPT - token.Advance - nextDest := topDest := MarkBackwardJumpDestination - CompileExpression( 13, true, false ) - token.Eat( kw#kEOL ) - pJump := MakeForwardJump( jumpOp ) - CompileStatements( col ) - ResolveBackwardJump( $04, topDest ) ' GOTO top of loop - ResolveForwardJump( pJump ) - Retarget( quitDest, pObjWork ) - - else ' REPEAT expr or REPEAT var FROM... - pFromVarStart := pObjWork - fromAllowed := CompileExpression( 13, true, true ) - if token.AdvanceIf( kw#kFROM ) ' REPEAT var FROM... - ifnot fromAllowed - abort string("FROM not allowed") - { - REPEAT var FROM f TO t STEP s - If we just generated the bytecode in order, we'd get - vPUSHffffttttssss - What we want is - ffffvPOP - the body of the loop - ssssffffttttvUSING+RPTINCJ - (vPUSH is the code for pushing var; we'll modify the PUSH op to POP and then to USING.) - So: - Generate vPUSH, copy it to temp storage, and reset pObjWork to overwrite it. - Generate ffff and note pObjWork. - Generate tttt, copy fffftttt to temp storage. - Generate ssss, copy to temp storage. - Reset pObjWork to overwrite ttttssss. - Modify vPUSH to vPOP, emit it after ffff. - Generate the code for the body of the loop. - Emit ssss. - Emit fffftttt. - Modify vPOP to vUSING, emit it. - Emit RPTINCJ or RPTADDJ - } - pFromVarOp := fromAllowed - pFromVarEnd := pObjWork - p := SaveBytes( pFromVarStart, pFromVarEnd ) - pObjWork := pFromVarStart ' overwrite var code - pFromVarEnd -= pFromVarStart - p - pFromVarOp -= pFromVarStart - p - pFromVarStart := p - - pFromToExprStart := pObjWork - CompileExpression( 13, true, false ) ' FROM expression - token.Eat( kw#kTO ) - q := pObjWork ' we're going to reset pObjWork to this point to overwrite TO and STEP expressions. - CompileExpression( 13, true, false ) ' TO expression - pFromToExprEnd := pObjWork - p := bt.Alloc( pFromToExprEnd - pFromToExprStart ) - bytemove( p, pFromToExprStart, pFromToExprEnd - pFromToExprStart ) - pFromToExprEnd -= pFromToExprStart - p - pFromToExprStart := p - pStepExprStart~ - if token.AdvanceIf( kw#kSTEP ) - pStepExprStart := pObjWork - CompileExpression( 13, true, false ) ' STEP expression - pStepExprEnd := pObjWork - p := SaveBytes( pStepExprStart, pStepExprEnd ) - pStepExprEnd -= pStepExprStart - p - pStepExprStart := p - token.Eat( kw#kEOL ) - - pObjWork := q - - ' change PUSH to POP - if byte[pFromVarOp] | 1 == $3f ' reg? - byte[pFromVarOp][1] += $20 ' modify following byte: $9r => $br - else - ++byte[pFromVarOp] ' PUSH => POP - - repeat p from pFromVarStart to pFromVarEnd-1 - Emit( byte[p] ) - - topDest := MarkBackwardJumpDestination - - CompileStatements( col ) - - Retarget( nextDest, pObjWork ) - - jumpOp := $02 ' RPTINCJ for no STEP - if pStepExprStart ' emit STEP expression if present - repeat p from pStepExprStart to pStepExprEnd - 1 - Emit( byte[p] ) - jumpOp := $06 ' RPTADDJ for STEP - - repeat p from pFromToExprStart to pFromToExprEnd - 1 ' emit FROM and TO expressions - Emit( byte[p] ) - - ' change POP to USING - if byte[pFromVarOp] | 1 == $3f ' reg? - byte[pFromVarOp][1] += $20 ' modify following byte: $br => $dr - else - ++byte[pFromVarOp] ' POP => USING - - repeat p from pFromVarStart to pFromVarEnd-1 ' emit USING VAR expression - Emit( byte[p] ) - ResolveBackwardJump( jumpOp, topDest ) - - Retarget( quitDest, pObjWork ) - - else ' REPEAT expr - token.Eat( kw#kEOL ) - pQuitJump := MakeForwardJump( $08 ) ' LOOPJPF - topDest := MarkBackwardJumpDestination - - CompileStatements( col ) - - Retarget( nextDest, pObjWork ) - ResolveBackwardJump( $09, topDest ) ' LOOPRPT - ResolveForwardJump( pQuitJump ) - Retarget( quitDest, pObjWork ) - - caseNesting := saveCaseNesting ' restore case nesting - nextDest := saveNextDest - quitDest := saveQuitDest - --repeatDepth - -pri SaveBytes( p, q ) : r | l - r := bt.Alloc( l := q - p ) - bytemove( r, p, l ) - -pri CompileCase | col, matchCol, otherEncountered, p0, p1, p2, pMatch, pCase -{{ - Current token is CASE. -}} - ++caseNesting - otherEncountered~ - p0~ - p1~ - col := token.Column - token.Advance - Emit( $39 ) ' PUSH#k2 - MakeFloatingReference( pObjWork, pObjWork ) ' Eventually this will be the offset (within the obj) to the end of the CASE construct. - pCase := pObjWork - Emit( 0 ) ' placeholder - Emit( 0 ) ' " - CompileExpression( 13, true, false ) - token.Eat( kw#kEOL ) - matchCol := token.Column - if matchCol =< col - abort string("No cases encountered") - repeat while token.Column > col - if token.AdvanceIf( kw#kOTHER ) - otherEncountered~~ - token.Eat( kw#kCOLON ) - CompileStatements( matchCol ) - Emit( $0c ) ' GOTO [] - Swaperoo( p0, p1, pObjWork ) - quit - else - pMatch := pObjWork - repeat - CompileExpression( 13, true, false ) - if token.AdvanceIf( kw#kDOTDOT ) - CompileExpression( 13, true, false ) - Emit( $0e ) ' CASER - MakeFloatingReference( pObjWork, pMatch ) - Emit( $80 ) - Emit( 0 ) - else - Emit( $0d ) ' CASE - MakeFloatingReference( pObjWork, pMatch ) - Emit( $80 ) - Emit( 0 ) - while token.AdvanceIf( kw#kCOMMA ) - token.Eat( kw#kCOLON ) - Retarget( pMatch, pObjWork ) - Swaperoo( p0, p1, pObjWork ) - p0 += pObjWork - p1 - CompileStatements( matchCol ) - Emit( $0c ) ' GOTO [] - p1 := pObjWork - - ifnot otherEncountered - Emit( $0c ) ' GOTO [] - Swaperoo( p0, p1, pObjWork ) - - Retarget( pCase, pObjWork ) - --caseNesting - -var - word pFloatingReferences -{ - Floating reference data structure: 2-byte source address, 2-byte destination address, 2-byte pointer to next floating reference. - Floating refs are stored in temporary bt.Alloc-ed memory which is reclaimed after each method is compiled. -} -pri MakeFloatingReference( src, dst ) | p - p := bt.Alloc( 6 ) - bt.PokeW( p , src ) - bt.PokeW( p+2, dst ) - bt.PokeW( p+4, pFloatingReferences ) - pFloatingReferences := p - -pri Retarget( dst0, dst1 ) | p -{{ - Retarget any floating refs with destination dst0 to dst1. -}} - p := pFloatingReferences - repeat while p - if bt.PeekW( p+2 ) == dst0 - bt.PokeW( p+2, dst1 ) - p := bt.PeekW( p+4 ) - -pri ResolveFloatingReferences | p, src, dst, b, d - - p := pFloatingReferences - repeat while p - dst := bt.PeekW( p+2 ) - src := bt.PeekW( p ) - b := byte[src-1] - if b == $39 ' PUSH#k2 at beginning of CASE - byte[src] := (dst - pObjSpace) >> 8 - byte[src+1] := dst - pObjSpace - elseif b == $0d or b == $0e or b == $04 or b == $0a or b == $0b or b == $87 ' CASE or CASER or GOTO or JPF or JPT or PUSH#.B (for STRING) - d := dst - src - 2 ' relative offset - if b == $87 ' except for PUSH#.B - d := dst - pObjSpace - byte[src] := (d >> 8) | $80 ' SHOULDDO: range check - byte[src+1] := d - p := bt.PeekW( p+4 ) - -pri Swaperoo( p0, p1, p2 ) | pFR, src, dst -{{ - Exchanges bytes [p0..p1) with [p1..p2) - E.g. abcdeXYZ => XYZabcde - Updates any floating references that have endpoints in [p0..p2) -}} - if p0 == p1 - return - - pFR := pFloatingReferences - repeat while pFR - bt.PokeW( pFR , AdjustEndpoint( bt.PeekW( pFR ), p0, p1, p2 ) ) - bt.PokeW( pFR+2, AdjustEndpoint( bt.PeekW( pFR+2 ), p0, p1, p2 ) ) - pFR := bt.PeekW( pFR+4 ) - - Reverse( p0, p1 ) - Reverse( p1, p2 ) - Reverse( p0, p2 ) - -pri AdjustEndpoint( p, p0, p1, p2 ) -{{ - Addresses [p0..p1) will be swapped with [p1..p2). - If p is in the affected range, return p's new value; otherwise, just return p -}} - if p0 =< p and p < p1 - return p + p2 - p1 ' [p0..p1) will be shifted p2-p1 bytes - if p1 =< p and p < p2 - return p - p1 + p0 ' p used to be p-p1 from p1, will be p-p1 from p0 - return p - -pri Reverse( i, j ) | t -{{ - Reverses bytes [i..j) - E.g. abcde => edcba -}} - repeat while i < --j - t := byte[i] - byte[i++] := byte[j] - byte[j] := t - -pri CompileString | p, size -{{ - Current token is the ( after STRING. - - Copy the string byte-by-byte to pObjWork, then copy the string up to - temp string storage in high memory. The reason for this nutty two-step is - the string length is unknown to begin with, so we don't know how much - temp string storage to allocate, but we can't leave the string at pObjWork - because it will doubtlessly be overwritten by subsequent calls to Emit. -}} - token.Eat( kw#kLPAREN ) - p := pObjWork - repeat - byte[p++] := Eval.EvaluateExpression( 0 ) - while token.AdvanceIf( kw#kCOMMA ) - byte[p++]~ - size := p - pObjWork - if (pStringWork -= size) < pObjWork - abort string("Out of string space") - bytemove( pStringWork, pObjWork, size ) - Emit( $87 ) ' PUSH#.B - MakeFloatingReference( pObjWork, pStringWork ) - Emit( 0 ) ' placeholder: this will eventually be the address of the string. - Emit( 0 ) - - token.Eat( kw#kRPAREN ) - -pri StringCleanup | size, p -{{ - Call this at the end of compiling a method to move the strings down to abut the rest of the method code - and adjust floating references. -}} - p := pFloatingReferences - repeat while p - bt.PokeW( p+2, AdjustEndpoint( bt.PeekW( p+2 ), pObjWork, pStringWork, pObjTop ) ) - p := bt.PeekW( p+4 ) - - size := pObjTop - pStringWork ' we're going to move this many bytes - bytemove( pObjWork, pStringWork, size ) ' - pObjWork += size - -con -#0, opPUSH, opPOP, opUSING, opPEA, opNONE = -1 -#0, MEMSPACE, DATSPACE, VARSPACE, LOCALSPACE, REGSPACE, SPRSPACE - -pri CompileExpression( rbp, push, fromAllowed ) | prec, opcode, opcode2, lbp - prec := token.GetPrecedence - - if token.AdvanceIf( kw#kAT ) - CompileVariable( push, opPEA, 0, false ) - elseif token.AdvanceIf( kw#kMINUS ) - if push - if token.IsIntLiteral or token.IsFloatLiteral - EmitPushInt( -token.Value ) - token.Advance - else - CompileExpression( prec, push, false ) - Emit( $e6 ) ' NEG - else ' in-place negate requires variable operand - CompileVariable( push, opUSING, $46, false ) ' NEG - elseif token.AdvanceIf( kw#kPLUS ) - if push - if token.IsIntLiteral or token.IsFloatLiteral - EmitPushInt( token.Value ) - token.Advance - else ' in-place negate requires variable operand - CompileVariable( push, opPUSH, 0, false ) ' just push - else - abort string("Syntax error after +") - elseif token.IsPostfixOp ' At this point, a postfix op is a prefix op - opcode := token.GetSpinOpcode - token.Advance - CompileVariable( push, opUSING, opcode, false ) - elseif token.AdvanceIf( kw#kATAT ) ' special handling for @@ - if push - CompileExpression( prec, push, false ) - Emit( $97 ) 'PUSH#.B OBJ+0[] - Emit( 0 ) - else - abort string("@@ must push") - elseif token.IsUnaryOp - opcode := token.GetSpinOpcode - opcode2 := token.GetSpinOpcode2 - ifnot opcode2 - opcode2 := opcode - $a0 - token.Advance - if push - CompileExpression( prec, push, false ) - Emit( opcode ) - else ' in-place unary op requires variable operand - CompileVariable( push, opUSING, opcode2, false ) - elseif token.AdvanceIf( kw#kLPAREN ) - CompileExpression( 13, push, false ) - token.Eat( kw#kRPAREN ) - elseif token.IsIntLiteral or token.IsFloatLiteral - if push - EmitPushInt( token.Value ) - token.Advance - else - abort string("Unexpected literal") - elseif token.IsId - result := CompileId( push, fromAllowed, false ) - elseif token.AdvanceIf( kw#kSTRING ) - CompileString - elseif token.AdvanceIf( kw#kCONSTANT ) - token.Eat( kw#kLPAREN ) - EmitPushInt( Eval.EvaluateExpression( 0 ) ) - token.Eat( kw#kRPAREN ) - elseif token.AdvanceIf( kw#kBACKSLASH ) - CompileId( push, false, true ) - elseif token.IsIntrinsic - CompileIntrinsic( push ) - else - result := CompileVariable( push, opNONE, 0, fromAllowed ) - - repeat - lbp := token.GetPrecedence - if rbp =< lbp - quit - opcode := token.GetSpinOpcode - token.Advance - CompileExpression( lbp, push, false ) - Emit( opcode ) - result~ - -pri Emit( b ) - if pObjWork => pStringWork - abort string("Out of obj space") - byte[pObjWork++] := b - -pri EmitPushInt( v ) | mask, i, negate -{{ - Emits the code the push integer v. -}} - if( v == -1 ) - Emit( $34 ) ' PUSH#-1 - elseif( v == 0 ) - Emit( $35 ) ' PUSH#0 - elseif( v == 1 ) - Emit( $36 ) ' PUSH#-1 - elseif Kp( v ) - ' nothing to do; Kp emits if necessary - else - negate~ - mask~~ - repeat i from 1 to 4 - mask <<= 8 - if (v & mask) == 0 - quit - if (v | !mask) == -1 - negate~~ - !v - quit - - ' here i indicates how many bytes of v to emit (1..4) - v <<= (4-i)<<3 ' left-justify the i bytes we're interested in - Emit( $37 + i ) ' PUSH#k1/PUSH#k2/PUSH#k3/PUSH#k4 - repeat i - Emit( v >> 24 ) ' pushing them out MSByte first - v <<= 8 - if negate - Emit( $e7 ) ' BIT_NOT - -pri Kp( v ) : f | b, m -{{ - If v is one of the special bit patterns below, Kp emits the appropriate code and returns true; - otherwise just returns false. - - Pattern Emits - 2^(b+1) => %000bbbbb - 2^(b+1)-1 => %001bbbbb - !(2^(b+1)) => %010bbbbb - -(2^(b+1)) => %011bbbbb -}} - m := 2 - repeat b from 0 to 30 - f~~ - if v == m - quit - if v == m-1 - b |= $20 - quit - if v == !m - b |= $40 - quit - if v == -m - b |= $60 - quit - m <<= 1 - f~ - if f - Emit( $37 ) ' PUSH#kp - Emit( b ) - -pri CompileId( push, fromAllowed, abortFlag ) | p, type - p := st.SymbolLookup( token.Text ) - ifnot p ' If it's not in the main symbol table... - if abortFlag - abort string("Expected method call") - return CompileVariable( push, opNONE, 0, fromAllowed ) ' ...it might be a local variable. - - type := byte[p] - return CompileIdHelper( p, type, 0, push, fromAllowed, abortFlag, 0, 0 ) - -pri CompileIdHelper( p, type, objIndex, push, fromAllowed, abortFlag, i0, i1 ) | v, methodIndex, nArgs, pObj, expectCon -{{ - returns non-zero if FROM may follow -}} - if abortFlag - ifnot type == st#kPUB_SYMBOL or type == st#kPRI_SYMBOL or type == st#kOBJ_SYMBOL - abort string("Expected method call") - if type == st#kINT_CON_SYMBOL or type == st#kFLOAT_CON_SYMBOL or type == st#kBUILTIN_INT_SYMBOL or type == st#kBUILTIN_FLOAT_SYMBOL - if push - v := bt.PeekL( p+1 ) - EmitPushInt( v ) - else - abort string("CON symbol not allowed here") - token.Advance - elseif type == st#kPUB_SYMBOL or type == st#kPRI_SYMBOL - Emit( ($01 & not push) | ($02 & abortFlag) ) - ' push abort Emit - ' true false $00 ' FRAME call w/ return value - ' false false $01 ' FRAME call w/o return value - ' true true $02 - ' false true $03 - token.Advance - methodIndex := byte[p][1] - nArgs := byte[p][2] - CompileArgs( nArgs ) - if objIndex - if i0 == i1 - Emit( $06 ) ' CALLOBJ - else - Swaperoo( i0, i1, pObjWork ) - Emit( $07 ) ' CALLOBJ[] - Emit( objIndex ) - Emit( methodIndex ) ' method # - else - Emit( $05 ) ' CALL - Emit( methodIndex ) ' method # - elseif type == st#kOBJ_SYMBOL - token.Advance - objIndex := byte[p][3] - p := bt.PeekW( p+1 ) - pObj := bt.PeekW( p + strsize(p) + 2 ) - if token.AdvanceIf( kw#kLBRACKET ) - i0 := pObjWork - CompileExpression( 13, true, false ) - i1 := pObjWork - token.Eat( kw#kRBRACKET ) - token.Eat( kw#kDOT ) - expectCon~ - elseif token.AdvanceIf( kw#kOCTOTHORP ) - expectCon~~ - elseif token.AdvanceIf( kw#kDOT ) - expectCon~ - else - abort string("Expected . or #") - ifnot p := bt.FindInTable( token.Text, pObj ) - abort string("Symbol unknown in sub-object") - type := byte[p] - if expectCon and ( type == st#kINT_CON_SYMBOL or type == st#kFLOAT_CON_SYMBOL ) { -} or not expectCon and ( type == st#kPUB_SYMBOL or type == st#kPRI_SYMBOL ) - CompileIdHelper( p, type, objIndex, push, false, abortFlag, i0, i1 ) - elseif expectCon - abort string("Expected CON symbol") - else - abort string("Expected PUB symbol") - else - result := CompileVariable( push, opNONE, 0, fromAllowed ) - -pri CompileArgs( n ) | t - ifnot n - return - t := kw#kLPAREN - repeat n - token.Eat( t ) ' 1st time, '('; subsequently, ',' - t := kw#kCOMMA - CompileExpression( 13, true, false ) - token.Eat( kw#kRPAREN ) - -pri CompileVariable( push, memop, spinOpcode, fromAllowed ) | space, offset, size, subscripted, dim, p, t, p0, p1 -{{ - Current token is anything that could be a variable: BYTE/WORD/LONG, a special register, SPR, an id. - Returns pointer to PUSH instruction if FROM is permitted to follow, false otherwise. -}} - p0~ - p1~ - subscripted~ - if token.IsSize '========== BYTE/WORD/LONG - space := MEMSPACE - size := |< (token.Type - kw#kBYTE) ' size = 1, 2, or 4 - token.Advance - if token.AdvanceIf( kw#kLBRACKET ) - p0 := pObjWork - CompileExpression( 13, true, false ) - p1 := pObjWork - token.Eat( kw#kRBRACKET ) - if subscripted := token.AdvanceIf( kw#kLBRACKET ) - CompileExpression( 13, true, false ) - p1 := pObjWork - token.Eat( kw#kRBRACKET ) - elseif token.IsReg '========== register (PAR, INA, etc.) - if memop == opPEA - abort string("Can't take address of register") - space := REGSPACE - offset := token.GetReg - size := 2 ' repurpose size for registers: 2 for plain reg - token.Advance - if token.AdvanceIf( kw#kLBRACKET ) - p0 := pObjWork - size~ ' 0 for reg[] - CompileExpression( 13, true, false ) - if token.AdvanceIf( kw#kDOTDOT ) - ++size ' 1 for reg[..] - CompileExpression( 13, true, false ) - p1 := pObjWork - token.Eat( kw#kRBRACKET ) - elseif token.AdvanceIf( kw#kSPR ) '========== SPR - if memop == opPEA - abort string("Can't take address of register") - space := SPRSPACE - token.Eat( kw#kLBRACKET ) - CompileExpression( 13, true, false ) - token.Eat( kw#kRBRACKET ) - elseif token.IsId or token.Type == kw#kRESULT '========== id or RESULT - if p := st.SymbolLookup( token.Text ) - t := byte[p++] - if t == st#kDAT_SYMBOL or t == st#kVAR_SYMBOL - if t == st#kDAT_SYMBOL - space := DATSPACE - else - space := VARSPACE - size := byte[p++] - offset := bt.PeekW( p ) - else - abort string("Expected variable") - elseif p := bt.FindInTable( token.Text, bt.PeekW( pLocalSymbols ) ) - space := LOCALSPACE - size := 4 - offset := bt.PeekW( p ) - else - abort string("Expected variable") - token.Advance - if token.AdvanceIf( kw#kDOT ) - ifnot token.IsSize - abort string("Syntax error") - size := |< (token.Type - kw#kBYTE) - token.Advance - if subscripted := token.AdvanceIf( kw#kLBRACKET ) - p0 := pObjWork - CompileExpression( 13, true, false ) - p1 := pObjWork - token.Eat( kw#kRBRACKET ) - else '========== - abort string("Syntax error") - - ' Now look for assignment or postfix op following variable - - if token.AdvanceIf( kw#kCOLONEQUAL ) ' Straight assignment - if memop <> opNONE - abort string("Assignment not allowed here") - CompileExpression( 13, true, false ) - Swaperoo( p0, p1, pObjWork ) - if( push ) - EmitVariable( space, size, offset, subscripted, opUSING ) - Emit( $80 ) - else - EmitVariable( space, size, offset, subscripted, opPOP ) - return false - elseif token.IsAssignmentOp ' Assignment op (+=, AND=) - spinOpcode := token.GetSpinOpcode - $a0 - token.Advance - CompileExpression( 13, true, false ) - Swaperoo( p0, p1, pObjWork ) - memop := opUSING - elseif token.IsPostfixOp ' Postfix (++) - if memop <> opNONE - abort string("Postfix op not allowed here") - spinOpcode := token.GetSpinOpcode2 - token.Advance - memop := opUSING - - if $20 =< spinOpcode and spinOpcode < $40 ' If pre/post inc/dec, adjust opcode based on size: - spinOpcode += (size >> 1) << 1 + 2 ' size 1, 2, 4 => +2, +4, +6 - if push - spinOpcode |= $80 - if memop == opNONE - memop := opPUSH - if memop == opPUSH and fromAllowed - result := pObjWork - - EmitVariable( space, size, offset, subscripted, memop ) - if memop == opUSING - Emit( spinOpcode ) - -pri EmitVariable( space, size, offset, subscripted, memop ) | op - if space == REGSPACE - Emit( $3d + size ) ' size means something different for reg: 0 => reg[], 1 => reg[..], 0 => reg - Emit( $90 + offset + (memop << 5) ) ' PUSH/POP/USING => $9r/$br/$dr - return - - if space == SPRSPACE - Emit( $24 + memop ) ' PUSH/POP/USING => $24/$25/$26 - return - - if size == 4 and offset < 32 and not subscripted - op := %0100_0000 + offset + memop ' offset is a multiple of 4, given that size = 4 - if space == VARSPACE - Emit( op ) - return - elseif space == LOCALSPACE - Emit( op + %0010_0000 ) - return - op := $80 + ((size>>1) << 5) + (space<<2) + memop - if subscripted - op += |< 4 - Emit( op ) - if( space <> MEMSPACE ) - if offset < $80 - Emit( offset ) - else - Emit( (offset >> 8) | $80 ) ' high byte with MSB set - Emit( offset ) ' low byte - -pri CompileIntrinsic( push ) | t - t := token.Type - token.Advance - if t & $10_00_0 ' LOOKUP|DOWN[Z] end with $1x_xx_x - CompileLookX( t, push ) - return - if t & $20_00_0 ' LOCKCLR/NEW/SET end with $2x_xx_x - CompileLock( t, push ) - return - if t & $100 ' STRCOMP/STRSIZE end with $1x_x - AssertPush( push ) - CompileArgs( t & 3 ) ' could be 1 or 2 - Emit( t >> 4 ) - return - - case t - kw#kCHIPVER: - AssertPush( push ) - Emit( $34 ) ' PUSH#-1 - Emit( $80 ) ' PUSH.B Mem[] - kw#kCLKFREQ: - AssertPush( push ) - Emit( $35 ) ' PUSH#0 - Emit( $c0 ) ' PUSH.L Mem[] - kw#kCLKMODE: - AssertPush( push ) - EmitPushInt( 4 ) - Emit( $80 ) ' PUSH.B Mem[] - kw#kCOGID: - AssertPush( push ) - Emit( $3f ) ' REGPUSH cogid - Emit( $89 ) - kw#kCOGINIT: - AssertNotPush( push ) - CompileCoginewt( false, true ) - kw#kCOGNEW: - CompileCoginewt( push, false ) - kw#kREBOOT: - AssertNotPush( push ) - EmitPushInt( $80 ) - EmitPushInt( $00 ) - Emit( $20 ) ' CLKSET - -pri AssertPush( push ) - ifnot push - abort string("Unexpected (must push)") - -pri AssertNotPush( push ) - if push - abort string("Unexpected (can't push)") - -pri CompileLookX( t, push ) | op, opr, dest -{{ - Current token is ( after LOOKUP/LOOKUPZ/LOOKDOWN/LOOKDOWNZ. - t = token.Type -}} - AssertPush( push ) - op := (t >> 4) & $ff - opr := (t >> 12) & $ff - EmitPushInt( t & 1 ) - Emit( $39 ) ' PUSH#k2 - dest := uniqueDest++ - MakeFloatingReference( pObjWork, dest ) - Emit( 0 ) ' placeholder - Emit( 0 ) - - token.Eat( kw#kLPAREN ) - CompileExpression( 13, true, false ) - token.Eat( kw#kCOLON ) - repeat - CompileExpression( 13, true, false ) - if token.AdvanceIf( kw#kDOTDOT ) - CompileExpression( 13, true, false ) - Emit( opr ) - else - Emit( op ) - while token.AdvanceIf( kw#kCOMMA ) - Emit( $0f ) ' LOOKEND - Retarget( dest, pObjWork ) - - token.Eat( kw#kRPAREN ) - -pri CompileLock( t, push ) | op -{{ - Current token is ( after LOCKCLR/NEW/SET. - t = token.Type -}} - op := (t >> (4 + 8 & push)) & $ff ' fn op is bits 19..12; sub op is 11..4 - CompileArgs( t & 1 ) ' only two possibilities for these LOCK* guys. - Emit( op ) - -pri CompileCoginewt( push, init ) | p0, p1, mark, pSym, index, nArgs -{{ - Compile either COGINIT (init=true) or COGNEW (init=false). - Current token is the ( after COGINIT/NEW. - COGINIT( , , ) - COGNEW( ) -}} - token.Eat( kw#kLPAREN ) - - mark~ - if init - p0 := pObjWork - CompileExpression( 13, true, false ) ' exprA - p1 := pObjWork - token.Eat( kw#kCOMMA ) - - ' see if the current token (start of exprB) is a method name - if (pSym := st.SymbolLookup( token.Text )) and (byte[pSym] == st#kPRI_SYMBOL or byte[pSym] == st#kPUB_SYMBOL) - ' Short-circuit evaluation would be nice here, but this works (it's just a little wasteful). - mark~~ - index := byte[pSym][1] - nArgs := byte[pSym][2] - token.Advance ' exprB is a method call, which - CompileArgs( nArgs ) ' we handle here ourselves - Emit( $39 ) ' PUSH#k2 - Emit( nArgs ) - Emit( index ) - else - ifnot init - Emit( $34 ) ' PUSH#-1 - CompileExpression( 13, true, false ) ' exprB is a plain old expression - - token.Eat( kw#kCOMMA ) - CompileExpression( 13, true, false ) ' exprC - if mark - Emit( $15) ' MARK - if init and mark - Swaperoo( p0, p1, pObjWork ) - Emit( $3f ) ' REGPUSH $8f? - Emit( $8f ) - Emit( $37 ) ' PUSH#kp -4 ($fffffffc) - Emit( $61 ) - Emit( $d1 ) ' POP.L Mem[][] - - if push - Emit( $28 ) ' COGIFUN - else - Emit( $2c ) ' COGISUB - - token.Eat( kw#kRPAREN ) -{''' -pri DumpLocals( p ) | s, t - ifnot p - return - - s := p + 4 - term.str( s ) - s += strsize(s) + 1 - term.out( "@" ) - t := bt.PeekW( s ) - term.dec( t ) - term.out( 13 ) - - DumpLocals( bt.PeekW( p ) ) - DumpLocals( bt.PeekW( p + 2 ) ) -}''' - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/sphinx.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/sphinx.spn deleted file mode 100644 index 103766a..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/sphinx.spn +++ /dev/null @@ -1,367 +0,0 @@ -{ - _clkfreq = 96_000_000 ' Hybrid - _clkmode = xtal1 + pll16x - - tvPins = 24 - kbPins = 12 - sdPins = 8 -} - _clkfreq = 80_000_000 ' Hydra - _clkmode = xtal1 + pll8x - - tvPins = 24 - kbPins = 13 - sdPins = 16 -{ - Simple command line - -2009 -April - 15 Adding file transfer to/from PC via serial - 16 0.02 - SendFile bugfix (while blksize == 1024) - Tries to run .bin before .eep now. -June - 4 Changing name from cl to sphinx. Converting to use sxfs, sxtv. - 15 sxkb; adding c and cl commands - 23 Corrected clock mode calculation. -} - -obj - kb: "sxkb" - term: "sxtv" - sxfs: "sxfs" - f: "sxfile" - ser: "fdserial" - -con -SXTVRENDEZVOUS = $8000 - 4 -SXKBRENDEZVOUS = SXTVRENDEZVOUS - 4 -SDSPIRENDEZVOUS = SXKBRENDEZVOUS - 3 * 4 -SXFS2RENDEZVOUS = SDSPIRENDEZVOUS - 4 * 4 ' four rendezvous variables -SXFSRENDEZVOUS = SXFS2RENDEZVOUS - 4 * 4 ' four rendezvous variables -METADATABUFFER = SXFSRENDEZVOUS - 512 - -_free = ($8000 - METADATABUFFER) / 4 - -pub Main | err, p - if term.start( tvPins, SXTVRENDEZVOUS ) - term.str( string("============= Sphinx 090627 ============", 13) ) - term.str( string("video @ pin ") ) - term.dec( tvPins ) - term.str( string(13, "keyboard @ pin ") ) - term.dec( kbPins ) - term.str( string(13, "SD @ pin ") ) - term.dec( sdPins ) - term.out( 13 ) - sxfs.start( sdPins ) - kb.start( kbPins ) - - repeat - if ina[31] ' USB cable connected? - ser.start( 31, 30, %0000, 19200 ) - f.Close - err := \DoIt - if err - if err > 0 - term.str( err ) - else - term.str( string("Error ") ) - term.dec( err ) - term.out( 13 ) - else - term.str( string("Normal exit") ) ' This never happens - -pri DoIt | ch - term.out( ">" ) - term.out( "_" ) - term.out( 8 ) - repeat - if kb.peekkey - EditCmdLine - Execute - term.out( ">" ) - term.out( "_" ) - term.out( 8 ) - if (ch := ser.rxcheck) <> -1 - term.out( 8 ) - FileTransfer( ch ) - term.out( ">" ) - term.out( "_" ) - term.out( 8 ) - -con - MAXCMDLINELENGTH = 78 ' some arbitray limit. - CR = $0d - BKSP = $c8 - -var - byte cmdLine[MAXCMDLINELENGTH+1] ' +1 for null terminator - long cmdLineLength - -pri EditCmdLine | key - cmdLineLength~ ' cursor is always at end of command line - - repeat - case key := kb.key - $20..$7f: - if cmdLineLength < MAXCMDLINELENGTH - cmdLine[ cmdLineLength++ ] := key - term.out( key ) - term.out( "_" ) - term.out( 8 ) - CR: - term.out( " " ) - term.out( 13 ) - cmdLine[ cmdLineLength ]~ - return true - BKSP: - if cmdLineLength - --cmdLineLength - term.out( " " ) - term.out( 8 ) - term.out( 8 ) - term.out( "_" ) - term.out( 8 ) - -pri FileTransfer( cmd ) | ch, i - if cmd <> "G" and cmd <> "P" - term.out( cmd ) - abort string(" -- unrecognized command from PC") - i~ - repeat - ch := RxSerByte - if i => FILENAMEBUFFERSIZE - abort string("Filename too long") - filename[i++] := ch - while ch - - if cmd == "G" - term.str( string("sending ") ) - term.str( @filename ) - term.out( 13 ) - SendFileToPC - else - term.str( string("receiving ") ) - term.str( @filename ) - term.out( 13 ) - ReceiveFileFromPC - -pri SendFileToPC | blksize, i, chksum, b, n - if f.Open( @filename, "R" ) <> 0 - term.str( @filename ) - abort string(" -- can't open file for reading") - TxSerByte( "A" ) ' ack - - n~ - repeat - blksize := f.Read( @buffer, 1024 ) - if blksize == -1 - blksize~ - TxSerByte( blksize.byte[0] ) - TxSerByte( blksize.byte[1] ) - i~ - chksum~ - repeat blksize - b := buffer[i++] - chksum += b - TxSerByte( b ) - n += blksize - if chksum & $ff <> RxSerByte - abort string("Checksum error") - while blksize == 1024 - f.Close - term.dec( n ) - term.str( string(" bytes sent", 13) ) - -pri ReceiveFileFromPC | blksize, i, chksum, b, n - if f.Open( @filename, "W" ) <> 0 - term.str( @filename ) - abort string(" -- can't open file for writing") - TxSerByte( "A" ) ' ack - - n~ - repeat - blksize~ - blksize.byte[0] := RxSerByte - blksize.byte[1] := RxSerByte - if blksize > 1024 - abort string("Block size > 1024") - i~ - chksum~ - repeat blksize - b := RxSerByte - buffer[i++] := b - chksum += b - n += blksize - f.Write( @buffer, blksize ) - TxSerByte( chksum ) - while blksize == 1024 - f.Close - term.dec( n ) - term.str( string(" bytes received", 13) ) - -pri RxSerByte : b -' ser.rx with timeout - b := ser.rxtime( TIMEOUT ) - if b == -1 - abort string("RxSerByte timed out") - -pri TxSerByte( b ) -' just for symmetry with RxSerByte - ser.tx( b ) - -con -TIMEOUT = 500 - -var - byte buffer[1024] - -pri Execute | n, p, q, run, c - c~ - ifnot n := ParseCmdLine - return - p := @cmdLine - ToUpper(p) - - if run := strcomp( @cmdLine, string("RUN") ) - --n - p += strsize(p) + 1 - elseif strcomp( @cmdLine, string("C") ) - c := 1 - --n - p += strsize(p) + 1 ' command arg1 arg2... - elseif strcomp( @cmdLine, string("CL") ) ' run command arg1 arg2... - c := 2 ' c arg1 arg2... - --n ' cl arg1 arg2... - p += strsize(p) + 1 - - ifnot n - abort string("No file specified") - - f.Open( string("args.d8a"), "W" ) ' write args - if c == 0 - q := p + strsize(p) + 1 ' for run and plain command, skip first arg (command name) - --n - f.Write( @n, 1 ) - repeat n - f.Write( q, strsize(q) + 1 ) - q += strsize(q) + 1 - else ' for c and cl, - ++n ' add extra arg (/c or /l) - f.Write( @n, 1 ) - repeat n-1 - f.Write( p, strsize(p) + 1 ) - p += strsize(p) + 1 - if c == 1 - f.Write( string("/c"), 3 ) - else - f.Write( string("/l"), 3 ) - - n~ - f.Write( @n, 1 ) ' final terminating null - f.Close - - if c - if f.Open( string("lex.bin"), "R" ) <> 0 - abort string("lex.bin not found") - ser.stop - f.Execute( 0 ) - - - if EndsWith( p, string(".BIN") ) or EndsWith( p, string(".EEP") ) - if f.Open( p, "R" ) <> 0 - term.str( p ) - abort string(" -- not found") - else - if strsize(p) > MAXFILENAMELENGTH - 4 - term.str( p ) - abort string(" -- filename too long") - bytemove( @filename, p, strsize(p) + 1 ) - bytemove( @filename + strsize(p), string(".BIN"), 5 ) - if f.Open( @filename, "R" ) <> 0 - bytemove( @filename + strsize(p), string(".EEP"), 5 ) - if f.Open( @filename, "R" ) <> 0 - term.str( p ) - abort string(" -- no .bin or .eep found") - ser.stop - f.Execute( run ) - -pri ToUpper( p ) - repeat while byte[p] - if "a" =< byte[p] and byte[p] =< "z" - byte[p] += "A" - "a" - ++p - -pri EndsWith( p, s ) - if strsize(p) < strsize(s) - return false - p += strsize(p) - strsize(s) - repeat while byte[p] - if byte[p++] <> byte[s++] - return false - return true - -con - MAXFILENAMELENGTH = 12 ' 8 + . + 3 - FILENAMEBUFFERSIZE = MAXFILENAMELENGTH + 1 ' 8 + . + 3 + null - CMDNAMEBUFFERSIZE = 9 ' 8 + null - -var - byte filename[MAXFILENAMELENGTH+1] ' 8 + . + 3 + null - -pri ParseCmdLine : n | pSrc, pDst, state -{{ - Converts cmdLine from " ab de fg \" to "ab\de\fg\" ('\' = null). - Returns # of "words". -}} -{ - state whitespace null other char - 0 ++pSrc; append \0; quit append char; => 1 - 1 append \0; ++n; => 0 append \0; ++n; quit append char; -} - pSrc := @cmdLine - pDst := @cmdLine - state~ - repeat - if state == 0 - if byte[pSrc] == " " - ++pSrc - elseif byte[pSrc] == 0 - byte[pDst++]~ - quit - else - byte[pDst++] := byte[pSrc++] - state := 1 - elseif state == 1 - if byte[pSrc] == " " - ++pSrc - byte[pDst++]~ - ++n - state~ - elseif byte[pSrc] == 0 - byte[pDst++]~ - ++n - quit - else - byte[pDst++] := byte[pSrc++] - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/stringx.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/stringx.spn deleted file mode 100644 index c5d8c1e..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/stringx.spn +++ /dev/null @@ -1,43 +0,0 @@ -pub Compare( p, q ) | lp, lq, d -{{ - Compares two strings. Returns a negative number if first string is "less than" the second, - 0 if they're identical, a positive number otherwise. -}} - lp := strsize(p) - lq := strsize(q) - repeat lp <# lq - if (d := byte[p++] - (byte[q++] & $7f)) - return ~~d - return lp-lq - -pub Copy( p, q ) - bytemove( p, q, strsize(q) + 1 ) - -pub Append( p, q ) - Copy( p + strsize(p), q ) - -pub ToUpper( p ) - repeat while byte[p] - if "a" =< byte[p] and byte[p] =< "z" - byte[p] += constant( "A" - "a" ) - ++p - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/sxfile.spin b/zubehör/sphinx/spinx100225-ori/sphinx2/sxfile.spin deleted file mode 100644 index 921eae9..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/sxfile.spin +++ /dev/null @@ -1,98 +0,0 @@ -obj - isxfs: "isxfs" - -var -long filestuff[isxfs#SIZEOFFILESTUFF / 4] - -pub Open( pFilename, mode ) - return isxfs.Open( @filestuff, pFilename, mode ) - -pub Close - isxfs.Close( @filestuff ) - -pub Read( ptr, n ) - return isxfs.Read( @filestuff, ptr, n ) - -pub Write( ptr, n ) - return isxfs.Write( @filestuff, ptr, n ) - -pub Length -{{ - Only valid for files opened for reading. -}} - return long[@filestuff] - -pub Execute( mode ) - isxfs.Execute( @filestuff, mode ) - isxfs.Close( @filestuff ) ' we only get here if Execute fails for some reason. - -pub ReadString( p, MAXLENGTH ) | ch - repeat MAXLENGTH + 1 - ch := ReadByte - ifnot byte[p++] := ch - return - abort string("ReadString: string too long") - -pub ReadStringUpperCase( p, MAXLENGTH ) | ch - repeat MAXLENGTH + 1 - ch := ReadByte - if "a" =< ch and ch =< "z" - ch -= constant("a" - "A") - ifnot byte[p++] := ch - return - abort string("ReadStringUpperCase: string too long") - -pub WriteString( p ) - Write( p, strsize(p) + 1 ) - -pub ReadNumber | ch - repeat - ifnot ch := ReadByte - return - if ch < "0" or ch > "9" - abort string("ReadNumber: non-numeric character") - result := result * 10 + ch - "0" - -pub ReadByte : ch - Read( @ch, 1 ) - -pub WriteByte( b ) - Write( @b, 1 ) - -pub ReadWord - return ReadByte + (ReadByte << 8) - -pub WriteWord( w ) - Write( @w, 2 ) - -pub ReadLong - return ReadByte + (ReadByte << 8) + (ReadByte << 16) + (ReadByte << 24) - -pub WriteLong( l ) - Write( @l, 4 ) - -pub SkipBytes( n ) - repeat while n => 32768 - Read( $8000, 32768 ) - n -= 32768 - Read( $8000, n ) - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/sxfs.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/sxfs.spn deleted file mode 100644 index bcbd8d1..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/sxfs.spn +++ /dev/null @@ -1,871 +0,0 @@ -SXTVRENDEZVOUS = $8000 - 4 -SXKBRENDEZVOUS = SXTVRENDEZVOUS - 4 -SDSPIRENDEZVOUS = SXKBRENDEZVOUS - 3 * 4 -SXFS2RENDEZVOUS = SDSPIRENDEZVOUS - 4 * 4 ' four rendezvous variables -SXFSRENDEZVOUS = SXFS2RENDEZVOUS - 4 * 4 ' four rendezvous variables -METADATABUFFER = SXFSRENDEZVOUS - 512 - -_free = ($8000 - METADATABUFFER) / 4 - -{ - sxfsrendezvous sdspirendezvous ---------+ +--------+ +-------+ - | <===> command <===> | | <=====> command <=====> | | - Spin | | | | | -routines| <===> param0 <====> | SXFS | <=====> param <=====> | SDSPI | - | | cog | | cog | - | ----> param1 -----> | | ------> blockno ------> | | - | | | +-------+ - | ----> param2 -----> | | ---------+ | | sxfs2rendezvous - | | +-------+ - | | <====> command <======> | | - | | | | <==> (sxfsrendezvous) - | | <====> param0 <=======> | SXFS2 | - | | | cog | <==> (sdspirendezvous) - | | | | - +--------+ +-------+ - - -SXFS cog handles file reading: open, read, execute, close(?). -SXFS2 cog, under SXFS's direction, handles file writing: open, write, close. -SDSPI cog handles SD card sector reading and writing. - -SXFS cog communicates with main program via sxfsrendezvous and Spin interface routines. -SXFS cog communicates with SXFS2 cog via sxfs2rendezvous. -SXFS cog communicates with SDSPI cog via sdspirendezvous. - --1: eof, general error --100: bad command --101: not FAT16 --102: file not found --104: bad mode --106: file not closed --107: directory full --109: file not properly opened --110: FAT full. --113: bad filename - -} - -obj - sxfs2: "sxfs2" - sdspi : "sxsdspiq" - -pub Start( sdPin ) | pbrSector - - ' Determine if sxfs cog and, by association, sxfs2 and sdspi cogs, are already running. - ' If not, start them up. - ' Returns true if the cogs needed to be started, false if the cogs were already running. - - ifnot Ping - result~~ - ' start sdspi cog and initialize SD card - long[pSdspiCommand] := "I" - sdspi.start( sdPin, pSdspiCommand ) - repeat while long[pSdspiCommand] - if long[pSdspiParam] - abort long[pSdspiParam] - - pbrSector := ReadPbr - - ' start sxfs cog - long[pCommand] := "?" - if cognew( @sxfsEntry, 0 ) < 0 - abort -1 - repeat while long[pCommand] - - ' start sxfs2 cog - sxfs2.Start( pbrSector ) - -pri ReadPbr : pbrSector - repeat - sdspi.readblock( pbrSector, pMetadataBuffer ) - if bytecompare( pMetadataBuffer+$36, string("FAT16"), 5 ) - quit - if pbrSector - abort -101 ' not FAT16 - pbrSector := PeekL( pMetadataBuffer + $1c6 ) - - bytesPerSector := PeekW( pMetadataBuffer + $0b ) - sectorsPerCluster := byte[pMetadataBuffer][$0d] - clusterShift := >| sectorsPerCluster - 1 - reservedSectors := PeekW( pMetadataBuffer + $0e ) - numberOfFats := byte[pMetadataBuffer][$10] - sectorsPerFat := PeekW( pMetadataBuffer + $16 ) - RootDirEntries := PeekW( pMetadataBuffer + $11 ) - fatSector0 := pbrSector + reservedSectors - dirSector0 := fatSector0 + numberOfFats * sectorsPerFat - dataSector0 := dirSector0 + rootDirEntries >> 4 - -pri bytecompare( _p, _q, _n ) - repeat _n - if byte[_p++] <> byte[_q++] - return - return true - -pri PeekW( a ) - return byte[a++] + byte[a] << 8 - -pri PeekL( a ) - return byte[a++] + byte[a++] << 8 + byte[a++] << 16 + byte[a] << 24 - -pri Ping -{{ - returns 1 if bmfs cog is active, 0 otherwise. -}} - long[pCommand] := "?" - if long[pCommand] - return 0 - else - return 1 - -con - SECTORSIZE = 512 - SECTORSHIFT = 9 - DIRSIZE = 32 - -con -' filestuff definitions -' filestuff must be long-aligned -{ long } _length = 0 -{ long } _leftInFile = 4 -{ long } _sopDir = 8 ' sector/offset "pointer" to directory entry -{ long } _sopTail = 12 ' sector/offset "pointer" to last cluster# in FAT chain -{ word } _cluster = 16 -{ word } _sector = 18 ' sector# within cluster; ranges from 0 to sectorsPerCluster-1 -{ word } _bp = 20 ' byte pointer (actually an index into the sector buffer); range [0..511] -{ word } _mode = 22 ' 0: closed; "R": open for reading; "W": open for writing. - _buffer = 24 ' 512-byte buffer starts here - -SIZEOFFILESTUFF = SECTORSIZE + 24 - -dat -{{ - command param0 param1 param2 - "?" -- -- -- Do nothing, but acknowledge to indicate that sxfs cog is active. - "O" filestuff filename mode Open a file, populate filestuff fields. mode is "R" or "W". - "R" filestuff buffer num Reads num bytes into buffer from file specified by filestuff. - "W" filestuff buffer num Writes num bytes from buffer to file specified by filestuff. - "C" filestuff -- -- Closes file specified by filestuff. - "X" filestuff execmode cog Executes file. - -}} - org 0 -SXFSEntry - -AckNoReturnCode - mov temp, #0 ' clear return code -AckReturnCode ' enter here with temp = return code - wrlong temp, pParam0 - mov temp, #0 - wrlong temp, pCommand ' clear command to signal operation complete. - -:ready ' wait for new command - rdlong temp, pCommand wz - if_z jmp #:ready - - cmp temp, #"?" wz - if_e jmp #AckNoReturnCode - cmp temp, #"O" wz - if_e jmp #Open - cmp temp, #"R" wz - if_e jmp #Read - cmp temp, #"W" wz - if_e jmp #Write - cmp temp, #"C" wz - if_e jmp #Close - cmp temp, #"X" wz - if_e jmp #Execute - ' else - neg temp, #100 ' -100: bad command - jmp #AckReturnCode - - -'********************************************************************************************************************* -'* * -'* Open stuff * -'* * -'********************************************************************************************************************* -Open ' ( param0 = pFilestuff, param1 = pFilename, param2 = mode ) -{ - Return value: - File found File not found Error - mode = "R" 0 1 < 0 - mode = "W" 0 0 < 0 - -Mode W will either open an existing file or create a new file. -} - rdword pFilestuff, pParam0 - rdword pFilename, pParam1 - - mov p, pFilestuff - add p, #_mode - rdword temp, p wz - if_nz neg temp, #106 ' -106: file not closed - if_nz jmp #AckReturnCode - - call #MassageFilename - - rdword temp, pParam2 - cmp temp, #"R" wz - if_e jmp #:openForReading - cmp temp, #"W" wz - if_e jmp #:openForWriting - neg temp, #104 ' -104: bad mode - jmp #AckReturnCode -:openForReading - call #FindFile - - mov p, pFilestuff - add p, #_sopDir ' pFilestuff->sopDir = 0 => file not found - rdlong temp, p wz - if_z mov temp, #1 ' return 1 to indicate file not found - if_z jmp #AckReturnCode - - mov p, sop ' sop sector is still in memory - and p, #$1ff - add p, pMetadataBuffer - add p, #$1a ' point to cluster information - rdword temp, p - - mov q, pFilestuff - add q, #_cluster - wrword temp, q - - add p, #2 ' point to length information - rdlong temp, p - - sub q, #_cluster-_length ' q points to length - wrlong temp, q - add q, #_leftInFile-_length ' q points to leftInFile - wrlong temp, q - - add q, #_sector-_leftInFile ' q points to sector - mov temp, #0 - wrword temp, q - - add q, #_bp-_sector ' q points to bp - wrword k512, q - - mov p, pFilestuff - add p, #_mode - mov temp, #"R" - wrword temp, p ' save mode - - jmp #AckNoReturnCode - -:openForWriting - mov sop, dirSector0 ' sop "points" to directory entries: - shl sop, #9 ' incremented by 32 each time through the loop. - mov sopDir, #0 ' sopDir "points" to the directory entry - ' that will be used or reused for the file being opened. - mov i, rootDirEntries -:forEachDirEntry ' Loop through the directory entries, looking for a deleted entry, - ' an empty entry, or an entry that matches pFilename. - mov sector, sop - shr sector, #9 - call #ReadMetadataSector - mov p, sop - and p, #$1ff - add p, pMetadataBuffer ' p points to the current directory entry - add p, #$0b - rdbyte temp, p ' p[$0b] = attribute byte - sub p, #$0b - and temp, #$02 wz ' If hidden, - if_nz jmp #:next ' skip. Hidden dir entries include long name entries. - - rdbyte temp, p ' p[0] - cmp temp, #$e5 wz ' = $e5? (deleted directory entry?) - if_e cmp sopDir, #0 wz ' save pointer in sopDir (just the first time) - if_e mov sopDir, sop - - tjz temp, #:quit ' empty directory entry? We're done - - mov q, pFilename ' matching filename? Done. - mov n, #11 - call #ByteComp - if_e jmp #:quit -:next - add sop, #DIRSIZE - djnz i, #:forEachDirEntry -:quit - cmp i, #0 wz ' did we go through the whole directory? - if_z neg temp, #107 ' -107: directory full - if_z jmp #AckReturnCode - - cmp sopDir, #0 wz ' if sopDir hasn't been set yet, - if_e mov sopDir, sop ' set it to sop. - - mov p, pFilestuff - add p, #_sopDir - wrlong sopDir, p ' pFilestuff->sopDir := sopDir - add p, #_sopTail-_sopDir - add sopDir, #$1a - wrlong sopDir, p ' pFilestuff->sopTail := sopDir + $1a - ' (points to directory entry's cluster field). - mov sector, sopDir - shr sector, #9 ' Get the chosen directory entry into memory - call #ReadMetadataSector ' if it isn't already. - - mov p, sopDir ' Recall that sopDir was changed - and p, #$1ff ' to point to the cluster field, - add p, pMetadataBuffer ' so p now points to the cluster field in the buffer. - - rdword cluster, p ' Save the cluster field. - mov temp, #0 - wrword temp, p ' Zero the cluster field. - sub p, #$1a ' Point to start of directory entry - - rdbyte temp, p ' Check to see if this was a deleted dir entry. - cmp temp, #$e5 wz ' If it was, we definitely do not want to zero the - if_e mov cluster, #0 ' cluster chain, so set cluster to 0. - - mov q, pFilename ' Store the filename in the directory entry. - mov n, #11 - call #ByteCopy - - mov temp, #$20 ' Set the attribute byte (immediately following name) - wrbyte temp, p - add p, #$10-$0b ' Point to creation date. - mov temp, aDate ' 2001/01/01 - wrword temp, p - add p, #$12-$10 ' Point to last access date. - wrword temp, p - add p, #$18-$12 ' Point to last update date. - wrword temp, p - - mov dirty, #1 ' We've modified metadata. - - tjz cluster, #:done -:forEachClusterInList ' Traverse the cluster list and zero each link. - - mov sector, cluster - shr sector, #8 - add sector, fatSector0 - call #ReadMetadataSector ' Read FAT sector for current cluster - - mov p, cluster - and p, #$ff - shl p, #1 - add p, pMetadataBuffer ' Point p at cluster entry in FAT - - rdword cluster, p ' Get next cluster link. - cmp cluster, #1 wc, wz ' Break if cluster <= 1 - if_be jmp #:done - - mov temp, #0 - wrword temp, p ' Zero the cluster link. - mov dirty, #1 ' We've modified metadata. - - cmp cluster, kfff0 wc, wz ' repeat unless new cluster >= $fff0 - if_b jmp #:forEachClusterInList -:done - mov p, pFilestuff - add p, #_sector - mov temp, #0 - wrword temp, p ' pFilestuff->sector := 0 - add p, #_bp-_sector - wrword temp, p ' pFilestuff->bp := 0 - - mov p, pFilestuff - mov temp, #0 - wrlong temp, p ' pFilestuff->length := 0 - add p, #_mode - mov temp, #"W" - wrword temp, p ' save mode - - jmp #AckNoReturnCode - -MassageFilename -{ - Take the null-terminated 8.3 filename pointed to by pFilename, - move it into memory starting at pFilestuff->buffer and expand it to 11 characters; - change pFilename to point to the expanded filename. -} - mov p, pFilestuff - add p, #_buffer - mov q, p - add p, #1 - mov temp, #" " - wrbyte temp, q - mov n, #10 - call #ByteCopy - - mov q, pFilename ' q is src - mov p, pFilestuff ' p is dst - add p, #_buffer - mov i, #9 ' Copy up to 8 chars (stop at . or null). -:upTo8 - rdbyte temp, q - add q, #1 - tjz temp, #:done - cmp temp, #"." wz - if_z jmp #:dot - call #ValidateChar - wrbyte temp, p - add p, #1 - djnz i, #:upTo8 - ' If we fall through, we've copied 9 characters (tsk tsk). - neg temp, #113 ' -113: bad filename - jmp #AckReturnCode -:dot - mov p, pFilestuff - add p, #_buffer+8 - mov i, #4 ' Copy up to 3 chars (stop at null). -:upTo3 - rdbyte temp, q - add q, #1 - tjz temp, #:done - call #ValidateChar - wrbyte temp, p - add p, #1 - djnz i, #:upTo3 - ' If we fall through, we've copied 4 characters (tsk tsk ). - neg temp, #113 ' -113: bad filename - jmp #AckReturnCode -:done - mov pFilename, pFilestuff - add pFilename, #_buffer - -MassageFilename_ret ret - -FindFile -{ - pFilename points to 11-character buffer (e.g. "BLAH TXT"). - pFilestuff points to a filestuff structure. - Return value: - If file is found, pFilestuff->sopDir is disk address of directory entry. - If file is not found, pFilestuff->sopDir is 0. -} - mov sop, dirSector0 ' sop starts at dirSector0<<9, counts up by DIRSIZE - shl sop, #SECTORSHIFT - mov i, rootDirEntries -:loop - mov sector, sop - shr sector, #9 - call #readMetadataSector - mov p, sop - and p, #$1ff - add p, pMetadataBuffer - rdbyte temp, p wz - if_z jmp #:notfound - - add p, #$0b - rdbyte temp, p ' p[$0b] = attribute byte - sub p, #$0b - and temp, #$02 wz ' If hidden, - if_nz jmp #:next ' skip. Hidden dir entries include long name entries. - - mov q, pFilename - mov n, #11 - call #ByteComp - if_e jmp #:found -:next - add sop, #DIRSIZE - djnz i, #:loop -:notfound - mov sop, #0 -:found - mov p, pFilestuff - add p, #_sopDir - wrlong sop, p -FindFile_ret ret - - -'********************************************************************************************************************* -'* * -'* Read stuff * -'* * -'********************************************************************************************************************* -Read ' ( param0 = pFilestuff, param1 = ptr, param2 = n ) -{ - Read n bytes from file described by pIoblock into memory starting at p. - Returns number of bytes actually read or -1 if attempting to read past EOF. -} - rdlong pFilestuff, pParam0 - rdlong destPtr, pParam1 - rdlong nBytes, pParam2 - - mov p, pFilestuff ' Verify that file was opened for reading. - add p, #_mode - rdword temp, p - cmp temp, #"R" wz - if_ne neg temp, #109 ' -109: file not properly opened - if_ne jmp #AckReturnCode - sub p, #_mode-_leftInFile - - ' Adjust nBytes depending on how much is left to read in file. - ' E.g. if we're 10 bytes from EOF and we try to read 15 bytes, - ' just read 10. If we're at EOF and try to read 15 bytes, return -1. - rdlong temp, p - max nBytes, temp ' nBytes is lesser of nBytes and leftInFile - tjnz temp, #:x - neg temp, #1 ' -1: eof - jmp #ackReturnCode -:x - mov retcode, nBytes -:while - mov leftInSector, k512 ' leftInSector = 512 - pFilestuff->bp - mov p, pFilestuff - add p, #_bp - rdword temp, p ' temp = bp - sub leftInSector, temp - cmp leftInSector, nBytes wc, wz - if_ae jmp #:endwhile - mov p, destPtr - mov q, pFilestuff - add q, #_buffer ' q points to buffer area - add q, temp ' offset by bp (= temp) - mov n, leftInSector - call #ByteCopy ' bytemove( p, q, n ) - add destPtr, leftInSector ' destPtr += leftInSector - sub nBytes, leftInSector ' nBytes -= leftInSector - mov p, pFilestuff ' long[pIoblock+_leftInFile] -= leftInSector - add p, #_leftInFile - rdlong temp, p - sub temp, leftInSector - wrlong temp, p - -' sdspi.readblock( dataSector0 + (word[pFilestuff+_cluster] - 2) << clusterShift + word[pFilestuff+_sector], pFilestuff+_buffer ) - add p, #_cluster-_leftInFile - rdword temp, p ' temp = (cluster - sub temp, #2 ' - 2) - shl temp, clusterShift ' << clusterShift - add temp, dataSector0 ' + dataSector0 - add p, #_sector-_cluster - rdword temp1, p - add temp, temp1 ' + cluster - wrlong temp, pSdspiBlockno ' Prepare to read sector - add p, #_buffer-_sector - wrlong p, pSdspiParam - mov temp, #"R" - call #SdspiCommand - -' if ++word[pFilestuff+_sector] == sectorsPerCluster - mov p, pFilestuff - add p, #_sector - rdword temp, p - add temp, #1 - wrword temp, p - cmp temp, sectorsPerCluster wz - if_ne jmp #:y - -' word[pIoblock+_sector]~ - mov temp, #0 - wrword temp, p -' word[pFilestuff+_cluster] := NextCluster( word[pFilestuff+_cluster] ) - sub p, #_sector-_cluster - rdword cluster, p - call #NextCluster '( cluster ) - mov p, pFilestuff - add p, #_cluster - wrword cluster, p -:y -' word[pFilestuff+_bp]~ - mov p, pFilestuff - add p, #_bp - mov temp, #0 - wrword temp, p - - jmp #:while -:endwhile -' bytemove( destPtr, pIoblock + word[pIoblock+_bp], n ) - mov p, destPtr - mov q, pFilestuff - add q, #_bp - rdword temp, q - add q, #_buffer-_bp - add q, temp - mov n, nBytes - call #ByteCopy - -' long[pIoblock+_leftInFile] -= n - mov p, pFilestuff - add p, #_leftInFile - rdlong temp, p - sub temp, nBytes - wrlong temp, p -' word[pIoblock+_bp] += n - add p, #_bp-_leftInFile - rdword temp, p - add temp, nBytes - wrword temp, p - - mov temp, retcode - jmp #AckReturnCode - -NextCluster ' ( cluster ) -{ - Given cluster, determines next cluster in FAT. - Result in cluster. -} - cmp cluster, #1 wc, wz - if_be jmp #NextCluster_ret - cmp cluster, kfff0 wc, wz - if_ae jmp #NextCluster_ret - - mov sector, cluster - shr sector, #8 - add sector, fatSector0 - call #ReadMetadataSector - mov p, cluster - and p, #$ff - shl p, #1 - add p, pMetadataBuffer - rdword cluster, p - -NextCluster_ret ret - -kfff0 long $fff0 - -'********************************************************************************************************************* -'* * -'* Write stuff * -'* * -'********************************************************************************************************************* -Write - rdlong p, pParam0 ' p = pFilestuff - add p, #_mode ' Verify that file was opened for writing. - rdword temp, p - cmp temp, #"W" wz - if_ne neg temp, #109 ' -109: file not properly opened - if_ne jmp #AckReturnCode - - call #FlushMetadataSector - neg currentsector, #1 ' invalidate current sector 'cuz we're about to hand the reins - ' to sxfs2 cog. - mov temp, #"W" - wrlong temp, pSxfs2Command -:wait rdlong temp, pSxfs2Command wz - if_nz jmp #:wait - - rdlong temp, pSxfs2Param - jmp #AckReturnCode - -'********************************************************************************************************************* -'* * -'* Close stuff * -'* * -'********************************************************************************************************************* -Close ' ( param0 = pFilestuff ) - rdlong pFilestuff, pParam0 - mov p, pFilestuff - add p, #_mode - rdword temp, p - - cmp temp, #"W" wz - if_e jmp #:closew - -' Files opened in mode "W" need special closing code, but for mode "R" or anything else -' (like file not even open) we can just do this: - - mov temp, #0 - wrword temp, p ' clear mode - jmp #AckNoReturnCode ' and we're done - -:closew - mov temp, #0 ' clear mode - wrword temp, p - - call #FlushMetadataSector - neg currentsector, #1 ' invalidate current sector 'cuz we're about to hand the reins - ' to sxfs2 cog. - mov temp, #"C" - wrlong temp, pSxfs2Command -:wait rdlong temp, pSxfs2Command wz - if_nz jmp #:wait - - rdlong temp, pSxfs2Param - jmp #AckReturnCode - -'********************************************************************************************************************* -'* * -'* Execute stuff * -'* * -'********************************************************************************************************************* -Execute ' ( pFilestuff, execmode, cogid ) - call #FlushMetadataSector - neg currentsector, #1 ' invalidate current sector 'cuz we're about to hand the reins - ' to sxfs2 cog. - mov temp, #"X" - wrlong temp, pSxfs2Command -:wait rdlong temp, pSxfs2Command wz - if_nz jmp #:wait - - rdlong temp, pSxfs2Param - jmp #AckReturnCode - -'********************************************************************************************************************* -'* * -'* Utility stuff * -'* * -'********************************************************************************************************************* - -ByteCopy ' ( p, q, n ) - tjz n, #ByteCopy_ret -:loop rdbyte temp, q - add q, #1 - wrbyte temp, p - add p, #1 - djnz n, #:loop - -ByteCopy_ret ret - -ByteComp ' ( p, q, n ) -{ - Compares j bytes starting at p and q. - Returns Z if they match, NZ if they differ. - Destroys p, q, and j. -} - rdbyte temp, p - add p, #1 - rdbyte temp1, q - add q, #1 - cmp temp, temp1 wz - if_z djnz n, #ByteComp - -ByteComp_ret ret - - -ValidateChar -{ - Make sure that temp is a valid filename character (for our purposes, 0-9, A-Z, _). -} - cmp temp, #"a" wc, wz - if_b jmp #:notLowerCase - cmp temp, #"z" wc, wz - if_a jmp #:notLowerCase - sub temp, #"a"-"A" ' convert to upper-case - jmp #ValidateChar_ret -:notLowerCase - cmp temp, #"A" wc, wz - if_b jmp #:notAlpha - cmp temp, #"Z" wc, wz - if_be jmp #ValidateChar_ret -:notAlpha - cmp temp, #"0" wc, wz - if_b jmp #:notNumeric - cmp temp, #"9" wc, wz - if_be jmp #ValidateChar_ret -:notNumeric - cmp temp, #"_" wz - if_e jmp #ValidateChar_ret - - mov temp, #113 ' -113: bad filename - jmp #AckReturnCode - -ValidateChar_ret ret - - - - - -ReadMetadataSector ' ( sector ) - call #FlushMetadataSector - - cmp sector, currentSector wz - if_e jmp #ReadMetadataSector_ret - wrlong pMetadataBuffer, pSdspiParam - wrlong sector, pSdspiBlockno - mov currentSector, sector - - mov temp, #"R" - call #SdspiCommand -ReadMetadataSector_ret ret - -FlushMetadataSector - tjz dirty, #FlushMetadataSector_ret - mov dirty, #0 - - ' write current sector - wrlong pMetadataBuffer, pSdspiParam - wrlong currentSector, pSdspiBlockno - mov temp, #"W" - call #SdspiCommand -FlushMetadataSector_ret ret - -SdspiCommand - wrlong temp, pSdspiCommand -:wait - rdlong temp, pSdspiCommand wz - if_nz jmp #:wait - - rdlong temp, pSdspiParam wz - if_nz jmp #AckReturnCode - -SdspiCommand_ret ret - -kFAT1 long "F" + "A"<<8 + "T"<<16 + "1"<<24 -k512 long 512 -dirty long 0 -currentSector long -1 -aDate long $2a21 - -pMetadataBuffer long METADATABUFFER - -pCommand long SXFSRENDEZVOUS+0 -pParam0 long SXFSRENDEZVOUS+4 -pParam1 long SXFSRENDEZVOUS+8 -pParam2 long SXFSRENDEZVOUS+12 - -pSdspiCommand long SDSPIRENDEZVOUS+0 -pSdspiParam long SDSPIRENDEZVOUS+4 -pSdspiBlockno long SDSPIRENDEZVOUS+8 - -pSxfs2Command long SXFS2RENDEZVOUS+0 -pSxfs2Param long SXFS2RENDEZVOUS+4 - -bytesPerSector long 0 -sectorsPerCluster long 0 -clusterShift long 0 -reservedSectors long 0 -numberOfFats long 0 -sectorsPerFat long 0 -rootDirEntries long 0 -fatSector0 long 0 -dirSector0 long 0 -dataSector0 long 0 - -temp res 1 -temp1 res 1 -i res 1 -j res 1 -n res 1 -p res 1 -q res 1 -sop res 1 -byte4 res 0 -sopDir res 1 -sector res 1 -cluster res 1 - -pFilename res 1 -pFilestuff res 1 -destPtr res 1 -nBytes res 1 -leftInFile res 1 -leftInSector res 1 -retcode res 1 - - fit - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/sxfs2.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/sxfs2.spn deleted file mode 100644 index 8c00bb4..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/sxfs2.spn +++ /dev/null @@ -1,529 +0,0 @@ -SXTVRENDEZVOUS = $8000 - 4 -RESERVED = SXTVRENDEZVOUS - 4 -SDSPIRENDEZVOUS = RESERVED - 3 * 4 -SXFS2RENDEZVOUS = SDSPIRENDEZVOUS - 4 * 4 ' four rendezvous variables -SXFSRENDEZVOUS = SXFS2RENDEZVOUS - 4 * 4 ' four rendezvous variables -METADATABUFFER = SXFSRENDEZVOUS - 512 - -_free = ($8000 - METADATABUFFER) / 4 - -con -SECTORSIZE = 512 - -' filestuff definitions -' filestuff must be long-aligned -{ long } _length = 0 -{ long } _leftInFile = 4 -{ long } _sopDir = 8 ' sector/offset "pointer" to directory entry -{ long } _sopTail = 12 ' sector/offset "pointer" to last cluster# in FAT chain -{ word } _cluster = 16 -{ word } _sector = 18 ' sector# within cluster; ranges from 0 to sectorsPerCluster-1 -{ word } _bp = 20 ' byte pointer (actually an index into the sector buffer); range [0..511] -{ word } _mode = 22 ' 0: closed; "R": open for reading; "W": open for writing. - _buffer = 24 ' 512-byte buffer starts here - -SIZEOFFILESTUFF = SECTORSIZE + 24 - -pub Start( pbrSector ) - - bytesPerSector := PeekW( pMetadataBuffer + $0b ) - sectorsPerCluster := byte[pMetadataBuffer][$0d] - clusterShift := >| sectorsPerCluster - 1 - reservedSectors := PeekW( pMetadataBuffer + $0e ) - numberOfFats := byte[pMetadataBuffer][$10] - sectorsPerFat := PeekW( pMetadataBuffer + $16 ) - RootDirEntries := PeekW( pMetadataBuffer + $11 ) - fatSector0 := pbrSector + reservedSectors - dirSector0 := fatSector0 + numberOfFats * sectorsPerFat - dataSector0 := dirSector0 + rootDirEntries >> 4 - - ' start sxfs2 cog - long[pCommand] := "?" - if cognew( @Sxfs2Entry, 0 ) < 0 - abort -1 - repeat while long[pCommand] - -pri PeekW( a ) - return byte[a++] + byte[a] << 8 - -pri PeekL( a ) - return byte[a++] + byte[a++] << 8 + byte[a++] << 16 + byte[a] << 24 - -dat - org 0 -Sxfs2Entry -AckNoReturnCode - mov temp, #0 ' clear return code -AckReturnCode ' enter here with temp = return code - wrlong temp, pParam - mov temp, #0 - wrlong temp, pCommand ' clear command to signal operation complete. - - mov dirty, temp ' Ensure that metatdata is flushed before coming here. - neg temp, #1 - mov currentSector, temp - -:ready ' wait for new command - rdlong temp, pCommand wz - if_z jmp #:ready - - cmp temp, #"?" wz - if_e jmp #AckNoReturnCode - cmp temp, #"W" wz - if_e jmp #Write - cmp temp, #"C" wz - if_e jmp #Close - cmp temp, #"X" wz - if_e jmp #Execute - ' else - neg temp, #100 ' return code -100 : bad command - jmp #AckReturnCode - -'********************************************************************************************************************* -'* * -'* Write stuff * -'* * -'********************************************************************************************************************* -Write ' ( pFilestuff, ptr, n ) - rdlong pFilestuff, pSxfsParam0 - rdlong srcPtr, pSxfsParam1 - rdlong nBytes, pSxfsParam2 - - mov retcode, nBytes - - mov p, pFilestuff ' long[ pFilestuff+_length ] += n - 'add p, #_length (unnecessary cuz _length = 0) - rdlong temp, p - add temp, nBytes - wrlong temp, p - - -' repeat while (leftInSector := SECTORSIZE - word[pIoblock+_bp]) < n -:while - mov p, pFilestuff - add p, #_bp ' p points to pFilestuff->bp - mov leftInSector, k512 - rdword temp, p ' temp = pFilestuff->bp - sub leftInSector, temp - cmp leftInSector, nBytes wc, wz - if_ae jmp #:done -' bytemove( pFilestuff + _buffer + word[pFilestuff+_bp], ptr, leftInSector ) - mov p, pFilestuff - add p, #_buffer - add p, temp ' p now points bp bytes into buffer. - mov q, srcPtr - mov n, leftInSector - call #ByteCopy -' ptr += leftInSector - add srcPtr, leftInSector ' advance the source pointer by #bytes written. -' n -= leftInSector - sub nBytes, leftInSector ' decrease #bytes to write by #bytes written. -' WriteNextSector( pIoblock ) - call #WriteNextSector - - jmp #:while -:done -' bytemove( pFilestuff + _buffer + word[pIoblock+_bp], ptr, n ) - mov p, pFilestuff - add p, #_buffer - add p, temp ' temp = pFilestuff->bp - mov q, srcPtr - mov n, nBytes - call #ByteCopy -' word[pFilestuff+_bp] += n - mov p, pFilestuff - add p, #_bp - rdword temp, p - add temp, nBytes ' advance bp by #bytes written. - wrword temp, p - - call #FlushMetadataSector - - mov temp, retcode - jmp #AckReturnCode - -WriteNextSector - mov p, pFilestuff - add p, #_sector - rdword temp, p wz - if_nz jmp #:writeSector ' sector# <> 0? Write that sector. - -' Writing sector 0 implies that we're starting a new cluster, so find an empty slot in the FAT - mov cluster, #0 - mov sector, fatSector0 - mov i, sectorsPerFat -:forEachFatSector - call #ReadMetadataSector - - mov p, pMetadataBuffer - mov j, #256 -:forEachSlotInSector - rdword temp, p wz ' examine current slot - if_z jmp #:foundEmptySlot - - add p, #2 - add cluster, #1 - djnz j, #:forEachSlotInSector - - add sector, #1 - djnz i, #:forEachFatSector - - neg temp, #110 ' -110: FAT full. - jmp #AckReturnCode -:foundEmptySlot - neg temp, #1 - wrword temp, p ' Claim empty slot by writing $ffff. - mov dirty, #1 ' We've modified metadata. - - mov sop, sector - shl sop, #9 - sub p, pMetadataBuffer - add sop, p ' sop "points" to slot. - - mov p, pFilestuff - add p, #_cluster - wrword cluster, p ' save cluster# in pFilestuff->cluster - - sub p, #_cluster-_sopTail ' p points to pFilestuff->sopTail - rdlong sopTail, p ' get "pointer" to end of cluster list. - - mov sector, sopTail ' Read the sector that sopTail "points" to. - shr sector, #9 - call #ReadMetadataSector - - and sopTail, #$1ff - add sopTail, pMetadataBuffer ' Use sopTail as pointer into buffer. - wrword cluster, sopTail ' Now the word pointed to by pFilestuff->sopTail - ' is updated with the new cluster#. - mov dirty, #1 - - wrlong sop, p ' p is still pointing to pFilestuff->sopTail so - ' update pFilestuff->sopTail to point to new tail. -:writeSector - mov p, pFilestuff - add p, #_cluster ' p points to pFilestuff->cluster - rdword i, p ' using i for sector# - sub i, #2 - shl i, clusterShift - add i, dataSector0 ' At this point, i is the first sector of the cluster. - - add p, #_sector-_cluster ' p points to pFilestuff->sector - rdword temp, p - add i, temp ' Now i is the correct sector of the cluster. - add temp, #1 - wrword temp, p ' Increment pFilestuff->sector - cmp temp, sectorsPerCluster wz - mov temp, #0 ' if pFilestuff->sector = sectorsPerCluster, - if_e wrword temp, p ' pFilestuff->sector := 0. - add p, #_bp-_sector ' p points to pFilestuff->bp - wrword temp, p ' pFilestuff->bp = 0. - - wrlong i, pSdspiBlockno - add p, #_buffer-_bp - wrlong p, pSdspiParam - mov temp, #"W" - call #SdspiCommand -WriteNextSector_ret ret - -'********************************************************************************************************************* -'* * -'* Close stuff * -'* * -'********************************************************************************************************************* -Close ' ( pFilestuff ) - rdlong pFilestuff, pSxfsParam0 - - mov p, pFilestuff - add p, #_bp - rdword temp, p wz ' If there's stuff waiting to be written - if_nz call #WriteNextSector ' (i.e. bp <> 0), write it. - mov p, pFilestuff - add p, #_sopDir - rdlong sop, p ' sop "points" to directory entry. - - mov sector, sop - shr sector, #9 - call #ReadMetadataSector ' We want to update metadata length info. - and sop, #$1ff - add sop, pMetadataBuffer - add sop, #$1c ' sop points to length in metadata buffer. - mov p, pFilestuff ' p points to pFilestuff->length. - rdlong temp, p - wrlong temp, sop ' store length in metadata. - mov dirty, #1 - call #FlushMetadataSector - - jmp #AckNoReturnCode - -'********************************************************************************************************************* -'* * -'* Execute stuff * -'* * -'********************************************************************************************************************* -Execute ' ( pFilestuff, execmode, cogid ) -{ - Loads 63 sectors from file and executes. Requires that the file be contiguous on the SD card, - which is generally accomplished by formatting the card with cluster size >= 32k. - This reads 63 sectors instead of 64 to avoid writing junk into the rendezvous areas. - It is conceivable that some executable files will not run because of this. - - This routine does handle clock speed changes. - - If execmode is 0, start Spin interpreter in cog specified by cogid. - If execmode is 1, start Spin interpreter in cog specified by cogid and stop all other cogs. -} - call #FlushMetadataSector ' just in case - neg currentsector, #1 ' invalidate current sector 'cuz metadata buffer is about to be overwritten - - rdlong pFilestuff, pSxfsParam0 - - rdlong filesize, pFilestuff wz ' length of file - if_z neg temp, #1 ' if file is empty, return -1: EOF - if_z jmp #AckReturnCode ' This is a bit of a hack. The Sphinx compiler really - ' should delete outdated .bin or .eep files to force - ' (re)linking, but since sxfs doesn't know how to - ' delete files (yet(?)), the compiler just makes - ' a file empty instead of deleting it. This test - ' here catches empty executable files and bails, - ' preventing a crash. - - rdlong execmode, pSxfsParam1 - - rdbyte callingCog, pSxfsParam2 ' stop Spin interpreter - cogstop callingCog - - rdlong oldClkfreq, #0 ' save clkfreq - rdbyte oldClkmode, #4 ' save clkmode - - mov p, pFilestuff - add p, #_cluster - rdword temp, p ' temp = (cluster - sub temp, #2 ' - 2) - shl temp, clusterShift ' << clusterShift - add temp, dataSector0 ' + dataSector0 - mov p, temp ' p repurposed here as sector# - - mov i, #63 ' read 63 contiguous sectors - mov q, #0 -:loop - wrlong p, pSdspiBlockno ' Prepare to read sector p - wrlong q, pSdspiParam ' to memory pointed to by q - mov temp, #"R" - call #SdspiCommand - add p, #1 ' Next sector - add q, k512 ' Next 512-byte block of memory - djnz i, #:loop - - ' clear memory above the loaded file - mov i, #1 - shl i, #15 ' i = 32768 - sub i, filesize wz ' - file size - if_z jmp #:z - mov temp, #0 -:y - wrbyte temp, filesize ' repurpose filesize as pointer - add filesize, #1 - djnz i, #:y -:z - ' store those nutty $fff9ffff longs - rdword p, #$0a - sub p, #4 - wrlong kfff9ffff, p - sub p, #4 - wrlong kfff9ffff, p - - tjz execmode, #:dontChangeClock ' execmode = 0? skip cog-killing and clock change - - cogid temp - mov i, #0 - mov j, #8 -:cogkill - cmp i, temp wz ' kill all cogs except self - if_ne cogstop i ' (suicide comes later) - add i, #1 - djnz j, #:cogkill - - ' The following code is borrowed liberally from sdspiFemto: - rdlong temp, #0 ' new clock frequency - cmp temp, oldClkfreq wz ' compared to old - rdbyte temp, #4 ' get new clock mode in advance - if_ne jmp #:changeClock - cmp temp, oldClkmode wz ' compare new clock mode to old - if_e jmp #:dontChangeClock - -:changeClock and temp, #$f8 ' Force use of RCFAST clock while - clkset temp ' letting requested clock start - mov i, time_xtal -:startupDelay djnz i, #:startupDelay ' Allow 20ms@20MHz for xtal/pll to settle - rdbyte temp, #4 ' Then switch to selected clock - clkset temp - jmp #:x - -:dontChangeClock - wrlong oldClkfreq, #0 ' Restore old clock frequency - wrbyte oldClkmode, #4 ' and mode. - -:x - or interpreter, callingCog - coginit interpreter ' start new Spin interpreter in the same cog. - - tjz execmode, #AckNoReturnCode ' execmode = 0? Done. - - cogid temp ' kill - cogstop temp ' self - - -interpreter long ($0004 << 16) | ($F004 << 2) | %0000 ' Thanks to sdspiFemto -time_xtal long 20 * 20000 / 4 / 1 ' 20ms (@20MHz, 1 inst/loop) - -'********************************************************************************************************************* -'* * -'* Utility stuff * -'* * -'********************************************************************************************************************* -{ -Out'(outch) ''' -:w rdbyte outtemp, pTerm wz -if_nz jmp #:w -wrbyte outch, pTerm -Out_ret ret - -OutHex'(outx, outn) ''' - mov outtemp, outn - sub outtemp, #1 - shl outtemp, #2 - ror outx, outtemp -:loop - mov outch, outx - and outch, #$0f - add outch, #"0" - cmp outch, #"9" wc, wz - if_a add outch, #"a"-"0"-10 - call #out - rol outx, #4 - djnz outn, #:loop -Outhex_ret ret -pTerm long $7ffc -outch long 0 -outx long 0 -outn long 0 -outtemp long 0 ''' -} - -ByteCopy ' ( p, q, n ) - tjz n, #ByteCopy_ret -:loop rdbyte temp, q - add q, #1 - wrbyte temp, p - add p, #1 - djnz n, #:loop - -ByteCopy_ret ret - -ReadMetadataSector ' ( sector ) - call #FlushMetadataSector - - cmp sector, currentSector wz - if_e jmp #ReadMetadataSector_ret - wrlong pMetadataBuffer, pSdspiParam - wrlong sector, pSdspiBlockno - mov currentSector, sector - mov temp, #"R" - call #SdspiCommand -ReadMetadataSector_ret ret - -FlushMetadataSector - tjz dirty, #FlushMetadataSector_ret - mov dirty, #0 - - ' write current sector - wrlong pMetadataBuffer, pSdspiParam - wrlong currentSector, pSdspiBlockno - mov temp, #"W" - call #SdspiCommand -FlushMetadataSector_ret ret - -SdspiCommand - wrlong temp, pSdspiCommand -:wait - rdlong temp, pSdspiCommand wz - if_nz jmp #:wait - - rdlong temp, pSdspiParam wz - if_nz jmp #AckReturnCode - -SdspiCommand_ret ret - - -k512 long 512 -kfff9ffff long $fff9ffff -dirty long 0 -currentSector long -1 -pMetadataBuffer long METADATABUFFER - -pSxfsCommand long SXFSRENDEZVOUS+0 -pSxfsParam0 long SXFSRENDEZVOUS+4 -pSxfsParam1 long SXFSRENDEZVOUS+8 -pSxfsParam2 long SXFSRENDEZVOUS+12 - -pSdspiCommand long SDSPIRENDEZVOUS+0 -pSdspiParam long SDSPIRENDEZVOUS+4 -pSdspiBlockno long SDSPIRENDEZVOUS+8 - -pCommand long SXFS2RENDEZVOUS+0 -pParam long SXFS2RENDEZVOUS+4 - -bytesPerSector long 0 -sectorsPerCluster long 0 -clusterShift long 0 -reservedSectors long 0 -numberOfFats long 0 -sectorsPerFat long 0 -rootDirEntries long 0 -fatSector0 long 0 -dirSector0 long 0 -dataSector0 long 0 - -temp res 1 -i res 1 -j res 1 -n res 1 -p res 1 -q res 1 -pFilestuff res 1 -sop res 1 -sopTail res 1 -srcPtr res 1 -nBytes res 1 -cluster res 1 -sector res 1 -leftInSector res 1 -filesize res 1 -execmode res 1 -callingCog res 1 -oldClkfreq res 1 -oldClkmode res 1 - -retcode res 1 - - fit - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/sxkb.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/sxkb.spn deleted file mode 100644 index 3bf5a33..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/sxkb.spn +++ /dev/null @@ -1,728 +0,0 @@ -''******************************* -''* PS/2 Keyboard Driver v2.0 * -''* (C) 2004 Parallax, Inc. * -''* Modified by Michael Green * -''* to support Hydra as well * -''******************************* -{ -Modified by Michael Park for Sphinx -2009/06/15 -} - -SXKBRENDEZVOUS = $7ff8 - -VAR - long cog - -PUB start(pingroup) : okay - -'' Start keyboard driver - starts a cog -'' returns false if no cog available -'' -'' pingroup = 1st pin number for 2-pin group for PS/2 I/O -'' (1st - data signal, 2nd - clock signal) -'' Even number selects Demo Board I/O convention -'' -'' use 100-ohm resistors between pins and jack -'' use 10K-ohm resistors to pull jack-side signals to VDD -'' connect jack-power to 5V, jack-gnd to VSS -'' -'' pingroup = 1st pin number for 4-pin group for PS/2 I/O -'' Odd number selects Hydra I/O convention -'' -'' 1st pin drives NPN base for PS/2 'data' signal pull-down -'' 2nd pin reads PS/2 'data' signal -'' 3rd pin drives NPN base for PS/2 'clock' signal pull-down -'' 4th pin reads PS/2 'clock' signal -'' -'' use 2.2K-ohm resistors between 1st/3rd pins and NPN bases -'' use 22K-ohm resistors between 2nd/4th pins and PS/2-side signals -'' use 2.2K-ohm resistors to pull PS/2-side signals to 5V -'' connect PS/2 power to 5V, PS/2 gnd to vss -'' -'' all lock-keys will be enabled, NumLock will be initially 'on', -'' and auto-repeat will be set to 15cps with a delay of .5s - - okay := startx(pingroup, %0_000_100, %01_01000) - -PUB startx(pingroup, locks, auto) | okay - -'' Like start, but allows you to specify lock settings and auto-repeat -'' -'' locks = lock setup -'' bit 6 disallows shift-alphas (case set soley by CapsLock) -'' bits 5..3 disallow toggle of NumLock/CapsLock/ScrollLock state -'' bits 2..0 specify initial state of NumLock/CapsLock/ScrollLock -'' (eg. %0_001_100 = disallow ScrollLock, NumLock initially 'on') -'' -'' auto = auto-repeat setup -'' bits 6..5 specify delay (0=.25s, 1=.5s, 2=.75s, 3=1s) -'' bits 4..0 specify repeat rate (0=30cps..31=2cps) -'' (eg %01_00000 = .5s delay, 30cps repeat) - - long[pRendezvous]~~ ' ping - if long[pRendezvous]~ == -1 ' no response - longmove(@_pingroup, @pingroup, 3) - okay := cog := cognew(@entry, 0) + 1 - -PUB peekkey - -'' Returns a 0 if the buffer is empty -'' returns next key if buffer not empty -'' but doesn't remove the key from buffer - - return long[pRendezvous] - -PUB key : keycode - -'' Get key (never waits) -'' returns key (0 if buffer empty) - - if keycode := long[pRendezvous] - long[pRendezvous]~ - -PUB getkey : keycode - -'' Get next key (may wait for keypress) -'' returns key - - repeat until (keycode := key) - -DAT -'****************************************** -'* Assembly language PS/2 keyboard driver * -'****************************************** - - org -' -' -' Entry -' -entry - mov x,_pingroup 'get mask for 1st pin - andn x,#1 - test _pingroup,#1 wz - mov dwmask,#1 - shl dwmask,x - mov drmask,dwmask - if_nz shl drmask,#1 - mov cwmask,drmask - shl cwmask,#1 - mov crmask,cwmask - if_nz shl crmask,#1 - - if_nz or dira,dwmask 'set directions - if_nz or dira,cwmask - - mov _head,#0 'reset output parameter _head - mov _tail, #0 -' -' -' Reset keyboard -' -reset test _pingroup,#1 wz - if_nz andn outa,dwmask 'let PS/2 lines float (pulled up) - if_nz andn outa,cwmask - if_z mov dira,#0 - - movd :par,#_present 'reset output parameters _present/_states[8] - mov x,#1+8 -:par mov 0,#0 - add :par,dlsb - djnz x,#:par - - mov stat,#8 'set reset flag -' -' -' Update parameters -' -update - call #Rendezvous - - test stat,#8 wc 'if reset flag, transmit reset command - if_c mov data,#$FF - if_c call #transmit -' -' -' Get scancode -' -newcode - mov stat,#0 'reset state - -:same call #receive 'receive byte from keyboard - - cmp data,#$83+1 wc 'scancode? - - if_nc cmp data,#$AA wz 'powerup/reset? - if_nc_and_z jmp #configure - - if_nc cmp data,#$E0 wz 'extended? - if_nc_and_z or stat,#1 - if_nc_and_z jmp #:same - - if_nc cmp data,#$F0 wz 'released? - if_nc_and_z or stat,#2 - if_nc_and_z jmp #:same - - if_nc jmp #newcode 'unknown, ignore -' -' -' Translate scancode and enter into buffer -' - test stat,#1 wc 'lookup code with extended flag - rcl data,#1 - call #look - - cmp data,#0 wz 'if unknown, ignore - if_z jmp #newcode - - mov t,_states+6 'remember lock keys in _states - - mov x,data 'set/clear key bit in _states - shr x,#5 - add x,#_states - movd :reg,x - mov y,#1 - shl y,data - test stat,#2 wc -:reg muxnc 0,y - - if_nc cmpsub data,#$F0 wc 'if released or shift/ctrl/alt/win, done - if_c jmp #update - - mov y,_states+7 'get shift/ctrl/alt/win bit pairs - shr y,#16 - - cmpsub data,#$E0 wc 'translate keypad, considering numlock - if_c test _locks,#%100 wz - if_c_and_z add data,#@keypad1-@table - if_c_and_nz add data,#@keypad2-@table - if_c call #look - if_c jmp #:flags - - cmpsub data,#$DD wc 'handle scrlock/capslock/numlock - if_c mov x,#%001_000 - if_c shl x,data - if_c andn x,_locks - if_c shr x,#3 - if_c shr t,#29 'ignore auto-repeat - if_c andn x,t wz - if_c xor _locks,x - if_c add data,#$DD - if_c_and_nz or stat,#4 'if change, set configure flag to update leds - - test y,#%11 wz 'get shift into nz - - if_nz cmp data,#$60+1 wc 'check shift1 - if_nz_and_c cmpsub data,#$5B wc - if_nz_and_c add data,#@shift1-@table - if_nz_and_c call #look - if_nz_and_c andn y,#%11 - - if_nz cmp data,#$3D+1 wc 'check shift2 - if_nz_and_c cmpsub data,#$27 wc - if_nz_and_c add data,#@shift2-@table - if_nz_and_c call #look - if_nz_and_c andn y,#%11 - - test _locks,#%010 wc 'check shift-alpha, considering capslock - muxnc :shift,#$20 - test _locks,#$40 wc - if_nz_and_nc xor :shift,#$20 - cmp data,#"z"+1 wc - if_c cmpsub data,#"a" wc -:shift if_c add data,#"A" - if_c andn y,#%11 - -:flags ror data,#8 'add shift/ctrl/alt/win flags - mov x,#4 '+$100 if shift -:loop test y,#%11 wz '+$200 if ctrl - shr y,#2 '+$400 if alt - if_nz or data,#1 '+$800 if win - ror data,#1 - djnz x,#:loop - rol data,#12 - - mov x, _tail 'if room in buffer and key valid, enter - sub x,#1 - and x,#$F - cmp x,_head wz - if_e jmp #:z - test data,#$FF wz - if_z jmp #:z - - mov x, #buffer - add x, _head - movd :store, x - nop -:store mov 0-0, data ' buffer[x] := data - add _head,#1 - and _head,#$F -:z - test stat,#4 wc 'if not configure flag, done - if_nc jmp #update 'else configure to update leds -' -' -' Configure keyboard -' -configure mov data,#$F3 'set keyboard auto-repeat - call #transmit - mov data,_auto - and data,#%11_11111 - call #transmit - - mov data,#$ED 'set keyboard lock-leds - call #transmit - mov data,_locks - rev data,#-3 & $1F - test data,#%100 wc - rcl data,#1 - and data,#%111 - call #transmit - - mov x,_locks 'insert locks into _states - and x,#%111 - shl _states+7,#3 - or _states+7,x - ror _states+7,#3 - - mov _present,#1 'set _present - - jmp #update 'done -' -' -' Lookup byte in table -' -look ror data,#2 'perform lookup - movs :reg,data - add :reg,#table - shr data,#27 - mov x,data -:reg mov data,0 - shr data,x - - jmp #rand 'isolate byte -' -' -' Transmit byte to keyboard -' -transmit test _pingroup,#1 wz - if_z or dira,cwmask - if_nz or outa,cwmask 'pull clock low - movs napshr,#13 'hold clock for ~128us (must be >100us) - call #nap - if_z or dira,dwmask - if_nz or outa,dwmask 'pull data low - movs napshr,#18 'hold data for ~4us - call #nap - if_z xor dira,cwmask - if_nz andn outa,cwmask 'release clock - - test data,#$0FF wc 'append parity and stop bits to byte - muxnc data,#$100 - or data,dlsb - - mov x,#10 'ready 10 bits -transmit_bit call #wait_c0 'wait until clock low - shr data,#1 wc 'output data bit - test _pingroup,#1 wz - if_z muxnc dira,dwmask - if_nz muxnc outa,dwmask - mov wcond,c1 'wait until clock high - call #wait - djnz x,#transmit_bit 'another bit? - - mov wcond,c0d0 'wait until clock and data low - call #wait - mov wcond,c1d1 'wait until clock and data high - call #wait - - call #receive_ack 'receive ack byte with timed wait - cmp data,#$FA wz 'if ack error, reset keyboard - if_nz jmp #reset -transmit_ret ret -' -' -' Receive byte from keyboard -' -receive -:waitpne - call #Rendezvous - mov x, ina 'wait indefinitely for initial clock low - and x, crmask - cmp x, crmask wz - if_e jmp #:waitpne - -receive_ack mov x,#11 'ready 11 bits -receive_bit call #wait_c0 'wait until clock low - movs napshr,#16 'pause ~16us - call #nap - test drmask,ina wc 'input data bit - rcr data,#1 - mov wcond,c1 'wait until clock high - call #wait - djnz x,#receive_bit 'another bit? - - shr data,#22 'align byte - test data,#$1FF wc 'if parity error, reset keyboard - if_nc jmp #reset -rand and data,#$FF 'isolate byte -look_ret -receive_ack_ret -receive_ret ret -' -' -' Communicate with the rest of the Propeller via "rendezvous" in hub memory. -' -Rendezvous - rdlong t, pRendezvous wz ' if rendezvous = 0 (location empty), - if_z jmp #:clearToSend ' go fill it with character in buffer. - add t, #1 wz ' if rendezvous = -1 - if_nz jmp #Rendezvous_ret ' someone is pinging to see if sxkb cog is alive; - sub t, #2 ' set rendezvous to -2 to ack. - wrlong t, pRendezvous - jmp #Rendezvous_ret -:clearToSend - cmp _head, _tail wz - if_e jmp #Rendezvous_ret - mov x, _tail - add x, #buffer - movs :read, x - nop -:read mov data, 0-0 ' data := buffer[_tail] - wrlong data, pRendezvous - add _tail, #1 - and _tail, #$0f -Rendezvous_ret ret - -' -' -' Wait for clock/data to be in required state(s) -' -wait_c0 mov wcond,c0 '(wait until clock low) - -wait mov y,tenms 'set timeout to 10ms - -wloop movs napshr,#18 'nap ~4us - call #nap - test crmask,ina wc 'check required state(s) - test drmask,ina wz 'loop until got state(s) or timeout -wcond if_never djnz y,#wloop '(replaced with c0/c1/c0d0/c1d1) - - tjz y,#reset 'if timeout, reset keyboard -wait_ret -wait_c0_ret ret - - -c0 if_c djnz y,#wloop '(if_never replacements) -c1 if_nc djnz y,#wloop -c0d0 if_c_or_nz djnz y,#wloop -c1d1 if_nc_or_z djnz y,#wloop -' -' -' Nap -' -nap rdlong t,#0 'get clkfreq -napshr shr t,#0-0 'shr scales time (set to 13/16/18) - min t,#10 'ensure waitcnt won't snag (was 3 but snagged; upped to 10 [mp]) - add t,cnt 'add cnt to time - waitcnt t,#0 'wait until time elapses (nap) - -nap_ret ret -' -' -' Initialized data -' -' -dlsb long 1 << 9 -tenms long 10_000 / 4 -' -' -' Lookup table -' ascii scan extkey regkey ()=keypad -' -table word $0000 '00 - word $00D8 '01 F9 - word $0000 '02 - word $00D4 '03 F5 - word $00D2 '04 F3 - word $00D0 '05 F1 - word $00D1 '06 F2 - word $00DB '07 F12 - word $0000 '08 - word $00D9 '09 F10 - word $00D7 '0A F8 - word $00D5 '0B F6 - word $00D3 '0C F4 - word $0009 '0D Tab - word $0060 '0E ` - word $0000 '0F - word $0000 '10 - word $F5F4 '11 Alt-R Alt-L - word $00F0 '12 Shift-L - word $0000 '13 - word $F3F2 '14 Ctrl-R Ctrl-L - word $0071 '15 q - word $0031 '16 1 - word $0000 '17 - word $0000 '18 - word $0000 '19 - word $007A '1A z - word $0073 '1B s - word $0061 '1C a - word $0077 '1D w - word $0032 '1E 2 - word $F600 '1F Win-L - word $0000 '20 - word $0063 '21 c - word $0078 '22 x - word $0064 '23 d - word $0065 '24 e - word $0034 '25 4 - word $0033 '26 3 - word $F700 '27 Win-R - word $0000 '28 - word $0020 '29 Space - word $0076 '2A v - word $0066 '2B f - word $0074 '2C t - word $0072 '2D r - word $0035 '2E 5 - word $CC00 '2F Apps - word $0000 '30 - word $006E '31 n - word $0062 '32 b - word $0068 '33 h - word $0067 '34 g - word $0079 '35 y - word $0036 '36 6 - word $CD00 '37 Power - word $0000 '38 - word $0000 '39 - word $006D '3A m - word $006A '3B j - word $0075 '3C u - word $0037 '3D 7 - word $0038 '3E 8 - word $CE00 '3F Sleep - word $0000 '40 - word $002C '41 , - word $006B '42 k - word $0069 '43 i - word $006F '44 o - word $0030 '45 0 - word $0039 '46 9 - word $0000 '47 - word $0000 '48 - word $002E '49 . - word $EF2F '4A (/) / - word $006C '4B l - word $003B '4C ; - word $0070 '4D p - word $002D '4E - - word $0000 '4F - word $0000 '50 - word $0000 '51 - word $0027 '52 ' - word $0000 '53 - word $005B '54 [ - word $003D '55 = - word $0000 '56 - word $0000 '57 - word $00DE '58 CapsLock - word $00F1 '59 Shift-R - word $EB0D '5A (Enter) Enter - word $005D '5B ] - word $0000 '5C - word $005C '5D \ - word $CF00 '5E WakeUp - word $0000 '5F - word $0000 '60 - word $0000 '61 - word $0000 '62 - word $0000 '63 - word $0000 '64 - word $0000 '65 - word $00C8 '66 BackSpace - word $0000 '67 - word $0000 '68 - word $C5E1 '69 End (1) - word $0000 '6A - word $C0E4 '6B Left (4) - word $C4E7 '6C Home (7) - word $0000 '6D - word $0000 '6E - word $0000 '6F - word $CAE0 '70 Insert (0) - word $C9EA '71 Delete (.) - word $C3E2 '72 Down (2) - word $00E5 '73 (5) - word $C1E6 '74 Right (6) - word $C2E8 '75 Up (8) - word $00CB '76 Esc - word $00DF '77 NumLock - word $00DA '78 F11 - word $00EC '79 (+) - word $C7E3 '7A PageDn (3) - word $00ED '7B (-) - word $DCEE '7C PrScr (*) - word $C6E9 '7D PageUp (9) - word $00DD '7E ScrLock - word $0000 '7F - word $0000 '80 - word $0000 '81 - word $0000 '82 - word $00D6 '83 F7 - -keypad1 byte $CA, $C5, $C3, $C7, $C0, 0, $C1, $C4, $C2, $C6, $C9, $0D, "+-*/" - -keypad2 byte "0123456789.", $0D, "+-*/" - -shift1 byte "{|}", 0, 0, "~" - -shift2 byte $22, 0, 0, 0, 0, "<_>?)!@#$%^&*(", 0, ":", 0, "+" - -_pingroup long 0 -_locks long 0 -_auto long 0 -pRendezvous long SXKBRENDEZVOUS -' -' Uninitialized data -' -buffer res 16 -dwmask res 1 'output driver mask for data -drmask res 1 'input mask for data -cwmask res 1 'output driver mask for clock -crmask res 1 'input mask for data -stat res 1 -data res 1 -x res 1 -y res 1 -t res 1 - -_tail res 1 -_head res 1 'write-only -_present res 1 'write-only -_states res 8 'write-only - - fit -'' -'' -'' _________ -'' Key Codes -'' -'' 00..DF = keypress and keystate -'' E0..FF = keystate only -'' -'' -'' 09 Tab -'' 0D Enter -'' 20 Space -'' 21 ! -'' 22 " -'' 23 # -'' 24 $ -'' 25 % -'' 26 & -'' 27 ' -'' 28 ( -'' 29 ) -'' 2A * -'' 2B + -'' 2C , -'' 2D - -'' 2E . -'' 2F / -'' 30 0..9 -'' 3A : -'' 3B ; -'' 3C < -'' 3D = -'' 3E > -'' 3F ? -'' 40 @ -'' 41..5A A..Z -'' 5B [ -'' 5C \ -'' 5D ] -'' 5E ^ -'' 5F _ -'' 60 ` -'' 61..7A a..z -'' 7B { -'' 7C | -'' 7D } -'' 7E ~ -'' -'' 80-BF (future international character support) -'' -'' C0 Left Arrow -'' C1 Right Arrow -'' C2 Up Arrow -'' C3 Down Arrow -'' C4 Home -'' C5 End -'' C6 Page Up -'' C7 Page Down -'' C8 Backspace -'' C9 Delete -'' CA Insert -'' CB Esc -'' CC Apps -'' CD Power -'' CE Sleep -'' CF Wakeup -'' -'' D0..DB F1..F12 -'' DC Print Screen -'' DD Scroll Lock -'' DE Caps Lock -'' DF Num Lock -'' -'' E0..E9 Keypad 0..9 -'' EA Keypad . -'' EB Keypad Enter -'' EC Keypad + -'' ED Keypad - -'' EE Keypad * -'' EF Keypad / -'' -'' F0 Left Shift -'' F1 Right Shift -'' F2 Left Ctrl -'' F3 Right Ctrl -'' F4 Left Alt -'' F5 Right Alt -'' F6 Left Win -'' F7 Right Win -'' -'' FD Scroll Lock State -'' FE Caps Lock State -'' FF Num Lock State -'' -'' +100 if Shift -'' +200 if Ctrl -'' +400 if Alt -'' +800 if Win -'' -'' eg. Ctrl-Alt-Delete = $6C9 -'' -'' -'' Note: Driver will buffer up to 15 keystrokes, then ignore overflow. -{{ -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/sxsdspiq.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/sxsdspiq.spn deleted file mode 100644 index 26a879b..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/sxsdspiq.spn +++ /dev/null @@ -1,334 +0,0 @@ -' sdspi: SPI interface to a Secure Digital card. -' -' Copyright 2008 Radical Eye Software -' Modified 2009 by Michael Park: added pointer to rendezvous variables. -' -' See end of file for terms of use. -' -' You probably never want to call this; you want to use fsrw -' instead (which calls this); this is only the lowest layer. -' -' Assumes SD card is interfaced using four consecutive Propeller -' pins, as follows (assuming the base pin is pin 0): -' 3.3v -' | | | | | | -' R R R R R R 20k -' p0 --------*-+-+-+-+-+------ do -' p1 ----------*-+-+-+-+------ clk -' p2 ------------*-+-+-+------ di -' p3 --------------*-+-+------ cs (dat3) -' 150 +-+------ irq (dat1) -' +------ p9 (dat2) -' -' The 20k resistors -' are pullups, and should be there on all six lines (even -' the ones we don't drive). -' -' This code is not general-purpose SPI code; it's very specific -' to reading SD cards, although it can be used as an example. -' -' The code does not use CRC at the moment (this is the default). -' With some additional effort we can probe the card to see if it -' supports CRC, and if so, turn it on. -' -' All operations are guarded by a watchdog timer, just in case -' no card is plugged in or something else is wrong. If an -' operation does not complete in one second it is aborted. -' -con - sectorsize = 512 - sectorshift = 9 - -var - long cog - long pCommand, pParam, pBlockno ' rendezvous between spin and assembly -pub stop - if cog - cogstop(cog~ - 1) -pub start(basepin, pRendezvous) -' -' Initialize the card! Send a whole bunch of -' clocks (in case the previous program crashed -' in the middle of a read command or something), -' then a reset command, and then wait until the -' card goes idle. -' - do := basepin++ - clk := basepin++ - di := basepin++ - cs := basepin - stop - - pCommand := pRendezvous - pParam := pRendezvous + 4 - pBlockno := pRendezvous + 8 - - long[pCommand] := "I" - cog := 1 + cognew(@entry, pRendezvous) - repeat while long[pCommand] - if long[pParam] - abort long[pParam] - return 0 -pub readblock(n, b) -' -' Read a single block. The "n" passed in is the -' block number (blocks are 512 bytes); the b passed -' in is the address of 512 blocks to fill with the -' data. -' - long[pParam] := b - long[pBlockno] := n - long[pCommand] := "R" - repeat while long[pCommand] - if long[pParam] - abort long[pParam] - return 0 -pub writeblock(n, b) -' -' Write a single block. Mirrors the read above. -' - long[pParam] := b - long[pBlockno] := n - long[pCommand] := "W" - repeat while long[pCommand] - if long[pParam] - abort long[pParam] - return 0 -dat - org -entry mov comptr,par - mov parptr,par - add parptr,#4 - mov parptr2,parptr - add parptr2,#4 -' set up - mov acca,#1 - shl acca,di - or dira,acca - mov acca,#1 - shl acca,clk - or dira,acca - mov acca,#1 - shl acca,do - mov domask,acca - mov acca,#1 - shl acca,cs - or dira,acca - mov csmask,acca - neg phsb,#1 - mov frqb,#0 - mov acca,nco - add acca,clk - mov ctra,acca - mov acca,nco - add acca,di - mov ctrb,acca - mov ctr2,onek -oneloop - call #sendiohi - djnz ctr2,#oneloop - mov starttime,cnt - mov cmdo,#0 - mov cmdp,#0 - call #cmd - or outa,csmask - call #sendiohi -initloop - mov cmdo,#55 - call #cmd - mov cmdo,#41 - call #cmd - or outa,csmask - cmp accb,#1 wz - if_z jmp #initloop - wrlong accb,parptr -' reset frqa and the clock -finished - mov frqa,#0 - wrlong frqa,comptr - or outa,csmask - neg phsb,#1 - call #sendiohi -pause - mov acca,#511 - add acca,cnt - waitcnt acca,#0 -waitloop - mov starttime,cnt - rdlong acca,comptr wz - cmp acca,#"B" wz - if_z jmp #byteio - mov ctr2,sector - cmp acca,#"R" wz - if_z jmp #rblock - cmp acca,#"W" wz - if_nz jmp #pause -wblock - mov starttime,cnt - mov cmdo,#24 - rdlong cmdp,parptr2 - call #cmd - mov phsb,#$fe - call #sendio - rdlong accb,parptr - neg frqa,#1 -wbyte - rdbyte phsb,accb - shl phsb,#23 - add accb,#1 - mov ctr,#8 -wbit mov phsa,#8 - shl phsb,#1 - djnz ctr,#wbit - djnz ctr2,#wbyte - neg phsb,#1 - call #sendiohi - call #sendiohi - call #readresp - and accb,#$1f - sub accb,#5 - wrlong accb,parptr - call #busy - jmp #finished -rblock - mov starttime,cnt - mov cmdo,#17 - rdlong cmdp,parptr2 - call #cmd - call #readresp - rdlong accb,parptr - sub accb,#1 -rbyte - mov phsa,hifreq - mov frqa,freq - add accb,#1 - test domask,ina wc - addx acca,acca - test domask,ina wc - addx acca,acca - test domask,ina wc - addx acca,acca - test domask,ina wc - addx acca,acca - test domask,ina wc - addx acca,acca - test domask,ina wc - addx acca,acca - test domask,ina wc - addx acca,acca - mov frqa,#0 - test domask,ina wc - addx acca,acca - wrbyte acca,accb - djnz ctr2,#rbyte - mov frqa,#0 - neg phsb,#1 - call #sendiohi - call #sendiohi - or outa,csmask - wrlong ctr2,parptr - jmp #finished -byteio - rdlong phsb,parptr - call #sendio - wrlong accb,parptr - jmp #finished -sendio - rol phsb,#24 -sendiohi - mov ctr,#8 - neg frqa,#1 - mov accb,#0 -bit mov phsa,#8 - test domask,ina wc - addx accb,accb - rol phsb,#1 - djnz ctr,#bit -sendio_ret -sendiohi_ret - ret -checktime - mov duration,cnt - sub duration,starttime - cmp duration,clockfreq wc -checktime_ret - if_c ret - neg duration,#13 - wrlong duration,parptr - jmp #finished -cmd - andn outa,csmask - neg phsb,#1 - call #sendiohi - mov phsb,cmdo - add phsb,#$40 - call #sendio - mov phsb,cmdp - shl phsb,#9 - call #sendiohi - call #sendiohi - call #sendiohi - call #sendiohi - mov phsb,#$95 - call #sendio -readresp - neg phsb,#1 - call #sendiohi - call #checktime - cmp accb,#$ff wz - if_z jmp #readresp -cmd_ret -readresp_ret - ret -busy - neg phsb,#1 - call #sendiohi - call #checktime - cmp accb,#$0 wz - if_z jmp #busy -busy_ret - ret - -di long 0 -do long 0 -clk long 0 -cs long 0 -nco long $1000_0000 -hifreq long $e0_00_00_00 -freq long $20_00_00_00 -clockfreq long 80_000_000 -onek long 1000 -sector long 512 -domask res 1 -csmask res 1 -acca res 1 -accb res 1 -cmdo res 1 -cmdp res 1 -comptr res 1 -parptr res 1 -parptr2 res 1 -ctr res 1 -ctr2 res 1 -starttime res 1 -duration res 1 -{{ -' Permission is hereby granted, free of charge, to any person obtaining -' a copy of this software and associated documentation files -' (the "Software"), to deal in the Software without restriction, -' including without limitation the rights to use, copy, modify, merge, -' publish, distribute, sublicense, and/or sell copies of the Software, -' and to permit persons to whom the Software is furnished to do so, -' subject to the following conditions: -' -' The above copyright notice and this permission notice shall be included -' in all copies or substantial portions of the Software. -' -' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, -' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -' IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY -' CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, -' TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE -' SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -}} \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/sxtv.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/sxtv.spn deleted file mode 100644 index 43adc4e..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/sxtv.spn +++ /dev/null @@ -1,916 +0,0 @@ -''*************************************** -''* TV Driver v1.1 * -''* Author: Chip Gracey * -''* Copyright (c) 2004 Parallax, Inc. * -''* See end of file for terms of use. * -''*************************************** - -' v1.0 - 01 May 2006 - original version -' v1.1 - 17 May 2006 - pixel tile size can now be 16 x 32 to enable more efficient -' character displays utilizing the internal font - see 'tv_mode' -{ -2009 -May - 11 Moved blank line tasks into one-time initialization section. - Difficulty: one task was flipping the interlace bit of _mode, necessitating a reload of _mode - every superfield. Removed the flip and changed the sense of the Z tests that depended on _mode<1> - being flipped. - 12 Implemented simple scrolling terminal output in background task. - Difficulty: have to keep Z clear so that mainline interlaced code works properly. -June - 9 Added "D"isable and "E"nable commands. - 20 Changing ping response to include basepin. -} - -CON - - fntsc = 3_579_545 'NTSC color frequency - lntsc = 3640 'NTSC color cycles per line * 16 - sntsc = 624 'NTSC color cycles per sync * 16 - - fpal = 4_433_618 'PAL color frequency - lpal = 4540 'PAL color cycles per line * 16 - spal = 848 'PAL color cycles per sync * 16 - - paramcount = 14 -' colortable = $180 'start of colortable inside cog - - cols = 40 - rows = 13 - -VAR - long cog - long rendezvous - -PUB start(basepin, rv) | okay - -'' Start TV driver - starts a cog if necessary -'' returns true if it had to start a cog, false if cog was already running. -'' - _basepin := basepin - rendezvous := rv - long[rendezvous]~~ ' ping the sxtv cog (send -1) - waitcnt( clkfreq/10 + cnt ) - if long[rendezvous] <> -1 ' if the cog is alive it'll set this to _basepin<<8 - long[rendezvous]~ - return false - - _pins := (basepin & $38) << 1 | (basepin & 4 == 4) & %0101 - - if cog := cognew(@entry, rendezvous) + 1 - return true - else - abort string("Couldn't start sxtv cog") - -PUB stop - -'' Stop TV driver - frees a cog - - if cog - cogstop(cog~ - 1) - -PUB GetBasepin - repeat while long[rendezvous] - long[rendezvous]~~ ' ping the sxtv cog (send -1) - repeat while long[rendezvous] == -1 - return long[rendezvous]~ >> 8 - -PUB str(stringptr) - -'' Print a zero-terminated string - - repeat strsize(stringptr) - out(byte[stringptr++]) - - -PUB dec(value) | _i - -'' Print a decimal number - - if value < 0 - -value - out("-") - - _i := 1_000_000_000 - - repeat 10 - if value => _i - out(value / _i + "0") - value //= _i - result~~ - elseif result or _i == 1 - out("0") - _i /= 10 - - -PUB hex(value, digits) - -'' Print a hexadecimal number - - value <<= (8 - digits) << 2 - repeat digits - out(lookupz((value <-= 4) & $F : "0".."9", "A".."F")) - - -PUB bin(value, digits) - -'' Print a binary number - - value <<= 32 - digits - repeat digits - out((value <-= 1) & 1 + "0") - - -pub out( c ) - repeat while byte[rendezvous] - byte[rendezvous] := c - -DAT - -'******************************* -'* Assembly language TV driver * -'******************************* - - org -' -' -' Entry -' -entry - call #init - mov taskptr,#tasks 'reset tasks - -' -' -' Superfield -' -superfield - - test _mode,#%0001 wc 'if ntsc, set phaseflip - if_nc mov phaseflip,phasemask - - test _mode,#%0010 wz 'get interlace into nz -mov temp, #0 wz ''' I messed something up and now Z has to be set, not clear. -' -' -' Field -' -field mov x,vinv 'do invisible back porch lines -:black call #hsync 'do hsync - waitvid burst,sync_high2 'do black - jmpret taskret,taskptr 'call task section (z undisturbed) - djnz x,#:black 'another black line? - -' wrlong visible,par 'set status to visible - - mov x,vb 'do visible back porch lines - call #blank_lines - - - - - mov y,_vt 'set vertical tiles - movs :getchars4, #text '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< -:line - mov vx,_vx 'set vertical expand - mov t1,#32 - mov chset, chset0 -:vert - if_z xor interlace,#1 'interlace skip? - if_z tjz interlace,#:skip - - call #hsync 'do hsync - - mov vscl,hb 'do visible back porch pixels - xor tile,colortable - waitvid tile,#0 - - mov x,_ht 'set horizontal tiles - shr x, #2 'divide by 4 - - mov vscl,hx 'set horizontal expand - -:getchars4 mov chars4, 0-0 - mov t3, #4 -:loop4 - mov char, chars4 - ror chars4, #8 - and char, #$ff - shr char, #1 wc - shl char, #7 - add char, chset - rdlong pixels16, char -' xor colors4, phaseflip - if_nc waitvid colortable, pixels16 - if_c waitvid colortable+1, pixels16 - djnz t3, #:loop4 - add :getchars4, #1 - djnz x, #:getchars4 - - mov vscl,hf 'do visible front porch pixels - mov tile,colortable'phaseflip -' xor tile,colortable - waitvid tile,#0 - sub :getchars4, #10 - -:skip - add chset, #4 - djnz t1, #:vert - - add :getchars4, #10 - djnz y,#:line 'another tile line? - - if_z xor interlace,#1 wz 'get interlace and field1 into z - - test _mode,#%0001 wc 'do visible front porch lines - mov x,vf - if_nz_and_c add x,#1 - call #blank_lines - -' if_z wrlong invisible,par 'unless interlace and field1, set status to invisible - - if_z_eq_c call #hsync 'if required, do short line - if_z_eq_c mov vscl,hrest - if_z_eq_c waitvid burst,sync_high2 - if_z_eq_c xor phaseflip,phasemask - - call #vsync_high 'do high vsync pulses - - movs vsync1,#sync_low1 'do low vsync pulses - movs vsync2,#sync_low2 - call #vsync_low - - call #vsync_high 'do high vsync pulses - - if_nz mov vscl,hhalf 'if odd frame, do half line - if_nz waitvid burst,sync_high2 - - if_z jmp #field 'if interlace and field1, display field2 - jmp #superfield 'else, new superfield -' -' -' Blank lines -' -blank_lines call #hsync 'do hsync - - xor tile,colortable 'do background - waitvid tile,#0 - - djnz x,#blank_lines - -blank_lines_ret ret -' -' -' Horizontal sync -' -hsync test _mode,#%0001 wc 'if pal, toggle phaseflip -' if_c xor phaseflip,phasemask - - mov vscl,sync_scale1 'do hsync - mov tile,burst'phaseflip -' xor tile,burst - waitvid tile,sync_normal - - mov vscl,hvis 'setup in case blank line - mov tile,#0'phaseflip - -hsync_ret ret -' -' -' Vertical sync -' -vsync_high movs vsync1,#sync_high1 'vertical sync - movs vsync2,#sync_high2 - -vsync_low mov x,vrep - -vsyncx mov vscl,sync_scale1 -vsync1 waitvid burst,sync_high1 - - mov vscl,sync_scale2 -vsync2 waitvid burst,sync_high2 - - djnz x,#vsyncx -vsync_low_ret -vsync_high_ret ret -' -' -' Tasks - performed in sections during invisible back porch lines -' -tasks - -clearscreen - mov i, #14 ' clear 13 lines + 1 extra to make scrolling easier -:lines - mov j, #40/4 ' 40 columns, 4 chars at a time -:chars -:storem mov text, x20202020 - add :storem, d0 ' inc dst - djnz j, #:chars - jmpret taskptr,taskret - djnz i, #:lines - -waitforchar - mov temp, #0 ' clear buffer: ready to accept next byte - wrlong temp, par -waitnoclear -:wait - jmpret taskptr,taskret - - rdlong ch, par - tjz ch, #:wait - ' got a byte - - mov temp, cmdPing ' roundabout comparisons to avoid changing Z. - sub temp, ch ' ch = -1 is just a ping to see if this cog is alive. - tjz temp, #ping - mov temp, cmdDisable - sub temp, ch - tjz temp, #disable - mov temp, cmdEnable - sub temp, ch - tjz temp, #enable - neg temp, #256 ' at this point, if ch is > 255, it must be _basepin<<8 - and temp, ch ' as set by a previous ping, so we just ignore it - tjnz temp, #waitnoclear ' (leave the long pointed to by par undisturbed). - -:char - mov temp, #8 - sub temp, ch - tjz temp, #:bksp - mov temp, #13 - sub temp, ch - tjnz temp, #:printchar - call #cr - jmp #waitforchar - -:bksp - sub col, #1 ' warning: no error-checking - jmp #waitforchar - -:printchar - mov temp, #40 - sub temp, col - tjnz temp, #:nocr - call #cr -:nocr - mov temp, col - shr temp, #2 - add temp, #text+12*40/4 - movs :get4chars, temp - movd :put4chars, temp - - mov i, col - and i, #3 - shl i, #3 ' col&3 => 0, 8, 16, 24 -:get4chars mov temp, 0-0 - ror temp, i - andn temp, #$ff - or temp, ch - rol temp, i -:put4chars mov 0-0, temp - - add col, #1 - - - jmp #waitforchar - -cr - movs :move4chars, #text + 40 / 4 - movd :move4chars, #text - - mov i, #13 ' copy 13 lines up. Since we have an extra blank line at the bottom - ' (see clearscreen) the last visible line is automatically cleared. -:copyline - mov j, #40/4 -:move4chars mov 0-0, 0-0 - add :move4chars, d0s0 - djnz j, #:move4chars - jmpret taskptr,taskret - djnz i, #:copyline - - mov col, #0 - -cr_ret ret - - - -ping - mov temp, _basepin - shl temp, #8 - wrlong temp, par - jmp #waitnoclear - -enable - mov dira, saveDira - mov dirb, saveDirb - jmp #waitforchar -disable - mov dira, #0 - mov dirb, #0 - jmp #waitforchar - - -' -' -' Initialized data -' -x20202020 long $20202020 -chset0 long $8000 -m8 long 8_000_000 -m128 long 128_000_000 -d0 long 1 << 9 << 0 -d6 long 1 << 9 << 6 -d0s0 long 1 << 9 << 0 + 1 << 0 -d0s1 long 1 << 9 << 0 + 1 << 1 -interlace long 0 -invisible long 1 -visible long 2 -phaseflip long $00000000 -phasemask long $F0F0F0F0 -line long $00060000 -lineinc long $10000000 -linerot long 0 -pins0 long %11110000_01110000_00001111_00000111 -pins1 long %11111111_11110111_01111111_01110111 -sync_high1 long %0101010101010101010101_101010_0101 -sync_high2 long %01010101010101010101010101010101 'used for black -sync_low1 long %1010101010101010101010101010_0101 -sync_low2 long %01_101010101010101010101010101010 -colortable -' long $07_0a_07_0a ' white on blue -' long $07_07_0a_0a -' long $bc_02_bc_02 ' green on black -' long $bc_bc_02_02 -' long $05_02_05_02 ' white on black -' long $05_05_02_02 - long $02_05_02_05 ' black on white - long $02_02_05_05 -' long $8a_8c_8a_8c ' black on yellow -' long $8a_8a_8c_8c - - -' -' -' NTSC/PAL metrics tables -' ntsc pal -' ---------------------------------------------- -wtab word lntsc - sntsc, lpal - spal 'hvis - word lntsc / 2 - sntsc, lpal / 2 - spal 'hrest - word lntsc / 2, lpal / 2 'hhalf - word 243, 286 'vvis - word 10, 18 'vinv - word 6, 5 'vrep - word $02_8A, $02_AA 'burst -wtabx -ltab long fntsc 'fcolor - long fpal - long sntsc >> 4 << 12 + sntsc 'sync_scale1 - long spal >> 4 << 12 + spal - long 67 << 12 + lntsc / 2 - sntsc 'sync_scale2 - long 79 << 12 + lpal / 2 - spal - long %0101_00000000_01_10101010101010_0101 'sync_normal - long %010101_00000000_01_101010101010_0101 -ltabx - -cmdPing long -1 -cmdEnable long "E"<<8 -cmdDisable long "D"<<8 -_basepin long 0 -' -' -' Parameter buffer -' -_enable long 1 'enable -_pins long 0 'pins -_mode long %10010 'mode -_screen long 0 'screen -_colors long 0 'colors -_ht long cols 'hc -_vt long rows 'vc -_hx long 4 'hx -_vx long 1 'vx -_ho long 0 'ho -_vo long 0 'vo -_broadcast long 0 'broadcast -_auralcog long 0 'auralcog - - -' -' -' Uninitialized data -' -i long 0 -j long 0 -col long 0 -ch long 0 -temp long 0 - -char long 0 -chset long 0 -chars4 long 0 -pixels16 long 0 -taskptr long 0 'tasks -taskret long 0 -t1 long 0 -t2 long 0 -t3 long 0 -m1 long 0 -m2 long 0 - -x long 0 'display -y long 0 -hf long 0 -hb long 0 -vf long 0 -vb long 0 -hx long 0 -vx long 0 -hc2x long 0 -screen long 0 -tile long 0 -pixels long 0 -lineadd long 0 - -hvis long 0 'loaded from word table -hrest long 0 -hhalf long 0 -vvis long 0 -vinv long 0 -vrep long 0 -burst long 0 - -fcolor long 0 'loaded from long table -sync_scale1 long 0 -sync_scale2 long 0 -sync_normal long 0 - -saveDira long 0 -saveDirb long 0 - - -text ' Cog memory from this point on will be reclaimed as text buffer. - -init - mov t1,_pins 'set video pins and directions - test t1,#$08 wc - if_nc mov t2,pins0 - if_c mov t2,pins1 - test t1,#$40 wc - shr t1,#1 - shl t1,#3 - shr t2,t1 - movs vcfg,t2 - shr t1,#6 - movd vcfg,t1 - shl t1,#3 - and t2,#$FF - shl t2,t1 - if_nc mov dira,t2 - if_nc mov saveDira, t2 - if_nc mov dirb,#0 - if_nc mov saveDirb, #0 - if_c mov dira,#0 - if_c mov saveDira, #0 - if_c mov dirb,t2 '+18 - if_c mov saveDirb, t2 - - - - movs :rd,#wtab 'load ntsc/pal metrics from word table - movd :wr,#hvis - mov t1,#wtabx - wtab - test _mode,#%0001 wc -:rd mov t2,0 - add :rd,#1 - if_nc shl t2,#16 - shr t2,#16 -:wr mov 0,t2 - add :wr,d0 - djnz t1,#:rd '+54 - - if_nc movs :ltab,#ltab 'load ntsc/pal metrics from long table - if_c movs :ltab,#ltab+1 - movd :ltab,#fcolor - mov t1,#(ltabx - ltab) >> 1 -:ltab mov 0,0 - add :ltab,d0s1 - djnz t1,#:ltab '+17 - - rdlong t1,#0 'get CLKFREQ - shr t1,#1 'if CLKFREQ < 16MHz, cancel _broadcast - cmp t1,m8 wc - if_c mov _broadcast,#0 - shr t1,#1 'if CLKFREQ < color frequency * 4, disable -' cmp t1,fcolor wc -' if_c jmp #disabled '+11 - - - mov t1,fcolor 'set ctra pll to fcolor * 16 - call #divide 'if ntsc, set vco to fcolor * 32 (114.5454 MHz) - test _mode,#%0001 wc 'if pal, set vco to fcolor * 16 (70.9379 MHz) - if_c movi ctra,#%00001_111 'select fcolor * 16 output (ntsc=/2, pal=/1) - if_nc movi ctra,#%00001_110 - if_nc shl t2,#1 - mov frqa,t2 '+147 - - mov t1,_broadcast 'set ctrb pll to _broadcast - mov t2,#0 'if 0, turn off ctrb - tjz t1,#:off - min t1,m8 'limit from 8MHz to 128MHz - max t1,m128 - mov t2,#%00001_100 'adjust _broadcast to be within 4MHz-8MHz -:scale shr t1,#1 '(vco will be within 64MHz-128MHz) - cmp m8,t1 wc - if_c add t2,#%00000_001 - if_c jmp #:scale -:off movi ctrb,t2 - call #divide - mov frqb,t2 '+165 - - mov t1,#%10100_000 'set video configuration - test _pins,#$01 wc '(swap broadcast/baseband output bits?) - if_c or t1,#%01000_000 - test _mode,#%1000 wc '(strip chroma from broadcast?) - if_nc or t1,#%00010_000 - test _mode,#%0100 wc '(strip chroma from baseband?) - if_nc or t1,#%00001_000 - and _auralcog,#%111 '(set aural cog) - or t1,_auralcog - movi vcfg,t1 '+10 - - mov hx,_hx 'compute horizontal metrics - shl hx,#8 - or hx,_hx - shl hx,#4 - - mov hc2x,_ht - shl hc2x,#1 - - mov t1,_ht - mov t2,_hx - call #multiply - mov hf,hvis - sub hf,t1 - shr hf,#1 wc - mov hb,_ho - addx hb,hf - sub hf,_ho '+52 - - mov t1,_vt 'compute vertical metrics - mov t2,_vx - call #multiply - test _mode,#%10000 wc 'consider tile size - muxc linerot,#1 - mov lineadd,lineinc - if_c shr lineadd,#1 - if_c shl t1,#1 - test _mode,#%0010 wc 'consider interlace - if_c shr t1,#1 - mov vf,vvis - sub vf,t1 - shr vf,#1 wc - neg vb,_vo - addx vb,vf - add vf,_vo '+53 - - -init_ret ret - -' -' -' Divide t1/CLKFREQ to get frqa or frqb value into t2 -' -divide rdlong m1,#0 'get CLKFREQ - - mov m2,#32+1 -:loop cmpsub t1,m1 wc - rcl t2,#1 - shl t1,#1 - djnz m2,#:loop - -divide_ret ret '+140 -' -' -' Multiply t1 * t2 * 16 (t1, t2 = bytes) -' -multiply shl t2,#8+4-1 - - mov m1,#8 -:loop shr t1,#1 wc - if_c add t1,t2 - djnz m1,#:loop - -multiply_ret ret '+37 - - -'' -''___ -''VAR 'TV parameters - 14 contiguous longs -'' -'' long tv_status '0/1/2 = off/invisible/visible read-only -'' long tv_enable '0/non-0 = off/on write-only -'' long tv_pins '%pppmmmm = pin group, pin group mode write-only -'' long tv_mode '%tccip = tile,chroma,interlace,ntsc/pal write-only -'' long tv_screen 'pointer to screen (words) write-only -'' long tv_colors 'pointer to colors (longs) write-only -'' long tv_ht 'horizontal tiles write-only -'' long tv_vt 'vertical tiles write-only -'' long tv_hx 'horizontal tile expansion write-only -'' long tv_vx 'vertical tile expansion write-only -'' long tv_ho 'horizontal offset write-only -'' long tv_vo 'vertical offset write-only -'' long tv_broadcast 'broadcast frequency (Hz) write-only -'' long tv_auralcog 'aural fm cog write-only -'' -''The preceding VAR section may be copied into your code. -''After setting variables, do start(@tv_status) to start driver. -'' -''All parameters are reloaded each superframe, allowing you to make live -''changes. To minimize flicker, correlate changes with tv_status. -'' -''Experimentation may be required to optimize some parameters. -'' -''Parameter descriptions: -'' _________ -'' tv_status -'' -'' driver sets this to indicate status: -'' 0: driver disabled (tv_enable = 0 or CLKFREQ < requirement) -'' 1: currently outputting invisible sync data -'' 2: currently outputting visible screen data -'' _________ -'' tv_enable -'' -'' 0: disable (pins will be driven low, reduces power) -'' non-0: enable -'' _______ -'' tv_pins -'' -'' bits 6..4 select pin group: -'' %000: pins 7..0 -'' %001: pins 15..8 -'' %010: pins 23..16 -'' %011: pins 31..24 -'' %100: pins 39..32 -'' %101: pins 47..40 -'' %110: pins 55..48 -'' %111: pins 63..56 -'' -'' bits 3..0 select pin group mode: -'' %0000: %0000_0111 - baseband -'' %0001: %0000_0111 - broadcast -'' %0010: %0000_1111 - baseband + chroma -'' %0011: %0000_1111 - broadcast + aural -'' %0100: %0111_0000 broadcast - -'' %0101: %0111_0000 baseband - -'' %0110: %1111_0000 broadcast + aural - -'' %0111: %1111_0000 baseband + chroma - -'' %1000: %0111_0111 broadcast baseband -'' %1001: %0111_0111 baseband broadcast -'' %1010: %0111_1111 broadcast baseband + chroma -'' %1011: %0111_1111 baseband broadcast + aural -'' %1100: %1111_0111 broadcast + aural baseband -'' %1101: %1111_0111 baseband + chroma broadcast -'' %1110: %1111_1111 broadcast + aural baseband + chroma -'' %1111: %1111_1111 baseband + chroma broadcast + aural -'' ----------------------------------------------------------- -'' active pins top nibble bottom nibble -'' -'' the baseband signal nibble is arranged as: -'' bit 3: chroma signal for s-video (attach via 560-ohm resistor) -'' bits 2..0: baseband video (sum 270/560/1100-ohm resistors to form 75-ohm 1V signal) -'' -'' the broadcast signal nibble is arranged as: -'' bit 3: aural subcarrier (sum 560-ohm resistor into network below) -'' bits 2..0: visual carrier (sum 270/560/1100-ohm resistors to form 75-ohm 1V signal) -'' _______ -'' tv_mode -'' -'' bit 4 selects between 16x16 and 16x32 pixel tiles: -'' 0: 16x16 pixel tiles (tileheight = 16) -'' 1: 16x32 pixel tiles (tileheight = 32) -'' -'' bit 3 controls chroma mixing into broadcast: -'' 0: mix chroma into broadcast (color) -'' 1: strip chroma from broadcast (black/white) -'' -'' bit 2 controls chroma mixing into baseband: -'' 0: mix chroma into baseband (composite color) -'' 1: strip chroma from baseband (black/white or s-video) -'' -'' bit 1 controls interlace: -'' 0: progressive scan (243 display lines for NTSC, 286 for PAL) -'' less flicker, good for motion -'' 1: interlaced scan (486 display lines for NTSC, 572 for PAL) -'' doubles the vertical display lines, good for text -'' -'' bit 0 selects NTSC or PAL format -'' 0: NTSC -'' 3016 horizontal display ticks -'' 243 or 486 (interlaced) vertical display lines -'' CLKFREQ must be at least 14_318_180 (4 * 3_579_545 Hz)* -'' 1: PAL -'' 3692 horizontal display ticks -'' 286 or 572 (interlaced) vertical display lines -'' CLKFREQ must be at least 17_734_472 (4 * 4_433_618 Hz)* -'' -'' * driver will disable itself while CLKFREQ is below requirement -'' _________ -'' tv_screen -'' -'' pointer to words which define screen contents (left-to-right, top-to-bottom) -'' number of words must be tv_ht * tv_vt -'' each word has two bitfields: a 6-bit colorset ptr and a 10-bit pixelgroup ptr -'' bits 15..10: select the colorset* for the associated pixel tile -'' bits 9..0: select the pixelgroup** address %ppppppppppcccc00 (p=address, c=0..15) -'' -'' * colorsets are longs which each define four 8-bit colors -'' -'' ** pixelgroups are longs which define (left-to-right, top-to-bottom) the 2-bit -'' (four color) pixels that make up a 16x16 or a 32x32 pixel tile -'' _________ -'' tv_colors -'' -'' pointer to longs which define colorsets -'' number of longs must be 1..64 -'' each long has four 8-bit fields which define colors for 2-bit (four color) pixels -'' first long's bottom color is also used as the screen background color -'' 8-bit color fields are as follows: -'' bits 7..4: chroma data (0..15 = blue..green..red..)* -'' bit 3: controls chroma modulation (0=off, 1=on) -'' bits 2..0: 3-bit luminance level: -'' values 0..1: reserved for sync - don't use -'' values 2..7: valid luminance range, modulation adds/subtracts 1 (beware of 7) -'' value 0 may be modulated to produce a saturated color toggling between levels 1 and 7 -'' -'' * because of TV's limitations, it doesn't look good when chroma changes abruptly - -'' rather, use luminance - change chroma only against a black or white background for -'' best appearance -'' _____ -'' tv_ht -'' -'' horizontal number pixel tiles - must be at least 1 -'' practical limit is 40 for NTSC, 50 for PAL -'' _____ -'' tv_vt -'' -'' vertical number of pixel tiles - must be at least 1 -'' practical limit is 13 for NTSC, 15 for PAL (26/30 max for interlaced NTSC/PAL) -'' _____ -'' tv_hx -'' -'' horizontal tile expansion factor - must be at least 3 for NTSC, 4 for PAL -'' -'' make sure 16 * tv_ht * tv_hx + ||tv_ho + 32 is less than the horizontal display ticks -'' _____ -'' tv_vx -'' -'' vertical tile expansion factor - must be at least 1 -'' -'' make sure * tv_vt * tv_vx + ||tv_vo + 1 is less than the display lines -'' _____ -'' tv_ho -'' -'' horizontal offset in ticks - pos/neg value (0 for centered image) -'' shifts the display right/left -'' _____ -'' tv_vo -'' -'' vertical offset in lines - pos/neg value (0 for centered image) -'' shifts the display up/down -'' ____________ -'' tv_broadcast -'' -'' broadcast frequency expressed in Hz (ie channel 2 is 55_250_000) -'' if 0, modulator is turned off - saves power -'' -'' broadcasting requires CLKFREQ to be at least 16_000_000 -'' while CLKFREQ is below 16_000_000, modulator will be turned off -'' ___________ -'' tv_auralcog -'' -'' selects cog to supply aural fm signal - 0..7 -'' uses ctra pll output from selected cog -'' -'' in NTSC, the offset frequency must be 4.5MHz and the max bandwidth +-25KHz -'' in PAL, the offset frequency and max bandwidth vary by PAL type - -{{ - -+------------------------------------------------------------------------------------------------------------------------------+ -¦ TERMS OF USE: MIT License ¦ -+------------------------------------------------------------------------------------------------------------------------------¦ -¦Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation ¦ -¦files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, ¦ -¦modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software¦ -¦is furnished to do so, subject to the following conditions: ¦ -¦ ¦ -¦The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.¦ -¦ ¦ -¦THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE ¦ -¦WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR ¦ -¦COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ¦ -¦ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ¦ -+------------------------------------------------------------------------------------------------------------------------------+ -}} \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/symbols.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/symbols.spn deleted file mode 100644 index c2ac225..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/symbols.spn +++ /dev/null @@ -1,83 +0,0 @@ -obj - bt: "bintree" -dat -pSymbolTable word 0 - -pub Init - - FixupTable( @table + 2 ) - pSymbolTable := @table - bt.PokeW( pSymbolTable, @table + 2 ) - -pri FixupTable( p ) | q - q := bt.PeekW( p ) - if q - bt.PokeW( p, q += @table ) - FixupTable( q ) - q := bt.PeekW( p + 2 ) - if q - bt.PokeW( p + 2, q += @table ) - FixupTable( q ) - -pub SymbolLookup( s ) - return bt.FindInTable( s, bt.PeekW(pSymbolTable) ) - -pub AddToTable( s ) - bt.AddToTable( s, pSymbolTable ) - -pub GetPSymbolTable - return pSymbolTable - -con #0 -' In the symbol table, the symbol's name (null-terminated) is followed by one of the following type bytes -' which is in turn followed by additional data: -{0} kINT_CON_SYMBOL ' followed by 4-byte constant -{1} kFLOAT_CON_SYMBOL ' followed by 4-byte constant -{2} kPUB_SYMBOL ' followed by 1-byte method index, 1-byte #params -{3} kPRI_SYMBOL ' followed by 1-byte method index, 1-byte #params -{4} kOBJ_SYMBOL ' followed by 2-byte pointer to child object's symbol table, 1-byte index, 2-byte count, - ' 2-byte pointer to next OBJ in linked list -{5} kVAR_SYMBOL ' followed by 1-byte size (1, 2, 4), 2-byte var offset -{6} kDAT_SYMBOL ' followed by 1-byte size (1, 2, 4), 2-byte dat offset, 2-byte cog address * 4, 2-byte pointer to local labels -{7} kSOB_SYMBOL ' followed by 2-byte pointer to SOB's symbol table -{8} kUNDEFINED_CON_SYMBOL ' followed by 4-byte constant to be determined -{9} kBUILTIN_INT_SYMBOL ' followed by 4-byte constant -{10}kBUILTIN_FLOAT_SYMBOL ' followed by 4-byte constant - -dat -table word 0 - byte $10,$00,$85,$00,$50,$4f,$53,$58,$00,$09,$ff,$ff,$ff,$7f,$1f,$00 - byte $58,$00,$50,$4c,$4c,$31,$58,$00,$09,$40,$00,$00,$00,$2b,$00,$48 - byte $00,$50,$49,$00,$0a,$db,$0f,$49,$40,$39,$00,$00,$00,$4e,$45,$47 - byte $58,$00,$09,$00,$00,$00,$80,$00,$00,$00,$00,$46,$41,$4c,$53,$45 - byte $00,$09,$00,$00,$00,$00,$00,$00,$00,$00,$50,$4c,$4c,$31,$36,$58 - byte $00,$09,$00,$04,$00,$00,$67,$00,$76,$00,$50,$4c,$4c,$34,$58,$00 - byte $09,$00,$01,$00,$00,$00,$00,$00,$00,$50,$4c,$4c,$32,$58,$00,$09 - byte $80,$00,$00,$00,$00,$00,$00,$00,$50,$4c,$4c,$38,$58,$00,$09,$00 - byte $02,$00,$00,$95,$00,$c3,$00,$58,$49,$4e,$50,$55,$54,$00,$09,$04 - byte $00,$00,$00,$a5,$00,$b5,$00,$52,$43,$53,$4c,$4f,$57,$00,$09,$02 - byte $00,$00,$00,$00,$00,$00,$00,$52,$43,$46,$41,$53,$54,$00,$09,$01 - byte $00,$00,$00,$00,$00,$00,$00,$54,$52,$55,$45,$00,$09,$ff,$ff,$ff - byte $ff,$d2,$00,$e1,$00,$58,$54,$41,$4c,$32,$00,$09,$10,$00,$00,$00 - byte $00,$00,$00,$00,$58,$54,$41,$4c,$31,$00,$09,$08,$00,$00,$00,$00 - byte $00,$00,$00,$58,$54,$41,$4c,$33,$00,$09,$20,$00,$00,$00 - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/tokenizr.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/tokenizr.spn deleted file mode 100644 index 652b6da..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/tokenizr.spn +++ /dev/null @@ -1,430 +0,0 @@ -' 2009-05-02 Modified to detect when inside DAT, handle : specially (for local labels) - -con - _clkmode = xtal1 + pll8x - _xinfreq = 10_000_000 - _stack = 1000 -obj - f: "sxfile" - floatString: "FltStr" - kw: "keywords" - bt: "bintree" - -pub Open( pFilename ) - - if f.Open( pFilename, "R") <> 0 - abort string("can't open file") - - InitReadLine - - insideDAT~ - - Advance ' prime the pump - -pub Close - f.Close - -{ - bytes~ - InitReadLine - GetNextToken ' prime the pump - - t := cnt - repeat - case tokenType - EOL_TOKEN: - term.str( @tokenText ) - EOF_TOKEN: - quit - ID_TOKEN: - term.str( @tokenText ) - OP_TOKEN: - INT_TOKEN: - term.out( "#" ) - term.dec( tokenValue ) - FLOAT_TOKEN: - term.out( "F" ) - term.str( floatString.FloatToString( tokenValue ) ) - term.out( "\" ) - GetNextToken - term.out( 13 ) -'} -{ repeat while SkipWhitespace - term.dec( lineNo ) - term.out( "," ) - term.dec( cp+1 ) - term.out( ":" ) - if cp == lineLength - term.str( string("(eol)")) - else - term.out( lineBuffer[cp++] ) - term.out( 13 ) -'} -{ - repeat - r := sdfat.pread( @buf, BUFFERSIZE ) - if r < 0 - quit - bytes += r -'} -{ - repeat 100 - r := sdfat.pgetc - if r < 0 - quit - ++bytes - term.dec(r) - term.out( "," ) -'} - -con - MAXTOKENLENGTH = 32 - BUFFERSIZE = 200 - -var - byte tokenText[MAXTOKENLENGTH+1] - long tokenType - word tokenLineNumber - word tokenCol - long tokenValue - byte insideDAT - -pub GetPText - return @tokenText - -pub Type - return tokenType - -pub Column - return tokenCol - -pub LineNumber - return tokenLineNumber - -pub Value - return tokenValue - -pub Advance | i, radix, fp, x, hack - if inStringLiteral - if comma - comma~ - ifnot tokenValue - abort string("Unterminated string") - if lineBuffer[cp] <> $22 ' double-quote - tokenType := kw#kCOMMA - return - ++cp - inStringLiteral~ - else - comma~~ - tokenType := kw#kINTLITERAL - tokenValue := lineBuffer[cp++] - return - - if SkipWhitespace - if cp == lineLength - tokenType := kw#kEOL - bytemove( @tokenText, string("(EOL)"), 6 ) - tokenLineNumber := lineNo - tokenCol := cp - elseif lineBuffer[cp] == $22 ' double-quote - tokenLineNumber := LineNo - tokenCol := cp - ++cp - if LineBuffer[cp] == $22 - abort string("Empty string") - comma~ - inStringLiteral~~ - Advance - elseif lineBuffer[cp] == "%" or lineBuffer[cp] == "$" - tokenType := kw#kINTLITERAL - tokenLineNumber := lineNo - tokenCol := cp - if lineBuffer[cp] == "%" - if lineBuffer[cp+1] == "%" - radix := 4 - ++cp - else - radix := 2 - else - radix := 16 - ++cp - ifnot IsDigit( lineBuffer[cp], radix, false ) - abort string("Bad character in number") - tokenValue~ - repeat while IsDigit( lineBuffer[cp], radix, true ) - if lineBuffer[cp] <> "_" - tokenValue := tokenValue * radix + DigitValue( linebuffer[cp] ) - ++cp - elseif IsDigit( lineBuffer[cp], 10, false ) - tokenLineNumber := lineNo - tokenCol := cp - i~ - fp~ {0 => integer - 1 => have seen . - 2 => have seen e or E - 3 => have seen + or - } - repeat while IsDigit( lineBuffer[cp], 10, true ) { -} or ( fp < 1 and lineBuffer[cp] == "." and lineBuffer[cp+1] <> "." ) { -} or ( fp < 2 and (lineBuffer[cp] == "e" or lineBuffer[cp] == "E") ) { -} or ( (fp == 1 or fp == 2) and (lineBuffer[cp] == "+" or lineBuffer[cp] == "-") ) - if lineBuffer[cp] == "." - fp := 1 - if lineBuffer[cp] == "e" or lineBuffer[cp] == "E" - fp := 2 - if lineBuffer[cp] == "+" or lineBuffer[cp] == "-" - fp := 3 - if lineBuffer[cp] <> "_" - if i => MAXTOKENLENGTH - abort string("Token too long") - tokenText[i++] := lineBuffer[cp] - ++cp - tokenText[i]~ - if fp - tokenType := kw#kFLOATLITERAL - tokenValue := floatString.StringToFloat( @tokenText ) - else - tokenType := kw#kINTLITERAL - tokenValue~ - i~ - repeat while tokenText[i] - tokenValue := tokenValue * 10 + DigitValue( tokenText[i++] ) - elseif IsAlpha( lineBuffer[cp] ) - i~ - tokenLineNumber := lineNo - tokenCol := cp - repeat while IsAlpha( lineBuffer[cp] ) or IsDigit( lineBuffer[cp], 10, true ) - if i => MAXTOKENLENGTH - abort string("Token too long") - tokenText[i++] := ToUpper( lineBuffer[cp++] ) - tokenText[i]~ - x := kw.KeywordLookup( @tokenText ) - if x - tokenType := bt.PeekL( x ) - if kw#kCON =< tokenType and tokenType =< kw#kVAR and tokenCol == 0 - insideDAT := tokenType == kw#kDAT - else - tokenType := kw#kID - else ' non-alphanumeric - tokenLineNumber := lineNo - tokenCol := cp - i~ - if lineBuffer[cp] < $20 or lineBuffer[cp] => $80 - abort string("Illegal character (UNICODE?)") - - if insideDat and lineBuffer[cp] == ":" and IsAlpha( lineBuffer[cp+1] ) - tokenText[i++] := lineBuffer[cp++] - repeat while IsAlpha( lineBuffer[cp] ) or IsDigit( lineBuffer[cp], 10, true ) - if i => MAXTOKENLENGTH - abort string("Token too long") - tokenText[i++] := ToUpper( lineBuffer[cp++] ) - tokenText[i]~ - tokenType := kw#kID - else - repeat - if cp < lineLength - tokenText[i++] := lineBuffer[cp++] - else - tokenText[i++] := " " - ++cp - tokenText[i]~ - while x := kw.KeywordLookup( @tokenText ) - if i > 1 - tokenText[--i]~ ' shorten token by 1 - --cp - tokenType := bt.PeekL( kw.KeywordLookup( @tokenText ) ) - else - tokenType := kw#kUNKNOWN - - if IsBinary ' This next block is a total hack to see if a binary op - hack := blankLine ' hack is followed by "=" making it an assignment op - SkipWhitespace ' It parses "and ==" as "(and=) =" instead of "(and)(==)" - if lineBuffer[cp] == "=" ' PropTool does the latter. So this is wrong, but hopefully - tokenText[i++] := lineBuffer[cp++] ' not *too* wrong. - tokenText[i]~ - tokenType |= kw#kASSIGNMENT - else - blankLine := hack ' restore (this hack is necessary to reset the eol condition trigger in SkipWhitespace) - else - tokenType := kw#kEOF - bytemove( @tokenText, string("(EOF)"), 6 ) - tokenLineNumber := lineNo - tokenCol := cp - -pri ToUpper( ch ) - if "a" =< ch and ch =< "z" - ch += constant( "A" - "a" ) - return ch - -pri IsAlpha( ch ) - return "a" =< ch and ch =< "z" or "A" =< ch and ch =< "Z" or ch == "_" - -pri IsDigit( ch, radix, u ) | upper -{{ - Returns non-zero if ch is an acceptable digit given radix (2, 4, 10, or 16), false otherwise. - Pass u = true if the underscore ("_") is an acceptable value for ch. -}} - if ch == "_" - return u - upper := constant("0"-1) + radix - if radix =< 10 - return "0" =< ch and ch =< upper - ' else radix == 16 - return "0" =< ch and ch =< "9" or "a" =< ch and ch =< "f" or "A" =< ch and ch =< "F" - -pri DigitValue( ch ) - if ch =< "9" - return ch - "0" - if ch =< "F" - return ch + constant( 10 - "A" ) - if ch =< "f" - return ch + constant( 10 - "a" ) - -pub IsBinary -{{ - Returns non-zero (not necessarily -1) if token is a binary operator. - Returns 0 otherwise. -}} - return ( tokenType & constant(kw#kUNARY|kw#kBINARY) ) == kw#kBINARY - -var - byte lineBuffer[BUFFERSIZE] - byte lineLength - byte lineRemainder - byte eolLength - word lineNo - byte cp - byte blankLine - byte inStringLiteral ' indicates we are splitting up a string literal - byte comma ' flag for returning commas when splitting up a string literal - -pri SkipWhitespace -'' Returns true on success, false on failure (eof). -'' lineBuffer[cp] is the next non-whitespace character -'' (comments count as whitespace). - repeat - repeat while cp => lineLength - ifnot blankLine - blankLine~~ - return true - ifnot ReadLine - return false - if lineBuffer[cp] == 9 - abort string("Illegal TAB character") - if lineBuffer[cp] == "'" ' quote comment? - cp := lineLength ' skip to end of line - elseif lineBuffer[cp] == "}" - abort string("Unexpected '}'") - elseif lineBuffer[cp] == "{" - SkipComment - elseif lineBuffer[cp] == " " - ++cp - else ' non-blank character - blankLine~ - return true - -pri SkipComment | depth - if cp+1 < lineLength and lineBuffer[cp+1] == "{" - ++cp - repeat - repeat while cp => lineLength - ifnot ReadLine - abort string("Unterminated comment") - if cp+1 < lineLength and lineBuffer[cp] == "}" and lineBuffer[cp+1] == "}" - cp += 2 - return - ++cp - else - ++cp - depth := 1 - repeat - repeat while cp => lineLength - ifnot ReadLine - abort string("Unterminated comment") - if lineBuffer[cp] == "{" - ++cp - ++depth - elseif lineBuffer[cp] == "}" - ++cp - ifnot --depth - return - else - ++cp - -pri InitReadLine - lineLength~ - lineRemainder~ - eolLength~ - lineNo~ - cp~ - blankLine~~ - inStringLiteral~ -{ - |<--------------- BUFFERSIZE --------------->| - +--------------------------------------------+ - | | | | | - +--------------------------------------------+ - |<-lineLength ->| | | - eolLength ->| |<- | - |<- lineRemainder ->| -} -pri ReadLine | bytes, i -'' Reads a line into lineBuff. Returns true on success, false on failure (eof) -'' The line in lineBuff is terminated with a null byte. Calling programs should -'' not modify any memory in lineBuff after the null (the "remainder" section in -'' the diagram above) because that's the following line(s). - -' First, move remainder up to start of buffer - bytemove( @lineBuffer, @lineBuffer[lineLength+eolLength], lineRemainder ) -' Fill the rest of the buffer with new data - bytes := f.Read( @lineBuffer[lineRemainder], BUFFERSIZE-lineRemainder ) - ' pread returns #bytes read, but after eof it returns negative numbers - if bytes > 0 - lineRemainder += bytes - - ifnot lineRemainder - ++lineNo - cp~ - return false - - repeat i from 0 to (lineRemainder-2) #> 0 - if lineBuffer[i] == 13 or lineBuffer[i] == 10 - eolLength := 1 ' cr or lf - if lineBuffer[i] == 13 and lineBuffer[i+1] == 10 - ++eolLength ' cr+lf - lineBuffer[i]~ ' set terminating null - lineLength := i - lineRemainder -= lineLength + eolLength - ++lineNo ' first line of file is line 1 - cp~ - return true - - if lineRemainder < BUFFERSIZE - lineLength := lineRemainder~ - lineBuffer[lineLength]~ - ++lineNo - cp~ - return true - - abort string("Input line too long") - - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}} - \ No newline at end of file diff --git a/zubehör/sphinx/spinx100225-ori/sphinx2/tokenrdr.spn b/zubehör/sphinx/spinx100225-ori/sphinx2/tokenrdr.spn deleted file mode 100644 index 9788e26..0000000 --- a/zubehör/sphinx/spinx100225-ori/sphinx2/tokenrdr.spn +++ /dev/null @@ -1,272 +0,0 @@ -obj - sxfs: "isxfs" - kw: "kwdefs" - bt: "bintree" - -dat - long -filestuff byte 0[sxfs#SIZEOFFILESTUFF] - -pub Open( pFilename ) - - if \sxfs.Open( @filestuff, pFilename, "R" ) <> 0 - abort string("can't open file") - - Advance ' prime the pump - -pub Close - sxfs.Close( @filestuff ) - -con - MAXTOKENLENGTH = 32 - -dat -tokenType long 0 -tokenValue long 0 -tokenLineNumber word 0 -tokenCol word 0 -tokenText byte 0[MAXTOKENLENGTH+1] - -pub Text - return @tokenText - -pub Type - return tokenType - -pub Column - return tokenCol - -pub LineNumber - return tokenLineNumber - -pub Value - return tokenValue - -pub AdvanceIf( t ) -{{ - If current token's type is t, advance and return true; - otherwise return false without advancing. - t should be one of the specific token types, not a generic type like kCOND. -}} - if tokenType <> t - return false - Advance - return true - -pub Eat( t ) -{{ - Like Advance, but asserts that the soon-to-be-previous token's type is t. - t should be one of the specific token types, not a generic type like kCOND. -}} - if tokenType <> t - abort string("Syntax error (unexpected)") - Advance - -pub Advance - tokenType := ReadLong - tokenLineNumber := ReadWord - tokenCol := ReadWord - if tokenType == kw#kINTLITERAL or tokenType == kw#kFLOATLITERAL - sxfs.Read( @filestuff, @tokenValue, 4 ) - else - ReadString( @tokenText, MAXTOKENLENGTH ) - -pub IsId -{{ - Returns non-zero (not necessarily -1) if token is a plain old identifier. - Returns 0 otherwise. -}} - return tokenType & kw#kID - -pub IsIntLiteral -{{ - Returns non-zero (not necessarily -1) if token is an int literal. - Returns 0 otherwise. -}} - return tokenType & kw#kINTLITERAL - -pub IsFloatLiteral -{{ - Returns non-zero (not necessarily -1) if token is an float literal. - Returns 0 otherwise. -}} - return tokenType & kw#kFLOATLITERAL - -pub IsUnaryOp -{{ - Returns non-zero (not necessarily -1) if token is a unary operator. - Returns 0 otherwise. -}} - return tokenType & kw#kUNARY - -pub IsBinaryOp -{{ - Returns non-zero (not necessarily -1) if token is a binary operator. - Returns 0 otherwise. -}} - return ( tokenType & constant(kw#kUNARY|kw#kBINARY) ) == kw#kBINARY - -pub IsPostfixOp -{{ - Returns non-zero (not necessarily -1) if token is a postfix operator. - Returns 0 otherwise. -}} - return ( tokenType & constant(kw#kUNARY|kw#kPOSTFIX) ) == constant(kw#kUNARY|kw#kPOSTFIX) - -pub IsAssignmentOp -{{ - Returns non-zero (not necessarily -1) if token is an assignment operator. - Returns 0 otherwise. -}} - return tokenType & kw#kASSIGNMENT - -pub GetPrecedence -{{ - If token is an operator, returns its precedence. - If token isn't, returns 13. -}} - if tokenType & constant( kw#kBINARY | kw#kUNARY ) - return (tokenType >> 16) & $0f - else - return 13 - -pub GetSpinOpcode -{{ - If token is an operator or a statement function, returns its Spin opcode. - If token isn't, returns nonsense. -}} - return tokenType & $ff - -pub GetSpinOpcode2 -{{ - If token is a postfix operator, returns its alternate Spin opcode. - If token isn't, returns nonsense. -}} - return (tokenType >> 8) & $ff - -pub IsPasm -{{ - Returns non-zero (not necessarily -1) if token is a PASM mnemonic. - Returns 0 otherwise. -}} - return tokenType & kw#kPASM - -pub GetPasmOp -{{ - If token is a PASM mnemonic, return its PASM opcode. -}} - return tokenType << 16 - -pub GetPasmDS -{{ - If token is a PASM mnemonic, return its DS information. -}} - return (tokenType >> 16) & 3 - -pub IsCond -{{ - Returns non-zero (not necessarily -1) if token is a PASM condition code (e.g., IF_A). - Returns 0 otherwise. -}} - return tokenType & kw#kCOND - -pub GetCond -{{ - Returns condition bits if token is a PASM condition code. -}} - return tokenType & $0f - -pub IsEffect -{{ - Returns non-zero (not necessarily -1) if token is a PASM effect (e.g., WC). - Returns 0 otherwise. -}} - return tokenType & kw#kEFFECT - -pub GetEffect -{{ - Returns effect bits if token is a PASM effect. -}} - return tokenType & $0f - -pub IsReg -{{ - Returns non-zero (not necessarily -1) if token is a special register (e.g., PHSA). - Returns 0 otherwise. -}} - return kw#kPAR =< tokenType and tokenType =< kw#kVSCL - -pub GetReg -{{ - Returns register# if token is a special register. -}} - return tokenType - kw#kPAR - -pub IsBlockDesignator -{{ - Returns true if token is a block designator (e.g., DAT). -}} - return kw#kCON =< tokenType and tokenType =< kw#kVAR - -pub IsSize -{{ - Returns true if token is BYTE, WORD, or LONG. -}} - return kw#kBYTE =< tokenType and tokenType =< kw#kLONG - -pub IsStmtFn -{{ - Returns non-zero (not necessarily -1) if token is a "statement function" (e.g. BYTEMOVE, WAITCNT). - Returns 0 otherwise. -}} - return tokenType & kw#kSTMTFN - -pub GetNumArgs -{{ - Returns #args if token is a "statement function". -}} - return (tokenType >> 8) & 3 - -pub IsIntrinsic -{{ - Returns non-zero (not necessarily -1) if token is an intrinsic (e.g., COGNEW, LOOKUP). - Returns 0 otherwise. -}} - return tokenType & kw#kINTRINSIC - -pri ReadString( p, MAXLENGTH ) | ch - repeat MAXLENGTH + 1 - ch := ReadByte - if "a" =< ch and ch =< "z" - ch -= constant("a" - "A") - ifnot byte[p++] := ch - return - abort string("ReadString: string too long") - -pri ReadByte : ch - sxfs.Read( @filestuff, @ch, 1 ) - -pri ReadWord - return ReadByte + (ReadByte << 8) - -pri ReadLong - return ReadByte + (ReadByte << 8) + (ReadByte << 16) + (ReadByte << 24) - -{{ -Copyright (c) 2009 Michael Park -+------------------------------------------------------------------------------------------------------------------------------+ -| TERMS OF USE: MIT License | -+------------------------------------------------------------------------------------------------------------------------------+ -|Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation | -|files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, | -|modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software| -|is furnished to do so, subject to the following conditions: | -| | -|The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.| -| | -|THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE | -|WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR | -|COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, | -|ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | -+------------------------------------------------------------------------------------------------------------------------------+ -}}