git @ Cat's Eye Technologies SITU-SOL / eb2991e
Add sources and tokenized PRGs for binloader and frontpanel. Chris Pressey 7 years ago
5 changed file(s) with 44 addition(s) and 3 deletion(s). Raw diff Collapse all Expand all
77 blog (you might want to go to its [archive](http://bootstrap-zero.tumblr.com/archive)
88 and read the posts in chronological order.)
99
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