File MSTMAP.PA (PAL assembler source file)

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

/$II$ILI3T-UAMG$-1(M/(M/(M/(MP/4IH  IM T MSISAST QTUTQTP 4 H  IM P EAIA T APAP5PJ$/IMAMIMAMH ASH  H  H ATH  IMAMIMAMH AAP D T  H  AP(MP/4IH AMIM IS H  H  IT P 4 H AMIM IA H AAH APT  HM<JHIAMP 4 H  USMSH  T P H  H AMP 4 P D H  IA UPAPAP(MP/4IH  IM H  H ASH
 IT P 4 H  IM QAEAIAAA 5PHJ/H  HIAMP 4 H  H  IS T P H  H AMP 4 P D H  IA AP(MP/4IH  IM USMSIS H  IT P 4 H  IM IA H AA 5PJ4/J4/J4/HJ<LI$II$ITIIQAUG 41J4/J$/UMMAUTL UYQSIEAMQSYOQTEWIRAEP-L QOURP 1UQT1IQIEZQT=IQN4 AA5PJ4/J4/J(ML00H00HI(*H*(*LMJL010$ *(MI4*LJ
L20I4*LJ0L30I4*HJ(ILMJL04H0(ILMJL05H0(IM$J*(ML0X00$0*(ML0\00$0*(MI4*LJD0L00I4*LJD0L10I4*HJ(ILMJL12H0(ILMJL13H0(IM$J*(ML0P10$0*$IURMTH/8T-H QE1AP %TIMAEQEUXUCQUQIUVLMJL15H0(IM$J*(ML0X10$0*(ML0\10$0*(MI4*LJH0L00I4*LJH0L10I4*HJ(ILMJL22H0(ILMJL23H0(IH*(**(MI(
L0P20$0H*(**4*LJH0L50I4*HJ(IHIHIQC=LICIKH -QREEULP QIUMP 1CQO-CP EHQN1DAE5RLJH0L60I4*LJH0L70I4*HJ(ILMJL30H0(IH*(**(ML0D30$0*$IQC=LICAKUMMEQS]AQEH QUYFAE5RHJ(II(ML0H30$0*(ML0L30$0H*(**4*J(ML0P30$0H*(**4*LJL0L50I4*HJ(IHIHIUPIWIF"T- QOUWQREFII=LUAQUUOH UEQSU
QRLMJL36H0(ILMJL37H0(IH*(**(MM0J/$II$II$IQP]AMEH HM<JHM<JPIEMISATUCIOUET QL%TUL)IQA%TIO1NP =CQN%TQNUUAD(M/(M/(MLMJL40H0(IH*(**$IT"UNILILH -QN1UULP QA-SLMJL4104IJ4ILJP0L20I(ML0L40$0M$JLMJL44H0(IH*(**(ML0T40$0*(MI4*LJP0L60I4*LJP0L70I4*HJ(ILMJL50H0(ILMJL51H0
IM$J*(ML0H50$0*$IP"MMIR"P-4 QO%NUTIOP =CQN=SILAEURUOQT9IAE(ML0L50$0*(MI4*LJT0L40I4*LJT0L50I4*HJ(ILMJL56H0(ILMJL57H0(IM$J*(ML060$0*(ML0D60$0*(MI4*LJX0L20I4*LJX0L30I4*HJ(ILMJL64H0(ILMJL65H0(IM$J*(ML0X60$0*(ML0\60$0*(MI4*LJ\0L00I4*LJ\0L10I4*HJ(ILMJL72H0(ILMJ
73H0(IH*(**(MI(ML0P70$0LMJL7504IJ(ML0X7H00LMJL7704 J(ML$/I$II$IPIEPIGAE3(M/(MP/4IUAQSP =CIRAEUUQLQI%LUZQAQI9OP,L UOQNUIUNAE5DJ4/J4/J(ML100$0H*(**$*PI1GQOEBQLL QO5MIOANUFIOP EMISATQSYOQTEWAR5ELJ1L10HI(*H*(*M$J*(ML1H00$0*$IL"EFQC5OIM"P-X QI1EMDD P =CQM=MAN(
L1L00$0H*(**4*J(ML1P00$0H*(**4*LJ1L50I$*PIUDQFMEQT4 QE=MIRAYQTIAAL5EHJ(ILMDJL06H0(ILMDJL07H0(IH*(**(MLMDJL10H0(IH*(**$IUTMAQKP UIASQAMTUHP QA1BAE(ML1D10$0H*(**4*J(ML1H10$0H*(**4*LJD1L30I4*HJ(ILMDJL14H0(ILMDJL15H0(IM$J*(ML1X10$0H* HIHIQM5EUO%RH"4 P =MQT=IU
 UUMLUE QRMOUEMSAO5RLJD1L70I4*HJ(ILMDJL20H0(IHIHIQC=HIP"T-L QHUEQTP QE%CQS=IUN QRMOUEMSAO5RLJH1L10I4*HJ(ILMDJL22H0(ILMDJL23H0(IM$J*(ML1P20$0*(ML1T20$0H*(**4*J4ILJH1L60HI(*H*(*HIHIQL9IUEASH"4 P =CUMUPITAEUGQAQED QDEVQNUCLMDJL27H0(IH*(**4IJ(ML130$0H*(**$*PI
"QHP2IEIFP,L UHL1IPILH -QCEHQNUNMLH P UDQFMEUT QRMOUEMSUOMRLMDJL31H0(IM$J*(ML1H30$0*(ML1L30$0H*(**4*J(ML1P30$0H*(**$*TIL"UGQAIE"T-L UAAMILAEUGQAQE  QAQNULIELMDJL35H0(IH*(**(MLMDJL36H0(IH*(**$IP"ERUGQAIE0"T H"QBEGITIEH -QR)EUEQCP EGITAEQH9AQDULAR5SLJL1L70H
(*H*(*M4JHJ<LI$II$ITIIQAUG 44J4/J$/UMMAQTL QOURP 1UQT1IQIEZQT=IIN,QC9OQT9IQUQEHM<JHM<JM4JLJP1L00HI(*H*(*LMDJL41H0(IHIHIQP]AQAUTH"4 T IPUOUDICATUGQAQE  QAQNULIEAS(MI$*TI"QBEGITIELMDJL43H0(IHIHIQP]CQAUT"(ML1P40$0H*(**4*J(ML1P40$0H*(**$*TIP"UR%AICIKH -QSETQC
KURP UR%AP =MUNQIAO5RLJP1L50HI(*H*(*M$JLMDJL46H0(IH*(**(ML1\40$0*(MI4*LJT1L00I4*LJT1L10I4*HJ(ILMDJL52H0(IHIHIQD]IUIANH"4 P %DUGQIIAALUIANIUATQP=RUCMEUSIOLMDJL53H0(IM$J*(ML1P50$0*(ML1T50$0*(MI4*LJT1L60I4*LJT1L70I4*HJ(ILMDJL60H0(ILMDJL61H0(IM$J*(ML1H60$0*(M
1L60$0H*(**4*J(ML1P60$0H*(**4*LJX1L50I4*HJ(ILMDJL66H0(ILMDJL67H0(IM$J*(ML170$0*$IT"UBQIQLH"4 T UBQIQLP !TQEP UIASQAMTUHP QA1BAE(ML1D70$0*(MI4*LJ\1L20I4*LJ\1L30I4*HJ(ILMDJL74H0(ILMDJL75H0(IH*(**(MLMDJL76H0(IH*(**$IURMEUEYRIEADUFIOT MOH/8QM9OQI=TIRD !(ML1\7
$0H*(**4*J(ML$/I$II$IPIEPIGAE5(M/(MP/4IUAQSP =CIRAEUUQLQI%LUZQAQI9OP,L UOQNUIUNAE5DJ4/J4/J(ML200$0H*(**$*PIX"P2=CIMIMH -QFUIILADP2L QO5MAO5NLJ2L10HI(*H*(*M4JLJ2L20HI(*H*(*LMHJL03H0(IM$J*(ML2P00$0*(ML2T00$0*(MI4*LJ2L60I4*LJ2L70I4*HJ(ILMHJL10H0(ILMHJL11H0(I
IHIQT1AUL%EH"4 P ESQM1PUEP QA1LIEAYQG9EQEERUTIOM$J*(ML2H10$0*(ML2L10$0*(MI4*LJD2L40I4*LJD2L50I4*HJ(ILMHJL16H0(ILMHJL17H0(IM$J*(ML220$0*(ML2D20$0*(MI4*LJH2L20I4*LJH2L30HI(*H*(*M4JLJH2L40HI(*H*(*LMHJL25H0(IM$J*(ML2X20$0*$IP"ESQM1PIE"T-D QU1AUI%TP =CUNITIOAL
S5AQPULP MSQHQEQUULAR(ML2\20$0*(MI4*LJL2L00I4*LJL2L10HI(*H*(*M4JLJL2L20 (ML2L3H00M4JLJL2L40HI(*H*(*HIHIUEIOQS5UH"4 P 9EQD< UFH QO1LT USQMEMIRAYQC9OQT=RAL(ML2T30$0H*(**4*J(ML2X30$0H*(**$*TI"URMEIFH2H -QPURUSQEP %FQEQL 42LJL2L70HI(*H*(*M4JHJ<LI$II$ITIIQAUG 
6J4/J$/UMMAQTL QOURP 1UQT1IQIEZQT=IIN,QC9OQT9IQUQEHM<JHM<JM4JLJP2L00HI(*H*(*LMHJL41H0(I (MI4*LJP2L20HI*LMHJL43H0(I (MI4*LJP2L40HI*LMHJL45H0(I (MI4*LJP2L60HI*LMHJL47H0(I (MI4*LJT2L00HI*LMHJL51H0(I (MI4*LJT2L20I$*T"ALUT!TIT"T-L UAAMILAEQT1AUL%EP UTIXATQS=TQ
]AAE(ML2L50$0*$IH  QAQNP %LINAEQBYUUFIET ASQAUCM$J*(ML2P50$0*4 LJT2L50HI*M$J*(ML2X50$0*4 LJT2L70HI*M$J*(ML260$0*4 LJX2L10HI*M$J*(ML2H60$0*4 LJX2L30HI*M$J*(ML2P60$0*4 LJX2L50HI*M$J*(ML2X60$0*4 LJX2L70HI(*H*(* (MLMHJL700(ML2D7040J(ML2H7H00LMHJL7304 J(ML2P7H
0LMHJL7504 J(ML2X7H00LMHJL7704 J(ML$/I$II$IPIEPIGAE7(M/(MP/4IUAQSP =CIRAEUUQLQI%LUZQAQI9OP,L UOQNUIUNAE5DJ4/J4/J(ML300$0H*(**$*PIX"P3=CIMIMH -QFUIILADP3L QO5MAO5NLJ3L10H (IH*(**(MLMLJL02H0(IH*(**$IP"5IQQUUH"4 P ESQM1PQE4 QA-RIEARUDQAUAD UUUEAE(ML3L0H00HI(
H*(*M4JLJ3L40H (IH*(**(ML3T0H00I4*HJ(ILMLJL060$ *(ML3\0H00I4*HJ(ILMLJL100$ *(ML3D1H00I4*HJ(ILMLJL120$ *$IP"=RQLQLIT"T-H MTD0P EDITAAQDMEQOUDP ETAS5KLJD3L30H (IM$J*(ML3P1H00I4*LJD3L50H (IM$J*(ML3X1H00I4*LJD3L70H (IM$J*(ML32H00I4*LJH3L10H (IM$J*(ML3H20$0*(M
3L20$0*(MI4*LJH3L40I4*LJH3L50HI(*H*(*M4JLJH3L60 4ILJH3L70 (MLMLJL300$ LMLJL310$ M$JLMLJL320$ H*(**4*LJL3L30H (IHIHIUCQRUCITH"4 T AUUDQAUEP IHAEUCQRP EDITAAUCUOQNUTAR5SHJ(ILMLJL340$ *(ML3T3H00HI(*H*(*M4JLJL3L60H (IH*(**$IP"EMQRUKIR"T-L UAAMILAEUMIAUKIEP EH
N1DAE5RLJL3L70H (IH*(**(MM0J/$II$II$IQP]AME  HM<JHM<JPIEMISATUCIOUET QL%TUL)IQA%TIO1NP =CQN%TQNUUAD(M/(M/(MLMLJL400$ H*(**4*LJP3L10H (IHIHIUMMIICH1H -UMMIQC1EQL9AUEUOQSL UHAOT UFUNQCQI9OAS(MI4*LJP3L20H (ILMLJL430$ H*(*H*(*M$JLMLJL440$ H*(**4*LJP3L50H (IM$
*(ML3X4H00I4*LJP3L70H (IHIHIQEQNQR1OH"4 T URQN%NINAGQEQNP YOP =RILALQS5UUMIAAY(MI4*LJT3L00H (ILMLJL510$ H*(**4*J4ILJT3L20H (IH*(**$IT"IPQEYSH3"T- URMEIEATQFUIILAD3(ML3L50$0H*(**4*J(ML3P5H00HI(*H*(*LMLJL550$ *(MI4*LJT3L60I4*LJT3L70I4*HJ(ILMLJL600$ *(ML3D6H
0I4*HJ(ILMLJL620$ *(ML3L6H00I4*HJ(ILMLJL640$ *$IT"ICUT!TIT"P-L IRATUT!EUTL UTIOQAUGT IAAE5ALJX3L50H (IM$J*(ML3X6H00I4*LJX3L70H (IM$J*(ML370$0*(ML3D70$0*(MI4*LJ\3L20H (ILMLJL730$ *(MI4*LJ\3L40I4*LJ\3L50HI(*H*(*M4JLJ\3L60LMLJL770(MM0J/$II$II$IQP]AME$ HM<JHM
JPIEMISATUCIOUET QL%TUL)IQA%TIO1NP =CQN%TQNUUAD(M/(M/(MLMPJL000$ H*(**$*PIX"P4=CIMIMH -QFUIILADP4L QO5MAO5NLJ4L10H (IH*(**(MLMPJL020$ H*(**4*LJ4L30H (IM$J*(ML4P0H00I$*PIL"IRITH -QV=TP5L IRATUDMIQPELQY  QAQNULIELMPJL050$ *$IT"ICUTMMIG"P-L IRATQOUPURQAIOARU
MEQS]AQEL UOQNQR1OM$J*$IT"QVQD9IIP"T-X MTH2P0< UPIEQA=TQR$ UNUPAT(ML4X0H00I$*TIH"QFURISIHH -QRYEURMEUH QRQOUUQCP EDITAAIOANQTUHT ICAT(ML4\0H00I4*HJ(ILMPJL100$ *(ML4D1H00I4*HJ(ILMPJL12H0(ILMPJL13H0(IM$J*(ML4P10$0*(ML4T10$0*(MI4*LJD4L60I4*LJD4L70I4*HJ(ILMPJ
20H0(ILMPJL21H0(IH*(**(MLMPJL220(ML4L2040J(ML4P2040LJH4L50M4JLJH4L60LMPJL270(MLMPJL300(ML4D3040J(ML4H3H00HI(*H*(*HIHIMRATH1"T-H MTD0P EDITAAUTIEQM9IIAALQH9AQDULAR(ML4L3H00HI(*H*(*M4JLJL4L40H (IH*(**$IT"ALIT"P-0 MA 1P00 QIUNT IPUIQNIEARQH9AQDULAR(ML4T3H00H
(*H*(*M4JLJL4L60H (IH*(**$IP"=LQGENIM"P-0 IOAGUOIUP ENIMAEQAQNP UVQR%SAO5NLJL4L70H (IHIHIQI%NQTUZH"4 P %SQM1UQAUTH AAUP]OIEARURMEUTIAAT(MM0J/$II$II$IQP]AMED 0(M/(MP/4IUAQSP =CIRAEUUQLQI%LUZQAQI9OP,L UOQNUIUNAE5DJ4/J4/LJ4L00I$*PI$"QN=LICIKH -QOUPUNH UEUQUE
SIEADUIQNQE1RQO-CAS(ML4D40$0H*(**$*PI4"URMEIEITH -QOUPURQAIOARUMMEQS]AUEH QEUSAT(MLMPJL420$ H*(**4*LJP4L30H (IHIHIUMAOQDMEH"4 T AOQEERUTIOT UPQSIHUUQTIOANQH9AQDULAR(MI$*PIH"QE1LH"4 P %RINAGQTUHT AOQEERUTIOP 1AUEQRP 1AQA5RLMPJL440$ *(ML4T4H00HI(**4*J(ML4X4
00HI(*H*(*LMPJL470$ *(MI4*LJT4L00H (IHIHIQUUSQRQCH"4 P UKQY=BQAQRP =CQMEMINADQP=RUCMEUSIOLMPJL510$ *$IT"!EIIITH -URQEQU9RP =TT MO/48HJ(ILMPJL520$ *(ML4L5H00HI(*H*(*M$JLMPJL5404 LJT4L50 (MLMPJL560$ H*(**4*LJT4L70H (IM$J*(ML46H00I4*LJX4L10H (IM$J*(ML4H6H00I
*LJX4L30H (IM$J*(ML4P6H00I$*PIX"QO5RIAITH -UT!EQT< UUATIUATUFIOUMQAUTIELMPJL650$ *(MI4*LJX4L60H (ILMPJL670$ *(MI4*LJ\4L00H (ILMPJL710$ H*(**4*J4ILJ\4L20H (IH*(**$IP"%DQRETIL"P-P QIURICATQS5AQPULP ETQLULQY< UUATAU5TLJ\4L30H (IH*(**4IJ(ML4P7H00LMPJL7504 J(M
4X7H00HI(*H*(*HIHIQPURMSQFH"4 T IPQEUSQTX QI1EMDP LMPJL770$ H*(**$*TIL"QCURIEINH -QRYEURMEUHP IHAEUEQNQIURT ICUTL QCURAE5NJ(ML$/I$II$IPIEPIGAE141J4/J$/UMMAQTL QOURP 1UQT1IQIEZQT=IIN,QC9OQT9IQUQEHM<JHM<JM4JLJ5L00HI(*H*(*HIHIQFL5QO5MH"4 P %FQEQLH 5QC5OQM9OL
TJL01H0(IH*(**(MLMTJL02H0(IH*(**(ML5L0H00I4*HJ(ILMTJL040$ *(ML5T0H00I$*TIP"QT5YH"4 P =CQN=SILAEQT1EUE%TIPAEQH9AQDULAR(MI4*LJ5L60H (ILMTJL070$ *(MI4*LJD5L00H (ILMTJL110$ H*(**4*J(ML5H1040LJD5L30M4JLJD5L40HI(*H*(*HIHIQPURMSUFT" URMEIEATQFUIILAD5(ML5T10$0H*(
*4*J(ML5X10$0H*(**4*LJD5L70I4*HJ(II(ML520$0*(ML5D20$0*(MI4*LJH5L20I4*LJH5L30I4*HJ(ILMTJL24H0(ILMTJL25H0(IM$J*(ML5X20$0*$IP"EGUT]EIY"P-L QO5MQU%NUCQAUE\ QI!TP EGUT]EAA5YLJH5L70I4*HJ(ILMTJL30H0(ILMTJL31H0(IM$J*(ML5H30$0*(ML5L30$0*(MI4*LJL5L40I4*LJL5L50HI(*H
(*I(MI(ML5X30$0LMTJL3704IJ4IHJ<LI$II$ITIIQAUGL H1HM<JHM<JPIEMISATUCIOUET QL%TUL)IQA%TIO1NP =CQN%TQNUUAD(M/(M/(MLMTJL4004ILJP5L10I(MI(ML5H40$0LMTJL4304IJ4ILJP5L40I(ML5T40$0M$JLMTJL4604ILJP5L70I(MI(ML550$0LMTJL5104IJ4ILJT5L20I(ML5L50$0M$JLMTJL5404ILJT5L50I(
I(ML5X50$0LMTJL5704IJ4ILJX5L00I(ML5D60$0M$JLMTJL6204ILJX5L30I(MLMTJL6404ILJX5L50I(MI(ML5X60$0LMTJL6\704IJ(ML570$0LMTJL710$ M4JLJ\5L20 (ML5L7H00M4JLJ\5L40 (ML5T7H00M4JLJ\5L60 (ML5\7H00M4JHJ<LI$II$ITIIQAUGL L1HM<JHM<JPIEMISATUCIOUET QL%TUL)IQA%TIO1NP =CQN%T
NUUAD(M/(M/(MLMXJL0004ILJ6L10I(MLMXJL02H0(IH*(**(ML6L00$0*(MI4*LJ6L40I4*LJ6L50I4*HJ(ILMXJL06H0(ILMXJL07H0(IM$J*(ML610$0*(ML6D10$0*(MI4*LJD6L20I4*LJD6L30I4*HJ(ILMXJL14H0(ILMXJL15H0(IM$J*(ML6X10$0*(ML6\10$0*(MI4*LJH6L00I4*LJH6L10I4*HJ(ILMXJL22H0(IHIHIUOQDH8
UOQCIAALQDIEQU]GQI]NP ETAS5KLJH6L30I4*HJ(ILMXJL24H0(ILMXJL25H0(IM$J*(ML6X20$0*(ML6\20$0*(MI4*LJL6L00I4*LJL6L10I4*HJ(ILMXJL32H0(ILMXJL33H0(IM$J*(ML6P30$0*(ML6T30$0*(MI4*LJL6L60I4*LJL6L70I4*HJ(IM0J/$II$II$IQP]AMED 4(M/(MP/4IUAQSP =CIRAEUUQLQI%LUZQAQI9OP,L U
QNUIUNAE5DJ4/J4/HJ(ILMXJL40H0(ILMXJL41H0(IM$J*(ML6H40$0*$IP"QOITH8P MOQT1AP UDQB]UQG9IUGP QA-SH -QC9OQTP	LMXJL43H0(IM$J*(ML6P40$0*(ML6T40$0*(MI4*LJP6L60I4*LJP6L70I4*HJ(ILMXJL50H0(ILMXJL51H0(IH*(**(MI(ML6H50$0LMXJL5304IJ4ILJT6L40I(ML6T50$0M$JLMXJL5604ILJT6
70I(MI(ML660$0H*(**4*LJX6L10I4*HJ(ILMXJL62H0(IHIHIULQPH"4 P USQREIQL0 QIUNT IPUIQNIEAR-(ML6L60$0*(MI$*HI H  H  QO8 H ALIY IAATQE1PLMXJL64H0(ILMXJL65H0(IH*(**(MI(ML6X60$0LMXJL6\704IJ(ML670$0LMXJL710(MLMXJL7204 LJ\6L30 (MLMXJL7404 LJ\6L50 (MLMXJL7604 LJ\6L7
 (MM0JDM(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