File USERCD.PA (PAL assembler source file)

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

T/T USIEP =CQMEMINADUDMIUPQAAC%HI$IP9(-IU5L941J4/J4/J4/J$/IU H AUT L USMSP T QEUEIE URIRIR P L QCMCP P QDQDHM<JHIAUT T T L H  H  IE H  H ART H P L H  H  ID  5DJ$/IU H AUH ASH  P T H  H  IR H ARH ACH  P P H  AD(MT/TIH  IU T MSIS P UEIEAET H URIRH  IC H  H 
DP P HM<JHIAUT T H  H  IS IE H  H ARIR P L H  H  ID  5DJ$/IU H AUH  T L P T H  H  IR IR H ACH  P P H  AD(MH/IUUUUH  USMSIS P UEQEUET H H  IR P MCICACP QDAD5DJ4/J4/J4/J(M/(MP/QEIIATUHMIUTIOAY4:J4/LJL/P0D-IU5G9$0P(!LAN4)J$/H1)QUUSP EPQR5AQEUTQRX IOARUIQNQE1
QO-CP UMQSESAG5EJ4/LJH/P84-IA5Y9$1P(!LAN4)J$/H1)QAQDIEADP"9IQS=PIN"QAQNP 8"QO9IISIPP =CQMEMUNMDHM<JHM<JHM<JH142QJ9UL-D9PI0(IH%NPIXIIOARUVIEQS=IMNP HM<JHI$1P P QEULQTQEP %LIS1TT MPIM,MCEHP,L IH2QAQNP !CP3L QO5MQAQNAS(ML/HIH) QCEHQNUGUDP UTMYQTL QA1LP =TT Q
AY(ML/LIH) QAQDIEADULQPIO1NP =NULQPP,L QO=MQMD INADQNMOIOAMQC5OQM9AAD5SJ4/J(M/(M/(MT/PIUHMIP ETISAKQDMEQOUDQSD INADQEUXUCQUIEASQUUSAR(MP/0IQEUVULP QEULUTAYQEL QO5MQAQNAS(M/(M/(MM4JTJPIQA-ST=TIUSIEAC5DPJLIMU5RTIMUQEYRAL5DPJ$IUN]IAT$=0(MPIUVMR5SI44J(MM$JUTM
MK42TI!EAI5TPJLIMUIRP=LIAU5RPJ$IUN]IMT42I40TJXIUEMR2$=3(MM4JPJXIQI1EQDL IUUR140HJ(IQUUSQR=LAC(ML4/TJQSUAQRP,LIILABM$JQC1AM$JQRMEUEYIAE(MQMQAID1RI40PJPIICAAQM]SQFQL+41PJDIMC0042TJPIIAADQMQAAD5RPJPIICAAQMQAAD5RJ(MPI5JQS4 QSYGAL%DT/MIP !TIIASQA8 QU1LP UMQSES
GAE?(MPIETQD$ P EMUDIDM$JQCYDT UCAR(MTIASUAL INAAQCELM$JUJAMT MUUE!RIT<IUYMEP,( UUQST !EII9TM4JTJPIIAADP(5CUDMLMT\-)(MPIMDUAT USIEIB<IUSQET AUH AAQP%OQNUTURP QOL QO5MQAQNP %LAS5TJ(MQUUSIR01P L AL5BTJPIIAADH($7HI<IQIMNQR5EUEQNP !TQE0 UIQSP =PUIQNAE5RTJPIIA
DQUUSAR%BP/=TP !TQE8 UEQXP 9EUT%R.(MPIMDUAT USIEAB(MM$JQIMAM$JQTQAT MUQEIRM$JQDECT MUQEMRM$JQTQAH AIQUUSAR%CT/QAP 9EQD< QFL QO5MQAQNP %LISAT?(MPI9SQAL AL5APJ(IIMAPQUUSURIETI$/IE1SP =LQGT QR=RAR4.TJPIIAADQMQAAD%RP/URUSQEP !TQE4 UEMSQAUGP =PUIQNIE9RM$JQDECT
MUQEQRM4JTJMUMEIRT,PIIAADUIT USIEIC<IUGQEP !TQE8 UEQXP =CQMEMINADQCEHQRMAUTIE.(MPI9SQAL AL%ATIP/UHMIP =CQMEMINADQF9IQI!SIEAD?(MPI5JUPT USIEH1<IUYMET,P IRAYQTUHP UNIXATQC5OQM9AAD4.J(MPI5JQS4 QSYGAL%DP/UGUTP IHAEUN!EQT4 UEMSQAUGP !CQAERQCUTAR4.TJPIIAADUIT U
IEAD(MTIMIUZT USIEAD(MPIQCQFL AU5RJ4IPJLIAI%APIL/QHMEQK8 UEQXP =CQMEMINADQCEHQRMAUTIE.(MPIETQD$ T MUQEMRM$JUI)ST MUQEMRM$JQSEZP 1CAA(MPI5JUPT USIEH1<IINAOUMQAIC1HT ITQY8 UEQXP =CQMEMIN9DM$JUJMMT MMQG1FID<IIIASUN!EQTL UHIAH AAUTIEQM9IQA=TAR4?TJPIIAADUIT US
EAD(MPIQCQFL AU5RTJLIIMAAQSEZP 1CAA(MPI5JUPT USIEH2<IIN1OP =GP =CQMEPIRAEQS5OQE4 QOURM0J/(MPIETQD$ T MUQEIRTI$/IE1SP EMQT!CP =FQUQNP,\ IEATQC5OQM9AAD(MPIMDUAT USIEIB<IP QAQDURISASQAQNP =GP !TQEUR.(MTIQSAL(MPI5JQP$ T MUQEIRM4JTJMUQEURIR,QCYDT UCAR(MPIECAL(
PIUSAN5DTJPIAT5YTJTIUSIEAM5GJ(MQUUSURQXP,L IDAFUCIUM$JQCILM$JQTQAT MMQG1FMDD+M$JQDECT MUUE!R1(MPIETID  H-$5M$JQTQAP EMUDIDM$JQC1AM$JUPMOAT(MQUUSMREXL, M$JUJAMT QSUAQRM4JJ(MQM]SQFQLL,IM$JUHQLM$JUJAMH AIQM]SQFQLM4JTJMUQE5RAG$,QZ1BQO-C 43LJIM$J0(MPIUTIXATP"9
QV1AIIADQC5OQM9AAD4"J(MT/MUQEERH, 0$IP/=LQC1AT QSQOERAG5ETJMUQEIRL,ITMTJUSIEAC$,0(MQUUSIR1DI40HJ<LHM<JHM<JT%QRTI!EIIATQF=RQM4 UAQSP 9AUDH UEUTIRANITAOIO=S8(M/(MT/P%UW\IQH9EQEUVURP IHAEQUUSQRT QNUTIRASQTUHP T"UXQIP"L QO5MQAQN,(MP/4IICARQW1IULH IUANQT%HUSP 
A-SP.$ QF4 UAQST MIP 9IP UTISATQMQOAE4,J$/QC9OQT=RUL\ QI1LP UBP URUTIUQNQEP =TT MOH/88P YIP EMISATIIASUNQOHM<JPI9IP UTISATQMQOIE,QTUHP =CQMEMINADIIASQI9GQOURAD4.J4/J4/TJQSUAQR2$,QCILM$JQC1AM$JUSMUQPQNHI<IQSULIEAPP	%TQL8 QEQEIE9DM4JPJPIQB%R5$0PID/IRAEIWAEI
ANUTMEQT4 QOUD 4?PJDIINADL(0H4$0M$JQSEZP 1CAA(MPI5JUPL UTIAAT$2P/=NP,$ QG=NIRAEQTUHP =CQMEMIN9DM4JPJLIAA%LPID/ISAKP"9IQLMOIK"ITAOQOUPUNP IHAEP"EMAS5TTJLIQEQNHI<IP =MUNQIIOIRP 9IUTIEQLMOAK(MPI9IQLMOAK(MTI!EQT9IAL(MM$JQC1AHI<IQA-SP !TQEL IRATQH9AQDULURP UOH
UEQSQOURM$JQS9EAD%WHI/QTUHT QVL22T UCQR=SAR(MTIICAT(MTI!EUTICAT(MM$JQC1AHI<IQW%AQTX IOARH.5QSMEQOQNUSP QOH UEL QUURM$JQS9EAD%WHI/QTUHT QVL22T UCQR=SQR$ USH UEQSQOURAD(MPI1CQO-CM$JUEQXQC-LM4JPJ$IAO%FTIL/UHQUP EMISATUD]OQND INADURMEUTIAQT< MS /M$JQCYAM$JQCY
P %CMF M$JUJAMH AIL(X7H0$0M4JJ4/TJ!EQT9IAL$,QZ1BQO-C $3T/AOIEANP"EMISATQM9OQI=TIR"UIQNQE1RQO-CM$JUMQSQI1NHI<IP %WQT=HIUATQA4 UEMSQAUGM4JTJ!EUTICAT$,QZ1BQO-C 43PJLIURYT0$2TIP/UEQXP =TP URQS=TIRAEQTUHT QVL22T UCQR=SAR(MPMTJQXMTIL1KPIIZQLMOMKL TI\/UAQIP =FIR
 T5L QE=CUNMDM$J0(MI40LJXI2$IL/5P04 IS4 H>8 T5L QE=CUNMDM0J/(MM$JQP]AAE(ML4/J4/J$/QC5OQM9AQD0 UIQSHM<JHM<JM4JPJ5CUDMLIT,QCQMAP41HJHI?4ITJ(IQB=LICAK5(MM$JQCQMAP42HJHIAS$IT/L"P"X IOARQS5AQPULP EGAT5ETJ(IQB=LICAK5(MM$JQCQMAP43HJHIAR$IT/H"IA"UFIOP URQJMEQTD P
EGAT5EHJHIAA(MPIIZQLMOMKP M4JPJLIUMAD4(MTIH"HI<IP"IRP"X IOARQR)EUEQCH ABUGQAAE(MPIH"M$JQZ1BQO-C 44J(MPI5CMDUPI(MTI"HI<IP"MPP"X IOARQP=RQDMUQTL P EGAT5EHJHIAC(MPIIZQLMOMKP M4JPJLIUMAD6(MTI"HI<IP"EPP"X IOARQP=RQDMUQTH P EGAT5EHJHIAA(MPIIZQLMOMKP M4JPJLIUMAD
(MTI"HI<IP"IPP"X IOARQP=RQDMUQTD P EGAT5EHJHIAB(MPIIZQLMOMKP M4JPJLIUMAD8(MPI8"HI<IP"=NINIEP =TP UGQT< IUATIOAFQSETQCUKURP UEQSM$J"5OHJHIAN(MPIT"M$JQZ1BQO-C 42J(ML4/PJLIUMAD9(MPI$"HI<IP"9IQS=PIN"ITAOUTIUQN< QN$ UNASUEQCQI9OM$J"5NHJHIAS(MTI"M$J"5OHJHIAN(MM
JQCQMMP1M$J"%NHIH/QN%OUNAST"P UOP QU9RP 9IQSUPQC%TIOANQOYFM$J"5OHJHIAI(MPI8"M$J"5SHJHIAP(ML4/PJLIUMAD141HJHIAL$IP/0"QP=TIN"ITAOQEENQBULP ESQM1PUEP QA1LIEAYQP%RQNUTAR(MTI"M$J"5THJHIAO(MPI8"M$J0(MM$JQCQMMPH1M$J"%NHIH/QN1OIPITP =TP %DQSIAILAEQT1AUL%ET IPUIQN
E5RHJHIAO(MPI0"M$J"5PHJHIAT(MI40J(MPI5CMDEP3(MPIL"HI<IP"=CQM9OT"P QOT QNIAILAEUGQAQEEWQYL QO5MQU%NUCQAQI9OAS(MPI<"M$J"5MHJHIAO(MPI8"M$J0(MM$JQCQMMPP1M$J"%NHIH/QNMOIOIMP =TP %DQSIAILAEUGQAQEEWQYL QO5MQU%NUCQAQI9OAS(MPI<"M$J"5CHJHIAO(MPI4"M$J0(MHM<JHM<JHM<J
$JQUUSURIEHI<IQEQNP YOP =CQMEMINADULMIAT(MPIIZQLMOMKX M4JTJIQAUGM0J/(M/(MP/LIQO5MQAQNT IPQOUCQS=SURL UEUQQEMNAE5SJ4/J4/J(MQCQMIP01PI1CAB(MPI5JUPT USIEAX5TJ(MQCQMIP02PIERAL$IP/ESQM1PQE\ QAUTPMLJUMAD3$,QR1AHI<IQR)EUEQCH AAUGQAAE(MQCQMIP04PIERAL$IP/URQJMEQTH
P EGAT5EPJ5CMDUPT,HIAA%LTI/QRQOUUQCH ACUGQAAE(MQCQMIP06PIERAL$IT/IPUOUDICATQA\ QAUTPMLJUMAD7$,QR1AHI<IQP=RQDMUQTH P EGAT5EPJLIIDAF140PJPIICAAII  QSETQKQW)(MPIIDMRUI0$IT/IAUE\ QE$ UNP UEQSP =MIDAE?(MPI9AID  L0P004)TJLIIZAAQCELM$JUJAMT MUQEURIR<IIN1OP ESQYT
QR=RAR4.PJLIILABQIMAHI<IP UYIS,USQEP !TUEL QTMAUKIE (MPIMDQA$ T L(QT-AIF%GPI4/QA9IQT9EQAMNQEX QL]A.(MPI5JUPT USIEAX%TP/9AQDT UXQI.(MM0J/(MQCQMIP08PI1CAB(MPIQCMFD 0(MPIMDQA$ T L(QT-AIW%DTIP/QU9RP YOUFL QTMAUKIEP UTAS5TPJPIICAAII  QSETQK]F)(MPI5JUPT USIEAX5
J(MQCQMIP09PI1CAB$IT/UTIRANIOANUIMNQPMEQT=IAN(MPI=IAF$IP/%FURQSP,L QLEEQRD INAYP"1OID"QDYEUEQCP %BAT5SPJPIQB%R5$0HI/QTUHQNT QNIAILAEQCEHQNUNMLH M$JQAQNL (L0\1)(MPIIDMCUI0(MPI=IAN(MPI1CAB(MPIETID  MCIHQDYE)(MPIECAL(MPI9UUBIAAG(MTIMUUE]RAT(MPI5JUPT USIEAX5T
(MQCQMMP1P,LIAL%BTIP/QU9RP 9IQSUPQC%TIOANQOYFM$JQTQAP L(QHP2IE%FPIP/QIESQBULP !CQA9NIEAL2(MPIECAL(MPI1BUKIAAG(MTIMUUE]RAT(MPI5JUPT USIEAX5TJ(MQCQMMPD1P,LIILABQIMAHI<IQEENQBULP !TUEL UAAMILAEQT1AUL%ET IPUIQNAE5RPJPIICAAQEINULQPM$JUJAMT MUUE!RAT(MPMLJUMADH1
2PI1CAB$IP/%DQSIAILAEQTUHP ESQM1PUEP QA1LIEAYQP%RQNUTAR(MPIMDQAT QN1BAP5TPJ(IIMAPQUUSURQXM4JPJ5CMDEP3$,QCILP EIAC$IP/9EQA1BUEP IHAEUGQAQEEWQYL QO5MQU%NUCQAQI9OAS(MPIMDQAT QNMBAO5MPJ(IIMAPQUUSURQXM4JPJ5CMDEP4$,QCIL $IP/%DQSIAILAEQTUHP EGQTUTUW%AP =CUMUMQNM
QA%TUOMNM$JQDECP 9EQB=CAM(MPI5JUPT USIEAX5TJ(MPIEPAG5EJ(MPI=NQP9UAC%HPIX/P4=CIMAMQF1OUL]OAS(MPI1XUIQS 41J4LJZ

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