This is an annotated version of a binary card deck marked TSS PM DUMP.
See also:
IDENT DMP
PERIPH
DISKCHN EQU 0
PPU0CHN EQU 0
PPU1CHN EQU 1 AT DEAD START, PPU X LISTENS ON CHANNEL X
DSPCHN EQU 10B
TPCHN EQU 12B
CARDCHN EQU 13B
RTCCHN EQU 14B
*
* THE FIRST CARD OF THIS PROGRAM IS LOADED BY DEADSTART PROGRAM, WHICH APPARENTLY JUMPS TO ADDRESS 6.
* THESE INSTRUCTIONS LOAD THE REMAINDER OF THE PROGRAM, UP TO A 6-7-8-9 CARD.
*
0 00 05 :E DATA 5B
1 00 00 :: DATA 0
2 00 00 :: DATA 0
3 00 00 :: DATA 0
4 00 00 :: STATUS DATA 0
5 00 00 :: DATA 0
*
6 77 13 0001 ;K:A FNC 1B,CARDCHN
10 77 13 0022 ;K:R LOOP FNC 22B,CARDCHN
12 77 13 1401 ;KLA FNC 1401B,CARDCHN
14 74 13 @K ACN CARDCHN
15 20 00 0120 P:AP LDC 120B 80 BINARY COLUMNS
17 71 13 0120 ?KAP IAM INIT,CARDCHN
LOADADR EQU *-1
21 24 00 T: PSN
22 77 13 1300 ;KK: FNC 1300B,CARDCHN
24 74 13 @K ACN CARDCHN
25 70 13 'K IAN CARDCHN
26 75 13 \K DCN CARDCHN
27 34 04 1D STD STATUS
30 22 00 0400 R:D: LPC 400B
32 04 22 DR ZJN 22B ? ? ?
33 30 04 XD LDD STATUS
34 12 40 J5 LPN 40B
35 04 06 DF ZJN NEXT
36 40 20 5P LDI LOADADR
37 17 17 OO SBN 17B 6-7-8-9 PUNCH
40 05 03 EC NJN NEXT
41 01 00 0120 A:AP LJM INIT
43 20 00 0120 P:AP NEXT LDC 120B 80 BINARY COLUMNS
45 35 20 2P RAD LOADADR
46 01 00 0010 A::H LJM LOOP
* Remainder of first card is empty
*
1 ORG 01B
1 ERROR BSS 1
2 TRLEN BSS 1
3 COUNT BSS 1
4 DVCSTAT BSS 1
5 X1 BSS 1
6 X2 BSS 1
7 SADR BSS 2
11 PARCT BSS 1
12 LEN BSS 1
13 EXLEN BSS 1
14 FLASHP BSS 1
15 CMWD BSS 5
22
*
* Start of second card
120 ORG 120B FOLLOWS FIRST 80-COLUMN CARD
120 70 14 'L INIT IAN RTCCHN
121 54 00 1516 =:MN STM TBORG STORE MASTER CLOCK
123 20 00 0500 P:E: LDC 500B
125 34 13 1K STD EXLEN
126 65 00 0131 _:AY IJM INIT4,DISKCHN
130 75 00 \: DCN DISKCHN
*
131 65 12 0134 _JA1 INIT4 IJM INIT5,TPCHN
133 75 12 \J DCN TPCHN
134 65 13 0137 _KA4 INIT5 IJM INITA,CARDCHN
136 75 13 \K DCN CARDCHN
*
* PPUS 1-9 ARE EACH WAITING ON THEIR OWN CHANNEL AFTER THE DEADSTART THAT LOADED THIS PPU.
* SEND EACH ONE A PROGRAM TO OUTPUT ITS MEMORY ON A DIFFERENT CHANNEL, FOR USE BY DMPPU.
* SEE QUESTIONS AT PPDMP
137 14 03 LC INITA LDN PPDMPL
140 73 01 1174 >AI@ INIT1 OAM PPDMP,PPU1CHN
142 74 00 @: INIT2 ACN PPU0CHN
143 75 01 \A INIT3 DCN PPU1CHN
144 56 00 0140 ,:A5 AOM INIT1 INCREMENT CHANNEL IN OAM INSTRUCTION
146 56 00 0142 ,:A7 AOM INIT2 INCREMENT CHANNEL IN ACN INSTRUCTION
150 56 00 1176 ,:I^ AOM PPCHN INCREMENT CHANNEL IN OAM INSTRUCTION
152 56 00 0143 ,:A8 AOM INIT3 INCREMENT CHANNEL IN DCN INSTRUCTION
154 12 77 J; LPN 77B EXTRACT CHANNEL FROM AOM INSTRUCTION
155 17 11 OI SBN 11B
156 04 05 DE ZJN INITSP CHANNEL 9/PPU9
157 16 11 NI ADN 11B
160 17 12 OJ SBN 12B
161 07 55 G MJN INITA
162 03 11 CI UJN INIT3A
*
163 14 03 LC INITSP LDN 3
164 55 00 0142 :A7 RAM INIT2
166 14 03 LC LDN 3
167 55 00 1176 :I^ RAM PPCHN
171 01 00 0137 A:A4 LJM INITA
*
173 20 00 1523 P:MS INIT3A LDC MTMES
175 34 14 1L STD FLASHP
176 77 12 5000 ;J/: FNC 5000B,TPCHN
200 02 00 0645 B:F+ INIT5A RJM FLASH
202 77 12 0010 ;J:H FNC 10B,TPCHN
204 02 00 1154 B:I= RJM NTBSY
206 77 12 0003 ;J:C FNC 3B,TPCHN 556 BPI
210 30 04 XD LDD DVCSTAT
211 12 04 JD LPN 4
212 04 60 D# ZJN INIT3A SEE BELOW FOR ALTERNATIVE IN DMP LISTING:
* NJN INIT6 JUMP IF WRITE ENABLED
* FNC 11B,TPCHN ELSE UNLOAD TAPE
* UJN INIT3A AND CONTINUE
*
*INIT6 EQU *
213 20 00 1200 P:J: LDC DMPMSGP
215 34 14 1L STD FLASHP
*
216 02 00 0645 B:F+ RJM FLASH
*
* DUMP PPU0 (THIS ONE).
220 02 00 1642 B:N7 RJM DMPP0
*
* DUMP PPU1 THROUGH PPU9 BY CALLING DMPPU FOR EACH.
222 02 00 0257 B:B. PP1 RJM DMPPU
224 56 00 1521 ,:MQ AOM AD1
226 17 11 OI SBN 11B
227 07 72 G< MJN PP1
*
230 02 00 0341 B:C6 RJM DUMPCM DUMP CENTRAL MEMORY
232 02 00 0427 B:DW RJM DUMPEX DUMP THE EXCHANGE PACKAGE
234 02 00 0474 B:D@ RJM DUMPECS DUMP EXTENDED CORE STORAGE
236 02 00 0615 B:FM RJM DUMPLST WRITE A TRAILER
*
* WAIT FOR THE TAPE DRIVE TO FINISH, THEN DISPLAY THE DONE MESSAGE AND REPEAT.
240 02 00 1154 B:I= RJM NTBSY
242 77 12 0011 ;J:I FNC 11B,TPCHN
244 20 00 1244 P:J9 LDC DONEMES
246 34 14 1L STD FLASHP
247 02 00 0645 B:F+ DONELP RJM FLASH
251 20 00 0400 P:D: LDC 400B
253 17 01 OA SBN 1
254 05 76 E^ NJN *-1
255 03 71 C? UJN DONELP
*
* DUMP ANOTHER PPU BY READING FROM APPROPRIATE CHANNEL AND WRITING TO TAPE.
256 01 00 0000 A::: LJM 0
257 DMPPU EQU *-1
*
260 02 00 0645 B:F+ DMPPUF RJM FLASH
262 50 00 0316 /:CN LDM DMPPURD DMPPURD = DUMP PPU READ
264 13 77 K; SCN 77B CLEAR CHANNEL (D FIELD)
265 51 00 1521 (:MQ ADM AD1
267 54 00 0316 =:CN STM DMPPURD
271 12 77 J; LPN 77B
272 17 10 OH SBN 10B
273 07 04 GD MJN *+4
274 14 03 LC LDN 3
275 55 00 0316 :CN RAM DMPPURD
277 50 00 1522 /:MR LDM AD2
301 05 07 EG NJN DMPPU1
302 20 00 5000 P:/: LDC 5000B
304 34 05 1E STD X1
305 54 00 1517 =:MO STM TBLEN
307 03 07 CG UJN DMPPURD
*
310 14 00 L: DMPPU1 LDN 0
311 34 05 1E STD X1
312 20 00 3000 P:X: LDC 3000B
314 54 00 1517 =:MO STM TBLEN
*
316 71 00 1523 ?:MS DMPPURD IAM TBDATA,0
320 02 00 0645 B:F+ RJM FLASH
322 56 00 1521 ,:MQ AOM AD1
324 02 00 0733 B:G0 RJM TBOUT
326 57 00 1521 .:MQ SOM AD1
330 30 05 XE LDD X1
331 54 00 1522 =:MR STM AD2
333 04 03 DC ZJN *+3
334 01 00 0260 A:B# LJM DMPPUF
336 01 00 0256 A:B, LJM DMPPU-1
*
*
* DUMP CENTRAL MEMORY 512 WORDS AT A TIME, WITH A FILE MARK EVERY 4096 WORDS.
340 01 00 0000 A::: LJM 0
341 DMPCM EQU *-1
*
*
342 20 00 1211 P:JI LDC DMPMSGC
344 34 14 1L STD FLASHP
345 14 00 L: LDN 0
346 54 00 1521 =:MQ STM AD1
350 54 00 1522 =:MR STM AD2
352 14 01 LA LDN 1
353 54 00 1520 =:MP STM TBTYPE
355 20 00 1000 P:H: LDC 1000B
357 54 00 1517 =:MO STM TBLEN
361 34 12 1J STD LEN
*
362 02 00 0770 B:G' DUMPCM1 RJM FMARK
364 02 00 0645 B:F+ DUMPCM2 RJM FLASH
366 50 00 1521 /:MQ LDM AD1
370 12 77 J; LPN 77B
371 10 14 HL SHN 12
372 51 00 1522 (:MR ADM AD2
374 61 12 1523 [JMS CRM TBDATA,LEN
376 02 00 0733 B:G0 RJM TBOUT
400 30 12 XJ LDD LEN
401 55 00 1522 :MR RAM AD2
403 10 63 H% SHN -12
404 55 00 1521 :MQ RAM AD1
406 12 77 J; LPN 77B
407 10 14 HL SHN 12
410 51 00 1522 (:MR ADM AD2
412 21 67 7777 Q&;; ADC -CMSIZE
414 06 10 FH PJN DUMPCM5
415 50 00 1522 /:MR LDM AD2
417 04 03 DC ZJN *+3
420 01 00 0364 A:C" LJM DUMPCM2
422 01 00 0362 A:C] LJM DUMPCM1
*
424 01 00 0340 A:C5 DUMPCM5 LJM DUMPCM-1
*
* DUMP THE EXCHANGE PACKAGE.
426 01 00 0000 A::: LJM 0
427 DUMPEX EQU *-1
*
*
430 20 00 1221 P:JQ LDC DMPMSGX
432 34 14 1L STD FLASHP
433 14 00 L: LDN 0
434 63 13 1326 %KKV CWM XPACK,EXLEN
*
* EXCHANGE JUMP TO 0 SETS CPU PROGRAM COUNTER TO 0, WHICH CONTAINS PS INSTRUCTION (0).
436 14 00 L: LDN 0
437 26 00 V: EXN 0
440 14 00 L: LDN 0
441 24 00 T: PSN
442 24 00 T: PSN
443 24 00 T: PSN
444 24 00 T: PSN
445 24 00 T: PSN
446 14 00 L: LDN 0
447 61 13 1523 [KMS CRM TBDATA,EXLEN
451 02 00 0645 B:F+ RJM FLASH
453 02 00 0770 B:G' RJM FMARK
455 14 00 L: LDN 0
456 54 00 1521 =:MQ STM AD1
460 54 00 1522 =:MR STM AD2
462 56 00 1520 ,:MP AOM TBTYPE
464 14 20 LP LDN 20B EXCHANGE PACKAGE IS 16 CENTRAL MEMORY WORDS
465 54 00 1517 =:MO STM TBLEN
467 02 00 0733 B:G0 RJM TBOUT
471 01 00 0426 A:DV LJM DUMPEX-1
*
*
*
* DUMP EXTENDED CORE STORAGE.
473 01 00 0000 A::: LJM 0
474 DUMPECS EQU *-1
*
*
475 20 00 1233 P:J0 LDC DMPMSGE
477 34 14 1L STD FLASHP
500 56 00 1520 ,:MP AOM TBTYPE
502 14 00 L: LDN 0
503 54 00 1521 =:MQ STM AD1
505 54 00 1522 =:MR STM AD2
507 20 00 1000 P:H: LDC 1000B
511 34 12 1J STD LEN
512 54 00 1517 =:MO STM TBLEN
514 02 00 0770 B:G' DUMPECS1 RJM FMARK
516 50 00 1521 /:MQ DUMPEC1A LDM AD1
520 54 00 1413 =:LK STM X01
522 50 00 1522 /:MR LDM AD2
524 54 00 1414 =:LL STM X02
526 14 00 L: LDN 0
527 63 13 1326 %KKV CWM EXPACK,EXLEN
531 14 02 LB LDN 2 EXCHANGE PACKAGE STARTS at 2
532 26 00 V: EXN 0
533 24 00 T: PSN
534 24 00 T: PSN
535 24 00 T: PSN
536 24 00 T: PSN
*
* THE CPU PROGRAM EXITS SUCCESSFULLY BY HALTING AT 0.
* IT EXITS WITH AN ECS ERROR BY HALTING AT 1.
537 27 00 W: DUMPECSA RPN 0
540 04 17 DO ZJN DUMPECS3
541 17 01 OA SBN 1
542 05 74 E@ NJN DUMPECSA
543 20 00 1250 P:J/ LDC ECSERM
545 34 14 1L STD FLASHP
546 02 00 0615 B:FM RJM DUMPLST
*
550 02 00 0645 B:F+ DUMPECS2 RJM FLASH
552 20 00 0400 P:D: LDC 400B
554 17 01 OA SBN 1
555 05 76 E^ NJN *-1
556 03 71 C? UJN DUMPECS2
*
*
*
557 20 00 0100 P:A: DUMPECS3 LDC 100B
561 61 12 1523 [JMS CRM TBDATA,LEN
563 02 00 0733 B:G0 RJM TBOUT
565 14 00 L: LDN 0
566 60 15 #M CRD CMWD
567 30 15 XM LDD CMWD
570 31 16 YN ADD CMWD+1
571 31 17 YO ADD CMWD+2
572 31 20 YP ADD CMWD+3
573 31 21 YQ ADD CMWD+4
574 04 03 DC ZJN DUMPECS4
*
575 01 00 0473 A:D> LJM DUMPECS-1
*
*
577 30 12 XJ DUMPECS4 LDD LEN
600 55 00 1522 :MR RAM AD2
602 10 63 H% SHN -12
603 55 00 1521 :MQ RAM AD1
605 50 00 1522 /:MR LDM AD2
607 04 03 DC ZJN *+3
610 01 00 0516 A:EN LJM DUMPEC1A
612 01 00 0514 A:EL LJM DUMPECS1
*
614 01 00 0000 A::: LJM 0
615 DUMPLST EQU *-1
*
616 14 04 LD LDN 4
617 54 00 1520 =:MP STM TBTYPE
621 14 00 L: LDN 0
622 54 00 1521 =:MQ STM AD1
624 54 00 1522 =:MR STM AD2
626 14 05 LE LDN 5
627 34 12 1J STD LEN
630 54 00 1517 =:MO STM TBLEN
632 02 00 0770 B:G' RJM FMARK
634 02 00 0733 B:G0 RJM TBOUT
636 02 00 0770 B:G' RJM FMARK
640 02 00 0770 B:G' RJM FMARK
642 01 00 0614 A:FL LJM DUMPLST-1 RETURN STUPID !!!!
*
*
644 01 00 0000 A::: LJM 0
645 FLASH EQU *-1
*
646 30 14 XL LDD FLASHP
647 16 01 NA ADN 1
650 54 00 0662 =:F] STM FLASHW MODIFY OAM INSTRUCTION
*
652 77 10 7000 ;H': FLASH1 FNC 7000B,DSPCHN
654 74 10 @H ACN DSPCHN
655 14 02 LB LDN 2
656 73 10 0730 >HGX OAM CO.OR,DSPCHN OUTPUT 2 WORDS FROM CO.OR
660 40 14 5L LDI FLASHP
661 73 10 0000 >H:: OAM 0,DSPCHN OUTPUT (FLASHP) WORDS FROM FLASHP+1
662 FLASHW EQU *-1
663 14 00 L: LDN 0
664 34 07 1G STD SADR
665 50 00 1520 /:MP LDM TBTYPE
667 05 07 EG NJN FLASH4
670 50 00 1521 /:MQ LDM AD1
672 16 33 N0 ADN 1R0
673 34 10 1H STD SADR+1
674 01 00 0721 A:GQ LJM FLASH3
*
676 50 00 1521 /:MQ FLASH4 LDM AD1
700 34 06 1F STD X2
701 12 07 JG LPN 7
702 16 33 N0 ADN 1R0
703 34 10 1H STD SADR+1
704 30 06 XF LDD X2
705 10 74 H@ SHN -3
706 34 06 1F STD X2
707 04 12 DJ ZJN FLASH3
710 12 07 JG LPN 7
711 16 33 N0 ADN 1R0
712 10 06 HF SHN 6
713 35 10 2H RAD SADR+1
714 30 06 XF LDD X2
715 10 74 H@ SHN -3
716 04 03 DC ZJN FLASH3
717 16 33 N0 ADN 1R0
720 34 07 1G STD SADR
*
721 14 02 LB FLASH3 LDN 2
722 73 10 0007 >H:G OAM SADR,DSPCHN
724 24 00 T: PSN
*
*
725 75 10 \H DCN DSPCHN
726 01 00 0644 A:F9 LJM FLASH-1
*
730 60 00 #: CO.OR DATA 6000B,7400B COORDINATES ON DISPLAY
*
*
732 01 00 0000 A::: LJM 0
733 TBOUT EQU *-1
734 20 00 0734 P:G1 TBOUTE LDC TBOUTE
736 34 01 1A STD ERROR
737 77 12 1601 ;JNA FNC 1601B,TPCHN
*
* UNLESS TBTYPE=PPU, MULTIPLY LENGTH BY 5 (60/12).
741 50 00 1520 /:MP LDM TBTYPE
743 04 07 DG ZJN TBOUT1
744 50 00 1517 /:MO LDM TBLEN
746 10 02 HB SHN 2
747 51 00 1517 (:MO ADM TBLEN
751 03 03 CC UJN TBOUT2
*
752 50 00 1517 /:MO TBOUT1 LDM TBLEN
*
*
754 16 05 NE TBOUT2 ADN 5
755 34 02 1B STD TRLEN
756 74 12 @J ACN TPCHN
757 73 12 1516 >JMN OAM TBORG,TPCHN
761 66 12 0761 !JG[ OWAIT FJM OWAIT,TPCHN
763 75 12 \J DCN TPCHN
*
764 02 00 1024 B:HT RJM ENDOP
*
766 03 43 C8 TBOUTC UJN TBOUT-1
*
*
767 01 00 0000 A::: LJM 0
770 FMARK EQU *-1
771 20 00 0771 P:G? FMARKE LDC FMARKE
773 34 01 1A STD ERROR
774 14 01 LA LDN 1
775 34 02 1B STD TRLEN
*
776 02 00 1154 B:I= RJM NTBSY
1000 77 12 0002 ;J:B FNC 2,TPCHN
1002 02 00 1024 B:HT RJM ENDOP
1004 77 12 1601 ;JNA FNC 1601B,TPCHN
1006 74 12 @J ACN TPCHN
1007 14 17 LO LDN 17B
1010 72 12 UJN ENDOP1A
*
1053 36 11 3I ENDOP3 AOD PARCT
1054 77 12 0041 ;J:6 FNC 0041B,TPCHN REVERSE READ
1056 02 00 1164 B:I" ENDOP3A RJM STATUS
1060 12 02 JB LPN 2
1061 05 74 E@ NJN ENDOP3A
1062 77 12 1401 ;JLA FNC 1401B,TPCHN INPUT
1064 30 02 XB LDD TRLEN
1065 34 03 1C STD COUNT
1066 74 12 @J ACN TPCHN
1067 70 12 'J ENDOP4 IAN TPCHN
1070 37 03 4C SOD COUNT
1071 66 12 1067 !JH& ENDOP4A FJM ENDOP4,TPCHN
1073 64 12 1071 "JH? AJM ENDOP4A,TPCHN
1075 17 02 OB SBN 2
1076 07 03 GC MJN *+3
1077 01 00 1121 A:IQ LJM 1121B,00B
*
1101 77 12 0040 ;J:5 FNC 0040B,TPCHN
1103 77 12 0016 ;J:N FNC 0016B,TPCHN SKIP BADSPOT
1105 02 00 1164 B:I" ENDOP5 RJM STATUS
1107 12 02 JB LPN 2
1110 05 74 E@ NJN ENDOP5
1111 30 04 XD LDD DVCSTAT
1112 22 00 2000 R:P: LPC 2000B
1114 04 03 DC ZJN *+3
1115 01 00 1121 A:IQ LJM HOPELESS
1117 01 01 0000 AA:: LJM 0,ERROR RETURN FOR RE TRY
*
*
1121 20 00 1146 P:I- HOPELESS LDC HOPELES1
1123 54 00 0735 =:G2 STM TBOUTE+1
1125 54 00 0772 =:G< STM FMARKE+1
1127 02 00 0615 B:FM RJM DUMPLST TRY TO WRITE TRAILER
1131 20 00 1257 P:J. LDC PARMES
1133 34 14 1L STD FLASHP
1134 30 11 XI ENDOPP LDD PARCT
1135 54 00 1521 =:MQ STM AD1
1137 02 00 0645 B:F+ RJM FLASH
1141 20 00 0400 P:D: LDC 400B
1143 17 01 OA SBN 1
1144 06 76 F^ PJN *-1
1145 03 66 C! UJN ENDOPP
*
1146 20 00 1300 P:K: HOPELES1 LDC NOTRLR
1150 34 14 1L STD FLASHP
1151 01 00 1134 A:I1 LJM ENDOPP
*
*
*
*
* WAIT UNTIL THE TAPE DRIVE IS NOT BUSY.
1153 01 00 0000 A::: LJM 0
1154 NTBSY EQU *-1
1155 02 00 1024 B:HT RJM ENDOP
1157 30 04 XD LDD DVCSTAT
1160 12 02 JB LPN 2
1161 04 71 D? ZJN NTBSY-1
1162 03 72 C< UJN NTBSY+1
*
*
* FETCH THE STATUS OF THE TAPE DRIVE AND STORE IT IN DVCSTAT.
1163 01 00 0000 A::: LJM 0
1164 STATUS EQU *-1
1165 77 12 1300 ;JK: FNC 1300B,TPCHN
1167 74 12 @J ACN TPCHN
1170 70 12 'J IAN TPCHN
1171 75 12 \J DCN TPCHN
1172 34 04 1D STD DVCSTAT
1173 03 67 C& UJN STATUS-1
*
* INSTRUCTIONS TO WRITRE MEMORY OF A PPU TO A DISTINCT CHANNEL.
* THE CODE AT INITA WRITES A VERSION OF THIS TO EACH PPU, WHICH THE DEADSTART
* LEAVES HANGING ON ITS OWN CHANNEL.
* QUESTIONS:
* 1. WHY DOESN'T PPDMPL = 4? WILL THERE BE A ZERO WORD FOR THE M FIELD OF THE OAM INSTRUCTION?
* 2. SHOULDN'T THERE BE A UJN * AFTER PPCHN TO KEEP THAT PPU OUT OF TROUBLE?
3 PPDMPL EQU 3
1174 00 00 :: PPDMP DATA 0
1175 14 00 L: LDN 0
1176 73 00 0000 >::: PPCHN OAM 0,PPU0CHN
*
*
*
*
1200 00 07 :G DMPMSGP DATA 7
1201 04 25 DU DIS ,$DUMPING...PPUS$
1202 15 20 MP
1203 11 16 IN
1204 07 57 G.
1205 57 57 ..
1206 20 20 PP
1207 25 23 US
1210 00 00 ::
*
1211 00 06 :F DMPMSGC DATA 6
1212 04 25 DU DIS ,$DUMPING...CM$
1213 15 20 MP
1214 11 16 IN
1215 07 57 G.
1216 57 57 ..
1217 03 15 CM
1220 00 00 ::
*
1221 00 10 :H DMPMSGX DATA 8
1222 04 25 DU DIS ,$DUMPING...XPACK$
1223 15 20 MP
1224 11 16 IN
1225 07 57 G.
1226 57 57 ..
1227 30 20 XP
1230 01 03 AC
1231 13 00 K:
1232 00 00 ::
*
1233 00 07 :G DMPMSGE DATA 7
1234 04 25 DU DIS ,$DUMPING...ECS$
1235 15 20 MP
1236 11 16 IN
1237 07 57 G.
1240 57 57 ..
1241 05 03 EC
1242 23 00 S:
1243 00 00 ::
*
1244 00 02 :B DONEMES DATA 2
1245 04 17 DO DISK ,$DONE$
1246 16 05 NE
1247 00 00 ::
*
1250 00 05 :E ECSERM DATA 5
1251 05 03 EC DIS ,$ECS ERROR$
1252 23 55 S
1253 05 22 ER
1254 22 17 RO
1255 22 00 R:
1256 00 00 ::
*
1257 00 20 :P PARMES VFD 12/LPARMES
1260 25 16 UN DIS ,$UNRECOV. PARITY ERROR...SORRY$
1261 22 05 RE
1262 03 17 CO
1263 26 57 V.
1264 55 20 P
1265 01 22 AR
1266 11 24 IT
1267 31 55 Y
1270 05 22 ER
1271 22 17 RO
1272 22 57 R.
1273 57 57 ..
1274 23 17 SO
1275 22 22 RR
1276 31 00 Y:
1277 00 00 ::
*
1300 00 25 :U NOTRLR VFD 12/LNOTRLR
1301 20 01 2211 PARI DIS ,$PARITY ERROR, NO TRAILER WRITTEN, BEWARE$
25 LNOTRLR EQU *-NOTRLR-1
*
*
*
1326 XPACK EQU *
1326 EXPACK BSSZ 10 CM WORDS 0,1
1340 00 00 VFD 24/18,18/100B,18/0 P,A0,B0
1341 00 22
1342 00 01
1343 00 00
1344 00 00
1345 BSSZ 5 CM RA,A1,B1
1352 00 00 VFD 24/4000B,36/0 CM FL,A2,B2
1353 40 00
1354 00 00
1355 00 00
1356 00 00
1357 00 07 VFD 24/70000B,36/22 EM,A3,B3=RECS ADDRESS
1360 00 00
1361 00 00
1362 00 00
1363 00 26
1364 00 60 VFD 24/200001,36/0 ECS RA,A4,B4
1365 65 01
1366 00 00
1367 00 00
1370 00 00
1371 01 11 VFD 24/300041,36/0 ECS FL,A5,B5
1372 20 11
1373 00 00
1374 00 00
1375 00 00
1376 00 00 :: BSSZ 10+3 A6 THROUGH B7, TOP 36 BITS OF X0
1413 X01 DATA 0
1414 X02 DATA 0
1415 00 00 VFD 60/1000B COUNT IN X1
1416 00 00
1417 00 00
1420 00 00
1421 10 00
1422 00 00 VFD 60/300000 FL IN X2
1423 00 00
1424 00 00
1425 01 11
1426 17 40
* READ ECS INSTRUCTION IN X3
1427 04 00 VFD 60/04000000010110000000B WILL BE CYCLED 30 BITS
1430 00 00
1431 01 01
1432 10 00
1433 00 00
1434 00 00 BSSZ 4*5 X4-X7
*
1460 36 40 VFD 15/36401B 18 IX4 X0+X1 MAX+1 ADDRESS
1461 1
3 74 VFD 15/37442B IX4 X4-X2 LAST+1-FL
1462 42
03 VFD 30/0334000024B NG X4,20 JUMP IF ADDRESS OK
1463 34 00
1464 00 24
1465 37 11 VFD 15/37114B 19 IX1 X1-X4 DECREMENT COUNT
1466 4
7 16 VFD 30/7160000001B SX6 B0+1 FLAG IN X6
1467 00 00
1470 00 1
5 VFD 15/56600B SA6 B0+b0 SET FLAG IN WORD 0
1471 66 00
1472 36 61 VFD 15/36613B 20 IX6 X1+X3 FORM INSTRUCTION
1473 3
2 06 VFD 15/20636B LX6 30
1474 36
51 VFD 30/5163000000B SA6 B3+0 STORE INSTR
1475 63 00
1476 00 00
1477 02 30 VFD 30/0230000000B 21 JP B3+0 TO READ ECS
1500 00 00
1501 00 00
1502 00 00
1503 00 00
1504 00 00 BSSZ 5 22 INSTRUCTION LANDS HERE
1511 02 00 VFD 6/2,54/0 23 JP B0+0
1512 00 00
1513 00 00
1514 00 00
1515 00 00
100000 CMSIZE EQU 100000B
1516 00 00 :: TBORG DATA 0 COPY OF REAL TIME CLOCK
1517 00 00 :: TBLEN DATA 0
1520 00 00 :: TBTYPE DATA 0 0=PPU,1=CPU,2=EXCHANGE PACK,3=ECS,4=TRAILER
1521 00 00 :: AD1 DATA 0
1522 00 00 :: AD2 DATA 0
1523 TBDATA EQU *
*
* EVERYTHING AFTER THIS LOCATION IS OVERWRITTEN WHEN DMPPU IS CALLED.
1523 01 00 MTMES DATA 0
1524 15 17 MO DIS ,$MOUNT DUMP TAPE (OUTPUT)$
1540 BSSZ 101B IT WAS 100B IN DMP LISTING
*
* DMPP0 DUMPS THIS PPU (0) TO TAPE: FIRST 5000B WORDS, THEN 3000B WORDS - TOTAL IS 4096 WORDS.
1641 01 00 0000 A::: LJM 0
1642 DMPP0 EQU *-1
*
1643 20 00 1643 P:N8 LDC DMPP0+1
1645 34 01 1A STD ERROR
1646 20 00 5000 P:/: LDC 5000B
1650 54 00 1517 =:MO STM TBLEN
1652 16 05 NE ADN 5
1653 34 02 1B STD TRLEN
1654 77 12 1601 ;JNA FNC 1601B,TPCHN
1656 14 05 LE LDN 5
1657 74 12 @J ACN TPCHN
1660 73 12 1516 >JMN OAM TBORG,TPCHN OUTPUT 5 WORDS STARTING AT TBORG
1662 20 00 5000 P:/: LDC 5000B
1664 73 12 0000 >J:: OAM 0,TPCHN OUTPUT 5000B WORDS STARTING AT 0
1666 66 12 1666 !JN! DMPP0W FJM DMPP0W,TPCHN LOOP IF CHANNEL IS FULL
1670 75 12 \J DCN TPCHN
1671 02 00 1024 B:HT RJM ENDOP
*
1673 20 00 1673 P:N> DMPP01 LDC DMPP01
1675 34 01 1A STD ERROR
1676 20 00 5000 P:/: LDC 5000B
1700 54 00 1522 =:MR STM AD2
1702 20 00 3000 P:X: LDC 3000B
1704 54 00 1517 =:MO STM TBLEN,00B
1706 16 05 NE ADN 5
1707 34 02 1B STD TRLEN
1710 77 12 1601 ;JNA FNC 1601B,TPCHN
1712 14 05 LE LDN 5
1713 74 12 @J ACN TPCHN
1714 73 12 1516 >JMN OAM TBORG,TPCHN
1716 20 00 3000 P:X: LDC 3000B
1720 73 12 5000 >J/: OAM 5000B,TPCHN
1722 66 12 1722 !JOR DMPP01W FJM DMPP01W,TPCHN
1724 75 12 \J DCN TPCHN
1725 02 00 1024 B:HT RJM ENDOP
1727 14 00 L: LDN 0
1730 54 00 1517 =:MO STM TBLEN
1732 54 00 1522 =:MR STM AD2
1734 01 00 1641 A:N6 LJM DMPP0-1
2020 ORG 2020B
2020 00 17 :O DATA 17B 6-7-8-9 PUNCH ON LAST CARD