Original filename: BOOT1.M80
;; Software for 8080A computer: boot
;; Copyright (C) 1980 by Robert Elton Maas

;Addresses of I/O devices
CTL0  =$10
DATA0 =$11

;Device-dependent data constants
ACIARS=$17	;Reset
ACIAMD=$15	;8 transparent data bits, one stop bit


;;			 -- BOOT 1 --
;This program is small enough that it can be entered via the Altair
; front-panel switches in just a few minutes.  It initializes the
; 88-2SIO board port 0 to talk at 2400 baud to a local terminal.
; It then accepts pairs of characters from the keyboard, echoes each
; one, and adds three times the first character plus the second character
; to get an 8-bit value that is deposited
; in the next consecutive memory location.  Before typing data
; into this program, each byte must be converted from hexadecimal (or octal)
; notation into the 3x+y notation using the reference
; table I've compiled.

;Operation of program:  Be sure terminal is connected to port 0, turned on,
; and in fullduplex mode; Stop&reset, set address at 0006, press EXAMINE,
; set data to low-byte of address where loading is to occur (presumably
; BOOT2), press DEPOSIT, set data to high-byte of address where loading
; is to occur, press DEPOSIT, set address to start of BOOT1, press EXAMINE,
; press RUN; Type pairs of characters for program to be loaded (presumably
; BOOT2); Stop program when done.

.=$2000
BOOT1:	MVI	A,ACIARS	;Reset
	OUT	CTL0
	MVI	A,ACIAMD	;Mode for normal operation
	OUT	CTL0
	LHLD	6
	LXI	SP,$7FFF
BOOT1L:	CALL	RECHR
	MOV	M,A
	CALL	RECHR
	ADD	M
	ADD	M
	ADD	M
	MOV	M,A
	INX	H
	JMP	BOOT1L

;Subroutine to read and echo one character
RECHR:	IN	CTL0
	RAR
	JNC	RECHR
	IN	DATA0
	OUT	DATA0
	RET

;Conversion table from hexadecimal to 3x+y notation -- For the hexadecimal
; value at the left margin, any of the combinations given are equivalent
; 3x+y representations, and all will work regardless of the parity setting
; of your terminal providing that it is consistantly one of the standard
; settings (even, odd, mark, space).  You may select which ever involves
; the least amount of shifting, or which is easiest to remember or which
; spells some word or which looks pretty etc.  Note that the table includes
; only letters (upper and lower case), numbers, and the six punctuation
; characters that don't require shifting on TTY keyboards (,./;:-).
; Innumerable other combinations are possible if other characters may be used.

;00 E1 C7 ;O 8X 4d 1m /s B: 9U 
;01 F/ E2 C8 2k 1n D5 :S 9V 0q .w 
;02 ;Q /u G- D6 5c 3i 0r .x 
;03 F1 E4 ;R 4g 2m 1p /v G. :U 3j 
;04 L  F2 C; 4h 2n AA :V 9Y 5e 0t 
;05 ;T H- G0 D9 AB 9Z 6c 5f 3l 
;06 F4 E7 7a 2p 1s /y H. D: 
;07 I, E8 7b 4k /z BA AD :Y 6e 0w 
;08 ;W 1u H0 G3 BB :Z 6f 5i 3o 0x 
;09 F7 ;X 8a 7d 4m 2s 1v 5j 
;0A J, I/ F8 E; 8b 4n G5 BD AG 3q 
;0B 2u H3 G6 AH 6i 5l 3r 
;0C I1 CC 8d 7g 4p 2v 1y 6j 
;0D O  J/ I2 F; 7h 1z H5 DA BG 3t 
;0E CE K- H6 G9 DB BH AK 9c 6l 5o 
;0F J1 I4 CF 8g 4s 2y K. G: 
;10 L, J2 8h 7k 2z DD AM 9e 5q 3w 
;11 4u K0 H9 BK AN :c 9f 6o 5r 3x 
;12 J4 I7 EC CI ;a 7m 4v H: 
;13 Q  L/ I8 CJ ;b 8k 7n DG BM AP :e 6q 5t 
;14 EE M- K3 DH BN :f 9i 6r 
;15 L1 J7 FC EF CL ;d 8m 7p 4y M. 9j 
;16 R  L2 J8 I; 8n 4z K5 GA BP AS 6t 5w 
;17 FE N- M0 K6 GB DK :i 9l 5x 
;18 L4 FF EI CO ;g 8p 7s N. AU :j 
;19 O, J; EJ ;h HA GD DM BS AV 6w 
;1A CQ 7u N0 M3 K9 HB DN :l 9o 6x 
;1B L7 FI EL CR 8s 7v K: BU 
;1C T  O/ L8 FJ ;k M5 HD GG DP BV AY 9q 
;1D CT 8u P- N3 M6 GH AZ :o 9r 
;1E O1 IC FL EO ;m 8v 7y P. 
;1F Q, O2 L; ;n 7z N5 HG DS BY :q 9t 
;20 IE EQ CW P0 N6 M9 HH GK BZ :r 
;21 O4 JC IF FO ER CX ;p 8y M: DU 
;22 R, Q/ 8z KA GM DV :t 9w 
;23 JE FQ ET P3 N9 KB HK GN 9x 
;24 Q1 O7 JF II FR ;s N: 
;25 W  R/ Q2 O8 IJ P5 KD HM GP DY :w 
;26 FT EW ;u S- P6 HN DZ Ac :x 
;27 R1 Q4 LC JI IL EX ;v S. 
;28 X  T, R2 O; JJ MA KG HP GS Ae 
;29 LE FW S0 P9 MB KH Bc Af 
;2A R4 Q7 LF JL IO FX Ca ;y P: GU 
;2B T/ Q8 Cb ;z NA MD HS GV Be 
;2C IQ U- S3 NB KK Bf Ai 
;2D T1 R7 LI JO IR Cd U. HU Aj 
;2E T2 R8 Q; LJ S5 ND MG KM HV GY 
;2F JQ IT V- U0 S6 MH KN GZ Dc Bi Al 
;30 T4 OC LL JR Ea Cg V. Bj 
;31 W, R; Eb Ch PA NG KP HY De 
;32 OE JT IW V0 U3 S9 PB NH MK HZ Df Bl Ao 
;33 T7 OF LO IX Fa Ed S: 
;34 X, W/ T8 Fb Ck U5 PD MM KS Aq 
;35 LQ JW V3 U6 NK MN Di Bo Ar 
;36 W1 QC OI LR JX Fd Eg Cm KU Dj 
;37 X/ W2 T; OJ Eh Cn V5 PG NM MP KV Bq At 
;38 QE LT Y- V6 U9 PH NN Gc Dl Br 
;39 X1 W4 RC QF OL Fg Cp Y. U: 
;3A X2 Fh Ek SA NP MS KY Ge Bt Aw 
;3B RE LW Z- Y0 V9 SB PK KZ Hc Gf Do Ax 
;3C X4 W7 RF QI OO LX Ia Em Cs Z. V: MU 
;3D W8 QJ Ib Fk En SD PM NS MV He Dq Bw 
;3E OQ Cu Z0 Y3 PN Hf Gi Dr Bx 
;3F X7 TC RI QL OR Ja Id Fm Ep Cv NU Gj 
;40 X8 W; RJ Jb Fn Y5 UA SG PP NV MY Dt 
;41 TE OT Z3 Y6 UB SH MZ Hi Gl 
;42 TF RL QO Jd Ig Fp Es Cy Hj 
;43 X; Ih Cz a  Z5 VA UD PS NY Dw 
;44 QQ OW Eu Z6 Y9 VB SK NZ Kc Hl Go Dx 
;45 TI RO QR OX La Jg Fs Ev Y: PU 
;46 TJ Lb Jh Ik b  VD UG SM PV Ke Gq 
;47 RQ QT Fu Z9 UH SN Kf Ho Gr 
;48 WC TL RR Ld Im Fv Ey Z: 
;49 Jk In Ez VG SP PY Hq Gt 
;4A WE RT QW VH UK PZ Mc Ki Hr 
;4B XC WF TO QX Lg Jm Ip Fy Kj 
;4C Lh Jn Fz d  YA UM SS Me Ht Gw 
;4D XE TQ RW YB VK UN Nc Mf Kl Gx 
;4E XF WI TR RX Oa Jp Is SU 
;4F WJ Ob Lk a, ZA YD VM UP SV Ne Hw 
;50 TT Iu ZB VN Nf Mi Ko Hx 
;51 XI WL Od Lm Js Iv Mj 
;52 XJ Ln b, a/ ZD YG VP US SY Kq 
;53 TW Ju YH SZ Pc Ni Ml Kr 
;54 XL WO TX Qa Og Lp Jv Iy a1 UU Nj 
;55 Qb Oh Iz g  b/ a2 ZG VS UV Pe Kt 
;56 WQ ZH YK Pf Nl Mo c- 
;57 XO WR Ra Qd Ls Jy b1 a4 VU c. 
;58 Rb Ok Jz h  d, b2 YM VV UY Mq Kw 
;59 XQ WT Lu ZK YN UZ Pi No Mr Kx c0 
;5A XR Rd Qg Om Lv b4 a7 Pj 
;5B Qh On d/ a8 ZM YP VY Nq Mt 
;5C XT WW ZN VZ Sc Pl Nr e- c3 
;5D WX Ta Rg Op Ly d1 b7 e. 
;5E Tb Rh Qk Lz d2 b8 a; ZP YS Se Nt Mw c5 
;5F XW Sf Po Mx f- e0 c6 
;60 XX Td Qm Os d4 YU f. 
;61 Rk Qn k  g, b; ZS YV Pq Nw 
;62 Ou Uc Si Pr Nx f0 e3 c9 
;63 Tg Rm Qp Ov d7 ZU Sj c: 
;64 Th Rn h, g/ d8 ZV YY Ue Pt e5 
;65 YZ Vc Uf Sl f3 e6 
;66 Wa Rp Qs Oy g1 aC 
;67 Wb Tk Oz m  h/ g2 d; ZY Ve Pw f5 
;68 Qu aE ZZ Vf Ui So Px i- f6 e9 
;69 Xa Wd Tm Rs Qv h1 g4 bC aF Uj i. e: 
;6A Xb Tn n  h2 Sq cA 
;6B Ru bE Vi Ul Sr j- i0 f9 cB 
;6C Xd Wg Tp Rv Qy h4 g7 bF aI Vj j. f: 
;6D Wh Qz k, g8 aJ St cD 
;6E Yc Vl Uo j0 i3 
;6F Xg Ts Ry h7 dC bI aL 
;70 Xh Wk Rz p  k/ h8 g; bJ Ye Uq Sw i5 eA cG 
;71 Tu dE Zc Yf Vo Ur Sx l- j3 i6 eB cH 
;72 Wm Tv k1 dF bL aO l. 
;73 Xk Wn m, k2 h; Ze Vq Ut j5 fA eD 
;74 aQ Zf Yi Vr l0 j6 i9 fB cK 
;75 Xm Wp Ty k4 dI bO aR Yj i: 
;76 Xn Tz n, m/ dJ Vt Uw fD eG cM 
;77 bQ aT Zi Yl Ux l3 j9 eH cN 
;78 Xp Ws m1 k7 gC dL bR Zj j: 
;79 s  n/ m2 k8 Vw l5 fG cP 
;7A Wu gE bT aW Zl Yo Vx o- l6 fH eK 
;7B Xs Wv n1 m4 hC gF dO aX o. 
;7C p, n2 k; Yq iA eM cS 
;7D Xu hE dQ bW Zo Yr o0 l9 iB fK eN 
;7E Xv Wy n4 m7 hF gI dR bX l: cU 
;7F Wz u  p/ m8 gJ Zq Yt jA iD fM eP cV 
;80 dT    Zr q- o3 jB fN 
;81 Xy p1 n7 hI gL q. 
;82 Xz v  p2 n8 m; hJ Zt Yw o5 jD iG fP eS cY 
;83 dW Yx r- q0 o6 iH cZ 
;84 p4 kC hL gO dX aa r. eU 
;85 s, n; ab Zw lA jG fS eV 
;86 kE gQ Zx r0 q3 o9 lB jH iK 
;87 p7 kF hO gR ba ad o: fU 
;88 s/ p8 bb q5 lD iM fV eY 
;89 hQ gT t- r3 q6 jK iN eZ 
;8A s1 mC kI hR bd ag t. 
;8B y  u, s2 p; kJ ah r5 lG jM iP fY 
;8C mE hT gW  , t0 r6 q9 lH jN fZ cc 
;8D s4 nC mF kL gX da bg q: 
;8E z  v, u/ db bh ak oA jP iS ce 
;8F nE hW  / t3 r9 oB lK cf 
;90 u1 s7 nF mI kO hX dd am r: iU 
;91 v/ u2 s8 mJ bk an  1 t5 oD lM jS iV 
;92 kQ  2 w- t6 lN ec ci 
;93 v1 u4 pC nI mL kR dg bm ap w. jU cj 
;94 v2 s; nJ dh bn  4 qA oG lP jV iY ee 
;95 pE kT x- w0 t9 qB oH iZ fc ef cl 
;96 v4 u7 pF nL mO ga bp as x. t: 
;97 y, u8 gb dk  7 rA qD lS jY fe 
;98 mQ kW au  8 x0 w3 rB oK jZ ff ei co 
;99 v7 pI nO mR kX ha gd dm bs av lU ej 
;9A z, y/ v8 u; pJ hb dn w5 rD qG oM lV cq 
;9B nQ mT bu  ; x3 w6 qH oN fi el cr 
;9C y1 sC pL nR hd gg dp bv ay fj 
;9D z/ y2 v; gh az x5 tA rG oP lY ct 
;9E sE nT mW x6 w9 tB rH qK lZ ic fl eo 
;9F z1 y4 sF pO mX hg ds by w: 
;A0 z2 hh gk bz tD qM oS ie eq cw 
;A1 pQ nW du x9 rK qN jc if fo er cx 
;A2 z4 y7 uC sI pR nX ka gm dv x: oU 
;A3 y8 sJ kb hk gn  C tG rM qP oV je fq et 
;A4 uE pT ,  tH rN jf ii fr 
;A5 z7 vC uF sL kd hm gp dy  E ij 
;A6 z8 y; hn dz  F wA rP qS oY ft ew 
;A7 vE pW wB tK oZ lc ji il ex 
;A8 vF uI sO pX ma kg hp gs qU jj 
;A9 z; uJ mb kh  I xA wD tM rS qV le fw 
;AA sQ gu  J xB tN lf jl io fx 
;AB vI uL sR na md hs gv rU 
;AC vJ nb kk  L xD wG tP rV qY iq 
;AD sT hu /  wH qZ li jo ir 
;AE yC vL uO nd mg km hv gy lj 
;AF mh kn gz  O xG tS rY jq it 
;B0 yE uQ sW ,, xH wK rZ oc ll jr 
;B1 zC yF vO uR sX pa ng kp hy  Q tU 
;B2 pb nh mk hz  R wM tV oe jt iw 
;B3 zE vQ uT 1  ,/ xK wN of lo ix 
;B4 zF yI vR pd mm ks  T -- 
;B5 yJ nk mn ,1 xM wP tY lq jw -. 
;B6 vT uW ku 2  ,2 xN tZ qc oi lr jx 
;B7 zI yL uX pg nm mp kv  W oj .- -0 
;B8 zJ ph nn ,4  X xP wS qe lt .. 
;B9 vW /, rc qf ol 
;BA zL yO vX sa np ms ky wU .0 -3 
;BB sb pk kz ,7 xS wV re lw 
;BC yQ mu 4  // ,8 rf qi oo lx -5 
;BD zO yR sd pm ns mv xU qj 0- .3 -6 
;BE pn /1 xV wY oq 0. 
;BF zQ yT nu 1, /2 ,; wZ tc ri ql or .5 
;C0 zR ua sg pp nv my rj 00 .6 -9 
;C1 ub sh mz /4  a xY te ot -: 
;C2 zT yW 2, 1/  b xZ tf rl qo 
;C3 yX va ud ps ny 03 .9 
;C4 vb sk nz 11 /7  d qq ow .: 
;C5 zW pu 7  2/ 12 /8 ti ro qr ox 05 
;C6 zX vd ug sm pv tj 3- 06 
;C7 uh sn 21 14 ,C  g rq qt 3. 
;C8 8  4, 22 /;  h wc tl rr -A 
;C9 vg sp py ,E 30 09 -B 
;CA vh uk pz 24 17 ,F we rt qw 0: 
;CB 4/ 18  k xc wf to qx .A -D 
;CC ya um ss 5- 33 .B 
;CD yb vk un 41 27 ,I  m xe tq rw 5. 
;CE su 42 28 1; ,J  n xf wi tr rx 35 .D -G 
;CF za yd vm up sv wj 6- 50 36 -H 
;D0 zb vn 44 /C ,L  p tt 6. 
;D1 ;  7, 2; xi wl 0A .G 
;D2 zd yg vp us sy /E xj 60 53 39 0B .H -K 
;D3 yh sz 47 /F ,O  s tw 3: 
;D4 uu 8, 7/ 48 xl wo tx 55 0D -M 
;D5 zg vs uv ,Q  u 63 56 .K -N 
;D6 zh yk 71 1C /I ,R  v wq 
;D7 vu 8/ 72 4; /J xo wr 65 0G .M -P 
;D8 ym vv uy 1E ,T 9- 66 59 0H .N 
;D9 zk yn uz 81 74 2C 1F /L  y xq wt 9. 5: 
;DA 82  z xr 3A .P -S 
;DB zm yp vy 2E ,W :- 90 69 3B 0K 
;DC zn vz 84 77 2F 1I /O ,X xt ww :. 6: -U 
;DD ;, 78 1J wx 3D 0M .S -V 
;DE zp ys /Q :0 93 0N 
;DF 87 4C 2I 1L /R xw .U 
;E0 yu ;/ 88 7; 2J xx 95 5A 3G 0P .V -Y 
;E1 zs yv 4E /T :3 96 5B 3H -Z 
;E2 ;1 4F 2L 1O 
;E3 zu ;2 8; :5 6A 5D 0S .Y 
;E4 zv yy 1Q /W :6 99 6B 3K .Z 
;E5 yz ;4 4I 2O 1R /X ,a 9: 0U 
;E6 4J ,b 6D 5G 3M 0V 
;E7 zy 2Q 1T :9 5H 3N 
;E8 zz ;7 7C 4L 2R ,d :: 
;E9 C  ;8 6G 3P 0Y 
;EA 7E 2T 1W 6H 5K 0Z -c 
;EB 8C 7F 4O 1X ,g 
;EC ;; ,h 9A 5M 3S -e 
;ED 8E 4Q 2W 9B 6K 5N .c -f 
;EE 8F 7I 4R 2X /a 3U 
;EF E  7J /b ,k :A 9D 6M 5P 3V .e 
;F0 4T A- :B 6N .f -i 
;F1 8I 7L /d ,m A. -j 
;F2 F  8J ,n :D 9G 6P 5S 3Y 
;F3 4W B- A0 9H 3Z 0c .i -l 
;F4 ;C 8L 7O 4X 1a /g ,p B. 5U .j 
;F5 C, 1b /h :G 6S 5V 0e 
;F6 ;E 7Q B0 A3 :H 9K 0f .l -o 
;F7 ;F 8O 7R 2a 1d ,s 6U 
;F8 C/ 2b /k A5 9M 6V 5Y -q 
;F9 8Q 7T ,u D- B3 A6 :K 9N 5Z 0i .o -r 
;FA C1 ;I 8R 2d 1g /m ,v D. 0j 
;FB I  E, C2 ;J 1h /n B5 :M 9P 6Y .q -t 
;FC 8T 7W D0 B6 A9 :N 6Z 3c 0l .r 
;FD C4 ;L 7X 4a 2g /p ,y A: 
;FE J  F, E/ 4b 2h 1k ,z :P 9S 3e .t -w 
;FF 8W D3 B9 3f 0o -x

	.END	BOOT1