Digital PDFs
Documents
Guest
Register
Log In
XX-845B9-68
December 1965
52 pages
Original
1.7MB
view
download
Document:
maindec-801-3a-d
Order Number:
XX-845B9-68
Revision:
Pages:
52
Original Filename:
https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/maindec-801-3a/maindec-801-3a-d.pdf
OCR Text
-LJ 1. IDENTIFICATION 1.I Maindec $01 -3A 1.2 PDP-8 Instruction Tesf (EAE Type 182)-Part 3A I.3 July ig,19as ( 1 Ei== Maindec 801-3A Page 2 2. ABSTRACT ill- ThisprogramisatestoftheExtendedArithmeticElementTypel82.Thefo|HowinginstrucJ_ tions are tested: MQL, MQA, SHL, LSR, ASR, NMI, SCA An attempt is made to detect and isolate errors to its most b:asiE fault and to the minimum number of logic cards. Multiply and divide are tested Maindec 801-38. REQUIREMENTS Storage Memory Locations 108 -54108 3.2 Subprograms and/or Subroutines High RIM Loader, H:gh B:nary Loader 3.3 Eciuipment PDP-8, EAE Type 182, keyboclrd reader a`nd. teleprinter. USAGE Loading £i.A. |oader be[gfi:hn:n:jna:r¥7t°6a8d::db/eogrj:::n%::tar7y7ZZ§j:inmmu:I::y(a::etd° :Pn::a:rea:!r;: I.2; Otherwise the The PDP-8 Instruction TestEt]Part 3A, may now be I()aded as follows: 4.I.2 Set 77778 in the SWITCH RE.GISTER . 4.I.3 Press LOAD ADDRESS key, 4.1.4 Plcice Instruction Test Part 8A in the keyboard regder. 4.I.5 Press START key on the operator console. 4. I .6 Engage the keyboard reader. 4.2 Calling Sequence (Not AppliGqble) 4.3 Switch Settings Set the SWITCH REGISTER keys to 50008 before starting the program . Srartup and/or Entry The starting addre§§ of the PDP-8 Part 3A lnst.ruction Test i!02008. Set 02008 in the SWITCH REGISTER keys and press the LOAD ADDRESS key. Le Maindec 801-3A Page 3 _5 4.4.3 Set 50008 in the SWITCH REGISTER key.€ al.td prL`ss tlie START l<ey. These initial switch settings will cause `rh€j prog!.am to pi.inr ei.I.or messages and halt on an error. See paragraph 4.6 for other switch options. 4,5 Errors in usage , Errors detected by the program cause tlie following: I Print erl.or information Halt. on error The following are typical examples of error print information: NMIT 4.5 .I NMl SCAT SCA C(AC) C(MQ) 000000000000 010101010101 010101010100 000000001100 000000001100 000000000000 NMIT = Normalize and step counter test. NM[= C(AC) and C(MQ) after the NMl instruction was executed. SCAT = The correc+ count of the step counter after the normalize instruction was executed . SCA= The actual count in the step count.er as read into the AC by the SCA instruction after the normalize instruction was executed. Note that Bit 11 of AC in error. 4.5.2 SHIFT C(AC) should equal 25258. 11 C(MQ) 001111001011 SHL0 000011100101 C(MQ) 1 00000000000 LSR0 000000000000 000111001011 C(AC) SHIFT 11 = Number of shifts to be executed . C(MQ) Original C(MQ), = Original C(AC) and C(MQ). (The original C(AC) equal all O's.) SHL C(L), C(AC), and C(MQ) after the SHL instruct.ion was executed. LSR C(L), C(AC), and C(MQ) af+er the resul+s of +he SHL instruc+ions wet.e acted upon by the LSR inst.ruction. Note that B:t 3 of AC after a SHL instruct.ion is in error.I 4.5.3 C(AC) should equal 07458. SHIFT 2 C(AC) I 011111111111 C(MQ) 000000000000 C(AC) ASR 1 111111111111 SHIFT 2 - Number of sh:fts to be executed . C(AC) Original C(AC) and C(L). - (The original C(MQ) equal to all O's.) Maindec 801-3A Page 4 C(AC), C(L), and C(MQ) after the ASR instruction was execu+ed. ASR= Note that C(L) should equal a 0, C(AC) should'equal 07778,, C(MQ) should equal 60008 after the ASR inst.ruction was executed . 4.5.4 MQLT AC I 000000000011 0-AC 1 0000000000QI MQLT = MQL instruct.ion test with a link set to a 1. AC= The original C(AC) and C(L). 0-AC - C(AC) and C(L) after +he MQL instruction was execJted. Note that bit 11 of AC should equal 0. MQLT I AC 0 4.5.5 0-AC 000000000001 000000000001 0 MQL instruction test with a link cleared t.o a 0. MQLTl = The original -C(AC) cind C(L). 0-AC ,= C(AG) and`C(L) after :the. MQL instruction was executed . Note +ha+ bit 1`1 of -AC should equal 0. MQAT 4.5.6 AC I MQL) MQA) 1 MQAT = AC u 000000000001 000000000000 MQA, MQL instructions test with a link se+ to a 1. = Original c(AC)and c(L). MQL.MQA =JThe C(AC) and C(L) after the execution of an MQL instruction. •, Note that bit 11 of AC should equal a 1. 4.5.7 MQATI AC o . MQL) MQA) MQAT1 = AC = 0 !MQA, . 1 ooooooooo`oo 011111111111 MQL instructionstestwith a linksetto,a I. Original c(AC)andc(L). MQL MQA = The C(AC) and C(L) after the execution of an MQL :nstructi6n followed by an MQA instruction. Note that C(AC) should equal 40008. Main.dec 801 -3A Fag.e 5 ~J 4.5.8 MQAT2 AC 1 MQ MQVAc I 111111iiillo 00'000000000` 1 b'00o`0ooo0o'oo MQAT2 MQA insirljc+ion. +e§+ . AC Origincll C(AC) and C(L). MQ Original C(MQ). MQVAC The C(AC) and C(L) after the execut.:oh of ah MQA irisfrJctid.h . Note that C(AC) should equal 77778. 4.5 .9 MQAT3 AC MQAT3 a 111111ll11lb MQ 0`00000000001 MQVAC 0 00000000'0000 MQA in5t.ruction tes+. I AC Original C(L) and C(At). MQ Original C(MQ). NturN AIL The C(AC) and the C(L) after .the execution .of ah ''MQA ihstructi'o'h . I I Note that c(AC) shoul`d equal 77778. 4.5.10 I The following table contains the test in.nemohl.c, starting `address, 'err6'r h'dH 'addressi, and instructions rested . Mnemonic |nsfructiorns MQLT MQLTI iv\QL MQL MQAT MQATI MQAT2 MQAT3 MQL, MQL, MQA MQA STEST SHL, STESTI SHL, LSR STEST2 ASR STEST3 ASR NORMT NORMTI NORMT2 NMl, NMl, NMI Starting Address LSR The module table (see paragraph 11.4) should be used after a visual check of the program error printout. 4.5 .11 Table 1 should be used on testing MQAT, MQAT1, etc, latter determining which bit of the AC and/or MQ is in error. Maindec 801 -3A Page 6 4.5.12 Table 1 should also be used on testing STEST1, STEST2, etc. Afterdetermining which two bits may be in error in the AC and/or MQ, reference Table 1 for the module :dentification of the two bits in question . 4.5 .13 Table 2 should be used :n coniunct:on with Table 1 When a step count error may exist. 4.6 Recovery from such Errors Press CONTINUE or set up one of the following switch register controls foHowed by pressing the CONTINUE key. 4.6.I SWITCH REGISTER keys 0, .1,. 2, 3 are used for error recovery as follows: Switch 0 = Halt on error. Switch 1 = Scope mode (repeat pattern and/or test). Switch 2 = Print error information . Switch 3 = Inhibit exiting current test. 4.6.2 Multiple switch settings are as follows: Switches 0, 2 = Print error informal.ion and halt at error stop. Switches I, 2 = Scopemode cind print error information . Switches 0,2, 3 = Inhibit exiting current test, print error informcition and halt at error stop. Switches 0,1,2 = Scope mode, print error information, and halt at error stop. 5. RESTRI CTI ONS Before running this test, all basic PDP-8 processor tests should have been I.un successfully. DESCRI PTI ON u Discussion The PDP-8 Instruction Test-Part 3A tests the following extended arithmetic element instruclions: MQL, MQA, SHL, LSR, SCA, ASR, NMI The extended arithmetic element is t.ested using patterns necessary to detect{and isolate errors to the basic cause and minimum logic card involved. a predetermined error halt. If a failu,.re does occur, the test will stop at Two look-up tables are provided for 'error repair methods containing the foll6wing information: AC, MQ, and SC bit numbers Processor logic drawing number Logic board type Logic board location The progr I.est and jump back to I 7. METHODS starts at memory address 02008 and will print "8A" at the completion of the lion 0200 to repeat the entire test. The t.est is assembled in binary format. Not Appli€able) U Maindec 801 -3A Page 7 J FORMAT (Not Applicable) EXECUTION TIME 35 sec . PROGRAM Program Listing /EAE PART 3A 0F INSTRUCTION TEST C A M = 7 62 i SCA=7441 NMI =7411 ASR=7415 MQL = 7421 MQA = 7 581 LS R = 7 4 i 7 SHL=7415 /TEST SW 5 BACK, agog NEXT, 8©®® XMQLT I ' XMQAT, MQAT XMQAT I, CMA /CR CF! PRXLOP CMA /LF LF PRXLOP I CRLF © /PRINT LOOP `1 I JMP J 8054 .-i I I PRXLOP PLI NI( , @©55 3©56 U •9 ,2) 5 7 •3©6© /LINK Maindec 801 -3A Page 8 /PRINT /PRINT ONEP ZEROR I ONE ZERO 0NZER /ONE CMA ONE PRXLOP I 0NZER CMA / Z ER 0 ZERO PF2XLOP I ®877 ©8©® ®1 ®© 7242j ©1®1 8145 ®1©2 5146 ®1©3 2146 81©4 741© 8105 5477 ©1©6 724® ©1©7 ©147 ©11© 718® 8111 7'©©4 ©112 5147 8113 743© 8114 5117 8115 4872 ®116 51©3 ©117 9128 8121 7248 8141 4©46 ©122 0123 512}5 ©®®® ©124 ©125 88®® 8©©8 ®126 0127 8®®© 0©®® 8138 ®215 ZEROR MES S G , BITSTR PRONE' J J J Z ER 0 R C CMA A PRONE .-13 ONE /ONE PRXLOP MESSG+4 /GOOD /GOOD AC LINK /BAD LINK /BAD AC /CARRIAGE RETURN ©131 ®212 8132 ®133 ©315 ©321 ©134 ®135 ®136 8514 ©524 ®24© /I ®157 ®3¢1 /A 8148 ©3©3 ©141 ©261 0NE' ©142 ©26© ZERO, /LINE /M FEED /Q /L /SPACE /C ®145 2)8©® ©144 ®255 Tog 8145 7763 COUNTX, ®146 ©©©0 STBCNT, Zi£Z ¥ZZZ #M', ©151 14®© XMQAT5t /I /0 LINK, /DASH 7763 8 0 MQAT2 MQAT6 u Maindec 801-3A Page 9 ~\ BE ®152 ©153 ®326 STEST 2) I 5 4 9263 ©155 ©156 ©262 8157 CLA CMA ©16© JMP I 8 ©161 PRNUM ©162 LFTAC RI TAG R I I MQ , ®163 ©164 ©165 LF"Q, a ®166 K]764, ]]64 ®167 Xl(4®©, 4©®0 SETL *©®1© ®®1© ®2)8® ACIND' © ®©11 ®©®0 MQIND, ® ®©12 ©©8© XACNMI, ©815 ®®08 XMQNMI, * @2 © 2) MQLT, ©20© /HOUSE PHSE ©291 S Z KEEPING GEN ®292 L CLA ©2®3 D Z GENX CMA ©Z04 A Z ACP 8285 ACMA ©206 A /SET LINK /STORE AC PATTERN LXP /STORE LINK ZACP /LOAD AC Z T0 A ONE @287 ®210 2j2 I I /STORE AC 0212 RESULT ©213 /STORE ©214 9215 9216 /STORE LINK LINK RESULT RESULT 7777 ©217 Z ®22® ®221 BACP /AC ©222 ®223 0Z24 NOT EQUAL TO ©®®® 9225 /LINK NOT /CONTINUE ©226 @227 EQUAL T0 A TEST MQLT /TEST SW2 ©250 76®4 ae6l 71©6 ©232 ©265 ©234 7©@4 4257 PMQLT @255 77©4 CLA 8256 7®@4 743© ©257 745© ©24@ 7 4 Zl 2 ®241 7 6 ,„ 4 0SR /PRINT ERROR /TEST SW © /HALT ill.< ERROR ONE 8@®® Maindec 801-3A Page 10 /TEST Swl MQLT+2 MQLT+I CLL Z /PROGRAM LOOP /CONTINUE PROGRAM GENX XPACF'+4 Z BACK Z Z XMQLTI NEXT MQLT+i Z /PRINT ROUTINE` /RIGHT ARRO`W CRLF MQ L T Z CRLF SP2 AC SP2 PLXP Spl IXP AC SP2 I XPACP+2 SPI I XPACP+3 I 8©8© 7249 CLA CMA 213©6 2]152 A.ND Z M ®3®7 051© 4846 724© JMS Z PRXLOP CLA CMA ©311 ©133 AND Z Q 8312 9513 4®46 57®4 JMS Z PRXLOP JMP I MQ Zj514 ®©8© 9515 724® CLA CMA ©316 ©317 ©154 4©46 AND Z JMS Z PRXLOP 932® 5714 JMP I L ®321 8®2)® 724fl 9323 8135 @324 G325 4©46 5721 L, /RETURN TO SWITCH ROUTINE 0 ©394 ©585 0322 -MQ, PMQLT /M /Q @ LL /L T u Maindec 80]-3A Page 1 1 u 95Z6 Spa, © ©627 CLA ©3 5 2' ©531 AND Z SP JMS Z PRXLOP CLA CMA 8552 0333 9334 CMA /SP AND JMS JMP ©335 @536 AC, PRXLOP Spa © 8337 CLA CMA 93 4 21 AND Z A 0541 ©342 @343 JMS Z PFixLOP 9544 8345 2'6 4 6 CLA CMA AN'D Z C JMS JMP Z I PF}XLOP AC /A /C ©®®® 8647 724© 855@ ©351 8156 4 2j 4 6 ©552 5746 8553 /SP PLXP , ®554 ©555 /GOOD LINK ©356 u 9557 @56@ Z13 6 I 8362 9363 ©564 ©365 ©366 @367 XPACP, PACP Pro PBLXP PBACP MQLT DCA Z JMP MQLT+17 BLXP /BAD ©4©6 0 ©4©7 941® CLA ©411 JMS JMP ®412 AND /RIGHT @ CLA AND DCA JMS JMP U /ACP LINK ARROW Ma:ndec 801-3A Page 12 PBACP' © CLA CMA AND Z BACP /BACP DCA Z BITSTR JMS Z MESSG JMP I PBACP HSEI GEN CLA Z CMA /CLEAR LINK GENX ZACP ZLXP /STORE AC PATTERN /STORE LINl{ TO A ZERO ZACP /LOAD AC /STORE AC Z RESULT /STOF!E LIN]( RESULT /STORE LIN}( RESULT ©©©© 7777 BACP /AC NOT /LINK EQUAL NOT /CONTINUE TO ©®©© EQllAL 'T0 TEST A ZEF30 `,-, ITIQLTl CLL Z GEN`X Z XMQLTI Z BACK Z XMQAT Z NEXT MQ L I I + i /TEST SW2 CLA RTL HAL SZL JMP XMQl+I /PRINT C`LA 0SR /TEST swa ERROR HAL CLL SzlHLT CLA 0SR RTL CLL SZL JMP MQLTl+2 /PROGRAM JMP /CONTINUE PROGRAM MQl MQLTl+I I LOOP; u Maindec 80l-3A Page 13 CJ CMA XMQI I XONE+5 JMS I XCP+3 JMS XONE JMP CP I JMS XCP MQ L I ©© XONE, 8 /ONE 48 CLA CMA 41 AND Z 46 24 JMS JMP Z PRXLOP I XONE 57 PMQLT DCA JMP ONE Z BLXP MQLTl+16 HSE2 GEN CLA CMA Z GENX ACP DCA Z CLA CMA DCA Z LXP /SET LINK /STORE AC /STORE PATTERN LINK T0 A ONE /STORE RESULT /STORE LINK /STORE LINK /C0iTIPARE /MQ JMP HSE2+12 JMP PMQAT-5 u DID RESULT ACP NOT ®®®© RESULT WITH EQUAl. /LINK 7777 BACP AC DID NOT EQUAL, A ONE Maindec 801-3A Page 14 NEXT /TEST SW2 /PRINT ERROR /TEST SW8 SZL HLT CLA /TEST §Wl BTL SZL JMP JMP PMQAT, MQA I+2 mQA I+I /PB0GBAM LOOP /CONT.INU'E PROGRAM ® Z CIRLF I YSP?+5 AT IP MQAT SZ S I S I S I S I S I Y)Spa+5 YSP2 YSP2 YSP2+l YSP2 `-` S I YSpa+2 S I YSP2+5 S I YSP2+4 S S § S CRLF YSP2+5 YSP2+6 YSF2+5 YSP2+5 YSP2 JMP SP2 AC PLXP SPI PAOP MQ L PBLXP PBACP u Maindec 801-3A Page 15 /A A PRXLOP A TT PRXLOP /I © CLA CMA AND Z JMS JMP Z PRXLOP I YA DCA Z /A A BLXP JMP RL2 188® JMP HSE3 1®81 JMS CLL CLA AND Z GENX I zj ®2 I 2j z' 5 GEN CMA /CLEAR LINK , 1®©4 DCA Z ACP I a 2j 5 DCA Z LXP /STORE AC PA'TTERN /STORE LINK [T0 A ZERO i ® 2) 6 CMA 18©7 AND Z ACP /LOAD AC 1 21 i 8 MQL 1©11 MQA /LOAD MQ /LOAD AC 1©12 DCA /STORE RESULT FRO,M FROM MQL, MQA 1815 1014 1©15 /STORE 1©16 LINK IRESULT 7777 1®17 /COMPARE ACP 1©2® WITH BACP 1©21 1022 1®23 1®24 1©25 /MQ 1212 6 DID NOT E:QUAL AC 1027 1 2) 6 a 1®61 1832 1833 MP MQAERI MP NOPR+4 CLl- 1©34 1©35 1836 DCA TAD Z Z 1®57 DCA Z 1848 GENX XMQATI BACK XMQAT2 NEXT 1041 1©42 1045 1844 1®45 u JMP MQATl+I /LINK DID NOT EQUAL A ZERO Maindec 80l-3A Page 16 046 047 ®59 76©4 71©6 78®4 MQAER] 'RTL ®51 742© @52 5256 SNL JMP NOPR 056 854 4667 4670 ®55 4671 JMS JMS JMS I I I Z156 76®4 CLA ®SR F{AL CLL CLL CLA /TEST SW2 0SR HAL NOPR, NOPFi+ll NOPE+12 NOPR+15 ;PRINT mROF{ , /TEST SW® SZL HLT CLA 0SR RTL CLL /TEST Swl SZL JMP JMP MQATl+2 MQATl+I /PROGRAM LOOP /CONTINUE PROGRAM PMQAT XONE MQAI DCA JMP Z BLXP MQATl+17 12®0 12®1 12®2 12©3 12©4 12©5 12©6 i 2 2j 7 /SET LINK /COMPLEMENT ZACP /STORE AC ZLXP /STORE GENX PATTERN PATTERN LINK T0 A ONE 1218 1211 Z GENX 1212 1215 /LOAD ra 1214 1215 /LOAD 1216 1217 122® 1221 1222 1225 1224 1225 1226 1227 1230 AC WITH /STORE RESIILT COMPLEMENTED 0F GENX MQA Z BACP SNL C LF! L 4 /STORE LINK RESULT ®®88 Z SETL Z BLXP /STORE LINK RESULT 7777 BACP /AC SHOULD EQIJAL MQAER2 /MQ DID CMA Z 1231 Z BLXP 1232 1255 1234 LNPR2+4 MQAE82 /LINK DID NOT NOT 7777 INCLUSIVE EQUAL A 0R WITH AC ONE u Maindec 801 -3A Page 17 u 1241 1242 1243 1244 1245 lz46 MQ A Tzt I CLA 1247 76®4 125® 71@6 MQAER2, RTL CLL 1251 7®®4 HAL 1252 1253 1254 1255 742 525 466 427 /TEST SW2 0SR 1 SNL LNPR2, JMP LNPR2 JMS JMS I XPMQAT EMQAT2 1256 768 CLA 0SR 1257 71© HAL CLL 126© 261 745 74©2 HLT /PRINT ERROR /TEST SW8 SZL 0LA 0SR FZTL Cl.L /TEST Swl SZL ;JMP JMP MQAT2+2 MQAT2+I PMQAT XPMQAT , 1278 u 1271 1272 1275 EMQA T2 , JMS AT5, JMS © PTWO Z Xspl+I 1274 1275 1276 1277 1388 JMS XSPI 13®1 JMS I Xspl+4 13©2 JMS Z 13®3 13®4 Jug I Xspl+I I JMS I Xspl+2 JMS I Xspl+i JMS I Xspl+3 JMS I JMS I XSPI CRLF XSPI 15®7 JMS I Xspl+5 JMS I Xspl+i JMS I Xspl+i 161© CLA 1511 AND 1312 DCA 1385 13©6 CMA GENX ACP Xspl+4 1313 1614 1615 Z 1616 VOR 1517 1521 I Xspl+2 I Xspl+I Xsp I+6 1322 1323 XSP i+7 1324 EMQAT2 152© u CRLF JMS I CRl?F I Xspl+5 XSPI /PROGRAM LOOP /CONTINUE PR`OGBAM Maindec 801-3A Page 18 1530 PLXP 1531 PACP 1562 1533 1554 PBLXP PBACP MQ 0 1355 1536 1537 1340 /PRINT CLA CMA AND Z INCLUSI,VE 0R t INCOR JMS Z PRXLOP JMP I VOR 1341 1342 ® 1543 1344 1345 1346 1347 CLA /PRINT 2 AND CLRL4, 155© JMS JMP DCA Z BLXP JMP RL4 * 14®® MQAT6, JMP HSE5 JMS GEN CLL CLA CMA AND Z /CLEAR LINK GENX /COMPLEMENT 14©6 14®7 1410 GENX PATTERN /STORE AC PATTERN /STORE LINK TO A ZERO AND Z GENX 1411 /LOAD MQ 1412 1413 /LOAD AC RE WITH COMPLEMENTED GENX 1414 /STORE RESULT 1415 0F MQA 1416 1417 1428 JMS 1421 DCA 1422 CLA 1423 1424 1425 1426 AND JMP 1427 CMA MQAER6 AND 1462 1433 SZA JMP MQAER5 JMP NOPR3+4 1434 CLL 1455 Z GENX 1436 Z XMQAT5 1437 Z Z Z BACK XSCAT NEXT Z SHOULD EQUAL /MQ DID 7777 NOT INCLUSIVE 0R WITH AC BLXP 1442 1443 1444 1445 /AC 7777 SZA 1451 1441 RESULT CMA 146© 144® /STORE LINK MQAT5+i /LINK DID NOT EQUAL A ZERO u Maindec 801 -3A Page 19 u CLA mQA ER 5 , 1446 1447 76©4 7106 145® 1451 7®04 742© HAL SNL 1452 1453 5255 4666 1454 5271 JMP JMS JMP 1455 7694 1456 71®4 1457 146® 1461 1462 1463 14S4 1465 1466 1467 1478 |471 1472 743® 74©2 76®4 71©6 743© 52®2 52©1 ©667 1455 127© 4277 72421 /TEST SW2 0SR RTL CLL :1NT ERROR /TEST SW® NOPR3 , /TEST Swl /PROGRAM LOOP /CONTINUE PROG'RAM MQAT5+2 MQAT3+I PMQAT APMQAT' NOPR3 EMQAT2 JMS PTHREE AMQAT3, CLA CMA AND APMQAT+I DCA I APMQAT+2 JMP AT3 XAT3 , PTHREE, I XAT5 CLA CMA AND Z JMS JMP Z PRXLOP I PTHREE THREE JMS KPI JMS LEFTS, STL CLA AND Z CMA Z GEN /HOUSE KEEPING /NumBER GENERATOR /SET LINK (N0 SHIFT GUARD) GENX MQL /LOAD SHL /SHIFT LEFT /NimBER oF sHIFTs a DCA SNL JMP JMP Z LFTAC MQ /STORE AC SHIFTED LEFT /CLEAR AND STORE LINK LFTAC /SET AND STORE LINK LFTAC CLLINK STLINK 77©1 CLA 3165 Z LFTMQ /STORE Z LFTAC /RESTORE AC /SHIFT RIGHT MQ SHIFTED LEFT 7®4© ®162 7417 ©8®® u 0 RI 5166 DCA Z RITAC /STORE AC SHIFTED RIGHT 7428 5349 5342 SNL JMP JMP CLRINK STRINK /CLEAR AND ST\ORE LINK RITAC /SET AND STOR,I LINK RITAC 77®1 MQA CLA 3164 7®48 DCA Z CMA ®347: AND LFTINK 7449 5255 SZA JMP SHERR RITMQ /STORE MQ SHIFTED /LINK EQUALS A ONE RIGHT IN ERROFi Maindec 801 -3A Page 20 CMA AND RITINK SZA JMP SHEER /LINK EQUALS `A ONE IN ERROR CMA Z RITAC SHERR /RITAC SHOULD SHEF3R /RITMQ DID NOT EQUAL GENX SHEER SH ERR+ 15 /RITMQ I)ID NO'T EQUAL GENX 0SR /TEST SW2 Z EQUAL ®82)® GENX CMA Z RITMQ CLL JMS SH ERR+ 11 I PF3INT NOP MOP NOP CLA u /TEST SW® HAL SZL HLT CLA /TEST Swl RTL SZL 75 52©2 76 77 52®1 2@8@ PRI.NT. I(Pl' JMP STEST+Z JMP SHLLSFi /PROGRAM LOOP /CONTINUE TEST PRINTS 178© @@@8 17®1, 17®2 17©5 724© ©166 5351 CLA 8 CMA AND DCA /MINUS 12 /STORE 12 COUNT 1784 3125 DCA Z K7764 TWELVE Z GENX /DEARGENX I LEFTS /CLEAR COUNT 1785 32®6 I)CA 17©6 7948 CMA 17©7 ©352 AND SNUM 171® 3161 DCA Z 1711 7®40 CMA SHIFT FOR EXIT STORE LEFT I I PRNUM /STORE SHIFT ` I 1712 9345 AND RSUB 1713 3©31 DCA Z 1714 7©4® CMA 1715 1716 AND NSUB DCA Z 1717 ®346 3®32 522© DCA RIGHTS 172© 7®4Z' CMA 1721 9356 AND PRTAA 1722 3754 DCA I 1726 578© JMP I BACK NEXT PRTAA+I Kpl /SW3 REPEAT /SW5 NEXT a TEST TES,T EE Maindec 801 -3A Page 21 U 1724 1725 22©6 222® INCSUB, ISZ 1726 1727 1758 2161 2351 52©1 ISZ Z PRNUM ISZ TWELVE JMP SHLLSR 1731 1732 5752 24©® JMP I STESTl ISZ LEFTS RIGHTS /INCREMENT SHIFT COUNT LEFT /INCFiEMENT /CONTINUE INCSUB+6 CLLINK, DCA JMP LEFTS+5 DCA LFTINK JMP LEFTS+5 STLIIIK, SHIFT COUNT RIGHT /INCREMENT SHIFT # T0 PRINT /TWELVE SHIFT TESTS /JMP T0 PROGRAM NEXT SHIFT LFTINK /CLEAR TEST LFTAC LINK HITAC LINK CMA /SET CLRINK, DCA RITINK LFTAC LINK /CLEAR JMP RIGHTS+5 1742 72!4® 1745 3558 DCA 1744 5225 JMP RIGHTS+5 1745 1746 162)I 1724 RSUB, NSUB9 1747 175© 1751 g©®® 8©®® 8©88 LFTINK, RITINK, TWELVE9 1752 2©44 SNUM, TNUM 1755 1754 2895 2154 PRTAA, PRTW PRT CMA RITINK SliLLSR I NCSUB 2@@2 * 2 8 © 2i PRINTS, JMS Z CFiLF JMS I Z12+15 28©® 2©©1 82j®g 2883 JMS I SHLX+5 2®®4 JMP Z 2®05 2011 JMS Z CRLF JMS I Z12+12 JMS I Z12+13 JMS I Z12+14 JMS I SHLX+I 2®12 JMS 2©13 CMA 2814 AND 2©15 DCA Z BITSTR JMS Z MESSG JMS Z CRLF. JMS TENSP 2®©6 28@7 2® 12j 2816 22' 17 2@2@ I PRNUM I SHLX+5 Z GENX 2©52 JMS I Z12+12 JMS I Z12+15 JMS JMS JMS JMS I Z12+12 JMS I Z12+15 JMS I Z12+14 JMS I SHLX+I JMS Z CRLF 2953 JMS 2©21 2922 2@23 2824 2®25 2©26 2®27 2©5® 22)51 RE STRINK, I SHLX /SET RITAC LINK Maindec 801-3A Page 22 JMS Z JMP I CRLF PRINTS SllLP RPAR AC PTHREE PTW0 Spl JMS I JMP I 7 SHLX+3 PRT CLA CMA AND FOUR 2©7 JMP FRET 2974 2975 AND 2®76 JMP PRET CLA CMA FIVE 2877 CLA CMA 21©8 AND SIX 21®1 JMP PRET 2102 CLA CMA 21©5 AND SEVEN 2184 JMP FRET 2185 2106 2.i?Z 2111 2112 2113 2114 2115 2116 2117 212© 2121 /4 Z ONZEF3 /5 Maindec 801-3A Page 23 u 2122 2123 2124 2125 2126 2127 215® 2'161 2132 2135 Z126 2154 2155 2)27 ©27 SIX, SEVEN' EI GH I , NINE, 2136 2167 ®264 ©265 ®266 ©267 @27© ®271 PC LPAFi 214® MQ 2141 SHIFT 2143 2144 2145 2146 2147 CLA CMA AND TCOUNT DCA SPACST @ /STORE JMS I SHLX+5 ISZ SPACST JMP TENSP+4 JMP I TENSP 7765 215® 2151 2152 8 2153 2154 ®®©® 22®© ®@@8 22®1 22®2 724® ¢14® 2205 4©46 22®4 56@® @ 8 CLA CMA AND LPAREN JMS JMP Z PRXLOP I LPAR © CLA LPAR EN , RPAREN' SHLP' CMA AND RPAREN JMS JMP Z PFtxLOP I RPAR 0258 212 51 @ CLA CMA AND SX JMS Z PRXLOP CMA AND HX JMS JMS Z PRXLOP I LX JMS I LX+3 MINUS TEN /PRINT 1© SPACES Maindec 801-3A Page 24 CLA CMA AND I JMS Z LX+4 0NZER JMS I LX+6 CLA CMA AND Z LFTAC DCA Z BITSTR JMS Z MESSG JMS I I J J I C LX+3 LX+5 LX+3 CMA LFTMQ A D J MESSG Jug Z CRLF JMS I LX CLA CMA AND SX JMS Z CLA CMA AND RX PRXLOP JMS Z PRXLOP JMS I CLA LX+3 CMA AND LX+6 JMS 0NZER u RITAC BITSTR MESSG LX+5 LX+3 LX+6 JMS JMS JMP L ©318 ©323 Spl LFTI NK 8322 R I T I N 1( X P I XX /HollsE KEEPING I CMA 1 I ND T14X CA NTST MS GENN SCP13, MS I TXXX MP SCP13 T14, MS ND I KKKNU T14X+I STORE NrixT TEST ADDREss JUMP /§ENERAT -` Maindec 801-3A Page 25 u DCA NTST JMS GENN 2411 2412 2413 2414 2415 2416 2417 2428 4303 2421 4772 5221 4767 2422 SCP14, JMS I TXXX JMP SCP14 T15, JMS I I(KKNl] AND DCA NTST T14X+2 JMS GENN SCP15, JMS I TXXX JMP SCP15 T16, JMS 2423 2424 2425 ©355 5351 AND DCA NTST 2426 4393 JMS GENN 2427 245@ 4772 5227 SCP16, JMS I TXXX JMP SCP16 2431 4767 T17, 2452 2436 2434 2435 ®556 5651 46©5 4772 JMS I KKKNU AND T14X+4 SCP17, 2456 I KKKNU T14X+3 DCA NTST JMS GENN JMS I JMP SCP17 TXXX Tl8, JMS I KKKNU AND T14X+5 DCA NTST JMS GENN Sop i 8 , JMS I TXXX JMP Scpl8 Tl9' JMS I KKKNU AND T14X+6 DCA NTST 2447 2459 2451 2452 2453 3351 43©3 4772 5251 4767 2454 2455 ©561 5351 AND DCA NTST 2456 2457 43®5 4772 JMS GENN JMS I 2468 5257 2461 4767 2462 9362 2463 2464 2465 3351 43©3 4772 2466 2467 5265 4767 247B 2471 ®566 3551 2472 2475 2474 2475 4583 4772 5273 4767 2476 2477 ®364 3551 2589 4383 25©1 2592 4772 53®1 JMS Scpl9, T2®, SCP2©, GENN JMS I TXXX JMP SCP19 JMS I XKl{NU T14X+7 TXXX JMP SCP28 T2l, JMS I KKKNU AND T14X+l© DCA NTST JMS GENN SCP21, JMS I TXXX JMP SCP2l T22, JMS SCP22, JMS I KI{KNU AND T14X+ll DCA NTST JMS GENN I TXXX JMP SCP22 T23, JMS I KKKNU AND T14X+12 DCA NTST JMS GENN SCP23, JMS I TXXX JMP SCP23 Maindec 801-3A Page 26 GENN ' CONTIN, 8 ISZ /CONTINUE CURRENT TEST CLA NCOMP, AND CMA TAD NGEN CmA /TST SW3 GENN ISZ ISZ ISZ K X I 2+2 JMP NTST KX 12+3 PRNUM /INCREMENT SHIFT COUNTER LE:FT /INCREMENT SHIFT COUNTER RIGHT /INCREME:NT SHIFT NUMBER TO PRINT I.( KP I XX , TAB KX12 DCA I TAB KX12 DCA I TAD PPPNUM DCA KX12+2 Z PRNUM TAD PRTTA DCA I PRZTA JMP I PPPNUM, PPNUM l{KK, NGEN' @ ELEVEN , © N TS I , I I 4X , @ 2546 2547 ©®®® ©®©® 255® 2551 ®®©® ©0®© 2552 2497 2553 2415 T15 2554 2425 2555 2451 TIC T17 2556 2557 256® 2457 2445 2455 2561 2461 T2® T21 2562 2565 2467 2475 T22 T23 2564 620@ STEST2 2;:: !Ziz #£?2?, ®©14 2567`` 257® 2571 26®8 2..631 261-7`` KKKNU, K I( I( N 2572 2610 TXXX, @ T14 Tl8 Tl9 4©©® RI TXXX LFTXXX TXXXX u KX12+3 KPIXX /PRINT NUMBERS 13 TO 23 Maindec 80l-3A Page 27 u PRTW PRTT CLA /COMPARE CONSTANTS CMA I KKKN+7 I K,KKN+7 I KXKN /SCOPE MODE RETllRN FOR TESTS INI)IRECT CMA I NGENX /LOAD un /LOAD AC 2525 (OCTAl.) /SHIFT LEFT LFTXXX , Z /STORE AC SHIFTED LEFT LFTAC /CLEAR AND STORE LEFT LINK /SET AND `STORE LEFT LINK /STORE AND Z MQ SHIFTED LEFT /RESTORE AC LFTAC /SHIFT RIGHT R I TXXX , DCA Z /STORE AC RITAC SHIFTED RIGHT /CLEAR AND STORE RIGHT LINK /SET AND STORE RIGHT LINK /STORE I A LLIN SHERRX I P AND CLL Z EQUALS A ONE IN ERROR /LINK EQUALS A ONE IN ERROR RITAC SHERRX /RITAC SHOULD EQUAL, ©8®© /RITMQ DID NOT EQUAL NGEN SHERRX /RITMQ SH ERRX+ 15 I)ID NOT EQUA,L NGEN I. NGENX C'MA Z RITMQ SHERRX u /LINK RLIN SHERRX AND MQ SHIFTED RIGHT Main ec 801 -3A Page 28 DCA I LLIN /CLEAR JMP LFTXXX+5 LEFT LINK sToiE CMA DCA I LLIN /SET JMP LFTXXX+5 LEFT DCA I BLIN /CLEAR JMP RITXXX+5 LINK BIGHT LINK \STbRE I I CMA /SET RICH? LINK DCA JMP STORE I RLIN RITXXX+5 NGENX, NGEN K2525, 2525 LLI N , RLI N , LFTI NK RI TI NK N N EG ' STOREi GENN PRINTS TI N UE ,. CONTIN SHERRX. EST SW2 SHERRX+ 11 CMA I NGENX Z GENX I TINUE-I OSR PST S'WO RE CLL EST COPE SWI MODE ONTIN'UE IYloDE -TAPE 2 PA US E /EAE PART 3A 0F INSTRUCTION JMS 0NEONE TEST *38®0 PPNUM' /I JMP I PRT3 /5 JMS 0NEONE /I JMP I JMS PRT5+i 0NEONE /i u Maindec 801-3A Page 29 u /5 P I PRT5+2 S 0NEONE P I S 0NEONE P I S /6 PRT3+5 /i PRT3+4 /7 0NEONE /i P I S /i PRT5+5 0NEONE P I PRT5+6 S A I TWOTW0 S 0NEONE P I PRTT S I TWOTWO S 0NEONE P I /9 /2 /® /1 PRTT S I TWOTWO S I TWOTWO P I PRTT S TWOTW0 I /8 /1 P I PRT3 /3 /PRI N TONE ONEONE' 0 N Z ER 0NEONE PRT5 ' PR TT , TWOTWO9 SHIFT, SS Z PBXLOP SS+I Z PRXLOP SS+2 Z PRXLOP SS+5 Z u PRXLOP Maindec 80l-3A Page 30 *52®0 S I ES T2 , JMS HSKK JMS GENRR CLA CLL ] ' 6::E£RA5]##D MQ MQL CMA AND Z XK4©© /SET BIT Z LFTAC /STORE A LFTMQ /STORE ASH ASBSHF, /SHIFT # a 3287 S2l© 0©2'® 6162 DCA 3211 75Z'1 MQA 3212 3165 7428 527 527 724 DCA SNL Z 5213 3214 6215 6Z16 JMP JMP SSINK+1 SSINK CLA CMA AND Z F PLACES MQ /CLEAR AND' STORE LINK /SET AND STORE LINK /AC l.FTAC CONTENtTS CLL CMA TAD ACCOMP /AC ASRERR /ASH ERROR (AC IN ERR\OFi) ASRERR /ASH ERROR (AC IN ERROR) COMPARE CONSTANTS CMA Z CMA TAB LFTMQ /MQ CLL MQCOMP /MQ COMPARE CONTENTS CONSTANTS` CMA SZA JMP ASRERR BE /ASH ERROR (MQ IN ERR)OR) /ASH ERROR (MQ IN ERR)OR) SZL JMP ASRERR CLA CMA AND I SNA JMP ASRERR JMP TSSWO+4 LLLLNK /LINK ERROR /AC LINK (DID NOT EQUAL A ONE) © CLA CMA AND I DCA ACCOMP Z z ACIND D I A MQCOMP mQIND /AC AUTO INDEX PATTERN COMPARE /M® I,'NDEX PATTERN COMPARE AUTO Z ASRSHF /INCREMENT SHIFT # /INCREMENT ASR PRINT # ISZ Z PRNUM /INCREMENT TEST COUNT ISZ ASREX JMP I GENRR ISZ REEE JMP STEST2 /TEST SW3 CLA 0SR RTL CLL HTL SZLI JMP STEST2 JMP I SSTEST /REPEAT TEST /EXIT T0 NEXT PROGRAM '\ Maindec 801-3A Page 31 u SI NK , CMA DCA I JMP ASRSHF+7 ACCOMP ® MQCOMP' 0 ASH EX , ® ASH EXX , 775© LLLLNK , L..FTI NKI S S I ES I STEST3 LLLLNK MQA UT , MQA IJTX AC A UT , ACAUTX STPR' A SR P N U+ i TYPE PRT PFtTT TYPRE TYP E2 TYP EA /STORE LINK ® CLA AND CMA ASREXX+ll DCA I ASREXX+7 CMA AND ASREXX+I I DCA I ASREXX+10 CMA AND ACAUT DCA Z ACIND CMA AND MQAUT DCA Z MQIND CMA DCA ASRSHF CMA AND STPF} DCA Z PRNUM CMA AND ASREXX DCA ASREX NOP MOP ASH ERR , JMP I CLA OSR HSKK RTL CLL HAL SNL JMP TSSW© JMS I ASREXX+6 JMS I ASREXX+12 JMS I ASREXX+15 /TEST SW2 /PRINT ERROR Maindec 801 -3A Page 32 /TEST SW® /EF3ROR HA I STEST2 /TEST RTL SZL JMP STEST2+2 JMP STESTZ+I /sCoPE ropE /CONTINUE` MODE © CRLF ASHI FT ASHI FT+ I Z PRNUM CBLF ASHI FT+2 TYLPAFt AsllIFT+4 TYRPAR ASHIFT+I TYPE 8 JMS Z CRLF JMS JMS I I ASHIFT+6 ASHIFT+2 JMS I TYLPAR JMS I ASHIFT+4 JMS I u TYRPAR JMS I ASHIFT+6 JMS I ASHIFT+2 TYLPAR ASHI F.I+ 7 I Z TYRPAR CRLF CMA ZA JMS Z CLA PRXLOP CMA AND TYS JMS Z CLA CMA PRXLOP AND TYR JMS Z PRXLOP JMS JMS JMS I I I ASHIFT+I ASHIFT+I ASHIFT+I CLA CMA AND I JMS Z 0NZEF3 TYLI JMS I ASHIFT+I CLA CMA AND Z LFTAC DCA Z BITSTR JMS Z MESSG u Maindec 80l-3A Page 33 u JMS I ASHIF`T+I JMS I JMS I ASHIFT+i ASHIFT+i S46© 724© CLA CMA 3461 ®165 AND Z 5462 3147 5465 5464 4077 4936 DCA Z BITSTR JMS Z MESSG JMS Z CF!LF JMP I TYPEA ASHIFT, TYLPAR, SHIFT SPI PC LPAR AC TYRPAR , RPAR TENSP MQ TYR, 8323 9322 TYLI , KA3777, 3777 TYS, ®©® MQAUTX, ACAUTX, u LFTI "K LFTMQ Maindec 801 -3A Page 34 *3608 ASRPNU, TYI TY i + i TY I +2 TY I +3 TY1+4 TYl+5 TYl+6 TYl+7 TY I + I © TY I + I I TY i + I 2 TY I + 15 TY I+14 TY I + I 5 TY I + I 6 TY I + i 7 TY i +2 ® TY I +2 I TYl+22 TY I +23 TYl+24 TY i+2 5 TY i +2 6 u Z 0NZER I ASHIFT+I CMA ACAUTX Z BITSTR Z MESSG I TYPE2 0 CLA CMA JMS Z 0NZER JMS I ASHIFT+I CLA CMA AND l{A5777 DCA Z BITSTR JMS Z MESSG JMP I TYPES I.- Maindec 801-3A Page 35 u U 5646 3647 565© 5651 5®17 5®21 5®25 5©25 5652 5927 Zl8 Zl9 5655 3©51 Z2® 3654 3835 Z2l 3655 5@40 Z.22 3656 5045 7:2:i 5657 ©®®8 366a 366L T77T T]]T 3662 TT7] Z15 Z16 Z17 MQC LC , @ T77T 7777 7777 7777 7777 7777 7777 7777 7777 567a 1177 7777 3671 TT71 3672. 1]7] 7777 7777 3777 3665 7]]7 3664 777T 5665 ]7]7 S666 77]T 3667 3673 3]]7 3674 3675 L7]7 fo]]7 1777 ©777 36]6 b377 b377 3677 3Tbto 37®1 QL77 bfo7] 8®37 ®177 57®2 ®©17 8®17 5795 8987 0©@7 57Z14 0©@5 ®893 67©5 0®®1 ® ® Zl I 67©6 ©E'®© 0©0© 57©7 ®080 @ 8 @ 2! 37121 EjB8© @@©2) 5711 08©8 5712 @©@0 3713 ACCLC ' @®77 8©37 @©@© 0 8 2) a 0 '] © a 088© 3714 89®0 a 0 ,a a 3715 8®®® 0 ® '2) 0 3716 @gB@ 8®®8 3717 572© 80®® ©g®8 8©©® 3721 ®®@© 0@®8 3722 ¢®8® ®8®© 8©@® *40@@ S I ES T5 . /SET LINK A T ES I 4+ 5 /AC TEST PATTERN Z LFTAC /STORE AC Z LFTMQ /STORE MQ Maindec 80l-3A Page 36 MP MP SXLINK+I SXLINK /SET /CLEAR AND AND STORE LINK k3 2MiFTAc STORE /Ac coNTEjTs LL CMA AD ACCHK /AC COMPAiE AASREX /ASH ERROR , AASREX Z LINK /ASH ERROR LFTMQ (AC IN /MQ CONSTANTS (AC IN ERROR) ERROR) CONTENTS CMA MQCHK /MQ AASREX /ASH 4fl 4 5 4®46 P AASREX P AS3PR-5 I ERROR (iMQ IN /AC LINK /LINK (MQ IN ERROR) REROR) ERROR (DID NOT EQUAL ZERO) u LIINK CXSX AASREX, 0SR 4.8 5 1 /TEST SW2 CLL 4©52 4©55 4©54 JMS AS5PFi CLA 0SR HAL CLL 4@55 4©56 /PRINT ERROR /TEST SW®. SZL 4©57 4®68 4©61 HLT CLA 42! 62 RTL 4®63 4®64 /ERROR HALT STEST3 /TEST Swl SZIL JMP STEST3+2 JMP STEST3+i 4965 4866 /ASH CONSTANTS SXLI NK , 4©47 4©5© ERROR COMPARE /SCOPE MODE /CONTI N UE -MODE AS3PR , 4@67 4@70 4®71 4®72 497S ACCHK , © 4©74 MQCHK , 4975 ASREXT, 0 0 4®76 TEST4, N Q'R M T /NORMALIZE 4977 TYP EA I 418© TYP E3 TYPE 41©1 4102 LI I NK , LFTINK TEST •- Maindec 801 -3A Page 37 u U 111®3 S77T 3777 41©4 3495 41©5 4lz16 2154 3©6© TYPRE PRT PRTT 4107 3673 ACCLC 411® 775® 715q' 4111 56®1 ASRPNU+I MQCLC 4112 3657 4115 ©8©® 4114 724@ CLA CMA 4115 ©41© AND I ACCHK GNNN , © Z ACIND 4116 5Z75 DCA 4117 7®4© CMA 4122) 2'411 AND I 4121 6274 DCA MQCHK 4122 22©7 ISZ ASR3 4125 2161 4124 2275 ISZ Z PRNUM ISZ ASREXT /INCREFTENT Z MQIND 4125 5713 JMP 4126 2564 4127 413© 4131 52©© 76©4 7106 ISZ REEEE JMP STEST3 I 4132 7906 4133 4134 4135 743® 52®0 5676 SZL JMP JMP STEST3 /REPEAT I TEST4 0 4136 ©2j©© 4137 724® CLA 414® 4141 ©5©4 57©5 AND DCA 4142 7$4$ CMA 4143 4144 ®3®4 57®6 AND DCA 4145 4146 7©4® Z)587 CMA AND TEST4+I I 4147 5®1© DCA Z 415© 7®49 CMA 4151 ®612 AND 4152 4155 3©11 7®4© DCA CMA 4154 5287 DCA 4155 704© 4156 4157 ®511 5161 4169 72)4® 4161 ©518 4162 4165 4164 5275 5736 8888 CMA TEST4+6 I TEST4+7 TEST4+6 I TEST4+10 ACIND TEST4+14 Z MQIND ASR6 I ES I 4+ I 3 Z PRNUM AND TEST4+12 DCA ASREXT JMP I HKEEP REEEE. 8 AUTO INDE:X PATTERN COMPARE /MQ AUTO INDEX PATTERN COMPARE /INCREMENT SHIFT # /INCREMENT ASH PRINT TEST COUNT GNNN CLA 0SR RTL CLL RTL HK EEP ' /AC /TEST SW3 TEST # Maindec 801-3A Page 38 I I /LOAD ACNMIX /LOAC AC ACNMIN /STORE AC MQNMIN /STORE MQ MQ INDEXED PATTERN PATTERN /STORE SCAST INDEXED SCA\ COUNT /6©®® JMP NMIERR NMIERR /AC DID NOT EQUAL 6©©8 DID NOT EQUAL 6©©® DID NOT EQUAL ®©®® /MQ •-I /INDEXED STEP NMIERR /SC IN ERROR /SC IN ERROR /TEST NMIERR+12 SCA COUNT COUNT FOR /T0 EXIT # ® /CONTINUE TEST MI N MI ERR ' HS ENMI , JMS CLA I SCAST+ll 0SR HAL CLL /TEST SW2 /JUMP T0 /TEST SW© /TEST Swl PRINT ROUTINE Maindec 801 -3A Page 39 4274 4275 5®12 DCA 7©4© CMA 0357 AND MQNMIQ 3813 7 2j 4 a DCA xmQNMI CMA ©511 AND SCC23 6512 DCA SCASTX JMP NORMT+I CLA 0SR 52®1 76©4 EXI NMI , XACNMI 745® 52 a Zl JMP NORMT JMP I SCAST, NMIODD, 608® ®©27 88©© SCC25, SCASTX, 8 8©8® ACNMIxi a 21©0© MQNMIX® ©©8© MQNMIN, ®©®© ACNMIN, 5©00 44©8 23 DECIMAL 25 /REPEAT ENTIRE TEST /JMP T0 NEXT NMI TEST /23 ®©27 DECIMAL 8 NORMTI PRNMI GXEN, 8 CLA CMA ©412 AND I 3513 DCA 7948 CMA Z XACNMI ACNMIX /STORE AC ©413 AND 3514 DCA 7©4© ®512 CMA AND 7®41 CIA 7©4© CMA 3512 534© DCA SCASTX JMP EXEN 55©1 /STORE SCAST+l® 7248 8312 744® 5721 START.ADDREss © 6©®© 4555 724© AUTo ADDRESS SZL 5717 4517 START /TEST SW3i RTL CLL RTL 2188© /MQ AUTO /SC 71®6 7©®6 © ® Zj © /AC ACNMIQ, MQNMIQ, EXEN, I Z PATTERN XMQNMI MQNMIX /STORE SCASTX /SUBTRACT /STORE MQ PATTERN ONE FROM SCA COUNT DECREMENTED SCA COUNT ACNMI MQNMI CLA CMA AND SCASTX SZA JMP I OXEN JMP EXINMI /PRINT MS Z MS I MS I MS I MS I MS I MS I MS I MS I CFZLF SPR2+16 SPR2 SPR2 SPR2 SPR2+I SPR2+2 SPR2+5 SPR2+4 MS I SPR2+5 MS I SPR2+I MS I SPR2+2 R6UTINE Maindec 801-3A Page 40 JMS JMS JMS JMS JMS JMS CLA CMA AND I SPR2+7 DCA Z JMS Z BITSTR MESSG JMS JMS I SPR2 I SPR2+l© CLA CMA AN'D I SPR2+ll DCA Z BITSTF! JMS JMS Z Z MESSG CRLF JMS I SPR2+17 JMS i SPR2 JMS I SPR2+l® CLA CMA AND I SPR2+12 DCA Z BITSTR JMS Z MESSG JMS I JMS I CLA SPR2 SPR2+10 CMA AND I SPR2+16 DCA Z BITSTR JMS Z MESSG JMS Z CRLF JMS I JMS I EE SPR2+2B SPR2 CLA CMA AND I DC`A Z SPH2+14 BITSTR JMS Z MESSG JMS Z CRLF JMS I SPR2+2l JMS I SPR2 JMS I CLA CMA SPFi2+l© AND I SPR2+15 DCA Z BITSTR JMS Z MESSG JMS Z CRLF JMP I PRNMI SP2 PC LPAR AC RPAR TENSP MQ ACNMIX SPI MQNMIX ACNMIN -`` Maindec 801 -3A Page 41 ® MQN MI N SCASTX SCAST NMITPR NMIXX SCATXX SCAXX 8 /SC22 /SC2 I 7777 7777 77.& 7774 777© 776© 774® T 7 bqu 76®® 74®0 78®0 6©©© 4©00 8®88 ©0218 9808 *468® 210 NMITPR, ® JMS JMS JMP PNORM, © CLA a AND JMS CLA /SC /SC /SC /SC /SC /SC /SC /SC /SC /SC /SC /SC Maindec 801 -3A Page 42 AND N+I z PRXLOP CmA N+2 PRXLOP PNORM XNOEMT, 462® 724® 4621 ©261 4622 4®46 4625 5617 4624 80@® 4625 42®4 4626 5624 46z7 2!ei©® 463© 4256 4651 4251 4652 5627 4633 ©8©© 4664 NMIXX, scATxx, 8 JMS PNORM JMP I NMIXX a JMS JMS JMP SCAXX, 4266 PSTEP, ® JMS PSTEP JMP I SCAXX 8 CLA CMA AND N+4 JMS Z CLA CMA PRXLOP AND N+5 4644 4®46 JMS Z 4645 4646 7248 926.4 CLA. CMA AND N+6 4647 465® 4©46 5636 JMS Z PRXLOP JMP I PSTEP 4651 218®© PSTEPT' PRXLOP © 4652 7248 CLA 4655 4654 4655 4656 4657 ©261 4@46 5651 ®316 ®615 AND CMA N+3 JMS Z PRXLOP MP I PSTEPT N, 466® ®511 4661 ®324 4662 ®325 ©523 4663 4664 ®3®3 93®1 ©5®5 ©5®1 *5®®© NORMT i, JMP JMS HSENM GENNMI CLA CMA AND I TST25+I /LOAD MQ PATTERN TST25+2 /LOAD A0 PATTERN TST25+l© /STORE quoRMALIZED MQL CLA CMA AND I NMI DCA I AC I MQA DCA I TST25+ll /STORE NORMALIZED L`1Q u Maindec 801 -3A Page 43 TST25+12 /STORE SCA COUNT 5©14 5726 I 5©15 724® CMA 5©16 ©724 I 5®17 714® CMA 5©28 1715 I 52)21 7©4® 5®22 744© 5®25 5®24 5552 7439 /AC DID NOT EQUAL Z5Z5 5925 5332 /AC DID NOT EQUAL 2525 5©26 7240 5$27 8725 /MQ DID NOT EQUAL ©©©© EQUAL 12 TST25+lg TST25+I 5©3® 7440 5931 5®32 5933 5362 7249 9726 CMA 52)34 7140 CMA 5035 5936 5®57 594® 136® 7®4® 744© 535Z DEC 12 /DECIMAL NMERR /SC NMERR /SC DID NOT EQUAL 12 /REPEAT CURRENT TEST NMEF!B I TST25+12 DID 12 NOT 5©41 5042 5043 TST25 NORMTl+2 5©44 5 5845 7 6©4 0SR 5©46 5©47 5©59 •5051 7 186 7 45© 52®2 2521 CLL 5©52 52®1 NORMT I+ I 5853 76©4 0SR 5®56 5®57 712j6 7©®6 743® 52fl® CLL 5®69 5723 I 5961 72©© 5®62 5963 5©64 5®65 5®66 5967 5314 7®8® 7940 ®322 3321 1330 TST25 5q)T® 3TZT I 5871 52®1 NORMT i+ i 5972 5975 5874 5875 5©76 ®88® 724@ @521 794® 744© 5©77 510® 51®1 51©2 51®3 55©1 53©6 7248 ©317 3715 5lB4 51©5 3716 5672 5©54 5©55 /TEST Swl NORMTl+2 NMFLG /TEST SW5 NOR MT I NEXNMI HSENM, /CLEAR TEST COUNTER NM7776 NMFLG DEC 12 TST25+13 GENNMI , CLA ND CMA NMFLG JMP PA2525 /GENERATE 2525 JMP PA2525+5 /GENERA¢E 5252 PA25Z5, CLA JMP CMA NM2525 /I.1Q PATTERN I I TST25+I TST25+2 I GENNMI 2525 /AC PATTERN 0©®© PATTERN Maindec 801 -3A Page 44 51®6 CLA 5187 AND NM5252 511® DCA I 5111 CMA 5112 DGA 5116 JMP 5114 80©® TST25, CMA I I MQNMIX ACNMIX 5117 N M2 52 5 , 512© NM5252, 2525 5252 NMFLG, ® NMT]76, 7776 ]T76 N EX N MI , TST25+2 MQNMIN SCAST SCASTX 0®14 PR»ml 5162 CLA 0SR RTL CLL 5133 5164 5135 5136 5137 /TEST SW2 RAL SNL SKP JMS CLA •RAL 514® 5141 I DECIZ+i 0SR CLL SZL /TEST SWO HLT CLA /TEST 5142 5145 5144 5145 5146 5147 0SR RTL CLL SNL JMP NORMTl+2 515® CLA 5151 52®© 7777 NORMT2 5131 5281 52©2 52®3 52©4 52©5 PATTERN ACNMIN 515© 5152 /AC © 5116 5122 5123 5124 5125 5126 5127 5252 GENNMI 5115 5121 /MQ PATTERN TST25+i 52®2 *52®® U S`Wl /CONTINUE DCA TST25 /CLEAR JMP NORMTl+2 /SCOPE CURRENT TEST COUNTER /HOUSE KEEPING NOR MT2 ' /PATTERN I GENER_ATOR PAT,ZI /MQ PATTERN 5296 CMA 52®7 I PAT8® /AC 5211 I SPAT®© /STORE. \AC NORMALIZED PATTERN 5212 5215 I SPAT2ll /STORE NORMALIZED PATTERN SCANM /STORE ,SCA A PAT'TERN 521® MQ COUNT I SPAT©8 /AC PATTERN I /CHECK PATTERN AC ``-`` Maindec 801 -3A Page 45 /TEST AC BITS J ND /SPAT8© NOT EQUAL T0 CHKAC MT2 ER /SP_AT©® NOT EQUAL T0 Cl+KAC I /MQ SPAT®l PATTERN /CHECK PATTERN /TEST MQ BITS MQ /SPAT©l NOT EQUAL T0 CHKMQ MT2 ER /SPATgl NOT EQUAL TO CHKMQ I SCANM /SCA I CHKSCA /CHECK PATTERN /SCANM NOT COUNT PATTERN SCA EQUAL ;4©96 REPEATs T0 CHKSCA cimF]ENT TEST /TEST Swl NORMT2+2 PATCH CLA CMA AND TPFLAG /JUMP T0 SW3 /GENERATE ©08© MQ PATTERN /GENERATE ®21©1 MQ PATTEF}N CH A I JMP I CHKSCA GEX CLA CMA AND SCANM+l /MQ DCA I /STORE PAT®l PATTERN MQ (88©1) PATTERN CMA /22 DECIMAL PLACES /STORE AC /STORE MQ 5393 53®4 53®5 L) 7@4® 955® 55®6 334© 5655 5397 724® 5318 ©551 PATTERN CHECK /2©©®® HKE, /STORE AC KEEPING CLA CMA /HOUSE TPFLAG+3 TPFLAG /LOAD /7776 5611 3346 AND DCA 5312 5645 DCA AGAIN 5515 52@1. JMP NORMT2+I CHECK FLAG /CHECK TEST COUNTER (8®3®) Maindec 801 -3A Page 46 /TEST SW2 I TPFLAG+4 0SR CLL u /PRINT ROUTINE /TEST Swzl \ I SZL HLT JMP CLA I NMTSI 0SR CLL /TEST JMP NORMT2 /CONTINUE JMP I RTL RTL SZL 5354 5555 5356 5337 514 PATgl, MQNMIX 513 PA"8, ACNMIX SPATB©, ACNMIN 316 43 SPA"l , MQ N MI N CHKAC , ® C HK MQ , 0 C"SCA, SCASTX SCANM, SCAST AGAI N , © TPFLAG9 @ SW3 TPFLAG+5 VI RE E " 0©26 2©®© 7776 PRNMI PA TCH , E3A ISZ TPFLAG JMP JMP 540@ 54©1 54©2 54©6 54®4 5485 54216 54©7 541® A AASREX AC ACAUT ACAUTX ACCHK ACCLC ACCOMP AC I N D ACNMI NORMT2+I NMTS3 EH Maindec 801 -3A Page 47 ACNMIN MQCOMP AC N M I Q MQI N D ACNMIX MQL ACP MQLT AGAIN MQLTI AMQAT5 MQNMI APMQAT MQNMIN AS H I FT MQNMIQ MQNMIX ASH AS R ER R AS R EX MQI AS F2 EX T N MT2 ER AS F3 EXX NCOMP ASRPNU N EX N MI AS RS H F' NEXT ASR3 AS 5 P R NGEN AT NINE AT3 NMEF3R 2 NGENX BACK NMFLG BACP NMI7 BIGL 81 TS TR BLXP NMI ERR 42 NMI0DD 4 NMI TPR CHK AC NMIXX NMTS I CHKMQ NMTS3 CHKSCA N M2 .52 5 CLLI NM5252 NM7776 C CLLINK CLR I NK NNEG CLRL4 NOPE CONTIN NOPR3 COUNTX NORMT CP NORMTI NORMT2 CR NSUB CFtLF ® CRLI 26 NTST CXSX 4©16 ONE DEC 12 515® ONEONE 3 EIGHT ELEVEN 2 0NEP © ONZ ER EMQAT2 EXEN PACP PATCH EX I N MI E3A PAT©® PAT©l FIVE PA252 FOUR GENNMI PBACP PBLXP PC PLINK GENRR PLXP GENX PMQAT SEX PMQLT GNNN PNORM GEN GENN GXEN PPNUM HKE PPPNUM Maindec 801 -3A Page 48 SHL SHLLSR SHLP SHLX FRET PRINT PRINTS PRNMI SIX PRNUM SWUM PRONE SP PRT SPACST PRTAA SPAT®® PRTT PRTTA SPA T a i SPR2 SPI PRTW PRT3 SP2 PRXLOP PRZ TA PSTEP PSTEPT PTHFi EE PT0 PTW0 Q REEE F3EEEE RI GH TS RI TAG RI TI NK RI TMQ RI TXXX Jill N RL2 RL4 ES SS I NK 4 SS I ES I ST ES I ST ES I I STEST2 STEST3 STLI NK STPR STRCNT STRINX SX SX L I N I( T TC 0 U N I TENSP XNORMT XONE XPACP XPMQAT XSCAT XSPI YA YSP2 TES I 4 ZEF30 RPAR RPAREN TH R E E TI N UE ZEF30F3 RSuB RX TNUM SCA SC A N M TPFLAG TSSW0 T0 SC AS I TS T2 5 SC AS TX SCATXX SCAXX TT TWELVE TWO SCC23 TWOTW0 SOP 13 SOP 14 TXXX SOP 15 SOP 16 TYLI TYLPAR TYPE SOP 17 SOP 18 SOP 19 SCP2g SC P2 i SCP22 SCP26 SETL TXXXX TYPEA TYPE2 TY P E3 TYPRE TYR TYRPAR TYS SEVEN TYI SHERFi SliERRX T16 T14 SIT I F I T14X EE Maindec 80l-3A Page 49 u DIAGRAMS Error Graphs for Functions Table Number 1 AIR, NIf 3. Bit 1 1 Bit 10 Bit 9 R111 (Module Type) PE20 (Module Position) 'D182-O-2 (Drawing No.) D182-0-2 Dl 82-0-2 R212 Rlll Rlll PF22 PE21 PE20 'D 182-0-2 D182-0-2 D802 D 182-0-2 R212 R210 Rlll Rlll PF21 PA16 PE2l PE20 D182-0-2 P816 u Bit 8 D182-0-2 D802 D182-0-2 R212 R210 Rlll PF21 PA15 PE19 P815 Bit 7 D182-0-2 D802 D182-0-2 R212 R210 Rlll PF20 PA14 PE18 P814 Bit 6 D182-0-2 D802 D182-0-2 R212 R210 Rlll PF20 PA]3 PEl8 P813 Bit 5 D182-0-2 D802 D 182-0-2 R212 R2lo Rlll PA12 PEl8 PF19 P812 rJ D182-O-2 D802 D182-0-2 D182-0-2 Maindec 801 -3A Page 50 Bit 4 R212 R210 PF19 PAll PBll Bit 3 Dl 82-0-2 D802 R212 R2lo PF18 PA10 D182-O-2 PBIO Bit 2 D182-0-2 D802 R212 R210 PF18 PAO9 P809 Bit 1 D182-0-2 D802 R212 R210 PF17 PAO8 PBO8 D182-0-2 Bit o EE R212 PF17 D182-0-2 D182-O-2 AC, Link 11.4.2 Table Number 2 SC Bit o R205 PF25 D] 82-0-2 Bit I R205 PF25 D182-0-2 u Maindec 801-3A Page 51 U Bit2 Bits Bit4 R205 R111 PF27 PE20 D182-O-2 D182-O-2 R205 Rlll PF27 PE20 D182-O-2 D182-0-2 R205 R111 PF27 PE20 D182-0-2 D182-0-2 EE '-
Home
Privacy and Data
Site structure and layout ©2025 Majenko Technologies