File CRTCTR.PA (PAL assembler source file)

Directory of image this file is from
This file as a plain text file

T/T QPEDITAEQTUHT ICQTP QAETP =CUUQNUEMRI$IH243UM%AL-9HM<JHM<JHM<JHM<JPIL QCMCT H URIRH  UTQTITATP L QCMCT P UTQTIT URIRAR(MP/LIH  H  IR H ARH  IT P L H  H  T P H  H ART H HM<JHIACH  T H H  IR T P H  H ACH  H  H ATH  IR  5RJ$/IC H  T IRIRARH  H ATH  IC H 
H  IT T H URIRHM<JHIACH  T H H ARH  T P H  H ACH  H  H ATH  URH HM<JHIACH  T H T H H  T P H  H ACH  H  H ATH  IR AR(MH/IQCMCIC IR H ARH  IT H  QCMCIC T P H  H ART H HM<JHM<JHM<JM4JJ4/PJT/UDQIP %HQS=TMR)YHM<JHM<JH241UM%AL-9PI0(IH%NHM<JHI$1P QAQDQEP =CIDAEU
IOT ASQLMIUEL UAAMILAEUCUOQNUTAR(M/(MHM<JHM<JPI!TIIASUTMAQK4 QA9IQT%AINASQTUHT IPUOUDICATUDQAQAL QO9UUTIEAS(MP/PIUIASUL%AIEADIOANQTUHT ICIT.P YIP !TQE$ UNICQEUMINATQA]RQUUMAN5TJ$/IIASQN]EQA%TIV1EP !TQEL QO9UUTIEQSD IRAEQCULQAURQDD AN5DJ$/QTUHQN$ UNICQEUMQ
UTAD4.J4/J(MM$JUTMAAK$=UCQRUCITM$JUCIUP=LIQRMTQT1FAD(MPI9IUIQWL=IM$JUVIEAS$=3(MM4JPJXIQI1EQDL QRMTQT1FMDD%0(MPIL*QRMTQT=LAC(ML4/J4/HJT/AR%PQUQPQAUTP !TQEL IRATUDQAQAL QO9UUTIEAS(M/(M/(MQSETIR1TP L AL5BTJPIIAADT(ICQTUDAF$)P/=PISATUOIUT YEUEQNP 1FIAAGAT5OPJ
IAA%LTIL/IAAYQTUHP EDITAAQUQPQAUTM$JUPMOAT$IT/MIP =CQM1PQEUTAD4.PJLIIDAF240PJLIAA%LPI\/UOP UOL QLUEIP\ QT1IP UNQEUDAD4.TJLIUUASAN5DJ(MPI1CAB(MPI%CQFL AU%RPIP/QIESQBULP 9IUTIEURAUITASUFIOH AAQM5OUEQN.(MPIETQD$ UNICAT%CT/MIP !TQE$ UNICQEUMINATQC=HIPASQFELUG
 IEAT?(MPI9SAA(MPI5JQPL QRMTH1<IIN1OP =GP 9OM$JQM1QHI<IUYMET,L QAUVP !TQE$ UNICQEUMINATQV1AAU5EPJPIICAAQIMNQRMTPIL/QLEEURP IHAEQC=HIPASQIMNQR5EUEQNP 1FAA5GPJ(IIMASUCQRQAQDPI\/QO$ UNICQEUMINATQTUHP !CUOMPP UTIXATQAURAA4.HJ4I6(MTIICMTADL1T+M$JQB9IUCAHM$JUCQ
MDEMPMLJQRMT1$,QCYIT UCAR(MPIETQD$ UNICAT%RT/MIP !TQE$ UNICQEUMINATQR)EUEQCQSX QL]AP USMT< M$JQSENM$JUJAMT ICMTICPI8/IO,IGAOAO5NPJ4IAQ%LTI$/IE1SP ESIVAEQTUHP 9IQCURQM9EUTX UAULAE(MPIMDQA$ UNICAT%RP/1CUEIAP !TUEH QEUJUCMTP 9IQCURQM9EQTX QL]A.(MPI5JQSL QRET
D%DP/=GP 9IQCURQM9EUTP IHAEQR)EUEQCUSP UEQXT IAIE9AM$J-44PJLIQRQTH0,23(MPI%BQNURAJ(MTIICQT5D2(MUCQRIC02PI%CQFL AU5RTJPIIAADQIMNURMTPI$/USP IHAEQIMNQR5EUEQNP ESQM1PIEASQFELUGL IEAT?(MPI9SAA(MPI5JQPL QRMTH3<IIN1OP =GP 9OM$JQM1QHI<IUYMET,L QAUVP !TQE$ UNICQE
MINATQV1AIU9EM$JQDECP 9IUCQRIS<IQCULIAARQTUHP 9IQCURQM9EUTL UAAMULMEP 1FIA9GM$JUJMMT ICQTQAID<IIGAOQIMNQR5EUEQNP !TUEL UAAMULMEP UTIXATQAURAA4.HJ4I4(MTIICMTADL3L+M$JQB9IQS5AM$JUCQRMDMMM0J/(MUCQRIC03PI%CQFL AU5RTJPIIAADQIMNQR5TPI$/USP IHAEQIMNQR5EUEQMP UMU
IEP 1FIAAGUSQE 4?TJLIAN5APJ(IIMAPUCQRAC$4P/=NP,\ QO< AN(MTIEMAL$IP/ESIVAEQTUHP 9IQCURQM9EUTX UAULAE(MPIMDQA$ UNICAT%MP/1CUEIAP !TQE$ UNICQEUMINATUMQEUEMRP 1FIA9GM$JUJMMT ICQTQAID<IIGAOQIMNQR5EUEQNP !TQE4 QEUTIRASUT!EQTD QREE.(MLIX-M$JUCQRMDP0+45PJHIQI5NAT
RPJLIQRQTAM44TJICMTQCP,LIIIAFUCIUM$JQTQAP 9IUCQRIB<IIIASQTUHP 9IQCURQM9EQTH QOUXQSX QL]AP USMT< M$JQSENM$JUJAMT ICMTUCPI8/IO,IGAOAO5NPJ4IAQ%LTI$/IE1SP ESIVAEQTUHP 9IQCURQM9EUTX UAULAE(MPIMDQA$ UNICAT%BP/1CUEIAP !TQE$ UNICQEUMINATUB!OIEASQFELAG4.PJ(IIMASUC
RQAQDPI\/QO$ UNICQEUMINATQTUHP =BUXP UEQXT IAIE9AM$J-44PJLIQRQTH0,53(MPI%BQN=BAX(MTIICQT5D5(MUCQRIC05PI%CQFL AU5RTJPIIAADQIMNURQSPI$/USP IHAEQIMNQR5EUEQNP !SUEQEQSX QL]AP USMT< M$JQSENM$JUJAMT ICMTYCPI8/IO,IGAOAO5NPJ4IAQ%LTI$/IE1SP ESIVAEQTUHP 9IQCURQM9EU
X UAULAE(MPIMDQA$ UNICAS%TP/1CUEIAP !TQE$ UNICQEUMINATQFELAG(MPI5JQSL QRETAD%DP/=GP 9IQCURQM9EUTP IHAEQSUHUEMTP UTIXATQAURAA(MLIL-M$JUCQRMDX0+43PJHIUIMNAH5TPJLIQRQTAM46TJICMTYCP,LIIIAFUCIUM$JQTQAP 9IUCMRIR<IIIASQTUHP 9IQCURQM9EUTL QHYIUTH QO1LP 1FAA5GTJLI
N%ATIL/IEAT?(MPI5JQPL QRMTH7<IIN1OP =GP 9OM$JQM1QHI<IUYMET,L QAUVP !TQE$ UNICQEUMINATQV1AIU9EM$JQDECP 9IUCMRIR<IQCULIAARQTUHP 9IQCURQM9EUTL QHYIUTH QO1LP 1FAA5GPJ(IIMASUCQRQAQDPI\/QO$ UNICQEUMINATQTUHP !SUIQFP =RILALUT!EAT(MLIH-HI<IQAURAA4.PJLIQRQTH0,71(M
I%BQN!SAR(MTIICQT5D7(ML4/TJICMT]CP,LIIIAFUCIUM$JQTQAP 9IUCMRIS<IIIASQTUHP 9IQCURQM9EUTL QP%LICAEQS5AQPULM$JQSENHI<IP =CUUQNIEARQFELUGL IEAT?(MPI5JQPL QRMTH8<IIN1OP =GP 9OM$JQM1QHI<IUYMET,L QAUVP !TQE$ UNICQEUMINATQV1AIU9EM$JQDECP 9IUCMRIS<IQCULIAARQTUHP 1
AA5GPJ(IIMASUCQRQAQDHI/IGAOQIMNQR5EUEQNP !TQEL QO9UUTIEM$J-44PJLIQRQTH0,83(MPI%BUNMSAM(MTIICQT5D8(MUCQRIC08P L AL5BPJ(IIMAPQSETAR%TP/1AQLP QOUNP,H QA-CP =TP 1SUEAEM0J/(MUCQRMDEMT,( QB=LICAKH3<IQC=HQPL QO9UUTIEM$JUCQRMDD0M4JTJICQT5D2$,QZ1BQO-C $3P/URQJMEQT
 QO9UUTIEM$JUCQRMDH0M4JTJICQT5D3$,QZ1BQO-C $3P/ESQM1PQEL QO9UUTIEM$JUCQRMDL0M4JTJICQT5D4$,QZ1BQO-C $3P/UMUTIEP =CUUQNAE5RPJLIQRQT044J(MPIEPAG5EJ(MHM<JPMLJQRQTIM05P IZQLMOMKL PIH/QOUXQSL QO9UUTIEM$JUCQRMDT0M4JTJICQT5D6$,QZ1BQO-C $3P/!SUEQEQS$ QNH IOAXUCUOQ
UTAR(MTIICMTAD6(MPMLJQRQTIM07PIIZQLMOMKL TIL/QHYIUTH QO1LP =CUUQNAE5RPJLIQRQT047J(MUCQRMD!ML,DIHI<IQT%HQSL QO9UUTIET MIP UNUVIEP USIEANIOANQTUH (MI$0HI/UCQRH D!M$J0(MTIICMTAD8$IT/ASQLMIUEL UAAMILAEUCUOQNUTAR(M/(ML4/J4/HJT/QRDIQS%CQIL UHIAUAQCIEARQAQDQI%TI
ANURUOQT9IAE(M/(MT/P%QWLIQOUMP UHIRAEP =TP 9IQCURQM9EAT(MP/DIP =CUUQNIEARUFIOP !TUEH QO1LT QSUAUTQSP UIASUL%AT IAIE9AP !TAE(MT/XIUAULQE$ UNP IHAEUMD/P URUGMIUTIET MIP !TQE8 QUIMIEARITAOIBAEHM<JPIQAQDQEP =TP !TQEL UUIRUEQNP =CUUQNIEARQV1AIU9EHM<JTIQIT MIT 
AQS5UIEADQTEHUTP IHAEQIMNQR5EUEQNT MIP ULISASQTEHQN< AR4 J$/UEUQIAALITAOH10QDMEQIEMAL4.J$/IIAFQTUHP 9IQCURQM9EQTD URUGQM9EQT$ QS8 QEEGUTYIIE,QTUHHM<JPI=CUUQNIEARIIASQCULQAURQDD INADQTUHQN$ UNICQEUMQNUTAD4.J4/HJT/AT%NQTUHP ECQL%LINAGUSEEQU9EICAEMI)SHM<JP%9
HM<JP%9TPI4(H/%QH =QIMNQR5EUEQNP EVQLUUHM<JP%9TPI5JQSL QRETAD5DHJT/AT%NP-0(QE]NITAHIOAFQTUHT USAM4)HJT/AT%NQAQDURMEQS< UFP IHAEQU%NITASQD]IAI5THJT/AT%NQAQDURMEQS< UFP IHAEQB9IUA%RP =CUUQNAE5RHJT/AT%NQAQDURMEQS< UFP IHAEUDMIQPELQY4 UEMSQAUGP EPQCUKAT(MT/P%
N(M/(MUCQRQAQDL,IM$JQTQAH AIUCQRQAQDPI\/IEATQTUHT UNQMUBQR< QFP QI%GITASIIANQTUHT USAM(MTIMIQZL QRETAD5DPJPIICAAUCQRAA5ATJPIIAADQIL QRETAD%DP/UGUTP IHAEQAQDURMEQS< UFP IHAEQU%NITASQD]IAI5TPJ$IISAZUCQRQAQDPI</UFP IHAEUCQRP UTIXATQAURAA4.PJPIICAAUCQRAA5BTJP
IAADQIL QRETAD%DP/UGUTP IHAEQAQDURMEQS< UFP IHAEQU%NITASQD]IAI5TPJ$IISAZUCQRQAQDPI</UFP IHAEQB9IUA%RP =CUUQNIE9RM$JQDECT ICQTMAM$JQA1CHI<IQIMNQR5EUEQNT IAQG5UUEQNP UNUGQAQIUV 4?TJLIIPAAQCELM$JUJMMT ICQT1CIR<IUYMEP,\ QOL QLEEQRL QO9UUTIEQSX UIMRAT4.PJDIAC%
TIH/QE=MIVAEQM9IIUASQS]IIN,IIAFUA%N.(MPI1CULH AA5LPJLIILALURIAM$JQTQAH AIUCQRAA%BP/QAUDP IHAEQIMNQR5EUEQNP =TP !TUET UNQIAS(MPIMDQA$ T ICQTIAPIP/QI%GAT4.PJ(IIMAPUCQRIA,2H1<IIGAOQCUHICAKUFIOH AAQU%NITASQD]IIIATQOUVQR1FAO5WTJICMTEAT,PIIAADQIL QRETIB<IQWUHQN
 P ECUR%RP MOUCIUIS,QCUHICAKIIAFQTUH (MPIETID  L-4H4$0PI8/IEAWQD]IIIATIIASUN]OH AAQSEPIC9EM$JQSEZP 1CAA(MPI5JQPL QRETH2<IIN1OP =GP QAQD$ UNP IHAEUCIAAR5YTJPIIAADL(4H6$1TI$/IE1SP USUTP IHAEUN]EP %DUGQIP =TH 81M$JQDECH AIUCQRAA5BPJ(IIMAPUCQRAA$3P/=GP 9OM0JU
QRIA02TIMIQZ$ T ICQTIAPI$/UNICQEUMINATQTUHP %DUGQIM$JQTQAH AIUCQRAA%BT/MIP !TQEP QI%GMTD P0< QR\ QREEUTIE 4?TJPIIAADL(P-L0H7)(MTIASAA(MPI5JQPL QRETH3<IIN1OP =GP 9OM$JQTQAL P(L06H)<IUYMET,H QEUSUTP IHAEQD]IIIATITAOUZIEAO4.PJPIICAAQIL QRETAB(MPI1CQBL AM%API
/QOUVP !TUEP UEQXP =PUIQNIEARUFIOP !TQE8 UEQXM$JQTQAT ICQTIATI/QOUWQR< UFP IE9NM$JQDECT ICQTIAM$JUI)ST ICQTEAPI$/USP IHAEQL=OQPL QO9UUTIEP UZIRAO?(MPI5JQPL QRETH1<IIN1OT IPQOUCISASQTUHP ECUR%RP %DUGQIM4JTJICMTMAP,LIAL5BPJDIAC%LPI\/IEATQTUHP 9IQCURQM9EUTX 
AULAE(MPI1CULH AA%LHI/QR5EQOUVP 9AUYL QI9GP %BQTD AN5DPJLIILALURIAM$JQCYDL 2M$JQTQAH AIUCQRAA%CP/$ QN=TP !TQE0 IOAWQOQRIEARQB9IUA%RP =CUUQNAE5RPJPIICAAQIL QRETAC(MPI9SAL$IP/EWUSP UHIEQED P ECUR%R 4?PJ(IIMAPUCQRAA$4P/=NP ECUR%RP,D ILALQD9OIE,IGAOAO5NPJ$IIS
ZUCQRAA%CP/QAQDL UAIRQY$ QN=TP %HIGAHQOQRIEARQB9IUA%RM$JUI)SH AIUCQRAA%CP/L QO9UUTIE.(MPI=NAP(MPMLJQRETH4,P QCQFL AU5RTJPIIAADQIL QRETAD%DP/UGUTP IHAEQAQDURMEQS< UFP IHAEUDMIQPELAY(MTIMIQZL QRETAD%DP/4 UEMSQAUG.(MPIMDQAL QRET5(MPIETQD$ T ICMTUAPI$/USP IHA
UMMEQS]AUE QEQNQI]N 4?TJLIIZAAQCELM$JUJAMH AIUCQRQAQDTI$/IE1ST UJISATURQEQU9R.(MM$JQC1AHI<IIN1OP USINADIIATITAOQTUHT ICQT  QAQNULIE.(MPIUSAN5DPJLIAR5TTJICMTUAL,IM$JQCILM$JUJAMH AIUCQRQAQDPI8/IOAWIW]EIRAEQF9IQI!SIE1DP URUTIUAN(MM4JTJICQTEAL,IHI<IQLMOIAALQS
TQR]AAE(MUCQRIA1BI40TJICQTMAH, 0(MUCQRIA1DI40HJ<LHM<JHM<J%%RQCULIAARQTUHT ICUTH QO1LT QSUAUTQSL QO9UUTIEAS(M/(MT/P%QWLIQOUMP UHIRAEITAOQCULIAARQTUHP =RILALQSETUTMUP =CUUQNUEMR.(M/(M/(M/(MUCQRUCILL,IM$JQCILP EIAC(MPIETQDL QRETIA<IUSQET AUH AAQL=OQPL QO9UUT
E.(MPIMDQAL QRETAD(MPIETQDL QRETIA<IUGQEP !TQED UDIDUEMSP YOP !TUEP UEQXT IAIE9AM$JQTQAT ICQTIAM$JQDECT IX143TJPIIAADL(4H4$0PIX/QI1LP !TUEP UEQXT IAIEAAUWQIUHL QPMAIE9SM$JQDECH AIMXER3(MTIMIQZL QRETAD(MPI5JIP8 -43TJPIIAADL(4H6$0TI/IUATUA( QE=RP 9IP !TUET 
NQIQSP QI%GAT4.PJPIICAAUI  MRL1M$JQCYDL 2M$JQDECH AIUCQRAA%CP/1CUEIAP !TUET UNQIQSL QO9UUTIEP %DUGQI.(MPIQCQFL AU5RTJPIIAADUCQRAA%AT/MIP !TQEH QIENIRAYUCUOQNUTQRP QOIUILAEQPURAC4.TJPIIAADH($4M$JQSEMT )SQAL AL5APJ(IIMAPQIL QRMTAL%RP/=NT,H UEUTIR9NM$JQCILP 
IAC$IP/UYIS,QCULIAARQTUHP %HIGAHQOQRIEARUWIOAD(MPIETQDL QRETIC<IIOAFQTUHP %BUNIAQYL QO9UUTIE.(MPIMDQAL QRETAD(MPIQCMFH 0(MPIMDQA$ T ICQTQAM$JQCYDT UCAR(MPI5JQP$ T ICQT1CIR<IUN]OP URUTIUAN4.J(MPIEPAG5EJ(MPI=NQP9UAC%HPIX/P3=CIMAMQAQNT ICUT!TQTX QO1LAO5WJ4IT
 IULMIMTD M0JDM(J

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search