-/lisp 3-23-64 : 1 field - define extend - termin - define load1 A,B - law B - dac A - termin - define init A,B - law B - dap A - termin - define index A,B,C - idx A - sas B - jmp C - termin - define step A,B,C - index A,(B,C - termin - define setup A,B - law i B - dac A - termin - define exit - jmp - termin - define move A,B - lac A - dac B - termin - define load A,B - move (B,A - termin - define count A,B - isp A - jmp B - termin - define test K,P - sad (K - jmp P - termin - define undex A - law i 1 - add A - dac A - termin - define swap - rcl 9s - rcl 9s - termin 003575 652000 smi=spi i 003575 640500 szm=sza sma-szf 003575 650500 spq=szm i 003575 000000 xy=0 003575 760400 xx=hlt 003575 651600 clo=spa sma szo i-szf-szf 003575 540000 mul=540000 003575 560000 div=560000 003575 761200 clc=cma+cla-opr 003575 start -/Lisp interpreter 3-20-64, part 1 000004 4/ -/go 000004 go, 000004 764607 hlt+cla+cli+7-opr-opr 000005 760016 stf 6 - extend 000006 340077 dzm 77 000007 700077 law 77 000010 261136 dap avx 000011 beg, 000011 702350 law pdo-1 000012 242344 dac pdl 000013 200234 lac n 000014 242346 dac ar2 000015 161304 cal rin 000016 161564 cal evo 000017 161235 cal pnt 000020 600011 jmp beg 000021 t0, 000021 000000 0 000022 t1, 000022 000000 0 000023 g0, 000023 000000 0 000024 g1, 000024 000000 0 000025 hi, 000025 000000 0 000026 csi, 000026 000072 72 000027 cso, 000027 000072 72 000030 ffi, 000030 000000 0 000031 ga1, 000031 000000 0 000032 ism, 000032 000000 0 000033 isi, 000033 000032 ism 000034 gst, - repeat 5,20 +000034 000020 20 +000035 000020 20 +000036 000020 20 +000037 000020 20 +000040 000020 20 000041 a0, 000041 000000 0 000042 a1, 000042 000000 0 000043 a2, 000043 000000 0 -/append word to pdl 000044 pwl, 000044 000000 0 000045 260053 dap pwx 000046 442344 idx pdl 000047 502342 sad bfw 000050 602214 jmp qg2 000051 200044 lac pwl 000052 252344 dac i pdl 000053 pwx, - exit +000053 600000 jmp -/retrieve word from pdl -/unsave word; retrieve word from push down list -/unsave word from list 000054 uw, 000054 000000 0 000055 uwl, 000055 260062 dap uwx 000056 232344 lio i pdl - undex pdl +000057 710001 law i 1 +000060 402344 add pdl +000061 242344 dac pdl 000062 uwx, - exit +000062 600000 jmp 000063 buf, 000077 77/ 000077 000000 0 000100 000000 0 000101 260561 dap rx 000102 422244 sub (1 000103 260104 dap .+1 000104 200000 lac xy 000105 260111 dap ave+1 000106 200561 lac rx 000107 170044 jda pwl 000110 ave, 000110 200100 lac 100 - exit +000111 600000 jmp -/create number 000112 crn, 000112 222245 lio (jmp 000113 663003 rcl 2s 000114 671003 rar 2s 000115 240100 dac 100 000116 600762 jmp cpf -/print or punch character 000117 pc, 000117 022246 and (77 000120 502247 sad (76 000121 600556 jmp x 000122 042250 ior (ral 000123 240135 dac pcc 000124 502251 sad (ral 77 000125 600132 jmp pcc-3 000126 460143 isp pch 000127 600134 jmp pcc-1 000130 700277 law 277 000131 160210 cal out 000132 710100 law i 100 000133 240143 dac pch 000134 700252 law 252 000135 pcc, 000135 760400 xx 000136 022252 and (200 000137 040135 ior pcc 000140 240100 dac 100 000141 760012 stf 2 000142 600210 jmp out 000143 pch, 000143 777677 777677 -/get numeric value 000144 vag, 000144 230100 lio i 100 000145 760200 cla 000146 663003 rcl 2s 000147 522253 sas (3 000150 602222 jmp qi3 000151 440100 idx 100 000152 210100 lac i 100 000153 663377 rcl 8s 000154 663377 rcl 8s 000155 600556 jmp x -/get two values 000156 vad, 000156 320042 dio a1 000157 160144 cal vag 000160 240041 dac a0 000161 200042 lac a1 000162 160144 cal vag 000163 240042 dac a1 000164 600556 jmp x -/pack character onto end of buffer 000165 oc, 000165 671077 rar 6s 000166 230033 lio i isi 000167 663077 rcl 6s 000170 502247 sad (76 000171 600206 jmp oc1 000172 200100 lac 100 000173 042254 ior (767600 000174 160761 cal cf 000175 220021 lio t0 000176 440021 idx t0 000177 440033 idx isi 000200 240042 dac a1 000201 320033 dio isi 000202 210042 lac i a1 000203 250021 dac i t0 000204 330042 dio i a1 000205 600556 jmp x 000206 oc1, 000206 330033 dio i isi 000207 600556 jmp x -/output routine 000210 out, 000210 220100 lio 100 000211 640036 szs 36 000212 720005 ppa 000213 650066 szs i 66 000214 720003 tyo 000215 600556 jmp x -/error printout 000216 err, 000216 760006 clf 6 000217 260226 dap erx 000220 210226 lac i erx 000221 240231 dac ern 000222 700227 law erm 000223 160712 cal pra 000224 760016 stf 6 000225 440226 idx erx 000226 erx, - exit +000226 600000 jmp 000227 erm, 000227 357776 357776 000230 000231 .+1 000231 ern, 000231 000000 0 000232 000233 .+1 000233 347776 347776 000234 n, 000234 fro, 000234 002500 nil - define error F - jsp err - F - termin -/garbage collector, non-compacting 000235 gc, 000235 260356 dap gcx 000236 320031 dio ga1 000237 320267 dio gfr 000240 200267 lac gfr 000241 675003 sar 2s 000242 640100 sza 000243 620270 jsp gfr+1 000244 200030 lac ffi 000245 650100 sza i 000246 600251 jmp gco 000247 200100 lac 100 000250 170267 jda gfr 000251 gco, 000251 212334 lac i 1ob 000252 170267 jda gfr 000253 200033 lac isi 000254 522255 sas (ism 000255 600363 jmp gci 000256 702345 law pdl+1 000257 240024 dac g1 000260 gcp, 000260 210024 lac i g1 000261 170267 jda gfr 000262 440024 idx g1 000263 422244 sub (1 000264 502344 sad pdl 000265 600341 jmp g2e 000266 600260 jmp gcp -/mark one list 000267 gfr, 000267 000000 0 000270 260322 dap gfx 000271 200267 lac gfr 000272 661001 ral 1s 000273 650500 spq 000274 600322 jmp gfx 000275 202344 lac pdl 000276 170044 jda pwl 000277 gfn, 000277 230267 lio i gfr 000300 440267 idx gfr 000301 210267 lac i gfr 000302 640200 spa 000303 600316 jmp gfu 000304 042256 ior (add 000305 250267 dac i gfr 000306 642000 spi 000307 600313 jmp gfd 000310 170044 jda pwl 000311 320267 dio gfr 000312 600277 jmp gfn 000313 gfd, 000313 662001 ril 1s 000314 652000 spi i 000315 600323 jmp gfa 000316 gfu, 000316 620055 jsp uwl 000317 320267 dio gfr 000320 520267 sas gfr 000321 600277 jmp gfn 000322 gfx, - exit +000322 600000 jmp 000323 gfa, 000323 672001 rir 1s 000324 320023 dio g0 000325 240267 dac gfr 000326 gfl, 000326 440023 idx g0 000327 210023 lac i g0 000330 640200 spa 000331 600277 jmp gfn 000332 042256 ior (add 000333 250023 dac i g0 000334 240023 dac g0 000335 062256 xor (add 000336 520234 sas n 000337 600326 jmp gfl 000340 600277 jmp gfn -/ garbage collector, linear sweep phase 000341 g2e, 000341 200234 lac fro 000342 240023 dac g0 000343 g2n, 000343 440023 idx g0 000344 230023 lio i g0 000345 652000 smi 000346 600357 jmp g2f 000347 662001 ril 1s 000350 676001 sir 1s 000351 g2a, 000351 330023 dio i g0 000352 440023 idx g0 000353 520025 sas hi 000354 600343 jmp g2n 000355 g2x, 000355 220031 lio ga1 000356 gcx, - exit +000356 600000 jmp 000357 g2f, 000357 222341 lio fre 000360 422244 sub (1 000361 242341 dac fre 000362 600351 jmp g2a 000363 gci, 000363 500234 sad n 000364 600256 jmp gcp-2 000365 240267 dac gfr 000366 240023 dac g0 000367 202344 lac pdl 000370 170044 jda pwl 000371 700256 law gcp-2 000372 260322 dap gfx 000373 600326 jmp gfl -/SASSOC 000374 aso, 000374 160403 cal asc 000375 600377 jmp ase 000376 600556 jmp x 000377 ase, 000377 200043 lac a2 000400 160613 cal cns-1 000401 601564 jmp evo 000402 asr, 000402 222346 lio ar2 000403 asc, 000403 320042 dio a1 000404 200042 lac a1 000405 as1, 000405 500234 sad n 000406 600556 jmp x 000407 210042 lac i a1 000410 240021 dac t0 000411 210021 lac i t0 000412 500100 sad 100 000413 600420 jmp as2 000414 440042 idx a1 000415 210042 lac i a1 000416 240042 dac a1 000417 600405 jmp as1 000420 as2, 000420 452344 idx i pdl 000421 200021 lac t0 000422 600556 jmp x -/program feature -/PROG 000423 pgm, 000423 202347 lac pa3 000424 170044 jda pwl 000425 202350 lac pa4 000426 170044 jda pwl 000427 342350 dzm pa4 000430 322346 dio ar2 000431 230100 lio i 100 000432 440100 idx 100 000433 210100 lac i 100 000434 242347 dac pa3 000435 322345 dio ar1 -/append program variables 000436 202345 lac ar1 000437 pg5, 000437 500234 sad n 000440 600452 jmp pg6 000441 212345 lac i ar1 000442 160613 cal cns-1 000443 222346 lio ar2 000444 160614 cal cns 000445 242346 dac ar2 000446 442345 idx ar1 000447 212345 lac i ar1 000450 242345 dac ar1 000451 600437 jmp pg5 -/expand go-list (on a-list) 000452 pg6, 000452 202347 lac pa3 000453 pg7, 000453 242345 dac ar1 000454 500234 sad n 000455 600471 jmp pg0 000456 212345 lac i ar1 000457 160555 cal car 000460 640400 sma 000461 600466 jmp pg9 000462 202345 lac ar1 000463 222346 lio ar2 000464 160614 cal cns 000465 242346 dac ar2 000466 pg9, 000466 442345 idx ar1 000467 212345 lac i ar1 000470 600453 jmp pg7 -/process program 000471 pg0, 000471 202347 lac pa3 000472 pg1, 000472 500234 sad n 000473 600516 jmp pg2 000474 212347 lac i pa3 000475 160555 cal car 000476 640200 spa 000477 600511 jmp pg3 000500 202346 lac ar2 000501 170044 jda pwl 000502 200100 lac 100 000503 161564 cal evo 000504 620055 jsp uwl 000505 322346 dio ar2 000506 760200 cla 000507 522350 sas pa4 000510 600515 jmp pg4 000511 pg3, 000511 442347 idx pa3 000512 212347 lac i pa3 000513 242347 dac pa3 000514 600472 jmp pg1 -/terminate program 000515 pg4, 000515 202350 lac pa4 000516 pg2, 000516 170054 jda uw 000517 322350 dio pa4 000520 620055 jsp uwl 000521 322347 dio pa3 000522 200054 lac uw 000523 600556 jmp x -/RETURN 000524 ret, 000524 242350 dac pa4 000525 600556 jmp x -/GO 000526 goe, 000526 220100 lio 100 000527 200234 lac n 000530 160614 cal cns 000531 242347 dac pa3 000532 602241 jmp prx -/SETQ 000533 stq, 000533 242345 dac ar1 000534 320022 dio t1 000535 212345 lac i ar1 000536 160403 cal asc 000537 602163 jmp qa4 000540 170044 jda pwl 000541 202345 lac ar1 000542 160554 cal cdr 000543 160555 cal car 000544 220022 lio t1 000545 161563 cal evl 000546 170054 jda uw 000547 320021 dio t0 000550 440021 idx t0 000551 200054 lac uw 000552 250021 dac i t0 000553 600556 jmp x -/CDR 000554 cdr, 000554 440100 idx 100 -/CAR 000555 car, 000555 210100 lac i 100 000556 x, 000556 170054 jda uw 000557 320561 dio rx 000560 200054 lac uw 000561 rx, - exit +000561 600000 jmp -/ATOM 000562 atm, 000562 210100 lac i 100 000563 640400 sma 000564 602241 jmp fal 000565 tru, 000565 202343 lac tr 000566 600556 jmp x -/NULL 000567 nul, 000567 220234 lio n -/EQ 000570 eqq, 000570 320042 dio a1 000571 500042 sad a1 000572 600565 jmp tru 000573 210042 lac i a1 000574 030100 and i 100 000575 022245 and (jmp 000576 522245 sas (jmp 000577 602241 jmp fal 000600 200100 lac 100 000601 160156 cal vad 000602 500041 sad a0 000603 600565 jmp tru 000604 602241 jmp fal -/RPLACD 000605 rdc, 000605 440100 idx 100 000606 422244 sub (1 -/RPLACA 000607 rda, 000607 330100 dio i 100 000610 600556 jmp x -/create atom 000611 mka, 000611 042256 ior (add 000612 240100 dac 100 000613 220234 lio n -/CONS 000614 cns, 000614 440030 idx ffi 000615 cnc, 000615 202341 lac fre 000616 500234 sad n 000617 600673 jmp gcs 000620 cna, 000620 240021 dac t0 000621 200100 lac 100 000622 252341 dac i fre 000623 442341 idx fre 000624 212341 lac i fre 000625 332341 dio i fre 000626 242341 dac fre 000627 200021 lac t0 000630 600556 jmp x -/PLUS 000631 pls, 000631 161770 cal elc 000632 222257 lio (add a0 000633 plz, 000633 340041 dzm a0 000634 pl1, 000634 320642 dio plo 000635 pl2, 000635 500234 sad n 000636 600647 jmp ple 000637 240042 dac a1 000640 210042 lac i a1 000641 160144 cal vag 000642 plo, 000642 000000 0 000643 240041 dac a0 000644 200042 lac a1 000645 160554 cal cdr 000646 600635 jmp pl2 000647 ple, 000647 200041 lac a0 000650 600112 jmp crn -/LOGAND, LOGOR, TIMES 000651 lga, 000651 161770 cal elc 000652 222260 lio (777777 000653 320041 dio a0 000654 222261 lio (and a0 000655 600634 jmp pl1 000656 lgo, 000656 161770 cal elc 000657 222262 lio (ior a0 000660 600633 jmp plz 000661 tim, 000661 161770 cal elc 000662 222244 lio (1 000663 320041 dio a0 000664 222263 lio (jmp tic 000665 600634 jmp pl1 000666 tic, 000666 540041 mul a0 000667 677001 scr 1s 000670 320100 dio 100 000671 400100 add 100 000672 600643 jmp plo+1 000673 gcs, 000673 620235 jsp gc 000674 202341 lac fre 000675 520234 sas n 000676 600620 jmp cna 000677 602217 jmp qg1 -/TERPRI 000700 tpr, 000700 700077 law 77 000701 160117 cal pc 000702 602241 jmp prx -/PRIN1 000703 pr1, 000703 210100 lac i 100 000704 640400 sma 000705 602237 jmp qp1 000706 422264 sub (lac 000707 640200 spa 000710 600730 jmp prn 000711 022265 and (177777 000712 pra, 000712 500234 sad n 000713 600556 jmp x 000714 240041 dac a0 000715 210041 lac i a0 000716 661077 ral 6s 000717 160117 cal pc 000720 210041 lac i a0 000721 671077 rar 6s 000722 160117 cal pc 000723 210041 lac i a0 000724 160117 cal pc 000725 440041 idx a0 000726 210041 lac i a0 000727 600712 jmp pra 000730 prn, 000730 200100 lac 100 000731 160144 cal vag 000732 240022 dac t1 000733 760002 clf 2 - setup t0,6 +000734 710006 law i 6 +000735 240021 dac t0 000736 prv, 000736 220022 lio t1 000737 477777 sad (-1 000740 760012 stf 2 000741 760200 cla 000742 663007 rcl 3s 000743 320022 dio t1 000744 650100 sza i 000745 700020 law 20 000746 502266 sad (20 000747 640002 szf 2 000750 160117 cal pc 000751 460021 isp t0 000752 600736 jmp prv 000753 602241 jmp prx -/NUMBERP 000754 nmp, 000754 210100 lac i 100 000755 022245 and (jmp 000756 502245 sad (jmp 000757 600565 jmp tru 000760 602241 jmp fal -/do a CONS into full word space 000761 cf, 000761 220234 lio n 000762 cpf, 000762 340030 dzm ffi 000763 600615 jmp cnc -/MINUS 000764 min, 000764 160144 cal vag 000765 761000 cma 000766 600112 jmp crn -/XEQ 000767 xeq, 000767 160156 cal vad 000770 202343 lac tr 000771 240022 dac t1 000772 200043 lac a2 000773 160144 cal vag 000774 220041 lio a0 000775 321000 dio xei 000776 200042 lac a1 000777 220054 lio uw 001000 xei, 001000 000000 0 001001 601017 jmp xen 001002 320043 dio a2 001003 xer, 001003 160112 cal crn 001004 242345 dac ar1 001005 200043 lac a2 001006 160112 cal crn 001007 242346 dac ar2 001010 200022 lac t1 001011 160613 cal cns-1 001012 222346 lio ar2 001013 161743 cal efc 001014 222345 lio ar1 001015 240100 dac 100 001016 601743 jmp efc 001017 xen, 001017 320043 dio a2 001020 220234 lio n 001021 320022 dio t1 001022 601003 jmp xer -/GENSYM 001023 gsm, 001023 700034 law gst 001024 240021 dac t0 001025 gsi, 001025 450021 idx i t0 001026 502267 sad (12 001027 601051 jmp gsn 001030 502270 sad (21 001031 700001 law 1 001032 250021 dac i t0 001033 gsp, 001033 200036 lac gst+2 001034 661077 ral 6s 001035 040035 ior gst+1 001036 661077 ral 6s 001037 040034 ior gst 001040 160761 cal cf 001041 706700 law 6700 001042 040040 ior gst+4 001043 661077 ral 6s 001044 040037 ior gst+3 001045 220021 lio t0 001046 160762 cal cpf 001047 160611 cal mka 001050 600556 jmp x 001051 gsn, 001051 700020 law 20 001052 250021 dac i t0 001053 440021 idx t0 001054 522271 sas (gst 5 001055 601025 jmp gsi 001056 601033 jmp gsp -/QUOTIENT 001057 qot, 001057 160156 cal vad 001060 220041 lio a0 001061 760200 cla 001062 642000 spi 001063 761200 clc 001064 663001 rcl 1s 001065 560042 div a1 001066 602233 jmp qi4 001067 600112 jmp crn -/COND 001070 cnd, 001070 322346 dio ar2 001071 cd1, 001071 242345 dac ar1 001072 500234 sad n 001073 602154 jmp qa3 001074 170044 jda pwl 001075 202346 lac ar2 001076 170044 jda pwl 001077 212345 lac i ar1 001100 160555 cal car 001101 161564 cal evo 001102 170054 jda uw 001103 322346 dio ar2 001104 620055 jsp uwl 001105 322345 dio ar1 001106 200054 lac uw 001107 520234 sas n 001110 601114 jmp cdy 001111 442345 idx ar1 001112 212345 lac i ar1 001113 601071 jmp cd1 001114 cdy, 001114 212345 lac i ar1 001115 160554 cal cdr 001116 160555 cal car 001117 601564 jmp evo -/STOP 001120 stp, 001120 160144 cal vag 001121 764400 hlt+cli-opr 001122 602241 jmp prx -/GREATERP 001123 grp, 001123 160156 cal vad 001124 651600 clo 001125 420041 sub a0 001126 641000 szo 001127 200042 lac a1 001130 640400 sma 001131 602241 jmp fal 001132 600565 jmp tru -/get a character 001133 ava, 001133 640050 szs 50 001134 601204 jmp avi 001135 764000 cli 001136 avx, 001136 200077 lac 77 001137 650100 sza i 001140 601165 jmp avr 001141 663777 rcl 9s 001142 331136 dio i avx 001143 661003 ral 2s 001144 650500 spq 001145 601133 jmp ava 001146 661177 ral 7s 001147 042272 ior (rar 001150 241152 dac avc 001151 700525 law 525 001152 avc, 001152 760400 xx 001153 640400 sma 001154 602200 jmp qc3 001155 avt, 001155 700077 law 77 001156 021152 and avc 001157 522273 sas (72 001160 502274 sad (74 001161 240026 dac csi 001162 500026 sad csi 001163 601133 jmp ava 001164 600556 jmp x 001165 avr, - index avx,ave,avx +001165 441136 idx avx +001166 520110 sas ave +001167 601136 jmp avx - init avx,buf +001170 700063 law buf +001171 261136 dap avx 001172 261177 dap avs 001173 avn, 001173 720001 rpa 001174 673777 rcr 9s 001175 720001 rpa 001176 663777 rcl 9s 001177 avs, 001177 320000 dio xy - step avs,dio 100,avn - index avs,(dio 100,avn +001200 441177 idx avs +001201 522275 sas (dio 100 +001202 601173 jmp avn 001203 601133 jmp ava 001204 avi, 001204 650001 szf i 1 001205 601133 jmp ava 001206 720004 tyi 001207 760001 clf 1 001210 321152 dio avc 001211 601155 jmp avt -/terminate a print name 001212 mkn, 001212 700072 law 72 001213 520027 sas cso 001214 160165 cal oc 001215 440033 idx isi 001216 240021 dac t0 001217 220234 lio n 001220 320033 dio isi 001221 210021 lac i t0 001222 330021 dio i t0 001223 600556 jmp x -/pack character into print name 001224 pak, 001224 261232 dap pk1 001225 200026 lac csi 001226 500027 sad cso 001227 601232 jmp pk1 001230 240027 dac cso 001231 160165 cal oc 001232 pk1, 001232 700000 law 001233 240100 dac 100 001234 600165 jmp oc 001235 start -/Lisp interpreter 3-20-64, part 2 -/PRINT 001235 pnt, 001235 240041 dac a0 001236 240042 dac a1 001237 160700 cal tpr 001240 pn1, 001240 230041 lio i a0 001241 642000 spi 001242 601253 jmp pn2 001243 700057 law 57 001244 pn5, 001244 160117 cal pc 001245 200041 lac a0 001246 160554 cal cdr 001247 170044 jda pwl 001250 230041 lio i a0 001251 320041 dio a0 001252 601240 jmp pn1 001253 pn2, 001253 200041 lac a0 001254 160703 cal pr1 001255 pn6, 001255 620055 jsp uwl 001256 760200 cla 001257 320041 dio a0 001260 642000 spi 001261 601277 jmp pn7 001262 230041 lio i a0 001263 652000 spi i 001264 601244 jmp pn5 001265 200041 lac a0 001266 500234 sad n 001267 601274 jmp pn3 001270 700073 law 73 001271 160117 cal pc 001272 200041 lac a0 001273 160703 cal pr1 001274 pn3, 001274 700055 law 55 001275 160117 cal pc 001276 601255 jmp pn6 001277 pn7, 001277 160117 cal pc 001300 200042 lac a1 001301 600041 jmp a0 -/READ 001302 ri8, 001302 000000 0 001303 ri9, 001303 000000 0 001304 rin, 001304 200561 lac rx 001305 242345 dac ar1 001306 341303 dzm ri9 001307 ris, 001307 621333 jsp rhe 001310 650100 sza i 001311 601504 jmp ric 001312 502276 sad (57 001313 601526 jmp ria 001314 502277 sad (55 001315 601543 jmp rib -/. 001316 rid, 001316 642000 spi 001317 601330 jmp ri2 001320 riq, 001320 442345 idx ar1 001321 212345 lac i ar1 001322 332345 dio i ar1 001323 241303 dac ri9 001324 621333 jsp rhe 001325 601547 jmp rix 001326 ri3, 001326 241303 dac ri9 001327 601324 jmp ri3-2 001330 ri2, 001330 202300 lac (jmp ri3 001331 170044 jda pwl 001332 701504 law ric -/read symbol and terminator 001333 rhe, 001333 261503 dap rhx 001334 760005 clf 5 001335 340022 dzm t1 001336 700032 law ism 001337 240033 dac isi 001340 340032 dzm ism 001341 700072 law 72 001342 240027 dac cso 001343 rhn, 001343 161133 cal ava 001344 240100 dac 100 001345 220026 lio csi 001346 672007 rir 3s 001347 642000 spi 001350 601360 jmp rhb 001351 502301 sad (33 001352 760200 cla 001353 522276 sas (57 001354 502277 sad (55 001355 601411 jmp rye 001356 502302 sad (73 001357 602303 jmp (rye 001360 rhb, 001360 502304 sad (56 001361 601407 jmp ryo 001362 502246 sad (77 001363 601343 jmp rhn 001364 502305 sad (36 001365 760200 cla 001366 650100 sza i 001367 601411 jmp rye 001370 502306 sad (75 001371 601334 jmp rhe+1 001372 710007 law i 7 001373 020100 and 100 001374 650100 sza i 001375 601464 jmp ryn 001376 200100 lac 100 001377 502266 sad (20 001400 601464 jmp ryn 001401 ryp, 001401 760015 stf 5 001402 161224 cal pak 001403 601343 jmp rhn 001404 ryj, 001404 200022 lac t1 001405 160112 cal crn 001406 601476 jmp rhr 001407 ryo, 001407 161133 cal ava 001410 601401 jmp ryp -/symbol lookup 001411 rye, 001411 241302 dac ri8 001412 161212 cal mkn 001413 240041 dac a0 001414 500234 sad n 001415 601473 jmp ryy 001416 650005 szf i 5 001417 601404 jmp ryj 001420 212334 lac i 1ob 001421 rys, 001421 240021 dac t0 001422 500234 sad n 001423 601455 jmp ryc 001424 210021 lac i t0 001425 240022 dac t1 001426 210022 lac i t1 001427 240022 dac t1 001430 200041 lac a0 001431 ryw, 001431 240042 dac a1 001432 520234 sas n 001433 601441 jmp ryt 001434 500022 sad t1 001435 601462 jmp rhh 001436 ryd, 001436 440021 idx t0 001437 210021 lac i t0 001440 601421 jmp rys 001441 ryt, 001441 200022 lac t1 001442 500234 sad n 001443 601436 jmp ryd 001444 210042 lac i a1 001445 530022 sas i t1 001446 601436 jmp ryd 001447 440022 idx t1 001450 210022 lac i t1 001451 240022 dac t1 001452 440042 idx a1 001453 210042 lac i a1 001454 601431 jmp ryw 001455 ryc, 001455 200041 lac a0 001456 160611 cal mka 001457 232334 lio i 1ob 001460 160614 cal cns 001461 252334 dac i 1ob 001462 rhh, 001462 210021 lac i t0 001463 601476 jmp rhr 001464 ryn, 001464 220100 lio 100 001465 200022 lac t1 001466 672007 rir 3s 001467 663007 rcl 3s 001470 240022 dac t1 001471 200100 lac 100 001472 601402 jmp ryp+1 001473 ryy, 001473 761200 clc 001474 222255 lio (ism 001475 320033 dio isi 001476 rhr, 001476 240021 dac t0 001477 201303 lac ri9 001500 221302 lio ri8 001501 321303 dio ri9 001502 220021 lio t0 001503 rhx, - exit +001503 600000 jmp -/, space tab 001504 ric, 001504 202345 lac ar1 001505 642000 spi 001506 601307 jmp ris 001507 640200 spa 001510 601524 jmp ri4 001511 rio, 001511 320021 dio t0 001512 160554 cal cdr 001513 220021 lio t0 001514 rie, - swap +001514 663777 rcl 9s +001515 663777 rcl 9s 001516 160614 cal cns 001517 442345 idx ar1 001520 200021 lac t0 001521 252345 dac i ar1 001522 242345 dac ar1 001523 601307 jmp ris 001524 ri4, 001524 200021 lac t0 001525 602345 jmp ar1 -/( 001526 ria, 001526 320021 dio t0 001527 202345 lac ar1 001530 170044 jda pwl 001531 200021 lac t0 001532 640200 spa 001533 601541 jmp riz 001534 riy, 001534 160613 cal cns-1 001535 242345 dac ar1 001536 222345 lio ar1 001537 160605 cal rdc 001540 601307 jmp ris 001541 riz, 001541 342345 dzm ar1 001542 601307 jmp ris -/) 001543 rib, 001543 442345 idx ar1 001544 212345 lac i ar1 001545 220234 lio n 001546 332345 dio i ar1 001547 rix, 001547 170054 jda uw 001550 322345 dio ar1 001551 662001 ril 1s 001552 200054 lac uw 001553 642000 spi 001554 602345 jmp ar1 001555 220054 lio uw 001556 202345 lac ar1 001557 640100 sza 001560 601511 jmp rio 001561 200054 lac uw 001562 601534 jmp riy -/EVAL 001563 evl, 001563 322346 dio ar2 001564 evo, 001564 242345 dac ar1 -/evaluate current expression 001565 ev2, 001565 202345 lac ar1 001566 640010 szs 10 001567 161235 cal pnt 001570 212345 lac i ar1 001571 640200 spa 001572 601626 jmp e1 001573 240021 dac t0 001574 210021 lac i t0 001575 640200 spa 001576 601661 jmp e2 -/car[x] not atomic 001577 502332 sad 1la 001600 602077 jmp e3 001601 202346 lac ar2 001602 170044 jda pwl 001603 202345 lac ar1 001604 170044 jda pwl 001605 212345 lac i ar1 001606 161564 cal evo 001607 620055 jsp uwl 001610 322345 dio ar1 001611 620055 jsp uwl 001612 322346 dio ar2 001613 601620 jmp evc -/evaluate function name and try again 001614 ev3, 001614 212345 lac i ar1 001615 160402 cal asr 001616 602171 jmp qa8 001617 160554 cal cdr 001620 evc, 001620 442345 idx ar1 001621 232345 lio i ar1 001622 200054 lac uw 001623 342345 dzm ar1 001624 160614 cal cns 001625 601564 jmp evo -/x is atomic : search a-list, -/ then p-list 001626 e1, 001626 661001 ral 1s 001627 640200 spa 001630 601655 jmp en1 001631 202345 lac ar1 001632 160402 cal asr 001633 601636 jmp ev5 001634 160554 cal cdr 001635 601656 jmp ex 001636 ev5, 001636 202345 lac ar1 001637 ev4, 001637 160554 cal cdr 001640 500234 sad n 001641 602171 jmp qa8 001642 240021 dac t0 001643 210021 lac i t0 001644 502333 sad 1ap 001645 601651 jmp ev6 001646 440021 idx t0 001647 210021 lac i t0 001650 601637 jmp ev4 001651 ev6, 001651 440021 idx t0 001652 210021 lac i t0 001653 160555 cal car 001654 601656 jmp ex 001655 en1, 001655 202345 lac ar1 -/exit from EVAL 001656 ex, 001656 640010 szs 10 001657 601235 jmp pnt 001660 600556 jmp x -/car[x] is atomic : search -/ its p-list 001661 e2, 001661 200021 lac t0 001662 ev8, 001662 160554 cal cdr 001663 500234 sad n 001664 601614 jmp ev3 001665 210054 lac i uw 001666 502336 sad 1fs 001667 601701 jmp efs 001670 502335 sad 1sb 001671 601757 jmp esb 001672 502337 sad 1xp 001673 601746 jmp exp 001674 502340 sad 1fx 001675 601715 jmp efx 001676 440022 idx t1 001677 210022 lac i t1 001700 601662 jmp ev8 -/function is FSUBR 001701 efs, 001701 440054 idx uw 001702 210054 lac i uw 001703 160555 cal car 001704 160144 cal vag 001705 241713 dac exx 001706 442345 idx ar1 001707 212345 lac i ar1 001710 222346 lio ar2 001711 exy, 001711 240100 dac 100 001712 342345 dzm ar1 001713 exx, 001713 000000 0 001714 601656 jmp ex -/function is FEXPR 001715 efx, 001715 440054 idx uw 001716 210054 lac i uw 001717 160555 cal car 001720 170044 jda pwl 001721 202345 lac ar1 001722 160554 cal cdr 001723 161736 cal efq 001724 170044 jda pwl 001725 202346 lac ar2 001726 161736 cal efq 001727 160613 cal cns-1 001730 620055 jsp uwl 001731 161743 cal efc 001732 620055 jsp uwl 001733 161743 cal efc 001734 242345 dac ar1 001735 601565 jmp ev2 001736 efq, 001736 160613 cal cns-1 001737 220021 lio t0 001740 202331 lac 1qu 001741 240100 dac 100 001742 600614 jmp cns 001743 efc, 001743 320100 dio 100 001744 220021 lio t0 001745 600614 jmp cns -/function is EXPR 001746 exp, 001746 440054 idx uw 001747 210054 lac i uw 001750 240042 dac a1 001751 442345 idx ar1 001752 232345 lio i ar1 001753 342345 dzm ar1 001754 210042 lac i a1 001755 160614 cal cns 001756 601564 jmp evo -/function is SUBR 001757 esb, 001757 440054 idx uw 001760 210054 lac i uw 001761 160555 cal car 001762 170044 jda pwl 001763 202345 lac ar1 001764 160554 cal cdr 001765 222346 lio ar2 001766 161770 cal elc 001767 602050 jmp els -/evaluate argument list : also LIST 001770 elc, 001770 500234 sad n 001771 600556 jmp x 001772 242345 dac ar1 001773 322346 dio ar2 001774 202346 lac ar2 001775 170044 jda pwl 001776 202345 lac ar1 001777 342345 dzm ar1 002000 ele, 002000 232344 lio i pdl 002001 240021 dac t0 002002 170044 jda pwl 002003 202345 lac ar1 002004 170044 jda pwl 002005 210021 lac i t0 002006 161563 cal evl 002007 160613 cal cns-1 002010 620055 jsp uwl 002011 322345 dio ar1 002012 220021 lio t0 002013 202345 lac ar1 002014 650100 sza i 002015 322345 dio ar1 002016 442345 idx ar1 002017 422244 sub (1 002020 520021 sas t0 002021 232345 lio i ar1 002022 200021 lac t0 002023 252345 dac i ar1 002024 242345 dac ar1 002025 440021 idx t0 002026 330021 dio i t0 002027 620055 jsp uwl - swap +002030 663777 rcl 9s +002031 663777 rcl 9s 002032 160554 cal cdr 002033 520234 sas n 002034 602000 jmp ele 002035 620055 jsp uwl 002036 322346 dio ar2 002037 442345 idx ar1 002040 212345 lac i ar1 002041 220234 lio n 002042 332345 dio i ar1 002043 242345 dac ar1 002044 640010 szs 10 002045 161235 cal pnt 002046 202345 lac ar1 002047 600556 jmp x 002050 els, 002050 242345 dac ar1 002051 620055 jsp uwl - swap +002052 663777 rcl 9s +002053 663777 rcl 9s 002054 160144 cal vag 002055 241713 dac exx - init esa,a0-1 +002056 700040 law a0-1 +002057 262067 dap esa -/store arguments for subroutine 002060 202345 lac ar1 002061 eda, 002061 500234 sad n 002062 602074 jmp exs 002063 442067 idx esa 002064 502307 sad (dac pwl 002065 602166 jmp qa7 002066 212345 lac i ar1 002067 esa, 002067 240000 dac xy 002070 442345 idx ar1 002071 212345 lac i ar1 002072 242345 dac ar1 002073 602061 jmp eda 002074 exs, 002074 200041 lac a0 002075 220042 lio a1 002076 601711 jmp exy -/caar[x] = LAMBDA 002077 e3, 002077 202345 lac ar1 002100 170044 jda pwl 002101 202346 lac ar2 002102 170044 jda pwl 002103 212345 lac i ar1 002104 160554 cal cdr 002105 160555 cal car 002106 170044 jda pwl 002107 202345 lac ar1 002110 160554 cal cdr 002111 222346 lio ar2 002112 161770 cal elc 002113 242345 dac ar1 002114 620055 jsp uwl 002115 320041 dio a0 002116 620055 jsp uwl 002117 322346 dio ar2 002120 ep1, 002120 200041 lac a0 002121 500234 sad n 002122 602143 jmp ep2 002123 202345 lac ar1 002124 500234 sad n 002125 602211 jmp qf3 002126 210041 lac i a0 002127 232345 lio i ar1 002130 160614 cal cns 002131 222346 lio ar2 002132 160614 cal cns 002133 242346 dac ar2 002134 440041 idx a0 002135 210041 lac i a0 002136 240041 dac a0 002137 442345 idx ar1 002140 212345 lac i ar1 002141 242345 dac ar1 002142 602120 jmp ep1 002143 ep2, 002143 522345 sas ar1 002144 602206 jmp qf2 002145 620055 jsp uwl 002146 322345 dio ar1 002147 212345 lac i ar1 002150 160554 cal cdr 002151 160554 cal cdr 002152 160555 cal car 002153 601564 jmp evo -/error halt entries 002154 qa3, 002154 200234 lac n 002155 522347 sas pa3 002156 600556 jmp x - error flex icd /illegal COND +002157 620216 jsp err +002160 716364 flex icd 002161 200234 lac n 002162 600556 jmp x 002163 qa4, - error flex uss /undefined atom in SETQ +002163 620216 jsp err +002164 242222 flex uss 002165 602241 jmp prx 002166 qa7, - error flex tma /too many args +002166 620216 jsp err +002167 234461 flex tma 002170 602074 jmp exs 002171 qa8, - error flex uas /unbound atomic symbol +002171 620216 jsp err +002172 246122 flex uas 002173 760006 clf 6 002174 202345 lac ar1 002175 161235 cal pnt 002176 160700 cal tpr 002177 600004 jmp go 002200 qc3, - error flex ilp /illegal parity +002200 620216 jsp err +002201 714347 flex ilp 002202 700377 law 377 002203 021152 and avc 002204 764401 hlt+cli-opr+1 002205 601133 jmp ava 002206 qf2, - error flex lts /LAMBDA list too short +002206 620216 jsp err +002207 432322 flex lts 002210 600004 jmp go 002211 qf3, - error flex ats /arglist too short +002211 620216 jsp err +002212 612322 flex ats 002213 600004 jmp go 002214 qg2, - error flex pce /pushdown cap. exc. +002214 620216 jsp err +002215 476365 flex pce 002216 600004 jmp go 002217 qg1, - error flex sce /storage cap. exc. +002217 620216 jsp err +002220 226365 flex sce 002221 600004 jmp go 002222 qi3, 002222 200100 lac 100 002223 240043 dac a2 - error flex nna /non-numeric arg for arith. +002224 620216 jsp err +002225 454561 flex nna 002226 760006 clf 6 002227 200043 lac a2 002230 161235 cal pnt 002231 160700 cal tpr 002232 602235 jmp qix 002233 qi4, - error flex ovf /overflow +002233 620216 jsp err +002234 462566 flex ovf 002235 qix, 002235 760216 cla 16 002236 600112 jmp crn 002237 qp1, - error flex ana /arg non-atom for PRIN1 +002237 620216 jsp err +002240 614561 flex ana 002241 prx, 002241 fal, 002241 200234 lac n 002242 600556 jmp x 002243 genlit +002244 000001 1 +002245 600000 jmp +002246 000077 77 +002247 000076 76 +002250 661000 ral +002251 661077 ral 77 +002252 000200 200 +002253 000003 3 +002254 767600 767600 +002255 000032 ism +002256 400000 add +002257 400041 add a0 +002260 777777 777777 +002261 020041 and a0 +002262 040041 ior a0 +002263 600666 jmp tic +002264 200000 lac +002265 177777 177777 +002266 000020 20 +002267 000012 12 +002270 000021 21 +002271 000041 gst 5 +002272 671000 rar +002273 000072 72 +002274 000074 74 +002275 320100 dio 100 +002276 000057 57 +002277 000055 55 +002300 601326 jmp ri3 +002301 000033 33 +002302 000073 73 +002303 001411 rye +002304 000056 56 +002305 000036 36 +002306 000075 75 +002307 240044 dac pwl 002310 start -/lisp storage 3-23-64 -/constants -/special symbols 002331 2331/ 002331 ssy, 002331 1qu, 002331 003074 quo 002332 1la, 002332 003104 lam 002333 1ap, 002333 003110 apv 002334 1ob, 002334 002520 obl 002335 1sb, 002335 003114 sbr 002336 1fs, 002336 003124 fsb 002337 1xp, 002337 003120 xpr 002340 1fx, 002340 003130 fxp 002341 fre, 002341 002500 nil 002342 bfw, 002342 002474 frs-4 002343 tr, 002343 002502 t 002344 pdl, 002344 002350 pdo-1 002345 ar1, 002345 002500 nil 002346 ar2, 002346 002500 nil 002347 pa3, 002347 002500 nil 002350 pa4, 002350 000000 0 002351 pdo, -/load storage parameters 002351 222473 lio mz 002352 761600 clc+hlt-opr 002353 766200 lat+cli-opr 002354 022470 and ad 002355 242472 dac hi1 002356 760400 hlt 002357 762200 lat 002360 022470 and ad 002361 242471 dac lp1 002362 713530 law i end 002363 402472 add hi1 002364 640200 spa 002365 602351 jmp pdo 002366 710127 law i frs-pdo 002367 402471 add lp1 002370 640200 spa 002371 602351 jmp pdo 002372 713401 law i pdo+end-frs 002373 402472 add hi1 002374 422471 sub lp1 002375 640200 spa 002376 602351 jmp pdo -/set up registers 002377 stu, 002377 702351 law pdo 002400 402471 add lp1 002401 240234 dac fro 002402 222472 lio hi1 002403 673001 rcr 1s 002404 662001 ril 1s 002405 320025 dio hi 002406 703530 law end 002407 240021 dac t0 -/relocate storage 002410 rrs, 002410 710001 law i 1 002411 400021 add t0 002412 240021 dac t0 002413 710004 law i 4 002414 410021 add i t0 002415 640400 sma 002416 622445 jsp rrl 002417 622460 jsp mvs 002420 710001 law i 1 002421 400021 add t0 002422 240021 dac t0 002423 422475 sub frl 002424 640200 spa 002425 622445 jsp rrl 002426 622460 jsp mvs 002427 200021 lac t0 002430 522474 sas ofs 002431 602410 jmp rrs 002432 702331 law ssy 002433 240021 dac t0 -/relocate special registers 002434 rss, 002434 622445 jsp rrl 002435 440021 idx t0 002436 522476 sas esy 002437 602434 jmp rss 002440 212334 lac i 1ob 002441 170267 jda gfr 002442 700004 law go 002443 260356 dap gcx 002444 600341 jmp g2e -/relocate 1 word, move 1 word 002445 rrl, 002445 262457 dap rrx 002446 210021 lac i t0 002447 022470 and ad 002450 422477 sub ofr 002451 640200 spa 002452 602457 jmp rrx 002453 210021 lac i t0 002454 400234 add fro 002455 422474 sub ofs 002456 250021 dac i t0 002457 rrx, 002457 602457 jmp . 002460 mvs, 002460 262467 dap mvx 002461 200021 lac t0 002462 400234 add fro 002463 422474 sub ofs 002464 240022 dac t1 002465 210021 lac i t0 002466 250022 dac i t1 002467 mvx, 002467 602467 jmp . -/constants etc. 002470 ad, 002470 177777 177777 002471 lp1, 002471 000000 0 002472 hi1, 002472 000000 0 002473 mz, 002473 777777 777777 002474 ofs, 002474 002500 frs 002475 frl, 002475 003170 fws 002476 esy, 002476 002351 pdo 002477 ofr, 002477 002351 pdo - define item X - .+2 - .+3 - add X - nil - termin - define next A - A - .+1 - termin - define subr F - .+2 - .+7 - add F+2 - .+1 - sbr - .+1 - F - nil - termin - define fsubr F - .+2 - .+7 - add F+2 - .+1 - fsb - .+1 - F - nil - termin - define apval A - apv - .+1 - A - nil - termin 002500 frs, 002500 nil, 002500 403470 add f38 002501 002504 kz 002502 t, 002502 403526 add f37 002503 002510 kt 002504 kz, - apval nil +002504 003110 apv +002505 002506 .+1 +002506 002500 nil +002507 002500 nil 002510 kt, - apval t +002510 003110 apv +002511 002512 .+1 +002512 002502 t +002513 002500 nil 002514 obj, 002514 403522 add fb0 002515 002516 .+1 002516 003110 apv 002517 002520 .+1 002520 obl, 002520 002522 ols 002521 002500 nil -/object list 002522 ols, - subr f2 +002522 002524 .+2 +002523 002532 .+7 +002524 403172 add f2+2 +002525 002526 .+1 +002526 003114 sbr +002527 002530 .+1 +002530 003170 f2 +002531 002500 nil - subr f3 +002532 002534 .+2 +002533 002542 .+7 +002534 403200 add f3+2 +002535 002536 .+1 +002536 003114 sbr +002537 002540 .+1 +002540 003176 f3 +002541 002500 nil - subr f4 +002542 002544 .+2 +002543 002552 .+7 +002544 403204 add f4+2 +002545 002546 .+1 +002546 003114 sbr +002547 002550 .+1 +002550 003202 f4 +002551 002500 nil - fsubr f6 +002552 002554 .+2 +002553 002562 .+7 +002554 403210 add f6+2 +002555 002556 .+1 +002556 003124 fsb +002557 002560 .+1 +002560 003206 f6 +002561 002500 nil - subr f7 +002562 002564 .+2 +002563 002572 .+7 +002564 403216 add f7+2 +002565 002566 .+1 +002566 003114 sbr +002567 002570 .+1 +002570 003214 f7 +002571 002500 nil - subr f8 +002572 002574 .+2 +002573 002602 .+7 +002574 403224 add f8+2 +002575 002576 .+1 +002576 003114 sbr +002577 002600 .+1 +002600 003222 f8 +002601 002500 nil - subr f12 +002602 002604 .+2 +002603 002612 .+7 +002604 403230 add f12+2 +002605 002606 .+1 +002606 003114 sbr +002607 002610 .+1 +002610 003226 f12 +002611 002500 nil - subr f13 +002612 002614 .+2 +002613 002622 .+7 +002614 403236 add f13+2 +002615 002616 .+1 +002616 003114 sbr +002617 002620 .+1 +002620 003234 f13 +002621 002500 nil - fsubr f14 +002622 002624 .+2 +002623 002632 .+7 +002624 403246 add f14+2 +002625 002626 .+1 +002626 003124 fsb +002627 002630 .+1 +002630 003244 f14 +002631 002500 nil - subr f18 +002632 002634 .+2 +002633 002642 .+7 +002634 403254 add f18+2 +002635 002636 .+1 +002636 003114 sbr +002637 002640 .+1 +002640 003252 f18 +002641 002500 nil - subr f21 +002642 002644 .+2 +002643 002652 .+7 +002644 403262 add f21+2 +002645 002646 .+1 +002646 003114 sbr +002647 002650 .+1 +002650 003260 f21 +002651 002500 nil - subr f24 +002652 002654 .+2 +002653 002662 .+7 +002654 403272 add f24+2 +002655 002656 .+1 +002656 003114 sbr +002657 002660 .+1 +002660 003270 f24 +002661 002500 nil - subr f26 +002662 002664 .+2 +002663 002672 .+7 +002664 403300 add f26+2 +002665 002666 .+1 +002666 003114 sbr +002667 002670 .+1 +002670 003276 f26 +002671 002500 nil - subr f27 +002672 002674 .+2 +002673 002702 .+7 +002674 403306 add f27+2 +002675 002676 .+1 +002676 003114 sbr +002677 002700 .+1 +002700 003304 f27 +002701 002500 nil - subr f32 +002702 002704 .+2 +002703 002712 .+7 +002704 403316 add f32+2 +002705 002706 .+1 +002706 003114 sbr +002707 002710 .+1 +002710 003314 f32 +002711 002500 nil - subr f33 +002712 002714 .+2 +002713 002722 .+7 +002714 403324 add f33+2 +002715 002716 .+1 +002716 003114 sbr +002717 002720 .+1 +002720 003322 f33 +002721 002500 nil - subr f34 +002722 002724 .+2 +002723 002732 .+7 +002724 403342 add f34+2 +002725 002726 .+1 +002726 003114 sbr +002727 002730 .+1 +002730 003340 f34 +002731 002500 nil - fsubr f50 +002732 002734 .+2 +002733 002742 .+7 +002734 403350 add f50+2 +002735 002736 .+1 +002736 003124 fsb +002737 002740 .+1 +002740 003346 f50 +002741 002500 nil - subr f51 +002742 002744 .+2 +002743 002752 .+7 +002744 403356 add f51+2 +002745 002746 .+1 +002746 003114 sbr +002747 002750 .+1 +002750 003354 f51 +002751 002500 nil - subr f52 +002752 002754 .+2 +002753 002762 .+7 +002754 403364 add f52+2 +002755 002756 .+1 +002756 003114 sbr +002757 002760 .+1 +002760 003362 f52 +002761 002500 nil - fsubr f53 +002762 002764 .+2 +002763 002772 .+7 +002764 403370 add f53+2 +002765 002766 .+1 +002766 003124 fsb +002767 002770 .+1 +002770 003366 f53 +002771 002500 nil - subr f54 +002772 002774 .+2 +002773 003002 .+7 +002774 403376 add f54+2 +002775 002776 .+1 +002776 003114 sbr +002777 003000 .+1 +003000 003374 f54 +003001 002500 nil - fsubr f60 +003002 003004 .+2 +003003 003012 .+7 +003004 403442 add f60+2 +003005 003006 .+1 +003006 003124 fsb +003007 003010 .+1 +003010 003440 f60 +003011 002500 nil - fsubr f61 +003012 003014 .+2 +003013 003022 .+7 +003014 403450 add f61+2 +003015 003016 .+1 +003016 003124 fsb +003017 003020 .+1 +003020 003446 f61 +003021 002500 nil - fsubr f62 +003022 003024 .+2 +003023 003032 .+7 +003024 403456 add f62+2 +003025 003026 .+1 +003026 003124 fsb +003027 003030 .+1 +003030 003454 f62 +003031 002500 nil - fsubr f63 +003032 003034 .+2 +003033 003042 .+7 +003034 403464 add f63+2 +003035 003036 .+1 +003036 003124 fsb +003037 003040 .+1 +003040 003462 f63 +003041 002500 nil - subr f00 +003042 003044 .+2 +003043 003052 .+7 +003044 403332 add f00+2 +003045 003046 .+1 +003046 003114 sbr +003047 003050 .+1 +003050 003330 f00 +003051 002500 nil - subr f01 +003052 003054 .+2 +003053 003062 .+7 +003054 403336 add f01+2 +003055 003056 .+1 +003056 003114 sbr +003057 003060 .+1 +003060 003334 f01 +003061 002500 nil - subr fa3 +003062 003064 .+2 +003063 003072 .+7 +003064 403434 add fa3+2 +003065 003066 .+1 +003066 003114 sbr +003067 003070 .+1 +003070 003432 fa3 +003071 002500 nil 003072 003074 quo=.+2 - fsubr fb5 +003072 003074 .+2 +003073 003102 .+7 +003074 403426 add fb5+2 +003075 003076 .+1 +003076 003124 fsb +003077 003100 .+1 +003100 003424 fb5 +003101 002500 nil 003102 003104 lam=.+2 - item f40 +003102 003104 .+2 +003103 003106 .+3 +003104 403472 add f40 +003105 002500 nil 003106 003110 apv=.+2 - item f42 +003106 003110 .+2 +003107 003112 .+3 +003110 403476 add f42 +003111 002500 nil 003112 003114 sbr=.+2 - item f43 +003112 003114 .+2 +003113 003116 .+3 +003114 403502 add f43 +003115 002500 nil 003116 003120 xpr=.+2 - item f44 +003116 003120 .+2 +003117 003122 .+3 +003120 403506 add f44 +003121 002500 nil 003122 003124 fsb=.+2 - item f45 +003122 003124 .+2 +003123 003126 .+3 +003124 403512 add f45 +003125 002500 nil 003126 003130 fxp=.+2 - item f46 +003126 003130 .+2 +003127 003132 .+3 +003130 403516 add f46 +003131 002500 nil - next t +003132 002502 t +003133 003134 .+1 - next obj +003134 002514 obj +003135 003136 .+1 - subr fb2 +003136 003140 .+2 +003137 003146 .+7 +003140 403404 add fb2+2 +003141 003142 .+1 +003142 003114 sbr +003143 003144 .+1 +003144 003402 fb2 +003145 002500 nil - subr fb3 +003146 003150 .+2 +003147 003156 .+7 +003150 403412 add fb3+2 +003151 003152 .+1 +003152 003114 sbr +003153 003154 .+1 +003154 003410 fb3 +003155 002500 nil - subr fb4 +003156 003160 .+2 +003157 003166 .+7 +003160 403420 add fb4+2 +003161 003162 .+1 +003162 003114 sbr +003163 003164 .+1 +003164 003416 fb4 +003165 002500 nil 003166 002500 nil 003167 002500 nil 003170 fws, - define loca A - opr A - 0 - termin - define nam1 X - X - nil - termin - define nam2 X,Y - X - .+1 - nam1 Y - termin - define nam3 X,Y,Z - X - .+1 - nam2 Y,Z - termin -/SUBRs and FSUBRs 003170 f2, - loca atm +003170 760562 opr atm +003171 000000 0 - nam2 flex ato,767644 +003172 612346 flex ato +003173 003174 .+1 - nam1 767644 +003174 767644 767644 +003175 002500 nil 003176 f3, - loca car +003176 760555 opr car +003177 000000 0 - nam1 flex car +003200 636151 flex car +003201 002500 nil 003202 f4, - loca cdr +003202 760554 opr cdr +003203 000000 0 - nam1 flex cdr +003204 636451 flex cdr +003205 002500 nil 003206 f6, - loca cnd +003206 761070 opr cnd +003207 000000 0 - nam2 flex con,767664 +003210 634645 flex con +003211 003212 .+1 - nam1 767664 +003212 767664 767664 +003213 002500 nil 003214 f7, - loca cns +003214 760614 opr cns +003215 000000 0 - nam2 flex con,767622 +003216 634645 flex con +003217 003220 .+1 - nam1 767622 +003220 767622 767622 +003221 002500 nil 003222 f8, - loca eqq +003222 760570 opr eqq +003223 000000 0 - nam1 766550 +003224 766550 766550 +003225 002500 nil 003226 f12, - loca gsm +003226 761023 opr gsm +003227 000000 0 - nam2 flex gen,flex sym +003230 676545 flex gen +003231 003232 .+1 - nam1 flex sym +003232 223044 flex sym +003233 002500 nil 003234 f13, - loca grp +003234 761123 opr grp +003235 000000 0 - nam3 flex gre,flex ate,765147 +003236 675165 flex gre +003237 003240 .+1 - nam2 flex ate,765147 +003240 612365 flex ate +003241 003242 .+1 - nam1 765147 +003242 765147 765147 +003243 002500 nil 003244 f14, - loca elc +003244 761770 opr elc +003245 000000 0 - nam2 flex lis,767623 +003246 437122 flex lis +003247 003250 .+1 - nam1 767623 +003250 767623 767623 +003251 002500 nil 003252 f18, - loca min +003252 760764 opr min +003253 000000 0 - nam2 flex min,762422 +003254 447145 flex min +003255 003256 .+1 - nam1 762422 +003256 762422 762422 +003257 002500 nil 003260 f21, - loca nmp +003260 760754 opr nmp +003261 000000 0 - nam3 flex num,flex ber,767647 +003262 452444 flex num +003263 003264 .+1 - nam2 flex ber,767647 +003264 626551 flex ber +003265 003266 .+1 - nam1 767647 +003266 767647 767647 +003267 002500 nil 003270 f24, - loca stp +003270 761120 opr stp +003271 000000 0 - nam2 flex sto,767647 +003272 222346 flex sto +003273 003274 .+1 - nam1 767647 +003274 767647 767647 +003275 002500 nil 003276 f26, - loca pr1 +003276 760703 opr pr1 +003277 000000 0 - nam2 flex pri,764501 +003300 475171 flex pri +003301 003302 .+1 - nam1 764501 +003302 764501 764501 +003303 002500 nil 003304 f27, - loca qot +003304 761057 opr qot +003305 000000 0 - nam3 flex quo,flex tie,764523 +003306 502446 flex quo +003307 003310 .+1 - nam2 flex tie,764523 +003310 237165 flex tie +003311 003312 .+1 - nam1 764523 +003312 764523 764523 +003313 002500 nil 003314 f32, - loca rda +003314 760607 opr rda +003315 000000 0 - nam2 flex rpl,flex aca +003316 514743 flex rpl +003317 003320 .+1 - nam1 flex aca +003320 616361 flex aca +003321 002500 nil 003322 f33, - loca rdc +003322 760605 opr rdc +003323 000000 0 - nam2 flex rpl,flex acd +003324 514743 flex rpl +003325 003326 .+1 - nam1 flex acd +003326 616364 flex acd +003327 002500 nil 003330 f00, - loca xeq +003330 760767 opr xeq +003331 000000 0 - nam1 flex xeq +003332 276550 flex xeq +003333 002500 nil 003334 f01, - loca crn +003334 760112 opr crn +003335 000000 0 - nam1 flex loc +003336 434663 flex loc +003337 002500 nil 003340 f34, - loca tpr +003340 760700 opr tpr +003341 000000 0 - nam2 flex ter,flex pri +003342 236551 flex ter +003343 003344 .+1 - nam1 flex pri +003344 475171 flex pri +003345 002500 nil 003346 f50, - loca pgm +003346 760423 opr pgm +003347 000000 0 - nam2 flex pro,767667 +003350 475146 flex pro +003351 003352 .+1 - nam1 767667 +003352 767667 767667 +003353 002500 nil 003354 f51, - loca ret +003354 760524 opr ret +003355 000000 0 - nam2 flex ret,flex urn +003356 516523 flex ret +003357 003360 .+1 - nam1 flex urn +003360 245145 flex urn +003361 002500 nil 003362 f52, - loca goe +003362 760526 opr goe +003363 000000 0 - nam1 766746 +003364 766746 766746 +003365 002500 nil 003366 f53, - loca stq +003366 760533 opr stq +003367 000000 0 - nam2 flex set,767650 +003370 226523 flex set +003371 003372 .+1 - nam1 767650 +003372 767650 767650 +003373 002500 nil 003374 f54, - loca aso +003374 760374 opr aso +003375 000000 0 - nam2 flex sas,flex soc +003376 226122 flex sas +003377 003400 .+1 - nam1 flex soc +003400 224663 flex soc +003401 002500 nil 003402 fb2, - loca rin +003402 761304 opr rin +003403 000000 0 - nam2 flex rea,767664 +003404 516561 flex rea +003405 003406 .+1 - nam1 767664 +003406 767664 767664 +003407 002500 nil 003410 fb3, - loca evl +003410 761563 opr evl +003411 000000 0 - nam2 flex eva,767643 +003412 652561 flex eva +003413 003414 .+1 - nam1 767643 +003414 767643 767643 +003415 002500 nil 003416 fb4, - loca pnt +003416 761235 opr pnt +003417 000000 0 - nam2 flex pri,764523 +003420 475171 flex pri +003421 003422 .+1 - nam1 764523 +003422 764523 764523 +003423 002500 nil 003424 fb5, - loca car +003424 760555 opr car +003425 000000 0 - nam2 flex quo,762365 +003426 502446 flex quo +003427 003430 .+1 - nam1 762365 +003430 762365 762365 +003431 002500 nil 003432 fa3, - loca nul +003432 760567 opr nul +003433 000000 0 - nam2 flex nul,767643 +003434 452443 flex nul +003435 003436 .+1 - nam1 767643 +003436 767643 767643 +003437 002500 nil 003440 f60, - loca pls +003440 760631 opr pls +003441 000000 0 - nam2 flex plu,767622 +003442 474324 flex plu +003443 003444 .+1 - nam1 767622 +003444 767622 767622 +003445 002500 nil 003446 f61, - loca tim +003446 760661 opr tim +003447 000000 0 - nam2 flex tim,766522 +003450 237144 flex tim +003451 003452 .+1 - nam1 766522 +003452 766522 766522 +003453 002500 nil 003454 f62, - loca lga +003454 760651 opr lga +003455 000000 0 - nam2 flex log,flex and +003456 434667 flex log +003457 003460 .+1 - nam1 flex and +003460 614564 flex and +003461 002500 nil 003462 f63, - loca lgo +003462 760656 opr lgo +003463 000000 0 - nam2 flex log,764651 +003464 434667 flex log +003465 003466 .+1 - nam1 764651 +003466 764651 764651 +003467 002500 nil -/miscellany 003470 f38, - nam1 flex nil +003470 457143 flex nil +003471 002500 nil 003472 f40, - nam2 flex lam,flex bda +003472 436144 flex lam +003473 003474 .+1 - nam1 flex bda +003474 626461 flex bda +003475 002500 nil 003476 f42, - nam2 flex apv,766143 +003476 614725 flex apv +003477 003500 .+1 - nam1 766143 +003500 766143 766143 +003501 002500 nil 003502 f43, - nam2 flex sub,767651 +003502 222462 flex sub +003503 003504 .+1 - nam1 767651 +003504 767651 767651 +003505 002500 nil 003506 f44, - nam2 flex exp,767651 +003506 652747 flex exp +003507 003510 .+1 - nam1 767651 +003510 767651 767651 +003511 002500 nil 003512 f45, - nam2 flex fsu,766251 +003512 662224 flex fsu +003513 003514 .+1 - nam1 766251 +003514 766251 766251 +003515 002500 nil 003516 f46, - nam2 flex fex,764751 +003516 666527 flex fex +003517 003520 .+1 - nam1 764751 +003520 764751 764751 +003521 002500 nil 003522 fb0, - nam2 flex obl,flex ist +003522 466243 flex obl +003523 003524 .+1 - nam1 flex ist +003524 712223 flex ist +003525 002500 nil 003526 f37, - nam1 767623 +003526 767623 767623 +003527 002500 nil 003530 end, 003530 genlit 003531 start pdo