mirror of
https://github.com/pkimpel/retro-220.git
synced 2026-04-20 01:24:01 +00:00
83a0b62faf
1. Correct missing relocation pseudo-op in MONIT Library routine. 2. Rebuild Generator and Compiler tapes. 3. Recompile and generate corrected listings for example programs. 4. Add Simpson's Rule example from Algol-58 Preliminary Report.
319 lines
19 KiB
Plaintext
319 lines
19 KiB
Plaintext
777 BAC-220 GENERATOR CALLOUT PROGRAM WITH LIBRARY ROUTINES
|
|
666 61000600005
|
|
=== 6000030000200000390000000185000000000152000009999009999
|
|
2 COMMENT GENERATE STANDARD COMPILER WITH DEFAULT CONFIGURATION...
|
|
2 COMMENT * COMPILER ON TAPE UNIT 2 LANE 00
|
|
2 COMMENT * COMPILED PROGRAM ON UNIT 1 LANE 00
|
|
2 COMMENT * CARDATRON READER UNIT 1
|
|
2 COMMENT * CARDATRON PUNCH UNIT 1
|
|
2 COMMENT * CARDATRON PRINTER UNIT 2
|
|
2 COMMENT * MEMORY SIZE 5000;
|
|
2
|
|
2 GENERATE STANDARD VERSION OF BAC-220;
|
|
2 PROCESS LIBRARY;
|
|
2 PUNCH LIBRARY 6 INSTRUCTIONS PER CARD;
|
|
2 FINISH;
|
|
2 FLOAT, REAL(INTEGER)
|
|
60600000100000000064500008220036000400000480001800012000010000148000890000100010
|
|
60600000200006000014900088000022001380000420000100003000000000000005800000000059
|
|
60300000300012000000000600580000000040000990000
|
|
2 FIX, INTEGER(REAL)
|
|
2 ERROR=1
|
|
60600000100000000064500000000148000880410400004800004200040000145000089949200008
|
|
60600000200006800102100101000149001180000420000100003000008000239001480000410016
|
|
60600000300012800004200006000030010000002450000800003000082464967000040000990000
|
|
2 WRITE
|
|
2 ERROR=1
|
|
2 RITE=2
|
|
60600000100000001000100008041040003680000420004800102902360030029010180000420000
|
|
60600000200006804124000851000041999900009437557822003700130000042010010000440000
|
|
60600000300012122013700010000040013280412400067000004101308000037003400000100134
|
|
60600000400018000004601338524637019685267370172852493701108526237022385241370025
|
|
60600000500024800003002118000041004300001270129800004401688000030015900000100129
|
|
60600000600030800003600508229937006400001490010800003000268000042000160000310121
|
|
60600000700036000001099998040126003680000330052800004100438000133006882214360036
|
|
60600000800042800004401688990030015982299370036000014900108000030004100000100129
|
|
60600000900048000001901250000019012500000100130833003600348330036005480000130237
|
|
60600001000054000004001300021040013100001480002003104001298724236004787266360088
|
|
60600001100060872573600968726336009887243360087803003600360000010013200000400134
|
|
60600001200066800093300470000030999980000420036866003600840000149000380300370078
|
|
60600001300072800001302378330036008016301279999100004199998041140003680000300036
|
|
60600001400078133104099998000030007210000109999000014800031661040999980000300036
|
|
60600001500084000001001320000933999980000300075010086101240000148000383111400090
|
|
60600001600090624084402006010130020080000420094800102902360024029010180000300050
|
|
60600001700096010086101248000030009280300360103800100901028000112008080000300098
|
|
60600001800102216020202020000010012580000360050800001201730000148000483211400108
|
|
60600001900108009900901018000030009280000420120800003601698110036017000000400134
|
|
60600002000114000034500800000240012800000460126004104001260000140012700000100134
|
|
60600002100120000024800100000143002300000120129000001301288000133021100000190125
|
|
60600002200126050001901250000010013480000410164800004401688000133015800001270128
|
|
60600002300132800003201440000041012780000370050800004101218000044016880000300158
|
|
60600002400138000001001278000013012680000420056000004601290000326012980000300113
|
|
60600002500144000012701260000041012680000370152000004101338000037015400001270133
|
|
60600002600150800004101148000030015880000410081800003001580000010013480000410173
|
|
60600002700156000014900010000040013400001490018000014800080000142012510000490008
|
|
60600002800162094002801258002421016800000430020100001201251001040012500002260125
|
|
60600002900168000003099998000921011400000490051800012101120000245755700001480008
|
|
60600003000174804101802380000140013480001340186804104001848044927018480000420184
|
|
60600003100180000001001300000148000484211400185800001001840000245999980000200115
|
|
60600003200186000004375578000013023800210400133002111801308000035019380000100238
|
|
60600003300192800003001778000010017001110400134800003001770030427012980000320200
|
|
60600003400198800003002108000010023980000360199000024575578221040012500001480008
|
|
60600003500204000014001340000248001000000120130800001701700031018012980001340219
|
|
60600003600210000042601290000010012900000190125000001901250000227012580000410226
|
|
60600003700216800004401688000030015880000300050800004101258000010015600000420131
|
|
60600003800222800012001150000245755700001480008000014001340000043001480000130238
|
|
60600003900228000024575578000133023400210180130800003402118000012015680000300221
|
|
60600004000234000104001338000030022020000000000000100000000000000005005000000000
|
|
6010000410024040000990000
|
|
2 READ
|
|
2 REED=1
|
|
60600000100000701280100008041040009080410400091804012600918000044009780000300090
|
|
60600000200006800004201281000046000080000460136600004401006011730010080000460138
|
|
60600000300012805022601388000042012889999200018864002801360000010010189999200112
|
|
60600000400018894002801381000010010180000420138100004900008050226013880000410136
|
|
60600000500024800003700388016021000984400280136822133600530000048000810000490000
|
|
60600000600030800001901358410227013680000320018800001001358000044009780000300090
|
|
60600000700036852122701368000030001880162210009811083600698220336006582220360063
|
|
60600000800042822343600638222336005882213360120822143600518000042013289999200018
|
|
60600000900048800004400978000030007680000300018894162601388000030004680000460136
|
|
60600001000054800001001358000044009789992200090800003000188000126013480000440097
|
|
60600001100060800003000768000126013180000300018800012601308000030001880000410124
|
|
60600001200066822114001298000126013380000300018000004900018000041013500001490001
|
|
60600001300072800014001358220127012980001260132800003000188000041013180000370103
|
|
60600001400078800004201308000011013500000490008899992000830000043000080001130137
|
|
60600001500084812102701378000032009000000430000800003000908000042013480001210098
|
|
60600001600090000004400900000030009180009330100804124000918000042010880000460129
|
|
60600001700096800702901290000030009780000400137800003000948000042000080000460128
|
|
60600001800102100003000008000010013580000420133899992001088000012012980000220129
|
|
60600001900108800004201308999920008800001430000800003000888081018012580001350018
|
|
60600002000114000004101028001118012680001350018800004201281000126000080000300100
|
|
60600002100120800004201328999920003680502270138800003000480580000000028562455563
|
|
60600002200126249554553000511000000000000000000000000000000000000000000000000000
|
|
60600002300132000000000000000000000000000000000000000000000000000000000000000000
|
|
602000024001380000000000040000990000
|
|
2 ERROR
|
|
2 RITE=1
|
|
60600000100000800004400338000030002925945626453263005664632005646005924155474500
|
|
60600000200006249550000008000044003380000300029259456264532630064554424546495545
|
|
60600000300012244004656592000000000080000440033800003000292594562645326300495353
|
|
60600000400018220444546492554544004625659000000800004600428000044003380000300031
|
|
60600000500024000000000002004159496324854456349243005665452594653566680001400042
|
|
605000006000300000345000080412400036800004200530005029003361106440100
|
|
602000007000354000004000060037300100 RELOCATE /44 FIELD OF BUN INSTRUCTION
|
|
60600000800036000003000360000000000000000000000000000000000000000000000000000000
|
|
60600000900042000000000000000000000000000000000000000000000000000000000000000000
|
|
60600001000048050000000000000000000000000000000051100000000000000000080000000037
|
|
6010000110005440000990000
|
|
2 SQRT, REAL(REAL)
|
|
2 ERROR=1
|
|
60600000100000000044500008000042000010000360000800013300348081040003682310400037
|
|
60600000200006600001001488000014003780000130038823104000378311018003780000350014
|
|
60600000300012800013300148220126003780000100039800002400368000022004080000240036
|
|
60600000400018800002200416000040014980000100036600002501496000022014980000240042
|
|
60600000500024600004001498000010003660000250149600002201498000012003780000350032
|
|
60600000600030800002400431000030000080000240042100003000008000041004460000300107
|
|
60600000700036051100000000000000000002550000000149164503380504111710105062697923
|
|
6040000080004205050000000050158113882625859630040000990000
|
|
2 EXP, REAL(REAL)
|
|
2 ERROR=1
|
|
60600000100000000024500008000041006280411400057812104000008001018006480000340055
|
|
60600000200006000014900028021140000800002450000800004200088000014006589949200014
|
|
60600000300012100014900018000142001200001490008822114000618225126006100001490012
|
|
60600000400018000024500008001020002110001490001000014900106000040015060000140150
|
|
60600000500024600004001528000014006680000120067600001401528000012006860000140152
|
|
60600000600030800001200696000014015060000400150600004001498000010007060000140152
|
|
60600000700036800001200716000014015280000120072600001401528000012007360000190149
|
|
60600000800042600001301500000148000360000150149800011200618121027000080000420000
|
|
60600000900048800003200501000030000060000400150800001000748999941005260000250150
|
|
60600001000054100003000008000042000080001330059800004100636000030010000001450000
|
|
60600001100060100003000000000000000080000000063245675700000531128266504342944819
|
|
60600001200066100000171591000489328210169203872109957114770000041730400035418755
|
|
6040000130007200529087016008648640000509999999940000990000
|
|
2 LOG, REAL(REAL)
|
|
2 ERROR=1
|
|
60600000100000000064500008000133006180000360061000014800028421040006800001490004
|
|
60600000200006800001800148000134004480000180033800003400440000148000180000120069
|
|
60600000300012600004001528000013007061014150152600004001526000014015260000400149
|
|
60600000400018800001400718000012007260000140149800001200736000014014980000120074
|
|
60600000500024600001401498000012007560000140149800001200766000014014980000120077
|
|
60600000600030600001401528000012007882200360035098584800018000120003290810400064
|
|
60600000700036800001000688000023007980001340040600002201518000024008090000220064
|
|
60600000800042800004200001000030000081101360047000014800018000013008180000220082
|
|
60600000900048800003600596000040015262239260152600001001528000024008380000220084
|
|
60600001000054600002401528000022008560000240152600002401526000022015280000400067
|
|
60600001100060800032000368000041008680000420000600003001070490000000005000000000
|
|
60600001200066051000000000000000000005200000000003162277660063245553200410597044
|
|
60600001300072000572283270025034109300282433571004001930330066666171002000000037
|
|
60600001400078011512925470525100000005123025851020000000000100000000015025000000
|
|
6040000150008405033333333150500000002535647000040000990000
|
|
2 FL*FL
|
|
2 ERROR=1
|
|
2 LOG=2
|
|
2 EXP=3
|
|
2 FIX=4
|
|
60600000100000700060100006000140015084112400017600004001528440028000060000310121
|
|
60600000200006800004200008000036002080001330023600004402006000030020060000240150
|
|
60600000300012800003100418000018004680000340038600004403006000030030000000430000
|
|
60600000400018800004200001000030000060001180124100003400008000030002900001390000
|
|
60600000500024000014900106000044040060000300400000003900008000037003280000420000
|
|
60600000600030800004100476000030010700002490010000001600000000248000484110400017
|
|
60600000700036600011001528000030000980000410047800004200006000030010060000100152
|
|
60600000800042600001401508000033003800001450000800003000180531128266524653465300
|
|
6010000090004840000990000
|
|
2 FL*FX
|
|
2 ERROR=1
|
|
60600000100000700030100008440028000060000310121600014001496000040015280000420000
|
|
60600000200006800003600296000010015110000370000600004001506000010014860000140149
|
|
60600000300012600004001498000037001760000100150600002401526000040015060000410149
|
|
60600000400018800003700236000010015260000240152600004001528000030001080000310033
|
|
60600000500024812103700261000030000060000100151600002501501000030000060001180124
|
|
60600000600030100003400008000041003760000300107000014500001121037000080000410037
|
|
60300000700036600003001002465346670040000990000
|
|
2 FX*FX
|
|
2 ERROR=1
|
|
60600000100000000044500008000042000080000360033600014001496000040015260000460150
|
|
60600000200006600012601506000010014860000140149600004001498000037001660000100150
|
|
60600000300012600001401526000140015080000360016800003000226000041014980000370026
|
|
60600000400018600001001526000014015260001400152800003600076000010014980001330037
|
|
60600000500024800004100396000030010060000100150812103700291000030000080000410040
|
|
60600000600030000014500006000015015010000300000600011801241000034000080000410039
|
|
60600000700036600003001070000145000010000300000246674667000000000000140000990000
|
|
2 FX*FL
|
|
2 FLOAT=1
|
|
2 FL*FL=2
|
|
2 ERROR=3
|
|
60600000100000000044500008000042000060412400200600014003506000140034960000440100
|
|
6040000020000660000300100600004103506000030020240000990000
|
|
2 SIN, REAL(REAL)
|
|
2 ERROR=1
|
|
60600000100000000064500008000041004680411400044600004601528000024004900001490002
|
|
60600000200006802114000488000042004889949200014800072100431000149001860000400152
|
|
60600000300012800001000130000149005000001490018600004001506000022015060010180151
|
|
60600000400018800013400220000043000080000230050000014900006000040015060000240150
|
|
60600000500024600004001498000024005180000220052600002401498000022005360000240149
|
|
60600000600030800002200546000024014980000220055600002401506000022015060000400150
|
|
60600000700036600001001486000014015260000100150800004200001000037000060000110150
|
|
60600000800042100003000008000042000080000410047600003001148000000004726249550000
|
|
60600000900048000000000000503183098905120000000047151484191484673765604979689679
|
|
60300001000054150645963710505707963240000990000
|
|
2 COS, REAL(REAL)
|
|
2 SIN=1
|
|
60600000100000000064500008000041000060411400100800004100078000022000980000220009
|
|
605000002000066000030010280000000008243566200000507853981640000990000
|
|
2 TAN, REAL(REAL)
|
|
2 SIN=1
|
|
2 COS=2
|
|
2 ERROR=3
|
|
60600000100000000064500008000040001980000410022600004401006000030020480000360013
|
|
60600000200006800004000208000010001960000440100600003001008000025002080000420000
|
|
60600000300012100003000008000041001982211180015157003400008000042000080000410021
|
|
60600000400018600003003070000000000000000000000263415500008000000002140000990000
|
|
2 ARCSIN, REAL(REAL)
|
|
2 ARCTAN=1
|
|
2 ROMXX=2
|
|
2 ERROR=3
|
|
60600000100000000000100006000040035280000410011600004402006000030020480000420000
|
|
60600000200006600003602396000040034960000100352600002503496000030010280000000012
|
|
602000003000122416249550040000990000
|
|
2 ARCCOS, REAL(REAL)
|
|
2 ARCTAN=1
|
|
2 ROMXX=2
|
|
2 ERROR=3
|
|
60600000100000000000100006000040035280000420000600003602398000041001660000440200
|
|
60600000200006600003002046000025035260000440100600003001008000042000060000410352
|
|
60600000300012000014900001000033000080000220019100003000008000000001724143566200
|
|
60300000400018000000000000513141592740000990000
|
|
2 ARCTAN, REAL(REAL)
|
|
2 ERROR=1
|
|
60600000100000000064500008000042000060010180151600004001528441240003580001340009
|
|
60600000200006844012700358501010005360000250152800101800078000134004100000490002
|
|
60600000300012600004001526000014015260000400149800001400548000012005560000140149
|
|
60600000400018800001200566000014014980000120057600004001508000010005860000140149
|
|
60600000500024800001200596000014014980000120060600001401498000012005760000140152
|
|
60600000600030000014800026000015015060000400150611052601506000010015010000200000
|
|
60600000700036800001000616000041015200001490000600002301501000030000160000400152
|
|
60600000800042600002401526000040014980000240062800002200636000024014980000230064
|
|
60600000900048600002401496000024015260000220152600004001508000030003505099999999
|
|
60600001000054000490175910056503098001453567135010000000000000856118900280504541
|
|
60600001100060011202340140511570796315014281428050200000000503333333340000990000
|
|
2 ROMXX, REAL(REAL)
|
|
2 ERROR=1
|
|
2 SQRT=2
|
|
60600000100000700030100008440028000060000310121800004100388041140003460010180151
|
|
60600000200006800003400348225136003180000360032600004001526000024015200001490002
|
|
60600000300012802114000318000142003110001480051800001300440000149001060000130148
|
|
60600000400018600001301480000149001080000310022800511200458440028002181100360029
|
|
60600000500024804124000318000041003100001490018800004200006000030020200001490001
|
|
60600000600030800012100230000143000060000220151800003000278000041003780000420000
|
|
60600000700036600003001072595654676780000000037800001000466000041015210000370000
|
|
60600000800042000014900001000030000001000000000000000000010511570796340000990000
|
|
2 ENTIRE, REAL(REAL)
|
|
60600000100000000064500008221018001280000340010000014800008000033000700000430000
|
|
60600000200006800002200138000022001280000230012000014900008000042000010000300000
|
|
60300000300012058100000000509999999940000990000
|
|
2 LABEL
|
|
2 ERROR=1
|
|
60600000100000080003800008000042003660000310121800004200001440128999880002400049
|
|
60600000200006800004200001440028999980000400050100001000006000040014900001480010
|
|
60600000300012800004400488000133003660000400144600014001458000110004980000130051
|
|
60600000400018000014800108000044004880000300036608114001468000030002362224260146
|
|
60600000500024622042601478040326002287000380030800004200008000010005010000300000
|
|
60600000600030800004200326001029012460050290137600004401366000030013480000300027
|
|
60600000700036880014500030000049000100001490001800001300528110826003680000310037
|
|
60600000800042811052600418000031004660000400150800003000360000148001060000100150
|
|
60600000900048000003000480000000000000000000000000000100000000000008040000990000
|
|
2 MONIT
|
|
2 ERROR=1
|
|
2 RITE=2
|
|
60600000100000000003800006000240014980000420017600003101216000040015280000420000
|
|
60600000200006144002899991000041000080001400050800004200008000046005380000460054
|
|
60600000300012864124000511000010999780000330016600001301498041040002080001450004
|
|
60600000400018100004199988110837002200000120020800003000236000012015282100370034
|
|
605000005000248000040005280000330027842202600518041240003260504440200
|
|
602000006000294000004000060050300200 RELOCATE /44 FIELD OF BUN INSTRUCTION
|
|
60600000700030600001001526000042014900000300032000003000330000148000880000460052
|
|
60600000800036888114000528000033003984220260051000004300008880037004280000130055
|
|
60600000900042802232600538620326005180110400054000004900018891040005489108260054
|
|
60600001000048871082600548000030002700000000000233000000000000000000000000000000
|
|
60300001100054000000000000000000005040000990000
|
|
2 TRACE
|
|
2 ERROR=1
|
|
60600000100000090003800008440028001560000310121800004200008000040002010000109999
|
|
60600000200006844104000028440036001510000100000804101800038000135001280002200008
|
|
60600000300012800011200028000012002180000310015700034400000440036000280000420000
|
|
605000004000188000010002010000300000000000000000999900000040000990000
|
|
2 SINH, REAL(REAL)
|
|
2 EXP=1
|
|
2 ERROR=2
|
|
60600000100000000024500006001018017180000340025800101800288000134001460000440100
|
|
60600000200006600003001026000040025260000110251600002502526000022025280000240028
|
|
60600000300012800004200001000030000060000400252600002402526000040024980000240029
|
|
60600000400018800002200306000024024980000220031600002402496000024025260000220252
|
|
60600000500024800003000128000042000080000410032600003002000505000000004719841270
|
|
6040000060003004883333333050166666672624955480040000990000
|
|
2 TANH, REAL(REAL)
|
|
2 SINH=1
|
|
2 COSH=2
|
|
2 ERROR=3
|
|
60600000100000000000100008000040001980000410021800101800238000034001560000440200
|
|
60600000200006600003002028000040002080000360013800001000196000044010060000300100
|
|
60600000300012800002500208000042000010000300000600001003518000041001900001490000
|
|
60600000400018800003000130000000000000000000000800000000222634155480005250000000
|
|
6010000050002440000990000
|
|
2 COSH, REAL(REAL)
|
|
2 EXP=1
|
|
2 ERROR=2
|
|
60600000100000000000100008000041001300000430000600004401006000030010280000360011
|
|
60600000200006600004002526000010025160000250252600002202528000024001580000420000
|
|
605000003000121000030000080000000014243566248000505000000040000990000
|
|
2 REED
|
|
2 READ=1
|
|
6040000010000000000010000010006001176000030011140000990000
|
|
2 RITE
|
|
60600000100000000000100008000042000010000109999000004800068041040001010000109998
|
|
60600000200006842104000100000048000880000130012800001900100200061000010000300000
|
|
602000003000120000000000140000990000
|
|
2 FINISH;
|
|
777 DUMMY REJECT CARD TO END GENERATOR DECK
|