00 CLA 710 01 TAD SA 116 02 DCA I SAPA 334 /Initialise Start Address Pointer 03 GO, JMS I WRA 435 /Test all zeros 04 SZA 730 05 HLT 721 /Stop here if all zeros test fails 06 CMA 704 07 JMS I WRA 435 /Test all ones 10 CMA 704 11 SZA 730 12 HLT 721 /Stop here if all ones test fails 13 JMP END 517 14 SAPA, 032 /Start Address Pointer Address 15 WRA, 026 /Write and Read Subroutine Address 16 SA, 033 /Start Address 17 END, JMS I WRA 435 /Test all zeros 20 SZA 730 21 HLT 721 /Stop here if all zeros test fails 22 ISZ SAP 212 23 JMP I GOA 525 24 HLT 721 25 GOA, 003 /GO Address 26 WR, 000 /Write and read subroutine 27 DCA I SAP 332 30 TAD I SAP 132 31 JMP I WR 526 32 SAP, 000 /Start Address Pointer