Add sources and tokenized PRGs for binloader and frontpanel.
Chris Pressey
6 years ago
| 7 | 7 | blog (you might want to go to its [archive](http://bootstrap-zero.tumblr.com/archive) |
| 8 | 8 | and read the posts in chronological order.) |
| 9 | 9 | |
| 10 | This repository will contain supporting tools (e.g. the front-panel simulator) | |
| 11 | and maybe, at some point, binary memory images, and text files containing | |
| 12 | disassembled machine code that was entered. | |
| 10 | This repository contains the supporting tools, written in BASIC: | |
| 11 | ||
| 12 | * `binloader`, the first version of the simulated bit-entering facility, | |
| 13 | used in the warm-up | |
| 14 | * `frontpanel`, the improved version of the front-panel simulator, | |
| 15 | used to enter SITU-MON | |
| 16 | ||
| 17 | BASIC sources for these are in `src`; the tokenized PRG files are in `bin`. | |
| 18 | ||
| 19 | This repository might, at some point, also contain binary memory images, and | |
| 20 | text files containing disassembled machine code that was entered. |
Binary diff not shown
Binary diff not shown
| 0 | 10 s=33024:a=s | |
| 1 | 20 input g$ | |
| 2 | 30 if g$="x" then sys s:end | |
| 3 | 35 v=0:p=128 | |
| 4 | 40 fori=1to8 | |
| 5 | 45 if mid$(g$,i,1)="1"then v=v or p | |
| 6 | 50 p=p/2 | |
| 7 | 55 next | |
| 8 | 60 poke a,v | |
| 9 | 70 a=a+1 | |
| 10 | 80 goto 20 |
| 0 | 10 s=33024:a=s:d=0:tb$=" " | |
| 1 | 15 up$="sdfghjkl":dn$="zxcvbnm," | |
| 2 | 20 poke53281,0:poke53280,0:print"{wht}{clr}" | |
| 3 | 30 v=peek(a):p=128:l$="":d$="" | |
| 4 | 40 fori=1to8 | |
| 5 | 50 q$="W":if(vandp)=pthenq$="Q" | |
| 6 | 60 s$="{CBM-E}":if(dandp)=pthens$="{CBM-R}" | |
| 7 | 70 l$=l$+q$:d$=d$+s$:p=p/2 | |
| 8 | 80 next:print"{home}{red}"tb$;tb$;l$ | |
| 9 | 85 print"{down}{wht}";tb$;tb$;d$ | |
| 10 | 90 get k$:ifk$=""goto 90 | |
| 11 | 100 p=128:od=d | |
| 12 | 110 fori=1to8 | |
| 13 | 120 ifk$=mid$(dn$,i,1)thend=dorp | |
| 14 | 130 ifk$=mid$(up$,i,1)thend=dand(255-p) | |
| 15 | 140 p=p/2:next | |
| 16 | 150 ifd<>odgoto30 | |
| 17 | 160 ifk$=chr$(13)thenpokea,d | |
| 18 | 170 ifk$="="thena=a+1 | |
| 19 | 180 ifk$="&"thena=s | |
| 20 | 185 ifk$="!"thensysa:end | |
| 21 | 190 goto30 |