Files
Digital-Research-Source-Code/MPM OPERATING SYSTEMS/MPM I/MPM I SOURCE/01/asmgen.sub
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

1 line
1.2 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

mac b:as0com $$+s
pip lst:=b:as0com.prn[lt8]
era b:as0com.prn
mac b:as1io $$+s
pip lst:=b:as1io.prn[lt8]
era b:as1io.prn
mac b:as2scan $$+s
pip lst:=b:as2scan.prn[lt8]
era b:as2scan.prn
mac b:as3sym $$+s
pip lst:=b:as3sym.prn[lt8]
era b:as3sym.prn
pip b:cas00.hex=b:as0com.hex[i],b:as1io.hex[i],b:as2scan.hex[i],b:as3sym.hex[h]
era b:as*.hex
mac b:as0com $$pzsz+r
mac b:as1io $$pzsz+r
mac b:as2scan $$pzsz+r
mac b:as3sym $$pzsz+r
pip b:cas01.hex=b:as0com.hex[i],b:as1io.hex[i],b:as2scan.hex[i],b:as3sym.hex[h]
era b:as*.hex
mac b:as4sear $$+s
pip lst:=b:as4sear.prn[lt8]
era b:as4sear.prn
mac b:as5oper $$+s
pip lst:=b:as5oper.prn[lt8]
era b:as5oper.prn
mac b:as6main $$+s
pip lst:=b:as6main.prn[lt8]
era b:as6main.prn
pip b:cas10.hex=b:as4sear.hex[i],b:as5oper.hex[i],b:as6main.hex[h]
era b:as*.hex
mac b:as4sear $$pzsz+r
mac b:as5oper $$pzsz+r
mac b:as6main $$pzsz+r
pip b:cas11.hex=b:as4sear.hex[i],b:as5oper.hex[i],b:as6main.hex[h]
era b:as*.hex
pip b:as0.hex=b:cas00.hex[i],b:cas10.hex[h]
era b:cas00.hex
era b:cas10.hex
pip b:as1.hex=b:cas01.hex[i],b:cas11.hex[h]
era b:cas*.hex
pip b:asm.hex=b:as0.hex,b:as1.hex
era b:as0.hex
era b:as1.hex
genmod b:asm.hex b:asm.prl $$1000
era b:asm.hex