Add sources and tokenized PRGs for binloader and frontpanel.
Chris Pressey
7 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 |