simh-testsetgenerator/I650/tests/ssoapexpl.dck
Roberto Sancho Villa 08027162ca I650: Update IBM 650 simulator to Release 4
- Integration with updated sim_card API
- Addition of MT (Mag Tape) device
- Addition of DSK (Disk) device
- Build time simulator test
2020-05-15 05:57:01 -07:00

22 lines
1.3 KiB
Text

?000008000 0001 1 example calculate f of x
?000008000 0002
?000008000 0003 blr 1951 1960 read area
?000008000 0004 p0001blr 27 p0002 punch area
F919541953 0005240004800?600007001A startrauone 1f set x
F919541953 0006240011800?210027003? 1 stup0001 to 1
F919541953 0007240030800?190033000C mpya calculate
F919541953 0008240003800?150006006A alob f
F919541953 0009240061800?608002001I rau 8002
F919541953 0010240019800?190027004G mpyp0001
F919541953 0011240047800?150000000E aloc
F919541953 0012240005800?200028003A stlp0002
F919541953 0013240031800?710027003G wr1p0001 punch
F919541953 0014240037800?600027008A raup0001
F919541953 0015240081800?110034003I supxmax is x max
F919541953 0016240039800?440043987F nzu 9876
F919541953 0017240043800?100046001A aup101 1b increase x
?000008000 0018
F919541953 0019240007800?000000000A one 00 0000 0001 constants
F919541953 0020240034800?000000010? xmax 00 0000 0100
F919541953 0021240046800?000000010A 101 00 0000 0101
?000008000 0022 end