c0000070h10010c00001 c0.0000 rd h1.0010 read card at addr 0401, jmp to 0410 if load card c0000165h10000c00002 ral h1.0000 ral 0401 addr word 1 c0000220h00000c00003 stl h0.0000 stl 0777 addr word 1 for punch out c0000365h10001c00004 ral h1.0001 ral 0402 word 1 contents c0000420h00001c00005 stl h0.0001 stl 0778 word 1 for punch c0000571h00000c00006 pch h0.0000 punch 0777 c0000665h10002c00007 ral h1.0002 ral 0403 addr word 2 c0000720h00000c00008 stl h0.0000 stl 0777 addr word 2 for punch out c0000865h10003c00009 ral h1.0003 ral 0404 word 2 contents c0000920h00001c00010 stl h0.0001 stl 0778 word 2 for punch c0001071h00000c00011 pch h0.0000 punch 0777 c0001165h10004c00012 ral h1.0004 ral 0405 addr word 3 c0001220h00000c00013 stl h0.0000 stl 0777 addr word 3 for punch out c0001365h10005c00014 ral h1.0005 ral 0406 word 3 contents c0001420h00001c00015 stl h0.0001 stl 0778 word 3 for punch c0001571h00000c00016 pch h0.0000 punch 0777 c0001665h10006c00017 ral h1.0006 ral 0407 addr word 4 c0001720h00000c00018 stl h0.0000 stl 0777 addr word 4 for punch out c0001865h10007c00019 ral h1.0007 ral 0408 word 4 contents c0001920h00001c00020 stl h0.0001 stl 0778 word 4 for punch c0002071h00000c00021 pch h0.0000 punch 0777 c0002165h10008c00022 ral h1.0008 ral 0408 addr word 5 c0002220h00000c00023 stl h0.0000 stl 0777 addr word 5 for punch out c0002365h10009c00024 ral h1.0009 ral 0409 word 5 contents c0002420h00001c00025 stl h0.0001 stl 0778 word 5 for punch c0002571h00000c00000 pch h0.0000 c0.0000 punch 0777 goto start d0 0 variables for program h1 000a00000a00000 initialize punch area h1 200a00000a00000 initialize punch area h1 300a00000a00000 initialize punch area h1 400a00000a00000 initialize punch area h1 500a00000a00000 initialize punch area h1 600a00000a00000 initialize punch area h1 700a00000a00000 initialize punch area h1 800a00000a00000 initialize punch area h1 900a00000a00000 initialize punch area h1 1000a00000c00000 nop 0000 c0.0000 jmp back to read next card if this card is a load card (thus ignore reads cards) i0 end of program RRaaaaOOrrAAAArraaaa comment RRaaaa = regional addr for location OO = opcode rrAAAA = regional addr for DA RRaaaa = regional addr for IA rr is A0-H9 and mst match with a control card regional assembly sample program prints contents of input deck (in five-filed card format) load cards are skiped regional formatted source code card are indetified because the 'a'..'i' char in col 11 allow comments past col 31 this program needs the following regions, defined by control cards region start Addr name len addr comment 1000 a0 2000 0000 region for all drum absolute address 1001 c0 0100 0900 region for program code 1002 d0 0010 0990 region for program data (variables) 1003 h0 0010 0977 punch area 1004 h1 0010 0401 read area program starts at c0.0000 (gives absolute address 0900) no mnemonics! it is not a symbolic assembler! i0 marks the end of source program. assembler stops with (stop 0000 0500) put next deck on read hopper (mount deck file on cdr1), and press start to assemble it (sim> go)