From 50d3ba749967e2955daf9e2b3ad934e68deba162 Mon Sep 17 00:00:00 2001 From: Philip Zembrod Date: Sun, 5 Jul 2020 21:13:04 +0200 Subject: [PATCH] Rename mk-tcbase.fth to tc-base.fth, and add some comments. --- 6502/C64/Makefile | 2 +- 6502/C64/cbmfiles/tcbase | Bin 21616 -> 21614 bytes 6502/C64/emulator/build-tcbase.sh | 7 +++++-- 6502/C64/src/{mk-tcbase.fth => tc-base.fth} | 4 +++- 4 files changed, 9 insertions(+), 4 deletions(-) rename 6502/C64/src/{mk-tcbase.fth => tc-base.fth} (56%) diff --git a/6502/C64/Makefile b/6502/C64/Makefile index 0694782..8217311 100644 --- a/6502/C64/Makefile +++ b/6502/C64/Makefile @@ -47,7 +47,7 @@ run-testbase16: emulator/testbase16.T64 # Targetcompiler targets cbmfiles/tcbase: emulator/c64-testbase.T64 emulator/build-tcbase.sh \ - disks/vforth4_2.d64 disks/tc38q.d64 cbmfiles/mk-tcbase.fth + disks/tc38q.d64 cbmfiles/tc-base.fth emulator/build-tcbase.sh cbmfiles/c64-vf-latest: emulator/tcbase.T64 emulator/build-c64forth.sh \ diff --git a/6502/C64/cbmfiles/tcbase b/6502/C64/cbmfiles/tcbase index 0ff1c5720693c489ce62f2d5b2c02f5f3d559acd..cdbdb8d40b118936c50474d72dc83c235919c99f 100644 GIT binary patch delta 4335 zcmZ8l3vg5Cl|Itd>}%4ED=3iNf>#8J2WvgN$ZxKvVA1!vgb&m zTh=p{&v(xG&wu{&pT{p>dr|Sb7Zp>T#!ruj6ehT{|IG(3-StB7j-xw%dDN#r-KuzH zjrC{V=Q^SKBI(`;kS^FdNePj2H0R-ULPE{eFT|CqIYVg(5uiXBq zN^#fe&W^B!nH`!vefR;J(iGYe7~B!4>{Dif+RnX5LVjnw6?Unf7`aeO*#hoD5rsE97lL9_RQ8Ih zUQyF4vb|zMugE8asU{;#I&6HiiET5`A=1Xl_+vZnj5Ui)YW~74<_5*Hjwr{%cSL5k z_}YvJEWC3%?_JaYlTK zg?B|JlSlSjEU2AGA~(%K%;aS9h4~rr9TwI&nfY{bMs%>So=D`fENn(Hi`*y+{X`+mEjd53f2|JuE+(0mmYi(_{=vnha`Ukz=UGCZbTM+Fxa8bU z;Bgm|m6A)&=LkIEVhTkBK;Rh{Q<_C{mkAt0P)5n2Pa*gL+Ad|6oC>{O2WMP(Td0=g zc^#Z{;UyvX6@e0(F5x~qNbRzVi4_aDsGZP?iz$)|dkMTtwku1{!)BEZv~El-1ed>r zz)WBf-6qiPMo&?4{8_UOYy?p9+*fgL$xQ9%c`jj=HZP=HPyhGF7@ROaTWXlBw&$zakm(C^v1rF3cnOVGpyZ z-+o=VhV&!I?!PXWkbDf;c2wDf^kI*30d4qzi@{frMk5E1{S6P6Q#m0to7y4<+Uo@m zGb{fhAsq0WtnU3I#JNmDc(RTq#CdEi`|7xics`pDzEH=@h*PPAFjU9a5icNqrjAuZ zF;plegm9f<9zq4g->qUE)(xq)U?L?1i9g~>i$&wl9V0G@|997rha$hxxagv&@Nf?* zV*1q-_d7}PL{%|dSIpKG_YA2n)-5i&_IYBrn)wn+|7K<%E~TrXrCAs4^1=|)m%^U@ zHQksy;K+2JGS0LP@~4bZP7muGx@4&&=Vr5V5hE}_ZBP%t9NN`KEjl4=Z0|Gu^@h$` z5c*92gMZ%{BKd9Chg3EBO8c@!;*S~!`I^KW-#qA!ZSbnI$ypg=>JxjtBr(C~z3NOZ zIVVRt;H(M0>eZCXg+jJ;q|-8H89O{+g70`)Nj{g!XYzALIv*N;X#Avi6};?a%F=wK zBZIW$RhQFp5xqL^weeAI70lz3ObL5s3eDcQu?pVsYPOZrF*zyWHn0l*fJ?H;5{^tl zN}pzqP*)9_e44UUkW2O&Z1t(^nfwDaVDqWU3x!k-^!aoIHe@sT*ND>y4xgr2$Q90= z`n1( zg`(7x5Hfz6o@V%U{IB92L6yJ7ddk>hy=r{NcTqRU|Da9cJM}bpSHoZY%DJwDKqgO^ z%sq;2#Jne~CrWHoo84z4{i(gS$SozsZb} zlg>Nv5FP2R18BEuAb!!=E93%KjWpIJehNoJE-+b5(}ZB--$qU|Nc>8ClWX-|=K`GV z0=^MSh3tYXC4|ilwB{;yzqTOhp1=Wf?M9Sqfr0n|S95H@XX9I}13o%V3w$c5D;Jab zQU)JWM>_Y0_lD1U>6O(2kAH9nhVQ#U(mEO3kxmHT>x^<1lqpl&6T-ajqrL_1vp!;_ zg345TjdiWgS_mpoN#fH%D)Myj<*MS_K}8G|FEt$Tb#fbxuLs|2cpW#ez>T0fl`AY@ zKEK@fRHF$Gx4>;~dOf(&xX>s!PNJ(8XbGumDPQpt>d`2FgVvmy0tHkp4dAx!ktIK_~fJjIiq_fnW|gQG!h z{f2Z20rYgsY@GLOQLMzbc`Pv|RJ*688}Bu|*TDJ#lg)#TgqHp>#NyIwaVCUmURljC z)_-sny&Fi$$4&FF8?TApsARd~rDUBz=c+7Qm0SY{cJmbC4drwZn*#P|%7hU9LZhBi z$^u7?2=qsdOlT$kmS@xUGrP6eGRiX5(cA0j`KX}+Tm!3zx!!v>ZP`#xW;1hn3MM{; z@PnMvKrQ%dz!o1J+A>7Ni!UX`w_7mE_EvkvTPhX#dm45NtxLi<<>%I znC-^imXxRqzmJQlmeR)e@scav{&;2Ro>;}p82X3jv9c#Z6>sY>9eN@(h;oT~RNuMD(U-$R)O2CN?* zq4{zL{NspPx{%8)(rUv0F~Ud%JI$44%Oxz=0o?VJG1DF8A{~1}6QOi)0F#ozY;J|+ z(BI9beZpHK^gV!vNh`cNqOsQ}%*|fcsVCnlKR^$=C4Q3stw5^g(VMfV;=O%TGfKQ| zqxJE%bEM++7$-u+Zi8Tazppj+$f(+$OBOM;E8bHmBgvOXS$jQ~i4FRLhH0LuioQ3h z?!T!{s%J*o{=ZW_XsB7pjOsGE9Dd`fey3@`45aikVyUHr&8F>bXpg!=8^kV;Qtp?F znG|N=|5rTpe~P-W0()nz{bFets4sgknaRlJu;NlJkz(BY-v7eTw}B@-mn!7uGg&O- z3^seZ^jf)7PVT#pax%)b$B+11Sn{cLt6?HO<8SM)1IB>wy?O!CP+1A?Z(772+YV2M z)%JWchjyvDsCVB6Phm;f_%m@$pewe5)->4-wVX=_FByM~bO*c@R$xI|B682&kxRx( zkAzJV^y%P4n1Vvvk=Blg0*lQOSsy7@bykAc!biiNs_fy20-OJT>!*23WE%76U}FQ^ z9jWzC(*C%9A{^y*3h>2<0^6G<(ri*!de%p1wE!n03VeE{jZa1hosB4FYy04k34)%% z+E!;b)Kv5F-v?GZo{UWLf9|EpG_@M5SKCAZ6W})y)j~$Tm=Nv_UklT%HULecm7w1i z<<>!dgfGgqmrXfSz_WD6-9fAVUJ4avY}eX8)3Nwxf*rA&oacp~cy0Jf>#mNgS`OTd z2ou_cGaCbK?K5?w1srPD#8{N0e-p^{HyhRIPsc8|l4d6q#;#QR=*6*4`1M$_FCi2J zlB|b6jJ+WhHm+U|it#tMNrgQ-k!%=W&K3&uqez;^-^iT%w0S+WjxS>;$^SEw-Q&x0 ywj@s@dH490S$Qs#e+6m#_>~L!awdBlE_04wxtPWzn?wHa_|>93FDJ{&)&C0#ej2m@ delta 4366 zcmZ8l3vg5Cl|IsyKfDUTragk@s9^CJWvt4n9E7&g1_Z=p&Jc9ukIS@8Ug5s7h4sXbaLUf*4MnRoqP4Z zFDhi6=UQ8a>lm?5Jon5aX1THC1(bHB?!8xmpKW&wrw#rrTTdTZd{co$Cr(?HD!5{me*$$X75v#MLzSTd-nFVMG2A5YZ&3^W7Tm@(r(LR3 zn|is&ZfYywf34bdCY_U#nOL+Sh4~7B5$FK-oQV<49HTdLKh=(Dy9DSGmW5BDm_+Ru3lW&PbWuRogZKU$-+!F?!YZ z5`pj9nM@7=5cr;*$xorXHwm0XP(aJ!LkRvAedm)`Z8Dus4d?B6TS$v?oEqYGyd(sF zBybU3=W(CyM7w5Z0=Wz>Y9_Q|XL59e#|eB$zUQyno~c%-LG8fILh$By5Y!M@z+)5O z9e7f-{N%-IHLNFqmY4n+H|lYq0|bYUA`>fk}?m+{@8A<$LfL z2OZ?u>}2+k>w}IzBi2HzWd=7oMK^uS1;lCWD+kJW4skXa=KrCLml4NeVcuQF?<1Z={Jk<(^#zcS5A!2s zMNJPSzICIb2XN8<0Y8|$V+|TW9Cq=%~@P?hD!ofx)V)~VcPuhqW zE)qw|#B`asw@-1Y?C}lz0cYS|H%HL=v6}<9l&*%BrtP%LsXnGVh8_I{^&ZE7HL)&Y z_*r8w7cq=!b+FE=j^^`HYAPw^!u&UOP#4s}n|-^wsY8eP&gO38|J_lWGJLo3BmDPz zAKB~Q?^BfQH=38~MDDnumn&InLY=*iK&MNYj7~`yQ?IbuMHVA`)1^$LqSKPU1ztBo z(4{IAGMQxlXlwmQ{m3&rjPPR@D@qp<=|p<^XzTvb{i6}rDtN`k6vV8*WftWNE@dGu z2FlK&u)BHHdItTfo!5prHL}my_XOA8cEWI5^907K8h+|gPRBEOEELgX=Gq$m#S^Sj!B=!{ z?J-Wo(X00mE9OyN%H+h3FhA>|(OL~}dsNfKD24fu(pK$Nd1_4&L#=7qaNS)xgUGe& zXg;ro+aCFJTbL*3r;ODdvaO`t*e`E0hxzV)ku!5DkE1$>4d#45JyO+|5!1d!@QY$ z8#Of`ax4AR&qU5?aP!7Z<5kOd#OkgG#!{I%tb>26JW`26n48mXsJi0qG|W{>mB;X?bzt%- zN~N;sBG}_oMw3bEl1Ue(LmfDL@)+LoPTv)8+~D((>a#vsQKR(biW(C%KIM~lv`}kp zd4G+_?eiVcExIPTW*;pu!M8#u9o4(9c<*j&f|EX_l#Ax^Xc5DiB4^5{oJvO1vtjdZfi6iz+`h` z!=aTQ_*h(7PR~hBQOq%oXJQq-FNoyUPIB_ycrEmjCC`g4O4bQHTTz8ohvFLe(r%7I z`d}fR!{&j#oNj&q|3amXQmPJ)8xZJ@8_k1S8}kSYR21Wq4?n=wZQ^5|? z9!A*r`E2)MVHes;UjgE9Cn8e zxf=tAhLo06G>4hG=!&2bO>k_8wS1hKi!RVjVDD8HO)m{8x7?)@_52XKs<_T6S#(_W0_Pok;JN;#pX@dOO2zHefu|2_Kj(q zL(h3?Svpf=kA5O_#?!Q=3>ZDW^U4K9<6^}-UbTQdvKfvJD=q103jI>GP%o~BBUmD4 z?tDnm-xgRwZ>r>jrRKli2zvDmC!1ztsPTeLy!cJf;os@T^~k zkC1wQjZrz@vCdDcd5HLB_~eQkp7Rr$^2?@5`{2;|ycQkdT~{Fh<8G+I`?P57#M0J4Kz zPAWZd3W*GUTsuZBSmgoHw7I?8xYD+{y{BPw`~N(!xqTDG6Z5*Qq1$*e^rW{Xa94AZ z|BcIxPq_BtOe!VH-LNTryKrQO`5mTiBl)g1?J%7k8Pn4LB1q*29hL2GN8W5CW-I(* z diff --git a/6502/C64/emulator/build-tcbase.sh b/6502/C64/emulator/build-tcbase.sh index 01cac95..45bf1a6 100755 --- a/6502/C64/emulator/build-tcbase.sh +++ b/6502/C64/emulator/build-tcbase.sh @@ -1,4 +1,7 @@ #!/bin/bash +# build script for the resident part of the target compiler running +# on the C64. + set -e emulatordir="$(dirname "${BASH_SOURCE[0]}")" @@ -6,8 +9,8 @@ basedir="$(realpath --relative-to="$PWD" "${emulatordir}/..")" rm -f "${basedir}/cbmfiles/tcbase" -keybuf="2 drive 4 load\ninclude mk-tcbase.fth\n\ +keybuf="2 drive 4 load\ninclude tc-base.fth\n\ savesystem tcbase\ndos s0:notdone\n" -DISK9=vforth4_2 DISK10=tc38q "${emulatordir}/run-in-vice.sh" \ +DISK10=tc38q "${emulatordir}/run-in-vice.sh" \ "c64-testbase" "${keybuf}" diff --git a/6502/C64/src/mk-tcbase.fth b/6502/C64/src/tc-base.fth similarity index 56% rename from 6502/C64/src/mk-tcbase.fth rename to 6502/C64/src/tc-base.fth index 54a605f..ba4e7e2 100644 --- a/6502/C64/src/mk-tcbase.fth +++ b/6502/C64/src/tc-base.fth @@ -1,5 +1,7 @@ -: edit list ; +\ loadfile for the resident part of the target compiler. + +' list alias edit : .blk ( -) blk @ ?dup IF ." Blk " u. ?cr THEN ;