Demo Programs

Table of Contents

VOBJ (Verify Object Programs) - by Jack Ghiselli - July 16, 2022
A one card "HELLO WORLD" program from Martin Albrecht - June 4, 2020
" ... printing the line "Hello World" on the 1403 every time the Start button is pressed after loading the card, ..."
,008015,201022,029036,043047,051055,062063,067/332/299M0772112.047HELLO WORLD
Assembled and Disassembled code from "Risky line printer music on a vintage IBM mainframe" in Ken Shirriff's blog (Sept 2019)
Message from Stan - Dec 2015
--BigPrint15.4, Aug 2015 - original BIG PRINT Demo original Dec 6, 2006
--Lincoln2.1 (Lincoln head printout)
--Mandelbrot2.1 (Mandelbrot set printout)
--PowersOfTwo4.3 (Powers of 2 printout)
--prime_demo3 (computed list of primes printout)
--TapeDemo7.2 (make one or more mag tapes active)
--Exercise-Tapes
--Radio Music - 'IBM 1401 memory music'
--VOBJ (Verify Object decks) as files as sent by Jack Ghiselli VOBJ.S, VOBJ.lst, VOBJ.cd, User Instructions
-- To make a nice 083 Sorter Demo Deck by Ken Ross - Feb 2020

Items we could demonstrate
Edith "strip tease"
"We" don't demonstrate the following:
1403 Printer "Music" (tough on printer chains)
Pi500-25 (Pi to 500 places - print as it goes)
KS-Pi-DemoPrint (Prints Pretty Pi)
Tape Demo, from Germany, from Van Snyder

VOBJ (Verify Object Programs) - by Jack Ghiselli - July 16, 2022

Discussed here -
Operating Instructions
Source deck
List deck
Object deck

Message from Stan - Dec 2015

Trojan protection cards Beside function changes in some of the programs the boot loader for all programs has changed. The new boot loader allows one or more 'Trojan' cards to be placed in the front of each deck. All of these 'Trojan' cards are the same. They are read into the machine and then cause the next card to be read and processed. The first card of most deck takes a beating and has to be copied and replaced. With the 'Trojan' card, you can just toss it and replace it with another 'Trojan' card. README file for Big Print Friday, August 28, 2015 Author Ed Thelen Modifications Stan Paddock BigPrint is a demonstration program run on the IBM 1401 The input is a series of cards: The first card is a date card. Whatever is in the first 25 columns of this card is considered the date. January 23, 1987 is as good as 1/23/87 The second card and all following cards are name cards. The first name can be up to 11 characters. If the first name is longer than 11 characters, it will be truncated to 11 characters. The second name can be up to 10 characters. The second name starts after the space between the first name and the start of the second name. The next 10 characters will be displayed as the second name. There can be three names like Juan el Capitan The program will print Juan on the first line and El Capitan on the second line. Except that there must be a space between names, the rest of the spacing does not matter. All extra spaces will be ignored. There is no limit to the number of name cards that can be used. The last card is the End Of File card. If the three characters EOF are found in Columns 1-5 the program will terminate with a halt. If you want to run it again with a new set of cards, set sense switch G on, clear the card reader, place the second date, name and EOF cards in the reader and press start. If you don't want to run it again, leave sense switch G off and when you press start, it will look for and read in the next program. A new feature has been added to BigPrint rev 16.2. It is called BANNER. If the first 6 characters of the date card are BANNER, BigPrint shifts into BANNER mode. Each following card will print a line on the printer. CC 1:If it is a D, the Double print will be used and the characters from column 3-13 will be printed. (11 characters) :If it is a S, the Single print will be used and the characters from column 3-24 will be printed.(22 characters) CC 2:If CC 2 is a D, the line will be double printed as in Dark. :If CC 2 is a L, the line will be single printed as in light. The last card is the End Of File card. If the three characters EOF are found in Columns 1-5 the program will terminate with a halt. End of Document README file for Lincoln Friday, March 06, 2015 Author Ron Mak ****************************************************************** * LINCOLN'S BIRTHDAY PROGRAM * BY RONALD MAK * * ORIGINAL VERSION: FEBRUARY 1969 * RESURRECTED: FEBRUARY 2005 * CONDENSED: NOVEMBER 2010 ****************************************************************** This program was written by a very young Ronald Mak. It prints out the head of lincoln using the words from the Gettysberg address. The program will terminate with a halt. If you want to run it again with a new set of cards, set sense switch G on, clear the card reader, place the second date, name and EOF cards in the reader and press start. If you don?t want to run it again, leave sense switch G off and when you press start, it will look for and read in the next program. End of Document README file for Mandelbrot Saturday, March 07, 2015 Author Ken Shirriff Benoit B. Mandelbrot was a Polish-born, French and American mathematician, noted for developing the field of fractal geometry , which included coining the word "fractal". He later discovered the Mandelbrot set of intricate, never-ending fractal shapes, named in his honor. This program generated the most famous Mandelbrot figure on a machine developed 20 years before Fractals were identified. The IBM 1401 does not have the ability to work with floating point numbers so all of the math has to be done with integer math. The program is CPU time intensive but fun to watch if you know what is going on in the program. The program will terminate with a halt. If you want to run it again, set sense switch G on, and press start. If you don?t want to run it again, leave sense switch G off and when you press start, it will look for and read in the next program. End of Document README file for Powers of two Saturday, March 07, 2015 Author Stan Paddock Powers Of 2 is a demonstration program run on the IBM 1401 computer. The IBM 1401 stores one digit per memory location. The IBM 1401 has 16,000 locations of memory. With this amount of memory, the IBM 1401 can add together two 8,000 digit numbers.! Modern computers perform integer arithmetic using binary values. For the IBM PC, the largest value is 64 bits. The largest value that can be expressed in 64 bits is 18,446,744,073,709,551,616. That is 20 digits long. The Powers Of Two program demonstrates the ability of the IBM 1401 to handle large numbers by starting with a single digit of 2 and then double it until it fills a single print line on the IBM 1403 printer. In addition of that, the program prints out how you pronounce the resultant number. The program will terminate with a halt. If you want to run it again, set sense switch G on, and press start. If you don?t want to run it again, leave sense switch G off and when you press start, it will look for and read in the next program. End of Document README file for prime_demo Friday, March 06, 2015 Author Ken Shirriff prime_demo is a demonstration program run on the IBM 1401 It uses the sieve of Eratosthenes an ancient algorithm for finding all prime numbers up to any given limit. For this program, the given limit is 25,000 due to the memory limitation of the computer. The program will terminate with a halt. If you want to run it again with a new set of cards, set sense switch G on, clear the card reader, place the second date, name and EOF cards in the reader and press start. If you don?t want to run it again, leave sense switch G off and when you press start, it will look for and read in the next program. End of Document README file for Tape Demo Saturday, June 20, 2015 Author Stan Paddock Tape Demo is a demonstration program run on the IBM 1401 computer. The IBM 1401 uses tapes to store large amounts of data. When processing that data, the each active tape drive would randomly be selected and read or write data. This program makes the tape drives appear to be working very hard. The program supports the use of one, two, three or four tape drives. When a tape drive is selected, 1 to 9 records are written to the drive. After a half a reel of tape has been written to the tape drives, the tape drives go into high-speed rewind. (*) The program uses the IBM 1401 sense switches to control the actions of the program. SENSE SWITCH A = (NOT USED) SENSE SWITCH B = TAPE DRIVE 1 ONLY SENSE SWITCH C = TAPE DRIVES 1 & 2 SENSE SWITCH BC = TAPE DRIVES 1 & 2 & 3 SENSE SWITCH D = TAPE DRIVES 1 & 2 & 3 & 4 SENSE SWITCH E = LOOP TEST PROGRAM SENSE SWITCH F = TERMINATE PROGRAM SENSE SWITCH G = RERUN PROGRAM FROM START The program will terminate with a halt. If you want to run it again, set sense switch G on, and press start. (*) If sense switch G is on while the program is running, it will not do the final rewind. The next time the program runs, all active tape drives will go into high speed rewind. If you don?t want to run it again, leave sense switch G off and when you press start, it will look for and read in the next program. End of Document

Lincoln2.1 .s .s.revised .lst .cd .ReadMe

prime_demo3 .s .lst .cd .ReadMe

prime_demo3.s
JOB PRIME * GENERATE PRIME NUMBERS. DEMO FOR COMPUTER HISTORY MUSEUM * KEN SHIRRIFF HTTP://RIGHTO.COM HEAD * IMPORTANT NOTE ON THE BITMASK: IT HOLDS ODD NUMBERS,STARTING WITH 3. * SO N IS IN ADDRESS BITS0+(N-3)/2 REV DCW @REVISION 3 COMPILED ON MARCH 3, 2015@ TO DCW #5 * TEMPORARY MAX DCW @25000@ * MAXIMUM NUMBER TO PRINT MAXADR DCW @12500@ * MAX/2 SQRT DCW @00158@ * SQRT(MAX) ADR DCW #5 STEP DCW #3 * ADDRESS STEP WHEN MOVING THROUGH BITMASK LINENO DCW #2 * LINE NUMBER ON PAGE PAGENO DCW #1 PPTR DCW #5 * PRIME/2-1.5,AS A 3-CHAR ADDRESS PPTR5 DCW #5 * PPTR AS 5-DIGIT VALUE,NOT ADDRESS * BITS[(N-1)/2] = 1 IF N HAS NOT BEEN ELIMINATED ENDADR DCW @000@ DCW @A LIST OF PRIME NUMBERS UNDER 25,000 GE@ DC @NERATED BY THE IBM 1401 AT THE COMPUTER@ LINE1 DC @ HISTORY MUSEUM IN MOUNTAIN VIEW,CA@ DCW @THIS PRINTOUT WAS GENERATED ON AN IBM 1401 @ DC @COMPUTER AT THE COMPUTER HISTORY MUSEUM, @ CREDIT DC @ MOUNTAIN VIEW, CALIFORNIA@ PROD DCW #11 * SIZEOF(COUNT)*2+1 POS DCW #3 * POSITION ON LINE. * CONVERSION CONSTANTS HZONE DCW @9ZRI9ZRI9ZRI9ZRI@ LZONE DCW @9999ZZZZRRRRIIII@ BITS0 DCW BITS-12499 BITS DS 12500 * LENGTH IS MAX/2. ORG 15000 START CS 299 MCW REV,180 * LEAVE ID BEHIND MCW @00000@,PPTR MCW @00000@,PPTR5 MCW @007@,POS * NEEDS TO MATCH CODE IN WRITE MCW @1@,PAGENO B HEADER * PRINT HEADER MCW @00002@,TO B WRITE * PRINT 2 AS A SPECIAL CASE * INITIALIZE END ADDRESS MCW MAXADR,ADR B CONV2 MCW ADR,ENDADR OUTER MCW PPTR,X2 * SEARCH FOR NEXT CLEAR BIT SCAN C X2,ENDADR BE DONE C BITS0&X2,@1@ * FOUND A PRIME (BIT IS NOT 1)? BU FOUND MA @001@,X2 A +1,PPTR5 B SCAN DONE NOP EXIT FOUND MCW X2,PPTR * FOUND A PRIME AT INDEX X2. NEED TO CONVERT TO NUMBER,WHICH IS INCONVENIENT MA @001@,PPTR * INCREMENT THE INDEX MZ @0@,PPTR5 MCW PPTR5,PROD-6 A +1,PPTR5 * PRIME = 2*INDEX+3,I.E. 2*TO+3 M @2@,PROD-4 A @3@,PROD-4 * ADD 3 MZ @0@,PROD-4 * CLEAR ZONE MCW PROD-4,TO B WRITE * WRITE THE PRIME C SQRT,TO * DON'T CROSS OFF ANY MULTIPLES ONCE PAST SQUARE ROOT OF MAX BH OUTER MCW TO,ADR * CROSS OFF EVERY 2*PRIME (IGNORING EVEN),I.E. INCREMENT INDEX BY PRIME B CONV2 MCW ADR,STEP * STEP HOLDS THE INCREMENT FOR CROSSING-OFF * COMPUTE PRIME^2,WHICH IS WHERE TO START MARKING OFF NUMBERS MCW TO,PROD-6 M TO,PROD MZ @0@,PROD * SUBTRACT 3 AND DIVIDE BY 2 TO CONVERT BACK TO INDEX MCW PROD,TO S @3@,TO MZ @0@,TO ZA TO,PROD-4 D @2@,PROD-8 MZ @0@,PROD-6 * PROD-6 IS NEW INDEX MCW PROD-6,ADR B CONV2 MCW ADR,X2 * X2 IS NEW INDEX AS AN ADDRESS MCW PROD-6,ADR * ADR IS NEW INDEX AS A NUMBER * STEP THROUGH ALL THE MULTIPLES OF PRIME STARTING AT PRIME^2,SETTING THE BITS CLEAR C ADR,MAXADR * DONE? BL OUTER * GO BACK TO OUTER LOOP MN @1@,BITS0&X2 MA STEP,X2 * INCREMENT X2 BY STEP A STEP,ADR * INCREMENT ADR BY STEP B CLEAR * END OF MAIN PROGRAM * ROUTINE TO WRITE VALUE IN "TO" TO PRINTER IN 10 COLUMNS WRITE SBR WRITEX&3 C @60@,LINENO * PRINT HEADER AT LINE 60 BU NOHEAD B HEADER NOHEAD MCW POS,X3 LCA @00,000@,200&X3 MCE TO,200&X3 A @8@,X3 MZ @0@,X3 MCW X3,POS C @111@,POS * 7+8*13 = 111 BU WRITEX W * LINE IS COMPLETE MCW @007@,POS A +1,LINENO MZ @0@,LINENO CS 332 CS WRITEX B 000 * ROUTINE TO PRINT THE NEXT HEADER LINE HEADER SBR HEADEX&3 CC 1 * EJECT PAGE MCW LINE1,312 MCW @PAGE X OF 4@,330 * PAGE COUNT HEADER MCW PAGENO,325 W A @1@,PAGENO MZ @0@,PAGENO CS 332 * BLANK LINE AFTER HEADER CS W MCW @03@,LINENO * NOW ON LINE 3 HEADEX B @000@ * ROUTINE TO CONVERT 5-DIGIT ADDRESS TO 3-DIGIT ADDRESS. * FROM VAN SNYDER. * FASTEST ROUTINE TO CONVERT THE FIVE-DIGIT NUMBER IN ADR TO * A THREE CHARACTER ADDRESS,IN PLACE. USES X1. WOULD BE * SLOWER AND 14 CHARACTERS LONGER IF IT SAVED AND RESTORED X1. * CONV2 SBR CONV2X&3 MCW ADR-3,X1 MCW @0@ MZ HZONE-15&X1,ADR-2 MZ LZONE-15&X1,ADR CONV2X B 0-0 END START

ReadMe --------------------------------------------------------------------------
prime_demo3.cd
,008015,022026,030040/019,001L020100 ,047054,061068,072072)08108110220001 ,008047/047046 /000H025B022100 4/061046,054061,068072,00104010400002 X1000X2000X3000 L015099,087090,092095,09704010400003 REVISION 3 COMPILED ON MARCH 3, 2015 L036375,040040,040040,04004010400004 250001250000158 L030405,381386,391396,40140410400005 000 L014419,407412,417040,04004010400006 A LIST OF PRIME NUMBERS UNDER 25,000 GEL039458,040040,040040,04004010400007 NERATED BY THE IBM 1401 AT THE COMPUTERL039497)459459,040040,04004010400008 HISTORY MUSEUM IN MOUNTAIN VIEW,CA L035532)498498,040040,04004010400009 THIS PRINTOUT WAS GENERATED ON AN IBM 1L039571,040040,040040,04004010400010 401 L004575)572572,040040,04004010400011 COMPUTER AT THE COMPUTER HISTORY MUSEUML039614)576576,040040,04004010400012 , MOUNTAIN VIEW, CALIFORNIA L039653)615615,643040,04004010400013 9ZRI9ZRI9ZRI9ZRI9999ZZZZRRRRIIII692 L038691,657673,689040,04004010400014 /299M375180ME9E411MF0?416MF0C656MF0D406L039?3H,?0D?1A,?1H?2E,?3B04010400015 BD9IMF0I380BC9DM390400BE5HM400419 L033?7A,?4C?5?,?5D?6A,?6E04010400016 M411094C094419BA2ASC6R1F0DBA7B/#F1B094 L038A0I,?7I?8F,?9A?9H,A0C04010400017 AF1C416B?7INN999999.B?0?G/332 L029A3H,A1GA2A,A2BA2I,A3?A3E10400018 ///CF1G!0GB!0?S,0011 L020A5H,A4?A4A,A4BA4I,A5DA5H10400019 B001001,BA5HNM094411#F1B411YF1H416 L034A9B,A6GA7A,A7BA7I,A8F04010400020 M416647AF1C416@F1I649AF2?649YF1H649 L035B2G,B0?B0G,B1DB2A,04004010400021 M649380BC9DC395380B?7BUM380400BE5H L034B6A,B3EB3I,B4FB5A,B5H04010400022 M400403M380647@380653YF1H653M653380 L035B9F,B6IB7F,B8CB9?,04004010400023 SF2?380YF1H380?380649%F1I645YF1H647 L035C3A,C0DC1A,C1HC2E,04004010400024 M647400BE5HM400094M647400C400390B?7BT L037C6H,C3IC4C,C5?C5G,C6D04010400025 DF0D6R1#403094A403400BC5GHD9HCF2B405 L036D0D,C7FC8C,C9?C9D,C9H04010400026 BD1D/BD9IM656099LF2H2?0E3802?0AF2I099 L037D4A,D1?D1D,D2AD2H,D3E04010400027 YF1H099M099656CF3B656BD9E/2MF0C656 L034D7E,D4ID5F,D6CD6H,D6I04010400028 AF1C405YF1H405/332/B000HE5GF1 L029E0D,D8CD9?,D9DD9E,D9IE0C10400029 M532312MF4C330M4063252AF0D406YF1H406 L036E4?,E1BE1I,E2FE2G,E3D04010400030 /332/2MF4E405BF4HHE9?M397089 L028E6H,E4EE4F,E4GE5D,E5HE6B10400031 MF1HY6V7398Y6X3400B0000000000000007 L035F0C,E7CE8?,E8GE9A,E9FF0A10400032 100002001ASHAY02 L016F1I,F0EF1?,F1CF1D,F1HF1I10400033 36000,0008111PAGE X OF 403 L026F4E,F2AF2C,F2IF3?,F3CF4D10400034 000 L003F4H,040040,040040,04004010400035 /?0?080 0036

prime_demo3.lst
BOOTSTRAP FOR CLEAR ,008015,022026,030040/019,001L020100 ,047054,061068,072072)0810811022 1 CLEAR OR BOOTSTRAP ,008047/047046 /000H025B022100 4/061046,054061,068072,0010401040 2 0 PRIME PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD A-ADDR B-ADDR 101 JOB PRIME 102 * GENERATE PRIME NUMBERS. DEMO FOR COMPUTER HISTORY MUSEUM 103 * KEN SHIRRIFF HTTP://RIGHTO.COM 104 HEAD MACRO *************************** START OF HEAD MACRO ************************** GEN 1 AUTOCODER PROGRAM PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD A-ADDR B-ADDR 105 JOB AUTOCODER PROGRAM GEN 106 CTL 6611 *6=16,000C;6=16,000T;1=OBJDECK;,1=MODADD GEN * GEN 107 .READ EQU 001 0001 GEN 108 .PUNCH EQU 101 0101 GEN 109 .PRINT EQU 201 0201 GEN * GEN 110 ORG 85 0085 111 DCW @X1@ *IDENTIFING FILLER 2 0086 GEN 3 112 X1 DCW 000 *INDEX REGISTER 1 3 0089 GEN 3 113 DCW @X2@ *IDENTIFING FILLER 2 0091 GEN 3 114 X2 DCW 000 *INDEX REGISTER 2 3 0094 GEN 3 115 DCW @X3@ *IDENTIFING FILLER 2 0096 GEN 3 116 X3 DCW 000 *INDEX REGISTER 3 3 0099 GEN 3 * GEN 117 ORG 340 *ORG JUST AFTER PRINT BUFFER 0340 ****************************** END OF HEAD MACRO ************************** GEN 118 * IMPORTANT NOTE ON THE BITMASK: IT HOLDS ODD NUMBERS,STARTING WITH 3. 119 * SO N IS IN ADDRESS BITS0+(N-3)/2 120 REV DCW @REVISION 3 COMPILED ON MARCH 3, 2015@ 36 0375 4 121 TO DCW #5 * TEMPORARY 5 0380 5 122 * 123 MAX DCW @25000@ * MAXIMUM NUMBER TO PRINT 5 0385 5 124 MAXADR DCW @12500@ * MAX/2 5 0390 5 125 SQRT DCW @00158@ * SQRT(MAX) 5 0395 5 126 * 127 ADR DCW #5 5 0400 5 128 STEP DCW #3 * ADDRESS STEP WHEN MOVING THROUGH BITMASK 3 0403 5 129 LINENO DCW #2 * LINE NUMBER ON PAGE 2 0405 5 130 PAGENO DCW #1 1 0406 6 131 * 132 PPTR DCW #5 * PRIME/2-1.5,AS A 3-CHAR ADDRESS 5 0411 6 133 PPTR5 DCW #5 * PPTR AS 5-DIGIT VALUE,NOT ADDRE 5 0416 6 134 * BITS[(N-1)/2] = 1 IF N HAS NOT BEEN ELIMINATED 135 ENDADR DCW @000@ 3 0419 6 136 * 137 DCW @A LIST OF PRIME NUMBERS UNDER 25,000 GE@ 39 0458 7 138 DC @NERATED BY THE IBM 1401 AT THE COMPUTER@ 39 0497 8 139 LINE1 DC @ HISTORY MUSEUM IN MOUNTAIN VIEW,CA@ 35 0532 9 140 * 141 DCW @THIS PRINTOUT WAS GENERATED ON AN IBM 1401 @ 43 0575 11 142 DC @COMPUTER AT THE COMPUTER HISTORY MUSEUM, @ 41 0616 13 143 CREDIT DC @ MOUNTAIN VIEW, CALIFORNIA@ 26 0642 13 144 * 145 * 146 * 147 PROD DCW #11 * SIZEOF(COUNT)*2&1 11 0653 13 148 POS DCW #3 * POSITION ON LINE. 3 0656 14 149 * 150 * CONVERSION CONSTANTS 1 AUTOCODER PROGRAM PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD A-ADDR B-ADDR 151 HZONE DCW @9ZRI9ZRI9ZRI9ZRI@ 16 0672 14 152 LZONE DCW @9999ZZZZRRRRIIII@ 16 0688 14 153 * 154 BITS0 DCW BITS-12499 3 0691 692 14 692 155 BITS DS 12500 * LENGTH IS MAX/2. 13191 156 ORG 15000 15000 157 START CS 299 4 15000 / 299 15 299 158 MCW REV,180 * LEAVE ID BEHIND 7 15004 M 375 180 15 375 180 159 MCW @00000@,PPTR 7 15011 M E9E 411 15 15595 411 160 MCW @00000@,PPTR5 7 15018 M F0? 416 15 15600 416 161 MCW @007@,POS * NEEDS TO MATCH CODE IN WRIT 7 15025 M F0C 656 15 15603 656 162 MCW @1@,PAGENO 7 15032 M F0D 406 15 15604 406 163 B HEADER * PRINT HEADER 4 15039 B D9I 16 15499 164 MCW @00002@,TO 7 15043 M F0I 380 16 15609 380 165 B WRITE * PRINT 2 AS A SPECIAL CASE 4 15050 B C9D 16 15394 166 * 167 * 168 * INITIALIZE END ADDRESS 169 MCW MAXADR,ADR 7 15054 M 390 400 16 390 400 170 B CONV2 4 15061 B E5H 16 15558 171 MCW ADR,ENDADR 7 15065 M 400 419 16 400 419 172 * 173 * 174 OUTER MCW PPTR,X2 * SEARCH FOR NEXT CLEAR BIT 7 15072 M 411 094 17 411 094 175 SCAN C X2,ENDADR 7 15079 C 094 419 17 094 419 176 BE DONE 5 15086 B A2A S 17 15121 177 C BITS0&X2,@1@ * FOUND A PRIME (BIT IS NOT 1)? 7 15091 C 6R1 F0D 17 691+2 15604 178 BU FOUND 5 15098 B A7B / 17 15172 179 MA @001@,X2 7 15103 # F1B 094 17 15612 094 180 A &1,PPTR5 7 15110 A F1C 416 18 15613 416 181 B SCAN 4 15117 B ?7I 18 15079 182 DONE NOP 1 15121 N 18 183 EXIT MACRO ********************************** START OF EXIT MACRO ************* GEN 184 EXIT NOP 999,999 *LOAD THE A AND B REGISTERS 7 15122 N 999 999 GEN 18 999 999 185 H *HALT OR I WILL SHOOT 1 15129 . GEN 18 * GEN 186 B START,G *IF G IS ON, RETURN TO START 5 15130 B ?0? G GEN 18 15000 187 CS 332 *CLEAR PRINT STORAGE 4 15135 / 332 GEN 18 332 188 CS *CLEAR PRINT STORAGE 1 15139 / GEN 19 189 CS *CLEAR PUNCH STORAGE 1 15140 / GEN 19 190 CS *CLEAR READ STORAGE 1 15141 / GEN 19 * GEN 191 C @SHAY@,14007 *WERE WE LOADED WITH THE LOADER? 7 15142 C F1G !0G GEN 19 15617 14007 192 BE 14000 *YES WE WERE. TURN CONTROL 5 15149 B !0? S GEN 19 14000 * OTHERWISE..... *BACK TO THE LOADER GEN * GET READY TO BOOT FROM THE FOLLOWING DECK GEN * GEN 193 SW 001 *SET WORDMARK IN LOCATION 1 4 15154 , 001 GEN 19 001 194 EXRED R *READ FIRST CARD OF NEXT DECK 1 15158 1 GEN 19 1 AUTOCODER PROGRAM PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD A-ADDR B-ADDR 195 BCE 001,001,, *IS IT A COMMA? 8 15159 B 001 001 , GEN 20 001 001 * *BRANCH TO THE FIRST INSTRUCTION GEN 196 B EXRED *CHECK THE NEXT ONE 4 15167 B A5H GEN 20 15158 197 NOP 1 15171 N GEN 20 *********************** END OF EXIT MACRO************************* GEN * GEN 198 * 199 FOUND MCW X2,PPTR * FOUND A PRIME AT INDEX X2. NEED 7 15172 M 094 411 20 094 411 200 MA @001@,PPTR * INCREMENT THE INDEX 7 15179 # F1B 411 20 15612 411 201 MZ @0@,PPTR5 7 15186 Y F1H 416 20 15618 416 202 MCW PPTR5,PROD-6 7 15193 M 416 647 21 416 647 203 A &1,PPTR5 7 15200 A F1C 416 21 15613 416 204 * 205 * PRIME = 2*INDEX+3,I.E. 2*TO+3 206 M @2@,PROD-4 7 15207 @ F1I 649 21 15619 649 207 A @3@,PROD-4 * ADD 3 7 15214 A F2? 649 21 15620 649 208 MZ @0@,PROD-4 * CLEAR ZONE 7 15221 Y F1H 649 21 15618 649 209 MCW PROD-4,TO 7 15228 M 649 380 22 649 380 210 B WRITE * WRITE THE PRIME 4 15235 B C9D 22 15394 211 C SQRT,TO * DON'T CROSS OFF ANY MULTIPLES ON 7 15239 C 395 380 22 395 380 212 BH OUTER 5 15246 B ?7B U 22 15072 213 * 214 MCW TO,ADR * CROSS OFF EVERY 2*PRIME (IGNORIN 7 15251 M 380 400 22 380 400 215 B CONV2 4 15258 B E5H 22 15558 216 MCW ADR,STEP * STEP HOLDS THE INCREMENT FOR CRO 7 15262 M 400 403 23 400 403 217 * COMPUTE PRIME^2,WHICH IS WHERE TO START MARKING OFF NUMBERS 218 MCW TO,PROD-6 7 15269 M 380 647 23 380 647 219 M TO,PROD 7 15276 @ 380 653 23 380 653 220 MZ @0@,PROD 7 15283 Y F1H 653 23 15618 653 221 * SUBTRACT 3 AND DIVIDE BY 2 TO CONVERT BACK TO INDEX 222 MCW PROD,TO 7 15290 M 653 380 23 653 380 223 S @3@,TO 7 15297 S F2? 380 24 15620 380 224 MZ @0@,TO 7 15304 Y F1H 380 24 15618 380 225 ZA TO,PROD-4 7 15311 ? 380 649 24 380 649 226 D @2@,PROD-8 7 15318 % F1I 645 24 15619 645 227 MZ @0@,PROD-6 * PROD-6 IS NEW INDEX 7 15325 Y F1H 647 24 15618 647 228 MCW PROD-6,ADR 7 15332 M 647 400 25 647 400 229 B CONV2 4 15339 B E5H 25 15558 230 MCW ADR,X2 * X2 IS NEW INDEX AS AN ADDRESS 7 15343 M 400 094 25 400 094 231 MCW PROD-6,ADR * ADR IS NEW INDEX AS A NUMBER 7 15350 M 647 400 25 647 400 232 * 233 * STEP THROUGH ALL THE MULTIPLES OF PRIME STARTING AT PRIME^2,SETTING THE B 234 CLEAR C ADR,MAXADR * DONE? 7 15357 C 400 390 25 400 390 235 BL OUTER * GO BACK TO OUTER LOOP 5 15364 B ?7B T 25 15072 236 MN @1@,BITS0&X2 7 15369 D F0D 6R1 26 15604 691+2 237 MA STEP,X2 * INCREMENT X2 BY STEP 7 15376 # 403 094 26 403 094 238 A STEP,ADR * INCREMENT ADR BY STEP 7 15383 A 403 400 26 403 400 239 B CLEAR 4 15390 B C5G 26 15357 240 * 241 * END OF MAIN PROGRAM 1 AUTOCODER PROGRAM PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD A-ADDR B-ADDR 242 * 243 * ROUTINE TO WRITE VALUE IN "TO" TO PRINTER IN 10 COLUMNS 244 WRITE SBR WRITEX&3 4 15394 H D9H 26 15498 245 C @60@,LINENO * PRINT HEADER AT LINE 60 7 15398 C F2B 405 26 15622 405 246 BU NOHEAD 5 15405 B D1D / 27 15414 247 B HEADER 4 15410 B D9I 27 15499 248 * 249 NOHEAD MCW POS,X3 7 15414 M 656 099 27 656 099 250 LCA @00,000@,200&X3 7 15421 L F2H 2?0 27 15628 200+3 251 MCE TO,200&X3 7 15428 E 380 2?0 27 380 200+3 252 A @8@,X3 7 15435 A F2I 099 27 15629 099 253 MZ @0@,X3 7 15442 Y F1H 099 28 15618 099 254 MCW X3,POS 7 15449 M 099 656 28 099 656 255 C @111@,POS * 7&8*13 = 111 7 15456 C F3B 656 28 15632 656 256 BU WRITEX 5 15463 B D9E / 28 15495 257 W * LINE IS COMPLETE 1 15468 2 28 258 MCW @007@,POS 7 15469 M F0C 656 28 15603 656 259 A &1,LINENO 7 15476 A F1C 405 29 15613 405 260 MZ @0@,LINENO 7 15483 Y F1H 405 29 15618 405 261 CS 332 4 15490 / 332 29 332 262 CS 1 15494 / 29 263 WRITEX B 000 4 15495 B 000 29 000 264 * 265 * ROUTINE TO PRINT THE NEXT HEADER LINE 266 HEADER SBR HEADEX&3 4 15499 H E5G 29 15557 267 CC 1 * EJECT PAGE 2 15503 F 1 29 268 * 269 MCW LINE1,312 7 15505 M 532 312 30 532 312 270 MCW @PAGE X OF 4@,330 * PAGE COUNT HEADER 7 15512 M F4C 330 30 15643 330 271 MCW PAGENO,325 7 15519 M 406 325 30 406 325 272 W 1 15526 2 30 273 A @1@,PAGENO 7 15527 A F0D 406 30 15604 406 274 MZ @0@,PAGENO 7 15534 Y F1H 406 30 15618 406 275 CS 332 * BLANK LINE AFTER HEAD 4 15541 / 332 31 332 276 CS 1 15545 / 31 277 W 1 15546 2 31 278 MCW @03@,LINENO * NOW ON LINE 3 7 15547 M F4E 405 31 15645 405 279 HEADEX B @000@ 4 15554 B F4H 31 15648 280 * 281 * 282 * ROUTINE TO CONVERT 5-DIGIT ADDRESS TO 3-DIGIT ADDRESS. 283 * FROM VAN SNYDER. 284 * FASTEST ROUTINE TO CONVERT THE FIVE-DIGIT NUMBER IN ADR TO 285 * A THREE CHARACTER ADDRESS,IN PLACE. USES X1. WOULD BE 286 * SLOWER AND 14 CHARACTERS LONGER IF IT SAVED AND RESTORED X1. 287 * 288 * 289 CONV2 SBR CONV2X&3 4 15558 H E9? 31 15590 290 MCW ADR-3,X1 7 15562 M 397 089 31 397 089 291 MCW @0@ 4 15569 M F1H 32 15618 1 AUTOCODER PROGRAM PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD A-ADDR B-ADDR 292 MZ HZONE-15&X1,ADR-2 7 15573 Y 6V7 398 32 657+1 398 293 MZ LZONE-15&X1,ADR 7 15580 Y 6X3 400 32 673+1 400 294 CONV2X B 0-0 4 15587 B 000 32 000 DCW @00000@ 5 15595 LIT 32 DCW @00000@ 5 15600 LIT 32 DCW @007@ 3 15603 LIT 32 DCW @1@ 1 15604 LIT 33 DCW @00002@ 5 15609 LIT 33 DCW @001@ 3 15612 LIT 33 DCW &1 1 15613 LIT 33 DCW @SHAY@ 4 15617 LIT 33 DCW @0@ 1 15618 LIT 33 DCW @2@ 1 15619 LIT 33 DCW @3@ 1 15620 LIT 34 DCW @60@ 2 15622 LIT 34 DCW @00,000@ 6 15628 LIT 34 DCW @8@ 1 15629 LIT 34 DCW @111@ 3 15632 LIT 34 DCW @PAGE X OF 4@ 11 15643 LIT 34 DCW @03@ 2 15645 LIT 34 DCW @000@ 3 15648 LIT 35 295 END START / ?0? 080 15000 1 PAGE 7 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS .PRINT 0201: 0 .PUNCH 0101: 0 .READ 0001: 0 ADR 0400: 0 BITS 13191: 0 BITS0 0691: 0 CLEAR 15357: 0 CONV2 15558: 0 CONV2X 15587: 0 CREDIT 0642: 0 DONE 15121: 0 ENDADR 0419: 0 EXIT 15122: 0 EXRED 15158: 0 FOUND 15172: 0 HEADER 15499: 0 HEADEX 15554: 0 HZONE 0672: 0 LINE1 0532: 0 LINENO 0405: 0 LZONE 0688: 0 MAX 0385: 0 MAXADR 0390: 0 NOHEAD 15414: 0 OUTER 15072: 0 PAGENO 0406: 0 POS 0656: 0 PPTR 0411: 0 PPTR5 0416: 0 PROD 0653: 0 REV 0375: 0 SCAN 15079: 0 SQRT 0395: 0 START 15000: 0 STEP 0403: 0 TO 0380: 0 WRITE 15394: 0 WRITEX 15495: 0 X1 0089: 0 X2 0094: 0 X3 0099: 0 0UNREFERENCED SYMBOLS .PRINT .PUNCH .READ CREDIT EXIT MAX

prime_demo3.ReadMe
README file for prime_demo Friday, March 06, 2015 prime_demo is a demonstration program run on the IBM 1401 It uses the sieve of Eratosthenes an ancient algorithm for finding all prime numbers up to any given limit. For this program, the given limit is 25,000 due to the memory limitation of the computer. The program will terminate with a halt. If you want to run it again with a new set of cards, set sense switch G on, clear the card reader, place the second date, name and EOF cards in the reader and press start. If you don?t want to run it again, leave sense switch G off and when you press start, it will look for and read in the next program.

--------------------------------------------------------------------

Radio Music - 'IBM 1401 memory music'

Radio Music - 'IBM 1401 memory music' finally came to our 1401 - In December 2008, Robert Garner found a 1401 card deck/program on e-bay that made musical radio noise. (.pdf of object deck)
- Hold an AM radio (tuned away from a station) near/on a 1401 running this (or many other programs we may/maynot have) and listen to the radio or click here to see and hear compressed file. .wmv file, YouTube version. (The compression hurt the video, but not the sound. The sound is NOT concert hall quality!!)
Table of Contents:
- Re: Reverse assembling the 1401 AM radio music program - Michael Albaugh
- Here's the PDF of a scan of a listing - Van Snyder
-
-
-
-
-
-
-
Re: Reverse assembling the 1401 AM radio music program - Michael Albaugh

> From: Michael Albaugh > Subject: Re: Reverse assembling the 1401 AM radio music program > Date: June 23, 2019 at 3:27:43 PM PDT > To: Robert Garner > > I am running short of time, but did make some progress on the > Radio Music program. The attached RMusic.txt is the result of > my typing in the _code_ from the listing, and processing it > to add a (half-assed) disassembly in the unused columns of the > slightly odd loader format. > > The files bootrm.txt payload.txt and start.txt > are annotated versions of the bootstrap, payload, and "start card" > for the code. I only typed in one line of the data block, as I am > way behind. That line is bootrm.txt > > Feel free to share these, as raw as they are. Possibly someone else > will take up the torch and make amazing progress while I am off-line. > > I'll have my phone (408 568 4563) but not doing heavy-duty programming on it. > > -Mike

Here's the PDF of a scan of a listing - Van Snyder

From: Van Snyder < van.snyder@sbcglobal.net > Date: Tue, Jun 25, 2019 11:10 am Here's the PDF of a scan of a listing I got from somebody (maybe Rob) in 2010. I disassembled and reverse engineered the code, and made three versions. RadioMusic.s is straight disassembly, with some reverse engineering to add comments and create "meaningful" labels. RadioMusic-1.s has the code "straightened out." RadioMusic-2.s has the code "straightened out" and uses indexing to simplify it. I didn't transcribe the data from the PDF. Van

(Added Dec 22, 2008) - J?hann Gunnarsson, of Icelandic "IBM 1401: A User's Manual" music fame, has identified the tune as "Wheels". He e-mails " It can be found in various versions on Youtube, for instance performed by Chet Atkins: http://www.youtube.com/watch?v=YzL4ntNwpH8&feature=related"..
(Added Dec 23, 2008)

I appealed for help
"Unfortunately I don't know how to give it a good category One can say "1403 Chain Printer Music" But the best I can come up with for music generated by Radio Frequency Interference from a 1401 is "1401 RFI Music" which is an even a less lovely name than "Chain Printer Music" The whole field of "computer music" seems to beg for more descriptive names: - computer composed tunes - audible music caused by actions of a computer by - printers of various kinds - a loud speaker connected to various parts of a computer circuit - Radio Frequency Interference - and probably many categories I have forgotten"
J?hann Gunnarsson responded with:
"Regarding descriptive names for this kind of music, I have always connected it with the magnetic core memory. The music pattern, pitch and length of notes is after all controlled by what is going on in the memory.
"If I remember correctly, in order to get best results we used to put the AM radio right on top of the memory module. I vaguely remember that we could hear RFI noise from the IBM 1620 as well, although we never really tried to find out how to play it.
"In my opinion, 'IBM 1401 memory music' is quite a descriptive name for this phenomenon."

J?hann's comments, above, seem good to me:

A major source of the Radio Interference is likely the core memory. To make our "coincident current" core memory work, two sizeable currents ( X and Y currents, about 1/2 amp each) need to be started and stopped suddenly. These take large paths in the core memory area (useful to radiate magnetic pulses efficiently).
The IBM 1620 at Computer History Museum had its memory in a temperature controlled metal box (a long story). The metal box likely shielded much/most of the RFI that would otherwise escaped to be received elsewhere, like by radio near the memory.

--------------------------------------------------------------------

To make a nice 083 Sorter Demo Deck by Ken Ross - Feb 2020

JOB create a sort deck with random numbers CTL 6611 * ****************************************************************** * Create sort deck to demo the 083 card sorter * by Ken Ross * * Dated November 15, 2015 * * This uses the "Middle Square" method to generate psuedo random * numbers. The method is pretty poor but will suffice for this * humble purpose. * ****************************************************************** ORG 333 * * Set up constants * TITLE DCW @Ken Ross - Sort Deck Generator@ SEED DCW @34817@ MULT DCW @000000000000@ COUNT DCW @000@ TEXT DCW @SORT DECK@ * * Clear storage and set word marks * START CS 332 CS SW 1,201 SW 101 * * Read a single card and get output count in cols 1-3 (zero filled) * and set up text in print area and punch area * BEGIN MCW TITLE,250 MOVE TO PRINT AREA W PRINT IT MCW TEXT,109 R Read the single card MCW 003,COUNT Save the value which is # cards to punch * LOOP B COMPUT MCW SEED,270 W MCW SEED,180 MOVE VALUE AND PUNCH IT P S @1@,COUNT BWZ LOOP,COUNT,B LOOP SO LONG AS + ZONE DONE H DONE * * * Compute a new number * COMPUT SBR RETURN+3 SAVE RETURN ADDRESS MCW SEED,MULT-7 STORE THE PRIOR NUMBER M SEED,MULT SQUARE IT SW MULT-7 SET WORKMARK TO EXTRACT MIDDLE DIGITS MCW MULT-3,SEED EXTRACT CW MULT-7 CLEAR WORDMARK RETURN B 0000 END START

Tape Demo, from Germany, from Van Snyder

Here's my revision of code I got from HzG as an object deck, and then reverse engineered it. In the original version, it could also jiggle the 2311 heads, but since CHM doesn't have a 2311, I removed that code in the "nodisk" version.
Van suggested I include this zip file for more files.
I think the encoding is original SimH, so the group mark is apostrophe. Maybe that will need changing before punching a deck to run it.

CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 HZG DEMO SGSVU PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB HZG DEMO 102 CTL 6611 103 * 104 * CONTROL CARD LAYOUT 105 * 106 I3LEN EQU 4 1-4 TAPE 3 RECORD LENGTH 0004 107 I3WMAX EQU 8 6-8 TAPE 3 RECORDS UNTIL REWIND 0008 108 I3PMAX EQU 11 10-11 TAPE 3 PROCESSING DELAY 0011 109 I3RDLY EQU 16 13-16 TAPE 3 REWIND DELAY 0016 110 I4LEN EQU 21 18-21 TAPE 4 RECORD LENGTH 0021 111 I4WMAX EQU 25 23-25 TAPE 4 RECORDS UNTIL REWIND 0025 112 I4PMAX EQU 28 27-28 TAPE 4 PROCESSING DELAY 0028 113 I4RDLY EQU 33 30-33 TAPE 4 REWIND DELAY 0033 114 I5LEN EQU 38 35-38 TAPE 5 RECORD LENGTH 0038 115 I5WMAX EQU 42 40-42 TAPE 5 RECORDS UNTIL REWIND 0042 116 I5PMAX EQU 45 44-45 TAPE 5 PROCESSING DELAY 0045 117 I5RDLY EQU 50 47-50 TAPE 5 REWIND DELAY 0050 118 I6LEN EQU 55 52-55 TAPE 6 RECORD LENGTH 0055 119 I6WMAX EQU 59 57-59 TAPE 6 RECORDS UNTIL REWIND 0059 120 I6PMAX EQU 62 61-62 TAPE 6 PROCESSING DELAY 0062 121 I6RDLY EQU 67 64-67 TAPE 6 REWIND DELAY 0067 122 IRDLY EQU 72 69-72 FULL REEL TAPE REWIND DELAY 0072 123 * 124 ORG 81 RECORD MARK AT 81 WILL BE 0081 125 DC @'@ SENTINEL AFTER LAST LINE OF IMAGE 1 0081 4 126 KP1 DCW &1 1 0082 4 127 KB DCW #1 CHANGES BSS C TO BRANCH 1 0083 4 128 KC DCW @C@ CHANGES BRANCH TO BSS C 1 0084 4 129 DC @..@ 2 0086 4 130 X1 DCW 081 3 0089 4 131 DC @..@ 2 0091 4 132 X2 DCW 010 3 0094 5 133 DC @..@ 2 0096 5 134 X3 DCW 000 3 0099 5 135 GMWM DCW @"@ 1 0100 GMARK 5 136 ORG 336 0336 137 * 138 * LOAD PARAMETERS 139 * 140 START R 1 0336 1 6 141 MCW I3RDLY,T3RDLY TAPE 3 REWIND DELAY 7 0337 M 016 853 6 142 MCW TAPE 3 PROCESSING DELAY 1 0344 M 6 143 MCW TAPE 3 RECORDS UNTIL REWIND 1 0345 M 6 144 MCW I4RDLY,T4RDLY TAPE 4 REWIND DELAY 7 0346 M 033 881 6 145 MCW TAPE 4 PROCESSING DELAY 1 0353 M 6 146 MCW TAPE 4 RECORDS UNTIL REWIND 1 0354 M 6 147 MCW I5RDLY,T5RDLY TAPE 5 REWIND DELAY 7 0355 M 050 909 7 1 HZG DEMO SGSVU PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 MCW TAPE 5 PROCESSING DELAY 1 0362 M 7 149 MCW TAPE 5 RECORDS UNTIL REWIND 1 0363 M 7 150 MCW I6RDLY,T6RDLY TAPE 6 REWIND DELAY 7 0364 M 067 937 7 151 MCW TAPE 6 PROCESSING DELAY 1 0371 M 7 152 MCW TAPE 6 RECORDS UNTIL REWIND 1 0372 M 7 153 MCW IRDLY,RDELAY REWIND FULL TAPE DELAY COUNT 7 0373 M 072 958 7 154 * 155 * CALCULATE TAPE WRITE ADDRESSES FROM RECORD LENGTHS 156 * 157 B GETOFF CALULATE OFFSET = - I3LEN 4 0380 B 731 8 158 DSA I3LEN TAPE 3 RECORD LENGTH 3 0386 004 8 159 DSA TAPE3W&6 TAPE 3 WRITE INSTRUCTION 3 0389 860 8 160 B GETOFF CALULATE OFFSET = - I4LEN 4 0390 B 731 8 161 DSA I4LEN TAPE 4 RECORD LENGTH 3 0396 021 8 162 DSA TAPE4W&6 TAPE 4 WRITE INSTRUCTION 3 0399 888 8 163 B GETOFF CALULATE OFFSET = - I5LEN 4 0400 B 731 8 164 DSA I5LEN TAPE 5 RECORD LENGTH 3 0406 038 9 165 DSA TAPE5W&6 TAPE 5 WRITE INSTRUCTION 3 0409 916 9 166 B GETOFF CALULATE OFFSET = - I6LEN 4 0410 B 731 9 167 DSA I6LEN TAPE 6 RECORD LENGTH 3 0416 055 9 168 DSA TAPE6W&6 TAPE 6 WRITE INSTRUCTION 3 0419 944 9 169 * 170 SW 1 4 0420 , 001 9 171 B RDIMAG READ AND STORE THE IMAGE 4 0424 B 473 9 172 * 173 * EVENT LOOP -- CHECK SWITCHES TO DETERMINE ACTIONS 174 * 175 SWLOOP BSS PRINT,C D-MOD CHANGED BY PRINT TO BLANK 5 0428 B 519 C 10 176 BSS TAPEX,D EXERCISE TAPE 3 5 0433 B 577 D 10 177 NOP NOP T3PAKT 4 0438 N 845 10 178 BSS TAPEX,E EXERCISE TAPE 4 5 0442 B 577 E 10 179 NOP T4PAKT 4 0447 N 873 10 180 BSS TAPEX,F EXERCISE TAPE 5 5 0451 B 577 F 10 181 NOP T5PAKT 4 0456 N 901 10 182 BSS TAPEX,G EXERCISE TAPE 6 5 0460 B 577 G 11 183 NOP T6PAKT 4 0465 N 929 11 184 B SWLOOP 4 0469 B 428 11 1 HZG DEMO -- PRINT THE PICTURE SGSVU PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 185 JOB HZG DEMO -- PRINT THE PICTURE 186 * 187 * READ THE IMAGE AND STORE IT. THE FIRST CHARACTER AFTER THE LAST 188 * ONE IN THE STORAGE AREA WILL BE A RECORD MARK. 189 * 190 RDIMAG SBR RDEXIT&3 4 0473 H 518 12 191 RLOOP R 1 0477 1 12 192 LCA 81,IMAGE&X1 STORE ONE LINE OF THE IMAGE 7 0478 L 081 9W9 12 193 B GOTEM,A DONE? 5 0485 B 501 A 12 194 SBR X1,80&X1 ADD 80 TO X1 7 0490 H 089 0Y0 12 195 B RLOOP GET ANOTHER ONE 4 0497 B 477 12 196 * 197 GOTEM SBR X1,80 RESET X1 TO 80 7 0501 H 089 080 12 198 CS 332 4 0508 / 332 13 199 CS 1 0512 / 13 200 CC 1 2 0513 F 1 13 201 RDEXIT H 0 WAIT FOR THE SWITCHES TO BE SET 4 0515 . 000 13 202 * 203 * PRINT THE PICTURE 204 * 205 PRINT SBR PRINTX&3 4 0519 H 576 13 206 MCW KB,SWLOOP&4 MAKE ENTRY TEST UNCONDITIONAL 7 0523 M 083 432 13 207 LCA IMAGE&X1,306 7 0530 L 9W9 306 13 208 W 1 0537 2 14 209 B PRINTA,IMAGE&1&X1,' LAST IMAGE? 8 0538 B 557 9X0 ' 14 210 SBR X1,80&X1 ADD 80 TO X1 7 0546 H 089 0Y0 14 211 B PRINTX 4 0553 B 573 14 212 PRINTA SBR X1,80 RESET X1 TO 80 7 0557 H 089 080 14 213 CC 1 2 0564 F 1 14 214 MCW KC,SWLOOP&4 CHANGE ENTRY TEST TO BSS C 7 0566 M 084 432 14 215 PRINTX B 0 4 0573 B 000 15 1 HZG DEMO -- TAPE EXERCISER SGSVU PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 216 JOB HZG DEMO -- TAPE EXERCISER 217 * 218 * TAPE EXERCISER PACKET LAYOUT 219 * 220 TWMAX EQU 2&X3 NUMBER OF RECORDS INITIAL VALUE 0002 X 221 TPMAX EQU 5&X3 PROCESSING DELAY INITIAL VALUE 0005 X 222 TRDLY EQU 10&X3 REWIND DELAY INITIAL VALUE 0010 X 223 TWRIT EQU 18&X3 TAPE WRITE INSTRUCTION LAST CHAR 0018 X 224 TPCNT EQU 20&X3 CURRENT PROCESSING DELAY COUNT 0020 X 225 TWCNT EQU 23&X3 CURRENT RECORDS UNTIL REWIND 0023 X 226 TRCNT EQU 27&X3 CURRENT REWIND DELAY COUNT 0027 X 227 * 228 * TAPE EXERCISER. FOLLOW B TAPEX WITH NOP PACKET 229 * 230 TAPEX SBR TAPEXX&3 4 0577 H 707 16 231 SBR X3 4 0581 H 099 16 232 MCW 4&X3,X3 ADDRESS OF PACKET TO X3 7 0585 M 0?4 099 16 233 BWZ TAPEXA,TRCNT,K ENOUGH REWIND DELAY? 8 0592 V 611 0B7 K 16 234 S KP1,TRCNT 7 0600 S 082 0B7 16 235 B TAPEXX 4 0607 B 704 16 236 TAPEXA C KONE,TPCNT ENOUGH PROCESSING DELAY? 7 0611 C 968 0B0 17 237 BE TAPEXB 5 0618 B 641 S 17 238 S KP1,TPCNT DECR PROCESSING DELAY COUNT 7 0623 S 082 0B0 17 239 MZ KZERO,TPCNT 7 0630 Y 965 0B0 17 240 B TAPEXX 4 0637 B 704 17 241 TAPEXB LCA TRDLY,TRCNT RWD DELAY DEPENDING ON REC CNT 7 0641 L 0A0 0B7 17 242 BWZ TAPEXE,TWCNT,K TIME TO REWIND? 8 0648 V 708 0B3 K 18 243 LCA RDELAY,TRCNT DELAY FOR FULL REEL REWIND 7 0656 L 958 0B7 18 244 BEF TAPEXE 5 0663 B 708 K 18 245 LCA KM1,TRCNT SET FOR NO REWIND DELAY 7 0668 L 962 0B7 18 246 MCW TWRIT,*&8 COPY TAPE WRITE INSTRUCTION 7 0675 M 0A8 689 18 247 WT 3,GMWM 8 0682 M %U3 100 W 19 248 S KP1,TWCNT DECREMENT WRITE COUNTER 7 0690 S 082 0B3 19 249 MCW TPMAX,TPCNT STORE PROCESSING DELAY 7 0697 M 0?5 0B0 19 250 TAPEXX B 0 4 0704 B 000 19 251 TAPEXE MN TWRIT-4,*&4 SET DRIVE NUMBER IN REWIND 7 0708 D 0A4 718 19 252 RWD 3 5 0715 U %U3 R 19 253 MCW TWMAX,TWCNT RE-INITIALIZE WRITE COUNT 7 0720 M 0?2 0B3 20 254 B TAPEXX 4 0727 B 704 20 255 * 256 * OFFSET THE TAPE WRITE ADDRESS, GIVEN THE RECORD LENGTH 257 * DO THIS BY MA-ING THE 16000-COMPLEMENT OF THE RECORD 258 * LENGTH TO THE ADDRESS IN THE TAPE WRITE INSTRUCTION 259 * 260 GETOFF SBR X3 4 0731 H 099 20 261 SBR GETXX&3,6&X3 7 0735 H 825 0?6 20 262 LCA P16K,ROFF START WITH 16001 7 0742 L 842 834 20 263 MCW 2&X3,*&4 ADDRESS OF RECORD LENGTH 7 0749 M 0?2 759 20 264 S 0,ROFF DECREASE BY RECORD LENGTH 7 0756 S 000 834 21 265 MZ KZERO,ROFF CLEAR ZONE 7 0763 Y 965 834 21 1 HZG DEMO -- TAPE EXERCISER SGSVU PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 266 GETL S KP1,RTHOU 7 0770 S 082 831 21 267 BWZ GETX,RTHOU,K DONE? 8 0777 V 796 831 K 21 268 MA K1000,ROFF ADD 1000 TO OFFSET 7 0785 # 837 834 21 269 B GETL 4 0792 B 770 22 270 GETX MCW 5&X3,X3 ADDRESS OF TAPE WRITE 7 0796 M 0?5 099 22 271 CS 0 GET LAST ADDRESS TO B REG 4 0803 / 000 22 272 LCA GMWM GMWM TO TOP OF MEMORY 4 0807 L 100 22 273 SBR 0&X3 LAST ADDRESS IN MEMORY - 1 4 0811 H 0?0 22 274 MA ROFF,0&X3 SUBTRACT RECORD LENGTH 7 0815 # 834 0?0 22 275 GETXX B 0 4 0822 B 000 22 276 * 277 RLEN DCW 0000 RECORD LENGTH 4 0829 23 278 RTHOU DCW 00 THOUSANDS PART OF OFFSET 2 0831 23 279 ROFF DC 000 OFFSET TO TAPE ADDRESS = - RLEN 3 0834 23 280 K1000 DSA 1000 ADDRESS CONSTANT 1000 3 0837 '00 23 281 P16K DCW 16001 5 0842 23 282 * 283 * TAPE EXERCISER CONTROL PACKETS 284 * 285 T3PAKT DCW 000 NUMBER OF RECORDS INITIAL VALUE 3 0845 23 286 DC #1 FILLER FROM CONTROL CARD 1 0846 23 287 DCW 00 PROCESSING DELAY INITIAL VALUE 2 0848 23 288 DC #1 FILLER FROM CONTROL CARD 1 0849 23 289 T3RDLY DCW 0000 REWIND DELAY INITIAL VALUE 4 0853 23 290 TAPE3W WT 3,0 TAPE WRITE INSTRUCTION 8 0854 M %U3 000 W 24 291 DCW 00 CURRENT PROCESSING DELAY COUNT 2 0863 24 292 DCW 000 CURRENT RECORDS UNTIL REWIND 3 0866 24 293 DCW -0001 CURRENT REWIND DELAY COUNT 4 0870 24 294 * 295 T4PAKT DCW 000 NUMBER OF RECORDS INITIAL VALUE 3 0873 24 296 DC #1 FILLER FROM CONTROL CARD 1 0874 24 297 DCW 00 PROCESSING DELAY INITIAL VALUE 2 0876 24 298 DC #1 FILLER FROM CONTROL CARD 1 0877 24 299 T4RDLY DCW 0000 REWIND DELAY INITIAL VALUE 4 0881 24 300 TAPE4W WT 4,0 TAPE WRITE INSTRUCTION 8 0882 M %U4 000 W 25 301 DCW 00 CURRENT PROCESSING DELAY COUNT 2 0891 25 302 DCW 000 CURRENT RECORDS UNTIL REWIND 3 0894 25 303 DCW -0001 CURRENT REWIND DELAY COUNT 4 0898 25 304 * 305 T5PAKT DCW 000 NUMBER OF RECORDS INITIAL VALUE 3 0901 25 306 DC #1 FILLER FROM CONTROL CARD 1 0902 25 307 DCW 00 PROCESSING DELAY INITIAL VALUE 2 0904 25 308 DC #1 FILLER FROM CONTROL CARD 1 0905 25 309 T5RDLY DCW 0000 REWIND DELAY INITIAL VALUE 4 0909 25 310 TAPE5W WT 5,0 TAPE WRITE INSTRUCTION 8 0910 M %U5 000 W 26 311 DCW 00 CURRENT PROCESSING DELAY COUNT 2 0919 26 312 DCW 000 CURRENT RECORDS UNTIL REWIND 3 0922 26 313 DCW -0001 CURRENT REWIND DELAY COUNT 4 0926 26 314 * 315 T6PAKT DCW 000 NUMBER OF RECORDS INITIAL VALUE 3 0929 26 1 HZG DEMO -- TAPE EXERCISER SGSVU PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 316 DC #1 FILLER FROM CONTROL CARD 1 0930 26 317 DCW 00 PROCESSING DELAY INITIAL VALUE 2 0932 26 318 DC #1 FILLER FROM CONTROL CARD 1 0933 26 319 T6RDLY DCW 0000 REWIND DELAY INITIAL VALUE 4 0937 26 320 TAPE6W WT 6,0 TAPE WRITE INSTRUCTION 8 0938 M %U6 000 W 27 321 DCW 00 CURRENT PROCESSING DELAY COUNT 2 0947 27 322 DCW 000 CURRENT RECORDS UNTIL REWIND 3 0950 27 323 DCW -0001 CURRENT REWIND DELAY COUNT 4 0954 27 324 * 325 RDELAY DCW 0000 DELAY COUNTER FOR EOT REWINDS 4 0958 27 326 KM1 DCW -0001 CONSTANT -1 4 0962 27 327 * 328 KZERO DCW 000 CONSTANT ZERO 3 0965 27 329 KONE DCW 001 3 0968 28 330 IMAGE DS 1 STORAGE FOR IMAGE STARTS HERE 0969 331 END START / 336 080 1 HZG DEMO -- TAPE EXERCISER SGSVU PAGE 7 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS GETL 770 GETOFF 731 GETX 796 GETXX 822 GMWM 100 GOTEM 501 I3LEN 4 I3PMAX 11 I3RDLY 16 I3WMAX 8 I4LEN 21 I4PMAX 28 I4RDLY 33 I4WMAX 25 I5LEN 38 I5PMAX 45 I5RDLY 50 I5WMAX 42 I6LEN 55 I6PMAX 62 I6RDLY 67 I6WMAX 59 IMAGE 969 IRDLY 72 K1000 837 KB 83 KC 84 KM1 962 KONE 968 KP1 82 KZERO 965 NOP 438 P16K 842 PRINT 519 PRINTA 557 PRINTX 573 RDELAY 958 RDEXIT 515 RDIMAG 473 RLEN 829 RLOOP 477 ROFF 834 RTHOU 831 START 336 SWLOOP 428 T3PAKT 845 T3RDLY 853 T4PAKT 873 T4RDLY 881 T5PAKT 901 T5RDLY 909 T6PAKT 929 T6RDLY 937 TAPE3W 854 TAPE4W 882 TAPE5W 910 TAPE6W 938 TAPEX 577 TAPEXA 611 TAPEXB 641 TAPEXE 708 TAPEXX 704 TPCNT 20+X3 TPMAX 5+X3 TRCNT 27+X3 TRDLY 10+X3 TWCNT 23+X3 TWMAX 2+X3 TWRIT 18+X3 X1 89 X2 94 X3 99
,008015,022026,030037,044,049,053053N000000N00001026 0001SGSVU L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0?0002SGSVU ,008015,022029,036040,047054,061068,072/061039 ,00100110400003SGSVU 'A C..081.. L011091)081081,082083,08408710400004SGSVU 010..000" L009100,097100,040040,04004010400005SGSVU 1M016853MMM033881MM L019354,337344,345346,35335410400006SGSVU M050909MMM067937MMM072958 L025379,362363,364371,37237310400007SGSVU B731004860B731021888B731 L024403,384387,390394,39740010400008SGSVU 038916B731055944,001B473 L024427,407410,414417,42042410400009SGSVU B519CB577DN845B577EN873B577FN901 L032459,433438,442447,45145610400010SGSVU B577GN929B428 L013472,465469,040040,04004010400011SGSVU H5181L0819W9B501AH0890Y0B477H089080 L035507,477478,485490,49750110400012SGSVU /332/F1.000H576M083432L9W9306 L029536,512513,515519,52353010400013SGSVU 2B5579X0'H0890Y0B573H089080F1M084432 L036572,538546,553557,56456610400014SGSVU B000 L004576,040040,040040,04004010400015SGSVU H707H099M0?4099V6110B7KS0820B7B704 L034610,581585,592600,60704010400016SGSVU C9680B0B641SS0820B0Y9650B0B704L0A00B7 L037647,618623,630637,64104010400017SGSVU V7080B3KL9580B7B708KL9620B7M0A8689 L034681,656663,668675,04004010400018SGSVU M%U3100WS0820B3M0?50B0B000D0A4718U%U3R L038719,690697,704708,71504010400019SGSVU M0?20B3B704H099H8250?6L842834M0?2759 L036755,727731,735742,74904010400020SGSVU S000834Y965834S082831V796831K#837834 L036791,763770,777785,04004010400021SGSVU B770M0?5099/000L100H0?0#8340?0B000 L034825,796803,807811,81582210400022SGSVU 000000000'0016001000 00 0000 L028853,830835,838843,84785010400023SGSVU M%U3000W00000000J000 00 0000 L028881,862864,867871,87587810400024SGSVU M%U4000W00000000J000 00 0000 L028909,890892,895899,90390610400025SGSVU M%U5000W00000000J000 00 0000 L028937,918920,923927,93193410400026SGSVU M%U6000W00000000J0000000J000 L028965,946948,951955,95996310400027SGSVU 001 L003968,040040,040040,04004010400028SGSVU /336080 0029SGSVU ....

- Ron 2.1

Problem - from Pat Buder

We ran the tape program v2.0 before the demo to get sufficient tape on the takeup reels to show high speed rewind. When running the tape program during the demo an odd thing happened. At first it operated normally on drives 1-3. After a while, drives 1 and 3 stopped but drive 2 kept running. We were not touching any sense switches. However we did hit reset and start on the drives in an attempt to restart the motion.
Usually when the program gets stuck on a single tape drive it is encountering errors and retrying the write/read after advancing the tape very slightly Attempting to stop the program by turning off sense switch G usually makes that obvious because the program doesn't check the switch in the error loop and will keep going until it finally has a success. Not sure why it started acting up, possibly changing temperatures. Will check on it next week.

Discussion - by Jack Ghiselli - Oct 24, 2019, 3:27 PM

Hi Carl,
I wrote it so I?ll fix it. Thanks for the heads-up. What happens now in ?Ron 2.0? is if it gets a persistent write error, it performs Skip-and-Blank-Tape (about 3 inches) which hopefully gets to a better piece of tape, and tries writing again. This could cause one tape to appear to be running while the others stop. My original reason for modifying Ron Williams? original ?Wear Out Tapes? was it could run off the end of reel. I fixed that, but introduced write-error checking, since I was interested in how often errors occur on our tape drives & reels. Better dock my pay until I get the fix in.
--Jack
Jack Ghiselli, Consultant

Solution - by Jack Ghiselli - Nov 2, 2019

Hi Ed,
Paperwork is always late. Attached is the ?Listing? for my updated IBM1401 program ?Ron 2.1 Exercise Tapes?. The updates are per the discussions below.
Ron Williams wrote his original program by hand. As a real man, he didn?t use any of that Assembler program stuff! Thus, there is no true ?listing?. But, attached is a .PDF pseudo-listing I used to punch up the object cards. It?s merely a listing of an Excel file I used to reduce my mistakes (also included).
Thanks so much for your wonderful archives, Ed.
Jack Ghiselli, Consultant