The text read off it
[90.05 sample-program listing, PDF p.210]
Compiler listing page, Appendix 90.05 (PDF p.210).
DATE 10/18/61 TIME 2.45 ACCOUNT ID. CT PUBLICATIONS PAGE 19
01150 0774 00 1 00006 10000 +150 AXT 6,1
01151 0074 00 4 00011 10010 +151 TSX IOC)9,4
01152 0 00000 0 04004 10010 +152 PZE CHECKFILE,,0
01153 7 00020 0 00000 10001 +153 IOST CHECK,,16
01154 0074 00 4 00011 10010 +154 TSX IOC)9,4
01155 0 00000 0 04005 10010 +155 PZE PAYFILE,,0
01156 7 00024 0 00020 10001 +156 IOST PAYRECORD,,20
01157 0534 00 4 01667 10001 +157 LXA BL)2,4
01160 0634 00 4 01163 10001 +158 SXA GN)089,4
01161 0074 00 4 00011 10010 +159 TSX IOC)9,4
01162 0 00000 0 04002 10010 +160 PZE OUTPUTMASTER,,0
01163 7 00017 0 00000 10001 GN)089 IOST MASTER,,15
01164 0020 00 0 00221 10001 +1 TRA GET.MASTER
01165 0774 00 0 00000 10000 FICA.ROUTINE AXT 0
01166 0560 00 0 01705 10001 +1 LDQ CP)+9
01167 0200 00 0 00102 10001 +2 MPY 4)GROSS
01170 0131 00 0 00000 10000 +3 XCA
01171 0361 00 0 01736 10001 +4 ACL CP)+34
01172 0765 00 0 00043 10000 +5 LRS 35
01173 0221 00 0 01733 10001 +6 DVP CP)+31
01174 4600 00 0 00105 10001 +7 STQ 4)FICA
01175 0535 00 1 01667 10001 +8 LAC BL)2,1
01176 7 00000 1 00446 10010 +9 TXL SYS)294,1,0
01177 0500 00 1 00012 10000 +10 CLA 1)FICA,1
01200 0400 00 0 00105 10001 +11 ADD 4)FICA
01201 0601 00 1 00012 10000 +12 STO 1)FICA,1
01202 0500 00 1 00012 10000 +13 CLA 1)FICA,1
01203 0340 00 0 01706 10001 +14 CAS CP)+10
01204 0020 00 0 01207 10001 +15 TRA *+3
01205 0020 00 0 01217 10001 +16 TRA GN)076
01206 0020 00 0 01217 10001 +17 TRA GN)076
01207 0500 00 1 00012 10000 +18 CLA 1)FICA,1
01210 0402 00 0 01706 10001 +19 SUB CP)+10
01211 0601 00 0 01627 10001 +20 STO 1.RS)0
01212 0500 00 0 00105 10001 +21 CLA 4)FICA
01213 0402 00 0 01627 10001 +22 SUB 1.RS)0
01214 0601 00 0 00105 10001 +23 STO 4)FICA
01215 0500 00 0 01706 10001 +24 CLA CP)+10
01216 0601 00 1 00012 10000 +25 STO 1)FICA,1
01217 GN)076
01217 0020 60 0 01165 10001 GN)077 TRA* FICA.ROUTINE
01220 0774 00 0 00000 10000 WITHOLDING.TAX.ROUTINE
AXT 0
01221 0560 00 0 01710 10001 +1 LDQ CP)+12
01222 0535 00 1 01667 10001 +2 LAC BL)2,1
01223 7 00000 1 00446 10010 +3 TXL SYS)294,1,0
01224 0200 00 1 00006 10000 +4 MPY EXEMPTIONS,1
01225 0200 00 0 01733 10001 +5 MPY CP)+31
01226 4600 00 0 01633 10001 +6 STQ 2.RS)0
01227 0500 00 0 00102 10001 +7 CLA 4)GROSS
01230 0402 00 0 01633 10001 +8 SUB 2.RS)0
01231 0131 00 0 00000 10000 +9 XCA
01232 0200 00 0 01707 10001 +10 MPY CP)+11
01233 0131 00 0 00000 10000 +11 XCA
01234 0361 00 0 01736 10001 +12 ACL CP)+34