├── .gitignore ├── COPYING ├── README ├── README.SAMPLES.ELF.txt ├── README.SAMPLES.txt ├── asma ├── asmbase.py ├── asmbin.py ├── asmcards.py ├── asmconfig.py ├── asmdcds.py ├── asminput.py ├── asmline.py ├── asmlist.py ├── asmlocal.py ├── asmmacs.py ├── asmoper.py ├── asmopnd.py ├── asmstmts.py ├── asmtokens.py ├── assembler.py ├── cards.py ├── insnbldr.py ├── literal.py ├── lnkbase.py ├── macopnd.py ├── macsyms.py ├── model.py ├── msl │ ├── PoO.txt │ ├── all-insn.msl │ ├── e370-insn.msl │ ├── e390-insn.msl │ ├── formats.msl │ ├── s360-insn.msl │ ├── s370-insn.msl │ ├── s370XA-insn.msl │ ├── s380-insn.msl │ ├── s390x-insn.msl │ └── zem-insn.msl ├── msldb.py ├── parsers.py └── tests │ └── chars │ ├── asm │ ├── asma-20210416.102259.txt │ ├── chars.asm │ ├── chars.hex │ ├── chars.odt │ ├── chars.pdf │ ├── chrstst.py │ ├── hex │ ├── listing.hex │ ├── py128.txt │ └── src ├── doc ├── BLS.odt ├── BLS.pdf ├── Configuration.odt ├── Configuration.pdf ├── GIM.odt ├── GIM.pdf ├── Guide.odt ├── Guide.pdf ├── SATK - Machine Specification Language - v0.1.odt ├── SATK for s390 - DASD Volume Standard.odt ├── SATK for s390 - Introduction to Mainframe Bare-metal Programming.odt ├── SATK for s390 - Language Processing Tools.odt ├── SATK for s390 - Standards Conventions and Information.odt ├── SATK for s390 - The Mainframe Boot Process.odt ├── SATK.odt ├── SATK.pdf ├── XCARD.odt ├── XCARD.pdf ├── asma │ ├── ASMA.odt │ ├── ASMA.pdf │ ├── IPLASMA.odt │ ├── IPLASMA.pdf │ ├── Instruction_Status.odt │ ├── Instruction_Status.pdf │ ├── MSL.odt │ ├── MSL.pdf │ └── p41-pratt.pdf ├── fdl-1.3.txt ├── herc │ ├── Architecture Comparisons v0.3.odt │ ├── Architecture Comparisons v0.3.pdf │ ├── FBA Manual.odt │ ├── FBA Manual.pdf │ ├── FBA_DASD_Structures.odt │ ├── FBA_DASD_Structures.pdf │ ├── Undocumented.odt │ └── Undocumented.pdf ├── iplelf │ ├── .directory │ ├── IPL ELF ABI Supplement.odt │ └── SATK for s390 - IPL Medium Preparation Processor.odt ├── macros │ ├── MemoryMgmt.odt │ ├── Relocation.odt │ ├── SATK.odt │ ├── SATK.pdf │ ├── func.odt │ ├── func.pdf │ ├── herc.odt │ ├── herc.pdf │ ├── io.odt │ ├── io.pdf │ ├── sync.odt │ └── sync.pdf └── xforth │ ├── xforth.odt │ └── xforth.pdf ├── lib ├── s370.ld ├── s390.ld └── s390x.ld ├── loaders └── fba │ ├── s360 │ ├── basm │ ├── basm-20200907.091311.txt │ └── boot │ │ ├── ASAREGN.bin │ │ ├── LOADER.bin │ │ └── fbalodr.txt │ ├── s370 │ ├── basm │ ├── basm-20200908.061414.txt │ └── boot │ │ ├── ASAREGN.bin │ │ ├── LOADER.bin │ │ └── fbalodr.txt │ ├── s390 │ ├── basm │ ├── basm-20200908.064328.txt │ └── boot │ │ ├── ASAREGN.bin │ │ ├── LOADER.bin │ │ └── fbalodr.txt │ └── s390x │ ├── basm │ ├── basm-20200908.073244.txt │ └── boot │ ├── ASAREGN.bin │ ├── LOADER.bin │ └── fbalodr.txt ├── lodrmac ├── AARCH.mac ├── BLASALD.mac ├── BLCOMMON.mac ├── BLINIT.mac ├── BLMEM.mac ├── BLSASA.mac ├── BLSCALL.mac ├── BLSERR.mac ├── BLSIODS.mac ├── BLSIOT.mac ├── BLSORB.mac ├── BLSPB.mac ├── BLSTABLE.mac ├── BOOTNTR.mac ├── IOTBL.mac ├── SAVEAREA.mac ├── SERVENAD.mac ├── SERVEND.mac ├── SERVEXCP.mac ├── SERVICE.mac ├── SERVID.mac ├── SERVIOIN.mac ├── SERVNOOP.mac ├── SERVPEND.mac ├── SERVQIOT.mac ├── SERVRTN.mac ├── SERVS.mac └── STLOD1.mac ├── maclib ├── ACALL.mac ├── AFUN.mac ├── ANTR.mac ├── APROB.mac ├── ARCHIND.mac ├── ARCHLVL.mac ├── ASAIPL.mac ├── ASALOAD.mac ├── ASAREA.mac ├── ASAZAREA.mac ├── CALL.mac ├── CALLR.mac ├── CPUWAIT.mac ├── CZAM.mac ├── DSECTS.mac ├── DWAIT.mac ├── DWAITEND.mac ├── ENADEV.mac ├── ESA390.mac ├── FRAME.mac ├── FUNCTION.mac ├── HRCCMD.mac ├── HRCIPLP.mac ├── ICALL.mac ├── IFUN.mac ├── IOCB.mac ├── IOCBDS.mac ├── IOFMT.mac ├── IOINIT.mac ├── IOTRFR.mac ├── LOADHL.mac ├── LOCAL.mac ├── LOD1.mac ├── LTEST.mac ├── MEMSZ.mac ├── MEMSZS.mac ├── ORB.mac ├── POINTER.mac ├── PSWFMT.mac ├── RAWAIT.mac ├── RAWIO.mac ├── REGEQU.mac ├── RETURN.mac ├── SCALL.mac ├── SCPI.mac ├── SETZ.mac ├── SFUN.mac ├── SIGCPU.mac ├── SMMGR.mac ├── SMMGRB.mac ├── STACK.mac ├── STCCWADR.mac ├── STCCWCNT.mac ├── STKINIT.mac ├── TRAP128.mac ├── TRAP64.mac ├── TRAPS.mac ├── VMOVE.mac ├── ZARCH.mac ├── ZEROH.mac ├── ZEROL.mac ├── ZEROLH.mac └── ZEROLL.mac ├── mmmac ├── ALLOCH.mac ├── ALLOCL.mac ├── DEFPOOL.mac └── MEMPOOL.mac ├── qemulib ├── CONSINIT.mac ├── CONSWRIT.mac ├── LGCALL.mac ├── LGNTR.mac ├── LGSA.mac ├── LGXIT.mac ├── PDIE.mac ├── QEMU.mac ├── SPIF.mac └── SPIFINIT.mac ├── relomac ├── COPYSELF.mac ├── RELOCALL.mac ├── RELOCATE.mac ├── RTABLE.mac ├── RTBL.mac └── RTBLEND.mac ├── samples ├── asma │ ├── dsects.asm │ ├── hello.asm │ ├── hellof.asm │ ├── hellofm.asm │ └── sos.asm ├── decklodr │ ├── exeinobj │ ├── s370 │ │ ├── s370.conf │ │ └── s370.rc │ ├── s370bc │ │ ├── s370bc.conf │ │ └── s370bc.rc │ ├── s390 │ │ ├── s390.conf │ │ └── s390.rc │ └── s390x │ │ ├── s390x.conf │ │ └── s390x.rc ├── embedded │ ├── card │ │ ├── cardmbed.conf │ │ ├── cardmbed.rc │ │ ├── default.conf │ │ └── default.rc │ ├── cdrom │ │ ├── cdrommbed.conf │ │ ├── cdrommbed.rc │ │ ├── default.conf │ │ └── default.rc │ ├── ckd │ │ ├── ckdmbed.conf │ │ ├── ckdmbed.rc │ │ ├── default.conf │ │ └── default.rc │ ├── embed.S │ ├── fba │ │ ├── s370 │ │ │ ├── build │ │ │ │ ├── .directory │ │ │ │ ├── embed │ │ │ │ ├── embed.exe.txt │ │ │ │ ├── embed.lds │ │ │ │ ├── embed.lst │ │ │ │ ├── embed.map │ │ │ │ ├── embed.o │ │ │ │ ├── embed.obj.txt │ │ │ │ └── embed.s370 │ │ │ ├── embed.3310 │ │ │ ├── embed.3310.debug.txt │ │ │ ├── hercules.sand.20130617.102721.log │ │ │ ├── s370.conf │ │ │ └── s370.rc │ │ ├── s370bc │ │ │ ├── build │ │ │ │ ├── embed │ │ │ │ ├── embed.exe.txt │ │ │ │ ├── embed.lds │ │ │ │ ├── embed.lst │ │ │ │ ├── embed.map │ │ │ │ ├── embed.o │ │ │ │ ├── embed.obj.txt │ │ │ │ └── embed.s370 │ │ │ ├── embed.3310 │ │ │ ├── embed.3310.debug.txt │ │ │ ├── hercules.sand.20130617.123535.log │ │ │ ├── s370bc.conf │ │ │ └── s370bc.rc │ │ ├── s390 │ │ │ ├── build │ │ │ │ ├── embed │ │ │ │ ├── embed.exe.txt │ │ │ │ ├── embed.lds │ │ │ │ ├── embed.lst │ │ │ │ ├── embed.map │ │ │ │ ├── embed.o │ │ │ │ └── embed.obj.txt │ │ │ ├── embed.3310 │ │ │ ├── embed.3310.debug.txt │ │ │ ├── hercules.sand.20130617.143117.log │ │ │ ├── s390.conf │ │ │ └── s390.rc │ │ └── s390x │ │ │ ├── build │ │ │ ├── embed │ │ │ ├── embed.exe.txt │ │ │ ├── embed.lds │ │ │ ├── embed.lst │ │ │ ├── embed.map │ │ │ ├── embed.o │ │ │ └── embed.obj.txt │ │ │ ├── embed.3310 │ │ │ ├── embed.3310.debug.txt │ │ │ ├── hercules.sand.20130617.153628.log │ │ │ ├── s390x.conf │ │ │ └── s390x.rc │ ├── lodrtest │ └── tape │ │ ├── default.conf │ │ ├── default.rc │ │ ├── tapembed.conf │ │ └── tapembed.rc ├── external │ ├── extrnal.S │ ├── fba │ │ ├── s370 │ │ │ ├── build │ │ │ │ ├── extrnal │ │ │ │ ├── extrnal.exe.txt │ │ │ │ ├── extrnal.lds │ │ │ │ ├── extrnal.lst │ │ │ │ ├── extrnal.map │ │ │ │ ├── extrnal.o │ │ │ │ ├── extrnal.obj.txt │ │ │ │ └── extrnal.s370 │ │ │ ├── extrnal.3310 │ │ │ ├── extrnal.3310.debug.txt │ │ │ ├── hercules.sand.20130617.163207.log │ │ │ ├── s370.conf │ │ │ └── s370.rc │ │ ├── s370bc │ │ │ ├── build │ │ │ │ ├── extrnal │ │ │ │ ├── extrnal.exe.txt │ │ │ │ ├── extrnal.lds │ │ │ │ ├── extrnal.lst │ │ │ │ ├── extrnal.map │ │ │ │ ├── extrnal.o │ │ │ │ ├── extrnal.obj.txt │ │ │ │ └── extrnal.s370 │ │ │ ├── extrnal.3310 │ │ │ ├── extrnal.3310.debug.txt │ │ │ ├── hercules.sand.20130617.224003.log │ │ │ ├── s370bc.conf │ │ │ └── s370bc.rc │ │ ├── s390 │ │ │ ├── build │ │ │ │ ├── extrnal │ │ │ │ ├── extrnal.exe.txt │ │ │ │ ├── extrnal.lds │ │ │ │ ├── extrnal.lst │ │ │ │ ├── extrnal.map │ │ │ │ ├── extrnal.o │ │ │ │ └── extrnal.obj.txt │ │ │ ├── extrnal.3310 │ │ │ ├── extrnal.3310.debug.txt │ │ │ ├── hercules.sand.20130617.225540.log │ │ │ ├── s390.conf │ │ │ └── s390.rc │ │ └── s390x │ │ │ ├── build │ │ │ ├── extrnal │ │ │ ├── extrnal.exe.txt │ │ │ ├── extrnal.lds │ │ │ ├── extrnal.lst │ │ │ ├── extrnal.map │ │ │ ├── extrnal.o │ │ │ └── extrnal.obj.txt │ │ │ ├── extrnal.3310 │ │ │ ├── extrnal.3310.debug.txt │ │ │ ├── hercules.sand.20130617.230948.log │ │ │ ├── s390x.conf │ │ │ └── s390x.rc │ └── lodrtest ├── guide │ ├── pgm1 │ │ ├── asm │ │ ├── asma-20200606.094212.txt │ │ ├── ipl │ │ ├── ldipl │ │ │ ├── IPLPGM1.bin │ │ │ ├── IPLPSW.bin │ │ │ └── pgm1.txt │ │ ├── log-20200606.100241.txt │ │ ├── pgm1.asm │ │ ├── pgm1.conf │ │ ├── pgm1.rc │ │ └── run │ ├── pgm2 │ │ ├── ipl │ │ ├── iplasma-20200609.072506.txt │ │ ├── ldipl │ │ │ ├── IPLPGM1.bin │ │ │ ├── IPLPSW.bin │ │ │ └── pgm1.txt │ │ ├── log-20200609.072735.txt │ │ ├── med │ │ ├── pgm2.3310 │ │ ├── pgm2.conf │ │ └── pgm2.rc │ ├── pgm3 │ │ ├── asm │ │ ├── asma-20200614.230035.txt │ │ ├── asma-20220827.084845.txt │ │ ├── ipl │ │ ├── iplasma-20220827.091420.txt │ │ ├── ldipl │ │ │ ├── ASAREGN.bin │ │ │ ├── IPLPGM3.bin │ │ │ └── pgm3.txt │ │ ├── log-20220827.091156.txt │ │ ├── med │ │ ├── pgm3.3310 │ │ ├── pgm3.asm │ │ ├── pgm3.conf │ │ └── pgm3.rc │ ├── pgm4 │ │ ├── asm │ │ ├── asma-20200720.144552.txt │ │ ├── asma-20220827.100406.txt │ │ ├── basm │ │ ├── basma-20200720.145049.txt │ │ ├── basma-20220827.125522.txt │ │ ├── boot │ │ │ ├── ASAREGN.bin │ │ │ ├── BOOT4.bin │ │ │ └── boot4.txt │ │ ├── boot4.asm │ │ ├── ipl │ │ ├── iplasma-20220827.125816.txt │ │ ├── ldipl │ │ │ ├── ASAREGN.bin │ │ │ ├── BOOTED4.bin │ │ │ └── pgm4.txt │ │ ├── log-20200906.063426.txt │ │ ├── log-20220827.130426.txt │ │ ├── med │ │ ├── pgm4.3310 │ │ ├── pgm4.asm │ │ ├── pgm4.conf │ │ └── pgm4.rc │ └── pgm5 │ │ ├── s360 │ │ ├── asm │ │ ├── asma-20200908.053139.txt │ │ ├── ipl │ │ ├── iplasma-20200908.053146.txt │ │ ├── ldipl │ │ │ ├── ASAREGN.bin │ │ │ ├── BOOTED5.bin │ │ │ └── pgm5.txt │ │ ├── log-20200908.053253.txt │ │ ├── med │ │ ├── pgm5.3310 │ │ ├── pgm5.asm │ │ ├── pgm5.conf │ │ └── pgm5.rc │ │ ├── s370 │ │ ├── asm │ │ ├── asma-20200908.060727.txt │ │ ├── ipl │ │ ├── iplasma-20200908.062234.txt │ │ ├── ldipl │ │ │ ├── ASAREGN.bin │ │ │ ├── BOOTED5.bin │ │ │ └── pgm5.txt │ │ ├── log-20200908.062612.txt │ │ ├── med │ │ ├── pgm5.3310 │ │ ├── pgm5.asm │ │ ├── pgm5.conf │ │ └── pgm5.rc │ │ ├── s390 │ │ ├── asm │ │ ├── asma-20200908.065153.txt │ │ ├── ipl │ │ ├── iplasma-20200908.065448.txt │ │ ├── ldipl │ │ │ ├── ASAREGN.bin │ │ │ ├── BOOTED5.bin │ │ │ └── pgm5.txt │ │ ├── log-20200908.070321.txt │ │ ├── med │ │ ├── pgm5.3310 │ │ ├── pgm5.asm │ │ ├── pgm5.conf │ │ └── pgm5.rc │ │ └── s390x │ │ ├── asm │ │ ├── asma-20200908.072544.txt │ │ ├── ipl │ │ ├── iplasma-20200908.073002.txt │ │ ├── ldipl │ │ ├── ASAREGN.bin │ │ └── pgm5.txt │ │ ├── log-20200908.074450.txt │ │ ├── med │ │ ├── pgm5.3310 │ │ ├── pgm5.asm │ │ ├── pgm5.conf │ │ └── pgm5.rc ├── ihandlers │ ├── ih.S │ ├── ihtest │ ├── s370 │ │ ├── s370.conf │ │ └── s370.rc │ ├── s370bc │ │ ├── s370bc.conf │ │ └── s370bc.rc │ ├── s390 │ │ ├── s390.conf │ │ └── s390.rc │ └── s390x │ │ ├── s390x.conf │ │ └── s390x.rc ├── imlfun ├── iplelf │ ├── fba │ │ ├── s370 │ │ │ ├── build │ │ │ │ ├── iplelf │ │ │ │ ├── iplelf.exe.txt │ │ │ │ ├── iplelf.lds │ │ │ │ ├── iplelf.lst │ │ │ │ ├── iplelf.map │ │ │ │ ├── iplelf.o │ │ │ │ ├── iplelf.obj.txt │ │ │ │ └── iplelf.s370 │ │ │ ├── hercules.sand.20130616.133242.log │ │ │ ├── iplelf.3310 │ │ │ ├── iplelf.3310.debug.txt │ │ │ ├── s370.conf │ │ │ └── s370.rc │ │ ├── s370bc │ │ │ ├── build │ │ │ │ ├── iplelf │ │ │ │ ├── iplelf.exe.txt │ │ │ │ ├── iplelf.lds │ │ │ │ ├── iplelf.lst │ │ │ │ ├── iplelf.lst~ │ │ │ │ ├── iplelf.map │ │ │ │ ├── iplelf.o │ │ │ │ ├── iplelf.obj.txt │ │ │ │ └── iplelf.s370 │ │ │ ├── hercules.sand.20130616.141517.log │ │ │ ├── iplelf.3310 │ │ │ ├── iplelf.3310.debug.txt │ │ │ ├── s370bc.conf │ │ │ └── s370bc.rc │ │ ├── s390 │ │ │ ├── build │ │ │ │ ├── iplelf │ │ │ │ ├── iplelf.exe.txt │ │ │ │ ├── iplelf.lds │ │ │ │ ├── iplelf.lst │ │ │ │ ├── iplelf.map │ │ │ │ ├── iplelf.o │ │ │ │ └── iplelf.obj.txt │ │ │ ├── hercules.sand.20130616.143107.log │ │ │ ├── iplelf.3310 │ │ │ ├── iplelf.3310.debug.txt │ │ │ ├── s390.conf │ │ │ └── s390.rc │ │ └── s390x │ │ │ ├── build │ │ │ ├── iplelf │ │ │ ├── iplelf.exe.txt │ │ │ ├── iplelf.lds │ │ │ ├── iplelf.lst │ │ │ ├── iplelf.map │ │ │ ├── iplelf.o │ │ │ └── iplelf.obj.txt │ │ │ ├── hercules.sand.20130616.144505.log │ │ │ ├── iplelf.3310 │ │ │ ├── iplelf.3310.debug.txt │ │ │ ├── s390x.conf │ │ │ └── s390x.rc │ ├── iplelf.S │ └── lodrtest └── textseg │ ├── decklodr │ ├── decklodr.S │ ├── fba │ ├── s370 │ │ ├── build │ │ │ ├── textseg │ │ │ ├── textseg.exe.txt │ │ │ ├── textseg.lds │ │ │ ├── textseg.lst │ │ │ ├── textseg.map │ │ │ ├── textseg.o │ │ │ ├── textseg.obj.txt │ │ │ └── textseg.s370 │ │ ├── hercules.sand.20130616.004242.log │ │ ├── s370.conf │ │ ├── s370.rc │ │ ├── textseg.3310 │ │ └── textseg.3310.debug.txt │ ├── s370bc │ │ ├── build │ │ │ ├── textseg │ │ │ ├── textseg.exe.txt │ │ │ ├── textseg.lds │ │ │ ├── textseg.lst │ │ │ ├── textseg.map │ │ │ ├── textseg.o │ │ │ ├── textseg.obj.txt │ │ │ └── textseg.s370 │ │ ├── hercules.sand.20130616.074846.log │ │ ├── s370bc.conf │ │ ├── s370bc.rc │ │ ├── textseg.3310 │ │ └── textseg.3310.debug.txt │ ├── s390 │ │ ├── build │ │ │ ├── textseg │ │ │ ├── textseg.exe.txt │ │ │ ├── textseg.lds │ │ │ ├── textseg.lst │ │ │ ├── textseg.map │ │ │ ├── textseg.o │ │ │ └── textseg.obj.txt │ │ ├── hercules.sand.20130616.083022.log │ │ ├── s390.conf │ │ ├── s390.rc │ │ ├── textseg.3310 │ │ └── textseg.3310.debug.txt │ └── s390x │ │ ├── build │ │ ├── textseg │ │ ├── textseg.exe.txt │ │ ├── textseg.lds │ │ ├── textseg.lst │ │ ├── textseg.map │ │ ├── textseg.o │ │ └── textseg.obj.txt │ │ ├── hercules.sand.20130616.084355.log │ │ ├── s390x.conf │ │ ├── s390x.rc │ │ ├── textseg.3310 │ │ └── textseg.3310.debug.txt │ ├── lodrtest │ └── textseg.S ├── src ├── .directory ├── ABI-lcls.S ├── ABI-s390.S ├── ABI-s390x.S ├── ABI.S ├── CMS.S ├── CP.S ├── EBCDIC.S ├── ELF.S ├── ELF32.S ├── ELF64.S ├── OBJ.S ├── SYSIB.S ├── arch.S ├── archdep.S ├── bitmaps.S ├── dF18cmf.S ├── dF18pbs.S ├── debug_arch.S ├── debug_psw.S ├── displayf.S ├── drivers │ ├── .directory │ ├── DRIVER.S │ ├── DRIVERS.README │ ├── DRVUTIL.S │ ├── console.S │ ├── dev3215.S │ └── drivers.S ├── dwait.S ├── errnotbl.S ├── formatf.S ├── hal │ ├── .directory │ ├── ASB.S │ ├── HAL.S │ ├── IEIB.S │ ├── IHCB.S │ ├── archal.S │ ├── hals.S │ ├── ihal.S │ ├── ioal.S │ ├── ioallo.S │ └── util.S ├── hracfmac.S ├── hracfmod.S ├── ihandler.S ├── ihsave.S ├── interrupt.S ├── io.S ├── iortn.S ├── iortn370.S ├── ipl.S ├── ipl │ ├── .directory │ ├── cardmbed.S │ ├── cdrommbed.S │ ├── ckdmbed.S │ ├── fbam370.S │ ├── fbambed.S │ ├── include │ │ ├── .directory │ │ ├── IPLELF.S │ │ ├── bootnter.S │ │ ├── loaderif.S │ │ └── loaders.S │ └── tapembed.S ├── programf.S ├── psw.S ├── satkpfx.S ├── service.S ├── storage │ ├── .directory │ ├── STORAGE.S │ ├── memperm.S │ └── storages.S ├── strings.S ├── struct.S ├── table.S └── tracef.S ├── srcasm ├── hercules.mac ├── loader │ ├── bls.asm │ └── fbalodr.asm ├── satk.mac ├── selfrelo.mac └── table.mac ├── tools ├── .directory ├── PyELF.py ├── PyOBJBuilder.py ├── asma.py ├── asmafun ├── bfp.py ├── bfp_float.py ├── bfp_gmpy2.py ├── bintools.py ├── ckaslst.py ├── codepage.py ├── config.py ├── deck.py ├── dfp.py ├── elfs370.py ├── fp.py ├── fsm.py ├── gas_factory.py ├── herc │ └── herc_audit.py ├── hopcodes.py ├── inventory.py ├── ipl │ ├── .directory │ ├── ELFXO.py │ ├── OBJO.py │ ├── OBJX.py │ ├── PyIPLELF.py │ ├── awsutil.py │ ├── ccwutil.py │ ├── ci.py │ ├── ckdutil.py │ ├── exeinobj.py │ ├── fbadscb.py │ ├── fbautil.py │ ├── hexdump.py │ ├── ipldpp.py │ ├── iplmed.py │ ├── media.py │ ├── objutil.py │ ├── rdrpun.py │ ├── recsutil.py │ ├── repo.py │ ├── structure.py │ ├── translate.py │ └── volume.py ├── iplasma.py ├── lang │ ├── LL1grammar.py │ ├── LL1parser.py │ ├── expression.py │ ├── fsmparser.py │ ├── lang.py │ ├── langutil.py │ ├── lexer.py │ ├── parser.py │ ├── pratt.py │ ├── pratt2.py │ ├── pratt3.py │ ├── retest.py │ ├── sample.py │ ├── seqparser.py │ ├── sopl.py │ └── syntax.py ├── ldidlib.py ├── lds_factory.py ├── listing.py ├── medfun ├── msl.py ├── mslrpt.py ├── objlib.py ├── qelf.py ├── saconfig.py ├── satkfun ├── satkutil.py ├── specfile.py ├── stfle.py ├── xbuild ├── xmi.py ├── xtest ├── xtoolfun └── xverify ├── xcard ├── XCARD.mac ├── XCARDTST.mac ├── s390 │ ├── asmtst │ ├── asmtst-20201121.044808.txt │ ├── asmx │ ├── asmx-20201121.044155.txt │ ├── card │ ├── iplc │ ├── iplc-20201121.051023.txt │ ├── iplc.conf │ ├── iplc.rc │ ├── iplt │ ├── iplt-20201121.051703.txt │ ├── iplt.conf │ ├── iplt.rc │ ├── ldipl │ │ ├── XCARD.bin │ │ └── xcard.txt │ ├── load.aws │ ├── load.deck │ ├── medx │ ├── medx-20201121.045218.txt │ ├── tape │ ├── xcard.deck │ └── xcardtst.deck ├── xcard.asm └── xcardtst.asm └── xforth ├── LICENSE.txt ├── forth.py ├── forth_words.py ├── msp430.py └── xforth.py /.gitignore: -------------------------------------------------------------------------------- 1 | # PLEASE NOTE: 2 | 3 | # There is no need to add temporary files here when adding a new source 4 | # file as such files (including .dll and .so) are caught by the general 5 | # rules at the end of this file. 6 | 7 | # The only thing you need to add is an executable without extension. 8 | 9 | # / 10 | .directory 11 | 12 | # /asma/ 13 | /asma/__pycache__ 14 | /asma/.directory 15 | /asma/msl/.directory 16 | 17 | # /doc/ 18 | /doc/.directory 19 | /doc/asma/.directory 20 | /doc/iplelf/.directory 21 | /doc/macros/.directory 22 | 23 | # /lib/ 24 | /lib/.directory 25 | 26 | # /maclib/ 27 | /maclib/.directory 28 | 29 | # /samples/ 30 | /samples/.directory 31 | /samples/asma/.directory 32 | /samples/decklodr/.directory 33 | /samples/embedded/.directory 34 | /samples/external/.directory 35 | /samples/ihandlers/.directory 36 | /samples/iplelf/.directory 37 | /samples/textseg/.directory 38 | 39 | # /src/ 40 | /src/.directory 41 | /src/drivers/.directory 42 | /src/hal/.directory 43 | /scr/ipl/.directory 44 | /src/ipl/include/.directory 45 | /src/storage/.directory 46 | 47 | # /srcasm/ 48 | /srcasm/.directory 49 | 50 | # /tools/ 51 | /tools/.directory 52 | /tools/__pycache__ 53 | /tools/herc/.directory 54 | /tools/herc/__pycache__ 55 | /tools/ipl/.directory 56 | /tools/ipl/__pycache__ 57 | /tools/lang/.directory 58 | /tools/lang/__pycache__ 59 | 60 | # /xforth/ 61 | /xforth/.directory 62 | /xforth/__pycache__ 63 | 64 | # Python 65 | *.pyc 66 | 67 | 68 | # Editors 69 | *.py~ 70 | *~ 71 | -------------------------------------------------------------------------------- /asma/asmlocal.py: -------------------------------------------------------------------------------- 1 | #!/usr/bin/python3 2 | # Copyright (C) 2014 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This module provides support for local assembler command-line parameters 20 | 21 | this_module="%s.py" % __name__ 22 | 23 | # ASMA imports: 24 | from assembler import local 25 | 26 | # Use the local.config() method to supply command-line parameters. This sample is 27 | # equivalent to the standard defaults. 28 | local.config(\ 29 | name="sample", 30 | addr=None, 31 | ccw=None, 32 | cptrans="94C", 33 | dump=False, 34 | error=2, 35 | msldb="msl.txt", 36 | nest=20, 37 | stats=False) 38 | 39 | if __name__ == "__main__": 40 | raise NotImplementedError("%s - intended for import use only" % this_module) -------------------------------------------------------------------------------- /asma/tests/chars/asm: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2021 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script assembles the generated ASMA source file: chars.asm 20 | 21 | 22 | ASMA_SRC="chars.asm" 23 | 24 | datetime() 25 | { 26 | sfx=$(date +%Y%m%d.%H%M%S) 27 | } 28 | datetime # set $sfx (the date and time of the run) for later use 29 | 30 | # Change this variable for your environment 31 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 32 | ASMA=${REPO}/tools/asma.py # The ASMA tool 33 | 34 | ${ASMA} -t s370 -d --stats -l asma-$sfx.txt ${ASMA_SRC} 35 | -------------------------------------------------------------------------------- /asma/tests/chars/chars.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/asma/tests/chars/chars.odt -------------------------------------------------------------------------------- /asma/tests/chars/chars.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/asma/tests/chars/chars.pdf -------------------------------------------------------------------------------- /asma/tests/chars/hex: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2021 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This module creates a text file that is the hexadecimal translation of 20 | # each byte in the ASMA source file. 21 | 22 | # Note: xxd is a simple command-line based hexadecimal editor. It is a Linux 23 | # application. If you are not using Linux or prefer a different hex editor 24 | # simply use your preference. 25 | 26 | ASMA_SRC="chars.asm" 27 | ASMA_HEX="chars.hex" 28 | ASMA_LST="asma-20210416.102259.txt" # Alter to match date and time of listing 29 | LST_HEX="listing.hex" 30 | 31 | xxd -g 4 ${ASMA_SRC} ${ASMA_HEX} # output source as hex 32 | #xxd -g 4 ${ASMA_LST} ${LST_HEX} # output listing as hex 33 | -------------------------------------------------------------------------------- /asma/tests/chars/py128.txt: -------------------------------------------------------------------------------- 1 |  2 |  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ -------------------------------------------------------------------------------- /asma/tests/chars/src: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2021 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This module creates a text file usable by ASMA for testing Python handling 20 | # of characters. 21 | 22 | TEST=./chrstst.py 23 | PY128="py128.txt" 24 | ASMA_SRC="chars.asm" 25 | 26 | # Change this variable for your environment 27 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 28 | ASMA=${REPO}/tools/asma.py # The ASMA tool 29 | 30 | ${TEST} -d -w=${PY128} -s=${ASMA_SRC} 31 | -------------------------------------------------------------------------------- /doc/BLS.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/BLS.odt -------------------------------------------------------------------------------- /doc/BLS.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/BLS.pdf -------------------------------------------------------------------------------- /doc/Configuration.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/Configuration.odt -------------------------------------------------------------------------------- /doc/Configuration.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/Configuration.pdf -------------------------------------------------------------------------------- /doc/GIM.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/GIM.odt -------------------------------------------------------------------------------- /doc/GIM.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/GIM.pdf -------------------------------------------------------------------------------- /doc/Guide.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/Guide.odt -------------------------------------------------------------------------------- /doc/Guide.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/Guide.pdf -------------------------------------------------------------------------------- /doc/SATK - Machine Specification Language - v0.1.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/SATK - Machine Specification Language - v0.1.odt -------------------------------------------------------------------------------- /doc/SATK for s390 - DASD Volume Standard.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/SATK for s390 - DASD Volume Standard.odt -------------------------------------------------------------------------------- /doc/SATK for s390 - Introduction to Mainframe Bare-metal Programming.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/SATK for s390 - Introduction to Mainframe Bare-metal Programming.odt -------------------------------------------------------------------------------- /doc/SATK for s390 - Language Processing Tools.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/SATK for s390 - Language Processing Tools.odt -------------------------------------------------------------------------------- /doc/SATK for s390 - Standards Conventions and Information.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/SATK for s390 - Standards Conventions and Information.odt -------------------------------------------------------------------------------- /doc/SATK for s390 - The Mainframe Boot Process.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/SATK for s390 - The Mainframe Boot Process.odt -------------------------------------------------------------------------------- /doc/SATK.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/SATK.odt -------------------------------------------------------------------------------- /doc/SATK.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/SATK.pdf -------------------------------------------------------------------------------- /doc/XCARD.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/XCARD.odt -------------------------------------------------------------------------------- /doc/XCARD.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/XCARD.pdf -------------------------------------------------------------------------------- /doc/asma/ASMA.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/asma/ASMA.odt -------------------------------------------------------------------------------- /doc/asma/ASMA.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/asma/ASMA.pdf -------------------------------------------------------------------------------- /doc/asma/IPLASMA.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/asma/IPLASMA.odt -------------------------------------------------------------------------------- /doc/asma/IPLASMA.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/asma/IPLASMA.pdf -------------------------------------------------------------------------------- /doc/asma/Instruction_Status.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/asma/Instruction_Status.odt -------------------------------------------------------------------------------- /doc/asma/Instruction_Status.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/asma/Instruction_Status.pdf -------------------------------------------------------------------------------- /doc/asma/MSL.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/asma/MSL.odt -------------------------------------------------------------------------------- /doc/asma/MSL.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/asma/MSL.pdf -------------------------------------------------------------------------------- /doc/asma/p41-pratt.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/asma/p41-pratt.pdf -------------------------------------------------------------------------------- /doc/herc/Architecture Comparisons v0.3.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/herc/Architecture Comparisons v0.3.odt -------------------------------------------------------------------------------- /doc/herc/Architecture Comparisons v0.3.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/herc/Architecture Comparisons v0.3.pdf -------------------------------------------------------------------------------- /doc/herc/FBA Manual.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/herc/FBA Manual.odt -------------------------------------------------------------------------------- /doc/herc/FBA Manual.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/herc/FBA Manual.pdf -------------------------------------------------------------------------------- /doc/herc/FBA_DASD_Structures.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/herc/FBA_DASD_Structures.odt -------------------------------------------------------------------------------- /doc/herc/FBA_DASD_Structures.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/herc/FBA_DASD_Structures.pdf -------------------------------------------------------------------------------- /doc/herc/Undocumented.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/herc/Undocumented.odt -------------------------------------------------------------------------------- /doc/herc/Undocumented.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/herc/Undocumented.pdf -------------------------------------------------------------------------------- /doc/iplelf/.directory: -------------------------------------------------------------------------------- 1 | [Dolphin] 2 | Timestamp=2012,4,1,11,17,58 3 | ViewMode=1 4 | -------------------------------------------------------------------------------- /doc/iplelf/IPL ELF ABI Supplement.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/iplelf/IPL ELF ABI Supplement.odt -------------------------------------------------------------------------------- /doc/iplelf/SATK for s390 - IPL Medium Preparation Processor.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/iplelf/SATK for s390 - IPL Medium Preparation Processor.odt -------------------------------------------------------------------------------- /doc/macros/MemoryMgmt.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/macros/MemoryMgmt.odt -------------------------------------------------------------------------------- /doc/macros/Relocation.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/macros/Relocation.odt -------------------------------------------------------------------------------- /doc/macros/SATK.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/macros/SATK.odt -------------------------------------------------------------------------------- /doc/macros/SATK.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/macros/SATK.pdf -------------------------------------------------------------------------------- /doc/macros/func.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/macros/func.odt -------------------------------------------------------------------------------- /doc/macros/func.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/macros/func.pdf -------------------------------------------------------------------------------- /doc/macros/herc.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/macros/herc.odt -------------------------------------------------------------------------------- /doc/macros/herc.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/macros/herc.pdf -------------------------------------------------------------------------------- /doc/macros/io.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/macros/io.odt -------------------------------------------------------------------------------- /doc/macros/io.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/macros/io.pdf -------------------------------------------------------------------------------- /doc/macros/sync.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/macros/sync.odt -------------------------------------------------------------------------------- /doc/macros/sync.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/macros/sync.pdf -------------------------------------------------------------------------------- /doc/xforth/xforth.odt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/xforth/xforth.odt -------------------------------------------------------------------------------- /doc/xforth/xforth.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/doc/xforth/xforth.pdf -------------------------------------------------------------------------------- /loaders/fba/s360/boot/ASAREGN.bin: -------------------------------------------------------------------------------- 1 |  (08 -------------------------------------------------------------------------------- /loaders/fba/s360/boot/LOADER.bin: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/loaders/fba/s360/boot/LOADER.bin -------------------------------------------------------------------------------- /loaders/fba/s360/boot/fbalodr.txt: -------------------------------------------------------------------------------- 1 | ASAREGN.bin 0x0 2 | LOADER.bin 0x400 3 | -------------------------------------------------------------------------------- /loaders/fba/s370/boot/ASAREGN.bin: -------------------------------------------------------------------------------- 1 |  2 |  3 | 4 | ( 5 | 0 6 | 8 -------------------------------------------------------------------------------- /loaders/fba/s370/boot/LOADER.bin: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/loaders/fba/s370/boot/LOADER.bin -------------------------------------------------------------------------------- /loaders/fba/s370/boot/fbalodr.txt: -------------------------------------------------------------------------------- 1 | ASAREGN.bin 0x0 2 | LOADER.bin 0x400 3 | -------------------------------------------------------------------------------- /loaders/fba/s390/boot/ASAREGN.bin: -------------------------------------------------------------------------------- 1 |  2 |  3 | 4 | ( 5 | 0 6 | 8 0@P`p -------------------------------------------------------------------------------- /loaders/fba/s390/boot/LOADER.bin: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/loaders/fba/s390/boot/LOADER.bin -------------------------------------------------------------------------------- /loaders/fba/s390/boot/fbalodr.txt: -------------------------------------------------------------------------------- 1 | ASAREGN.bin 0x0 2 | LOADER.bin 0x400 3 | -------------------------------------------------------------------------------- /loaders/fba/s390x/boot/ASAREGN.bin: -------------------------------------------------------------------------------- 1 |  2 |  3 | 4 | ( 5 | 0 6 | 8 0@P`p -------------------------------------------------------------------------------- /loaders/fba/s390x/boot/LOADER.bin: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/loaders/fba/s390x/boot/LOADER.bin -------------------------------------------------------------------------------- /loaders/fba/s390x/boot/fbalodr.txt: -------------------------------------------------------------------------------- 1 | ASAREGN.bin 0x0 2 | LOADER.bin 0x400 3 | -------------------------------------------------------------------------------- /lodrmac/BLASALD.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2020 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL BLASALD 20 | GBLA &ARCHLVL 21 | AIF (&ARCHLVL GT 0).ARCHOK 22 | MNOTE 1,'BLASALD - ARCHLVL MUST PRECEDE THIS MACRO' 23 | MEXIT 24 | .ARCHOK ANOP 25 | AIF (&ARCHLVL GE 9).LOAD128 26 | &LABEL ASALOAD 27 | MEXIT 28 | .LOAD128 ANOP 29 | &LABEL ASALOAD PSW=E390 30 | MEND 31 | -------------------------------------------------------------------------------- /lodrmac/BLSASA.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2020 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL BLSASA 20 | .* This DSECT allows symbolic access to hardware and software assigned 21 | .* locations. The DSECT created is named by the &LABEL parameter. 22 | .* Addressing is established by: USING &LABEL,0 23 | .* In this context, general register 0 is an assembler artifact. Instructions 24 | .* that have R0 as a base register never actually use it for address generation. 25 | &LABEL ASAREA DSECT=YES 26 | LOD1 ASA=&LABEL 27 | MEND 28 | -------------------------------------------------------------------------------- /lodrmac/BLSORB.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2020 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL BLSORB &CCW=0 20 | GBLA &ARCHLVL 21 | AIF (&ARCHLVL NE 0).ARCHOK 22 | MNOTE 1,'BLSORB - ARCHLVL MACRO MUST PRECEDE THIS MACRO' 23 | MEXIT 24 | .ARCHOK ANOP 25 | AIF (&ARCHLVL LT 5).GENCH 26 | &LABEL ORB CCW=&CCW,FLAG=F 27 | MEXIT 28 | .GENCH ANOP 29 | &LABEL ORB CCW=&CCW 30 | MEND 31 | -------------------------------------------------------------------------------- /lodrmac/BLSTABLE.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2020 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | BLSTABLE 20 | GBLB &ISLOADR 21 | AIF (&ISLOADR).SETN 22 | &EQUATE SETC 'YES' 23 | AGO .TABLE 24 | .SETN ANOP 25 | &EQUATE SETC 'NO' 26 | .TABLE ANOP 27 | SERVTBL SERVID NAME=NOOP,ENTRY=SERVNOOP,EQU=&EQUATE 28 | SERVID NAME=IOINIT,ENTRY=SERVIOIN,EQU=&EQUATE 29 | SERVID NAME=QIOT,ENTRY=SERVQIOT,EQU=&EQUATE 30 | SERVID NAME=ENADEV,ENTRY=SERVENAD,EQU=&EQUATE 31 | SERVID NAME=EXCP,ENTRY=SERVEXCP,EQU=&EQUATE 32 | SERVID NAME=PNDING,ENTRY=SERVPEND,EQU=&EQUATE 33 | BLSNUM SERVEND 34 | MEND 35 | -------------------------------------------------------------------------------- /lodrmac/IOTBL.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2020 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL IOTBL &IOTBLE,&DEVICES=1 20 | .* This macro defines the I/O table used by the I/O related services. 21 | .* It does not actually allocate memory (other than required to get onto 22 | .* the next fullword boundary) 23 | .* &LABEL Defines a label equated to the start of the table. Required 24 | .* &IOTBLE Defines a label equated to the byte _following_ the table. 25 | .* Required. 26 | .* &DEVICES The number of devices to be supported by the table. If a label 27 | .* is supplied it must be defined before the macro is invoked and 28 | .* must be a positive integer. 0 is not valid. 29 | AIF ('&LABEL' NE '').LBLOK 30 | MNOTE 1,'IOTBL - ''LABEL'' REQUIRED' 31 | MEXIT 32 | .LBLOK ANOP 33 | AIF ('&IOTBLE' NE '').ENDOK 34 | MNOTE 1,'IOTBL - ''IOTABLE'' PARAMETER REQUIRED' 35 | MEXIT 36 | .ENDOK ANOP 37 | DS 0D 38 | &LABEL DS (&DEVICES*7)F'0' Define the I/O table 39 | IOTDEVS EQU &DEVICES Number of devices in the I/O table 40 | &IOTBLE EQU * 41 | MEND -------------------------------------------------------------------------------- /lodrmac/SERVEND.mac: -------------------------------------------------------------------------------- 1 | .* This file is part of SATK. 2 | .* 3 | .* SATK is free software: you can redistribute it and/or modify 4 | .* it under the terms of the GNU General Public License as published by 5 | .* the Free Software Foundation, either version 3 of the License, or 6 | .* (at your option) any later version. 7 | .* 8 | .* SATK is distributed in the hope that it will be useful, 9 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 10 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11 | .* GNU General Public License for more details. 12 | .* 13 | .* You should have received a copy of the GNU General Public License 14 | .* along with SATK. If not, see . 15 | 16 | MACRO 17 | &LABEL SERVEND 18 | GBLB &ISLOADR 19 | AIF (&ISLOADR).OK 20 | .* Silently ignore this macro if not building a boot loader. Means we are 21 | .* just creating equates for a booted program that uses the services. 22 | MEXIT 23 | .OK ANOP 24 | GBLA &BLSNUM 25 | AIF ('&LABEL' NE '').GENEQU 26 | MNOTE 1,'SERVEND - LABEL REQUIRED' 27 | MEXIT 28 | .GENEQU ANOP 29 | &LABEL EQU &BLSNUM Number of defined services 30 | MEND 31 | -------------------------------------------------------------------------------- /lodrmac/SERVNOOP.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2020 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | SERVNOOP 20 | GBLA &ARCHLVL 21 | GBLA &ISLOADR 22 | AIF (&ISLOADR).OK 23 | MNOTE 1,'SERVNOOP - MACRO INTERNAL TO BOOT LOADER - MAY NOT BE USED' 24 | MEXIT 25 | .OK ANOP 26 | AIF (&ARCHLVL GT 0).ARCHOK 27 | MNOTE 1,'SERVNOOP - ARCHLVL MUST PRECEDE THIS MACRO' 28 | MEXIT 29 | .ARCHOK ANOP 30 | SERVNOOP SERVICE NOOP,NOOPSAVE 31 | $LH 11,SPBSI Get the service information 32 | LA 11,1(,11) Increment the service information by 1 33 | STH 11,SPBSI Set new value in service information 34 | $SR 0,0 Set the condition code to zero 35 | SERVRTN Return to caller 36 | SPACE 37 | MEND -------------------------------------------------------------------------------- /maclib/ACALL.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2017 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL ACALL &FUNC,&INLINE=,&RELO=NO 20 | GBLC &A Architecture specific symbol suffix 21 | &LABEL CALL &FUNC&A,INLINE=&INLINE,RELO=&RELO 22 | MEND 23 | -------------------------------------------------------------------------------- /maclib/AFUN.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2017 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL AFUN &FP=NO,&AFP=NO 20 | GBLC &A Architecture specific symbol suffix 21 | LCLC &LBL Used to constuct function label 22 | &LBL SETC '&LABEL&A' 23 | &LBL FUNCTION FP=&FP,AFP=&AFP 24 | MEND 25 | -------------------------------------------------------------------------------- /maclib/DWAITEND.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2017 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL DWAITEND &LOAD='' 20 | .* This macro generates a normal termination disabled wait PSW. This macro's 21 | .* parameter has the same meaning as the corresponding parameter used by the 22 | .* DWAIT macro. 23 | &LABEL DWAIT PGM=0,CODE=000,LOAD=&LOAD 24 | MEND 25 | -------------------------------------------------------------------------------- /maclib/ESA390.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2017 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL ESA390 &PAIR,&CPUR,&SUCCESS=,&FAIL= 20 | .* In-line enter ESA/390 mode from z/Architecture mode 21 | GBLA &ARCHLVL Current architecture level 22 | AIF (&ARCHLVL GE 8).GEN 23 | MNOTE *,'ESA390 - WARNING: ARCHITECTURE LEVEL LESS THAN 8 - &ARCHLVL' 24 | .GEN ANOP 25 | &LABEL LA &PAIR+1,1 Establish change to ESA/390 parameter 26 | SIGCPU &PAIR,&CPUR,ORDER=X'12',SUCCESS=&SUCCESS,FAIL=&FAIL 27 | MEND 28 | -------------------------------------------------------------------------------- /maclib/ICALL.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2017 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL ICALL &FUNC,&INLINE=,&RELO=NO 20 | GBLC &I Input/output architecture specific symbol suffix 21 | &LABEL CALL &FUNC&I,INLINE=&INLINE,RELO=&RELO 22 | MEND -------------------------------------------------------------------------------- /maclib/IFUN.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2017 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL IFUN &FP=NO,&AFP=NO 20 | GBLC &I Input/output architecture specific symbol suffix 21 | LCLC &LBL Used to constuct function label 22 | &LBL SETC '&LABEL&I' 23 | &LBL FUNCTION FP=&FP,AFP=&AFP 24 | MEND 25 | -------------------------------------------------------------------------------- /maclib/LOADHL.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2020 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL LOADHL ®,&STG 20 | .* This macro emulates ICM B'0011',STORAGE used to load a half word without 21 | .* sign extention. This is required for S/360 that lacks the ICM instruction 22 | GBLA &ARCHLVL 23 | AIF (&ARCHLVL GT 0).ARCHOK 24 | MNOTE 1,'LOADHL - ARCHLVL MUST PRECEDE THIS MACRO' 25 | MEXIT 26 | .ARCHOK ANOP 27 | AIF (&ARCHLVL EQ 1).NOICM 28 | &LABEL ICM ®,B'0011',&STG Load halfword without sign extention 29 | MEXIT 30 | .NOICM ANOP 31 | &LABEL LH ®,&STG Load halfword with sign extention 32 | ZEROH ®,16 Clear high-order half word to remove sign 33 | MEND 34 | -------------------------------------------------------------------------------- /maclib/LTEST.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2020 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL LTEST ®,&STG 20 | .* This macro emulates ICM B'1111',STORAGE used to load and test a full word 21 | .* value with the one instruction. S/360 lacks the ICM instruction so this 22 | .* macro provides an alternative with the instructions actually available 23 | .* with a S/360. 24 | GBLA &ARCHLVL 25 | AIF (&ARCHLVL GT 0).ARCHOK 26 | MNOTE 1,'LTEST - ARCHLVL MUST PRECEDE THIS MACRO' 27 | MEXIT 28 | .ARCHOK ANOP 29 | AIF (&ARCHLVL EQ 1).NOICM 30 | &LABEL ICM ®,B'1111',&STG Load fullword and test the value 31 | MEXIT 32 | .NOICM ANOP 33 | &LABEL L ®,&STG Load fullword 34 | LTR ®,® Set condition code by testing loaded value 35 | MEND 36 | -------------------------------------------------------------------------------- /maclib/SCALL.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2017 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL SCALL &FUNC,&INLINE=,&RELO=NO 20 | GBLC &S Sharable symbol suffix 21 | &LABEL CALL &FUNC&S,INLINE=&INLINE,RELO=&RELO 22 | MEND 23 | -------------------------------------------------------------------------------- /maclib/SFUN.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2017 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL SFUN &FP=NO,&AFP=NO 20 | GBLC &S Sharable symbol suffix 21 | LCLC &LBL Used to constuct function label 22 | &LBL SETC '&LABEL&S' 23 | &LBL FUNCTION FP=&FP,AFP=&AFP 24 | MEND 25 | -------------------------------------------------------------------------------- /maclib/STCCWCNT.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2020 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL STCCWCNT ®,&CCW 20 | .* This macro stores a register's contents into a CCW format as indicated 21 | .* by the ARCHLVL of the assembly. This macro is intended for use with 22 | .* a CCW created via the ASMA CCW directive not CCW0 or CCW1. 23 | GBLA &ARCHLVL 24 | AIF (&ARCHLVL GT 0).ARCHOK 25 | MNOTE 1,'STCCWCNT - ARCHLVL MUST PRECEDE THIS MACRO' 26 | MEXIT 27 | .ARCHOK ANOP 28 | AIF (&ARCHLVL GE 5).CCW1 29 | &LABEL STH ®,&CCW+6 Store count into a Format 0 CCW 30 | MEXIT 31 | .CCW1 ANOP 32 | &LABEL STH ®,&CCW+2 Store count into a Format 1 CCW 33 | MEND 34 | -------------------------------------------------------------------------------- /maclib/TRAP128.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2017 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL TRAP128 20 | .* Generate 128-bit ISR Trap PSWs 21 | .* Optional Parameter Usage: 22 | .* &LABEL Associate a symbol with the generated PSWs 23 | &LABEL PSWZ 0,0,2,0,X'120' Restart ISR Trap New PSW 24 | PSWZ 0,0,2,0,X'130' External ISR Trap New PSW 25 | PSWZ 0,0,2,0,X'140' Supervisor Call ISR Trap New PSW 26 | PSWZ 0,0,2,0,X'150' Program ISR Trap New PSW 27 | PSWZ 0,0,2,0,X'160' Machine Check Trap New PSW 28 | PSWZ 0,0,2,0,X'170' Input/Output Trap New PSW 29 | MEND 30 | -------------------------------------------------------------------------------- /maclib/ZARCH.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2017-2021 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL ZARCH &PAIR,&CPUR,&SUCCESS=,&FAIL= 20 | .* In-line enter z/Architecture mode from ESA/390 mode 21 | GBLA &ARCHLVL Current architecture level 22 | AIF (&ARCHLVL GE 8).GEN 23 | MNOTE *,'ZARCH - WARNING: ARCHITECTURE LESS THAN 8 - &ARCHLVL' 24 | .GEN ANOP 25 | &LABEL SR &PAIR+1,&PAIR+1 Establish change to z/Architecture parameter. 26 | LA &PAIR+1,1 Set to z/Architecture 27 | SIGCPU &PAIR,&CPUR,ORDER=X'12',SUCCESS=&SUCCESS,FAIL=&FAIL 28 | MEND 29 | -------------------------------------------------------------------------------- /maclib/ZEROH.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2017 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL ZEROH ®,&BITS 20 | .* This macro sets high-order bits of either a 32- or 64-bit register to zero. The 21 | .* instructions are chosen based upon the current architecture setting. 22 | .* Reguired Parameter Usage: 23 | .* ® The register whose high-order bits are being set to 0 24 | .* &BITS The number of high-order bits being set 25 | GBLA &ARCHLVL Current architecture level 26 | AIF ('®' NE '').REGOK 27 | MNOTE 1,'ZEROH - FIRST REQUIRED POSITIONAL PARAMETER REG MISSING' 28 | MEXIT 29 | .REGOK ANOP 30 | AIF ('&BITS' NE '').BITSOK 31 | MNOTE 1,'ZEROH - SECOND REQUIRED POSITIONAL PARAMETER BITS MISSING' 32 | MEXIT 33 | .BITSOK ANOP 34 | AIF ('&LABEL' EQ '').NOLBL 35 | &LABEL DS 0H 36 | .NOLBL ANOP 37 | AIF (&ARCHLVL LT 9).USESXL 38 | SLLG ®,®,&BITS 39 | SRLG ®,®,&BITS 40 | MEXIT 41 | .USESXL ANOP 42 | SLL ®,&BITS 43 | SRL ®,&BITS 44 | MEND 45 | -------------------------------------------------------------------------------- /maclib/ZEROL.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2017 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL ZEROL ®,&BITS 20 | .* This macro sets low-order bits of either a 32- or 64-bit register to zero. The 21 | .* instructions are chosen based upon the current architecture setting. 22 | .* Reguired Parameter Usage: 23 | .* ® The register whose high-order bits are being set to 0 24 | .* &BITS The number of high-order bits being set 25 | GBLA &ARCHLVL Current architecture level 26 | AIF ('®' NE '').REGOK 27 | MNOTE 1,'ZEROH - FIRST REQUIRED POSITIONAL PARAMETER REG MISSING' 28 | MEXIT 29 | .REGOK ANOP 30 | AIF ('&BITS' NE '').BITSOK 31 | MNOTE 1,'ZEROH - SECOND REQUIRED POSITIONAL PARAMETER BITS MISSING' 32 | MEXIT 33 | .BITSOK ANOP 34 | AIF ('&LABEL' EQ '').NOLBL 35 | &LABEL DS 0H 36 | .NOLBL ANOP 37 | AIF (&ARCHLVL LT 9).USESXL 38 | SRLG ®,®,&BITS 39 | SLLG ®,®,&BITS 40 | MEXIT 41 | .USESXL ANOP 42 | SRL ®,&BITS 43 | SLL ®,&BITS 44 | MEND 45 | -------------------------------------------------------------------------------- /maclib/ZEROLH.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2017 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL ZEROLH ®,&BITS 20 | .* This macro sets the high-order bits starting at bit 32 of a 64-bit register to 21 | .* zero. On 32-bit register systems this is equivalent to ZEROH 22 | .* Reguired Parameter Usage: 23 | .* ® The register whose high-order bits are being set to 0 24 | .* &BITS The number of high-order bits being set 25 | GBLA &ARCHLVL Current architecture level 26 | AIF ('®' NE '').REGOK 27 | MNOTE 1,'ZEROLH - FIRST REQUIRED POSITIONAL PARAMETER REG MISSING' 28 | MEXIT 29 | .REGOK ANOP 30 | AIF ('&BITS' NE '').BITSOK 31 | MNOTE 1,'ZEROLH - SECOND REQUIRED POSITIONAL PARAMETER BITS MISSING' 32 | MEXIT 33 | .BITSOK ANOP 34 | AIF ('&LABEL' EQ '').NOLBL 35 | &LABEL DS 0H 36 | .NOLBL ANOP 37 | SLL ®,&BITS 38 | SRL ®,&BITS 39 | MEND 40 | -------------------------------------------------------------------------------- /maclib/ZEROLL.mac: -------------------------------------------------------------------------------- 1 | .* Copyright (C) 2017 Harold Grovesteen 2 | .* 3 | .* This file is part of SATK. 4 | .* 5 | .* SATK is free software: you can redistribute it and/or modify 6 | .* it under the terms of the GNU General Public License as published by 7 | .* the Free Software Foundation, either version 3 of the License, or 8 | .* (at your option) any later version. 9 | .* 10 | .* SATK is distributed in the hope that it will be useful, 11 | .* but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | .* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | .* GNU General Public License for more details. 14 | .* 15 | .* You should have received a copy of the GNU General Public License 16 | .* along with SATK. If not, see . 17 | 18 | MACRO 19 | &LABEL ZEROLL ®,&BITS 20 | .* This macro sets the low-order bits ending at bit 31 of a 64-bit register to 21 | .* zero. On 32-bit register systems this is equivalent to ZEROL 22 | .* Reguired Parameter Usage: 23 | .* ® The register whose high-order bits are being set to 0 24 | .* &BITS The number of high-order bits being set 25 | GBLA &ARCHLVL Current architecture level 26 | AIF ('®' NE '').REGOK 27 | MNOTE 1,'ZEROLL - FIRST REQUIRED POSITIONAL PARAMETER REG MISSING' 28 | MEXIT 29 | .REGOK ANOP 30 | AIF ('&BITS' NE '').BITSOK 31 | MNOTE 1,'ZEROLL - SECOND REQUIRED POSITIONAL PARAMETER BITS MISSING' 32 | MEXIT 33 | .BITSOK ANOP 34 | AIF ('&LABEL' EQ '').NOLBL 35 | &LABEL DS 0H 36 | .NOLBL ANOP 37 | SRL ®,&BITS 38 | SLL ®,&BITS 39 | MEND 40 | -------------------------------------------------------------------------------- /samples/decklodr/s370/s370.rc: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2012 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | archmode 19 | devlist 20 | t+ 21 | t+0200 22 | ipl 0200 23 | pause 2 24 | r 000.FF 25 | r 100.FF 26 | r 200.FF 27 | r 300.FF 28 | r 400.FF 29 | r 500.FF 30 | r 600.FF 31 | r 2000.FF 32 | r 2100.FF 33 | r 2200.FF 34 | r 2300.FF 35 | -------------------------------------------------------------------------------- /samples/decklodr/s370bc/s370bc.rc: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2012 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | archmode 19 | devlist 20 | t+ 21 | t+0200 22 | ipl 0200 23 | pause 2 24 | r 000.FF 25 | r 100.FF 26 | r 200.FF 27 | r 300.FF 28 | r 400.FF 29 | r 500.FF 30 | r 600.FF 31 | r 2000.FF 32 | r 2100.FF 33 | r 2200.FF 34 | r 2300.FF 35 | -------------------------------------------------------------------------------- /samples/decklodr/s390/s390.rc: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2012 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | archmode 19 | devlist 20 | t+ 21 | t+0200 22 | ipl 0200 23 | pause 2 24 | r 000.FF 25 | r 100.FF 26 | r 200.FF 27 | r 300.FF 28 | r 400.FF 29 | r 500.FF 30 | r 600.FF 31 | r 2000.FF 32 | r 2100.FF 33 | r 2200.FF 34 | r 2300.FF 35 | -------------------------------------------------------------------------------- /samples/decklodr/s390x/s390x.rc: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2012 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | archmode 19 | devlist 20 | t+ 21 | t+0200 22 | ipl 0200 23 | pause 2 24 | r 000.FF 25 | r 100.FF 26 | r 200.FF 27 | r 300.FF 28 | r 400.FF 29 | r 500.FF 30 | r 600.FF 31 | r 2000.FF 32 | r 2100.FF 33 | r 2200.FF 34 | r 2300.FF 35 | -------------------------------------------------------------------------------- /samples/embedded/card/cardmbed.rc: -------------------------------------------------------------------------------- 1 | # Run Command file for a card embedded loader 2 | 3 | # Copyright (C) 2012 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | # IPL Medium 21 | t+ 22 | t+500 23 | iplc 500 24 | pause 2 25 | # Display IPL results 26 | * I/O Interrupt information 27 | #r B0.F 28 | * IPL Record 0 29 | #r 40C0.11F 30 | 31 | -------------------------------------------------------------------------------- /samples/embedded/card/default.rc: -------------------------------------------------------------------------------- 1 | # Run Command file for a card IPL deck 2 | 3 | # Copyright (C) 2012 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | # IPL Medium 21 | t+ 22 | t+500 23 | iplc 500 24 | pause 2 25 | # Display IPL results 26 | * I/O Interrupt information 27 | #r B0.F 28 | * IPL Record 0 29 | #r 40C0.11F 30 | 31 | -------------------------------------------------------------------------------- /samples/embedded/cdrom/cdrommbed.rc: -------------------------------------------------------------------------------- 1 | # Run Command file for IPL CDROM device with embedded loader 2 | 3 | # Copyright (C) 2012 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | # IPL Medium 21 | t+ 22 | iplc /home/harold/SATK/test/cdrom/cdrommbed.ipl 23 | pause 2 24 | # Display IPL results 25 | * I/O Interrupt information 26 | #r B0.F 27 | * IPL Record 0 28 | #r 40C0.11F 29 | 30 | -------------------------------------------------------------------------------- /samples/embedded/cdrom/default.rc: -------------------------------------------------------------------------------- 1 | # Run Command file for CDROM IPL device 2 | 3 | # Copyright (C) 2012 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | # IPL Medium 21 | t+ 22 | iplc /home/harold/SATK/test/cdrom/default.ipl 23 | pause 2 24 | # Display IPL results 25 | * I/O Interrupt information 26 | #r B0.F 27 | * IPL Record 0 28 | #r 40C0.11F 29 | 30 | -------------------------------------------------------------------------------- /samples/embedded/ckd/ckdmbed.rc: -------------------------------------------------------------------------------- 1 | # Run Command file for CKD IPL with embedded loader 2 | 3 | # Copyright (C) 2012 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | # IPL Medium 21 | t+ 22 | t+500 23 | iplc 500 24 | pause 2 25 | -------------------------------------------------------------------------------- /samples/embedded/ckd/default.rc: -------------------------------------------------------------------------------- 1 | # Run Command file for CKD IPL 2 | 3 | # Copyright (C) 2012 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | # IPL Medium 21 | t+ 22 | t+500 23 | iplc 500 24 | pause 2 25 | -------------------------------------------------------------------------------- /samples/embedded/fba/s370/build/.directory: -------------------------------------------------------------------------------- 1 | [Dolphin] 2 | Timestamp=2013,6,17,10,25,23 3 | ViewMode=1 4 | -------------------------------------------------------------------------------- /samples/embedded/fba/s370/build/embed: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/embedded/fba/s370/build/embed -------------------------------------------------------------------------------- /samples/embedded/fba/s370/build/embed.lds: -------------------------------------------------------------------------------- 1 | /* s390 Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf32-s390) 5 | OUTPUT_ARCH(s390:31-bit) 6 | TARGET(elf32-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | TXT0 (rwx) : ORIGIN = 0x400, LENGTH = 0xFFFC00 12 | ELF1 (rwx) : ORIGIN = 0x1094, LENGTH = 0x7FFFEF6C 13 | } 14 | 15 | PHDRS 16 | { 17 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 18 | LODR PT_LOAD FLAGS ( 0xF0000007 ) ; 19 | } 20 | 21 | SECTIONS 22 | { 23 | .lodr : 24 | { 25 | *(.loader) 26 | } >TXT0 :LODR 27 | 28 | .text 0x2094 : 29 | { 30 | . = ALIGN(16) ; 31 | *(.text) 32 | . = ALIGN(16) ; 33 | *(.data) 34 | . = ALIGN(16) ; 35 | PROVIDE(_GOT_begin = .); 36 | *(.got) 37 | PROVIDE(_GOT_end = .); 38 | . = ALIGN(16) ; 39 | *(.shstrtab) 40 | . = ALIGN(16) ; 41 | *(.symtab) 42 | . = ALIGN(16) ; 43 | *(.strtab) 44 | . = ALIGN(16) ; 45 | *(.rela.text) 46 | . = ALIGN(16) ; 47 | *(.bss) 48 | } >ELF1 :TEXT 49 | 50 | /DISCARD/ : 51 | { 52 | *(.rela.loader) 53 | } 54 | 55 | } 56 | 57 | -------------------------------------------------------------------------------- /samples/embedded/fba/s370/build/embed.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/embedded/fba/s370/build/embed.o -------------------------------------------------------------------------------- /samples/embedded/fba/s370/build/embed.s370: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/embedded/fba/s370/build/embed.s370 -------------------------------------------------------------------------------- /samples/embedded/fba/s370/embed.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/embedded/fba/s370/embed.3310 -------------------------------------------------------------------------------- /samples/embedded/fba/s370/s370.rc: -------------------------------------------------------------------------------- 1 | # S/370 FBA Embedded IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 000.FF 26 | r 100.FF 27 | r 200.FF 28 | r 300.FF 29 | r 400.FF 30 | r 500.FF 31 | r 600.FF 32 | r 2000.FF 33 | r 2100.FF 34 | r 2200.FF 35 | r 2300.FF 36 | r 2400.FF 37 | r 2500.FF 38 | r 2600.FF 39 | r 2700.FF 40 | r 2800.FF 41 | -------------------------------------------------------------------------------- /samples/embedded/fba/s370bc/build/embed: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/embedded/fba/s370bc/build/embed -------------------------------------------------------------------------------- /samples/embedded/fba/s370bc/build/embed.lds: -------------------------------------------------------------------------------- 1 | /* s390 Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf32-s390) 5 | OUTPUT_ARCH(s390:31-bit) 6 | TARGET(elf32-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | ELF1 (rwx) : ORIGIN = 0x1094, LENGTH = 0x7FFFEF6C 12 | TXT0 (rwx) : ORIGIN = 0x400, LENGTH = 0xFFFC00 13 | } 14 | 15 | PHDRS 16 | { 17 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 18 | LODR PT_LOAD FLAGS ( 0xF0000007 ) ; 19 | } 20 | 21 | SECTIONS 22 | { 23 | .text 0x2094 : 24 | { 25 | . = ALIGN(16) ; 26 | *(.text) 27 | . = ALIGN(16) ; 28 | *(.data) 29 | . = ALIGN(16) ; 30 | PROVIDE(_GOT_begin = .); 31 | *(.got) 32 | PROVIDE(_GOT_end = .); 33 | . = ALIGN(16) ; 34 | *(.shstrtab) 35 | . = ALIGN(16) ; 36 | *(.symtab) 37 | . = ALIGN(16) ; 38 | *(.strtab) 39 | . = ALIGN(16) ; 40 | *(.rela.text) 41 | . = ALIGN(16) ; 42 | *(.bss) 43 | } >ELF1 :TEXT 44 | 45 | .lodr : 46 | { 47 | *(.loader) 48 | } >TXT0 :LODR 49 | 50 | /DISCARD/ : 51 | { 52 | *(.rela.loader) 53 | } 54 | 55 | } 56 | 57 | -------------------------------------------------------------------------------- /samples/embedded/fba/s370bc/build/embed.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/embedded/fba/s370bc/build/embed.o -------------------------------------------------------------------------------- /samples/embedded/fba/s370bc/build/embed.s370: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/embedded/fba/s370bc/build/embed.s370 -------------------------------------------------------------------------------- /samples/embedded/fba/s370bc/embed.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/embedded/fba/s370bc/embed.3310 -------------------------------------------------------------------------------- /samples/embedded/fba/s370bc/s370bc.rc: -------------------------------------------------------------------------------- 1 | # S/370 Basic Control Mode FBA embedded IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 000.FF 26 | r 100.FF 27 | r 200.FF 28 | r 300.FF 29 | r 400.FF 30 | r 500.FF 31 | r 600.FF 32 | r 2000.FF 33 | r 2100.FF 34 | r 2200.FF 35 | r 2300.FF 36 | r 2400.FF 37 | r 2500.FF 38 | r 2600.FF 39 | r 2700.FF 40 | r 2800.FF 41 | -------------------------------------------------------------------------------- /samples/embedded/fba/s390/build/embed: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/embedded/fba/s390/build/embed -------------------------------------------------------------------------------- /samples/embedded/fba/s390/build/embed.lds: -------------------------------------------------------------------------------- 1 | /* s390 Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf32-s390) 5 | OUTPUT_ARCH(s390:31-bit) 6 | TARGET(elf32-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | TXT0 (rwx) : ORIGIN = 0x400, LENGTH = 0xFFFC00 12 | ELF1 (rwx) : ORIGIN = 0x1094, LENGTH = 0x7FFFEF6C 13 | } 14 | 15 | PHDRS 16 | { 17 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 18 | LODR PT_LOAD FLAGS ( 0xF0000007 ) ; 19 | } 20 | 21 | SECTIONS 22 | { 23 | .lodr : 24 | { 25 | *(.loader) 26 | } >TXT0 :LODR 27 | 28 | .text 0x2094 : 29 | { 30 | . = ALIGN(16) ; 31 | *(.text) 32 | . = ALIGN(16) ; 33 | *(.data) 34 | . = ALIGN(16) ; 35 | PROVIDE(_GOT_begin = .); 36 | *(.got) 37 | PROVIDE(_GOT_end = .); 38 | . = ALIGN(16) ; 39 | *(.shstrtab) 40 | . = ALIGN(16) ; 41 | *(.symtab) 42 | . = ALIGN(16) ; 43 | *(.strtab) 44 | . = ALIGN(16) ; 45 | *(.rela.text) 46 | . = ALIGN(16) ; 47 | *(.bss) 48 | } >ELF1 :TEXT 49 | 50 | /DISCARD/ : 51 | { 52 | *(.rela.loader) 53 | } 54 | 55 | } 56 | 57 | -------------------------------------------------------------------------------- /samples/embedded/fba/s390/build/embed.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/embedded/fba/s390/build/embed.o -------------------------------------------------------------------------------- /samples/embedded/fba/s390/embed.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/embedded/fba/s390/embed.3310 -------------------------------------------------------------------------------- /samples/embedded/fba/s390/s390.rc: -------------------------------------------------------------------------------- 1 | # ESA/390 FBA Embedded Loader IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 000.FF 26 | r 100.FF 27 | r 200.FF 28 | r 300.FF 29 | r 400.FF 30 | r 500.FF 31 | r 600.FF 32 | r 2000.FF 33 | r 2100.FF 34 | r 2200.FF 35 | r 2300.FF 36 | r 2400.FF 37 | r 2500.FF 38 | r 2600.FF 39 | r 2700.FF 40 | r 2800.FF 41 | -------------------------------------------------------------------------------- /samples/embedded/fba/s390x/build/embed: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/embedded/fba/s390x/build/embed -------------------------------------------------------------------------------- /samples/embedded/fba/s390x/build/embed.lds: -------------------------------------------------------------------------------- 1 | /* s390x Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf64-s390) 5 | OUTPUT_ARCH(s390:64-bit) 6 | TARGET(elf64-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | TXT1 (rwx) : ORIGIN = 0x400, LENGTH = 0xE00 12 | ELF2 (rwx) : ORIGIN = 0x20E8, LENGTH = 0xFFFFFFFFFFFFDF18 13 | } 14 | 15 | PHDRS 16 | { 17 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 18 | LODR PT_LOAD FLAGS ( 0xF0000007 ) ; 19 | } 20 | 21 | SECTIONS 22 | { 23 | .lodr : 24 | { 25 | *(.loader) 26 | } >TXT1 :LODR 27 | 28 | .text 0x20E8 : 29 | { 30 | . = ALIGN(16) ; 31 | *(.text) 32 | . = ALIGN(16) ; 33 | *(.data) 34 | . = ALIGN(16) ; 35 | PROVIDE(_GOT_begin = .); 36 | *(.got) 37 | PROVIDE(_GOT_end = .); 38 | . = ALIGN(16) ; 39 | *(.shstrtab) 40 | . = ALIGN(16) ; 41 | *(.symtab) 42 | . = ALIGN(16) ; 43 | *(.strtab) 44 | . = ALIGN(16) ; 45 | *(.rela.text) 46 | . = ALIGN(16) ; 47 | *(.bss) 48 | } >ELF2 :TEXT 49 | 50 | /DISCARD/ : 51 | { 52 | *(.rela.loader) 53 | } 54 | 55 | } 56 | 57 | -------------------------------------------------------------------------------- /samples/embedded/fba/s390x/build/embed.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/embedded/fba/s390x/build/embed.o -------------------------------------------------------------------------------- /samples/embedded/fba/s390x/embed.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/embedded/fba/s390x/embed.3310 -------------------------------------------------------------------------------- /samples/embedded/fba/s390x/s390x.rc: -------------------------------------------------------------------------------- 1 | # z/Architecture FBA embedded loader IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 000.FF 26 | r 100.FF 27 | r 200.FF 28 | r 300.FF 29 | r 400.FF 30 | r 500.FF 31 | r 600.FF 32 | r 2000.FF 33 | r 2100.FF 34 | r 2200.FF 35 | r 2300.FF 36 | r 2400.FF 37 | r 2500.FF 38 | r 2600.FF 39 | r 2700.FF 40 | r 2800.FF 41 | r 2900.FF 42 | r 2A00.FF 43 | -------------------------------------------------------------------------------- /samples/embedded/tape/default.rc: -------------------------------------------------------------------------------- 1 | # Tape IPL 2 | 3 | # Copyright (C) 2012 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | # IPL Medium 21 | t+ 22 | t+500 23 | iplc 500 24 | pause 2 25 | # Display IPL results 26 | * I/O Interrupt information 27 | #r B0.F 28 | * IPL Record 0 29 | #r 40C0.11F 30 | 31 | -------------------------------------------------------------------------------- /samples/embedded/tape/tapembed.rc: -------------------------------------------------------------------------------- 1 | # Tape embedded loader IPL 2 | 3 | # Copyright (C) 2012 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | # IPL Medium 21 | t+ 22 | t+500 23 | iplc 500 24 | pause 2 25 | # Display IPL results 26 | * I/O Interrupt information 27 | #r B0.F 28 | * IPL Record 0 29 | #r 40C0.11F 30 | 31 | -------------------------------------------------------------------------------- /samples/external/fba/s370/build/extrnal: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/external/fba/s370/build/extrnal -------------------------------------------------------------------------------- /samples/external/fba/s370/build/extrnal.lds: -------------------------------------------------------------------------------- 1 | /* s390 Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf32-s390) 5 | OUTPUT_ARCH(s390:31-bit) 6 | TARGET(elf32-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | ELF1 (rwx) : ORIGIN = 0x1054, LENGTH = 0xFFEFAC 12 | } 13 | 14 | PHDRS 15 | { 16 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 17 | } 18 | 19 | SECTIONS 20 | { 21 | .text 0x2054 : 22 | { 23 | . = ALIGN(16) ; 24 | *(.text) 25 | . = ALIGN(16) ; 26 | *(.data) 27 | . = ALIGN(16) ; 28 | PROVIDE(_GOT_begin = .); 29 | *(.got) 30 | PROVIDE(_GOT_end = .); 31 | . = ALIGN(16) ; 32 | *(.shstrtab) 33 | . = ALIGN(16) ; 34 | *(.symtab) 35 | . = ALIGN(16) ; 36 | *(.strtab) 37 | . = ALIGN(16) ; 38 | *(.rela.text) 39 | . = ALIGN(16) ; 40 | *(.bss) 41 | } >ELF1 :TEXT 42 | 43 | } 44 | 45 | -------------------------------------------------------------------------------- /samples/external/fba/s370/build/extrnal.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/external/fba/s370/build/extrnal.o -------------------------------------------------------------------------------- /samples/external/fba/s370/build/extrnal.s370: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/external/fba/s370/build/extrnal.s370 -------------------------------------------------------------------------------- /samples/external/fba/s370/extrnal.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/external/fba/s370/extrnal.3310 -------------------------------------------------------------------------------- /samples/external/fba/s370/s370.rc: -------------------------------------------------------------------------------- 1 | # FBA externally sourced embedded loader IPL 2 | 3 | # Copyright (C) 2012 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 000.FF 26 | r 100.FF 27 | r 200.FF 28 | r 300.FF 29 | r 400.FF 30 | r 500.FF 31 | r 600.FF 32 | r 2000.FF 33 | r 2100.FF 34 | r 2200.FF 35 | r 2300.FF 36 | -------------------------------------------------------------------------------- /samples/external/fba/s370bc/build/extrnal: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/external/fba/s370bc/build/extrnal -------------------------------------------------------------------------------- /samples/external/fba/s370bc/build/extrnal.lds: -------------------------------------------------------------------------------- 1 | /* s390 Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf32-s390) 5 | OUTPUT_ARCH(s390:31-bit) 6 | TARGET(elf32-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | ELF1 (rwx) : ORIGIN = 0x1054, LENGTH = 0xFFEFAC 12 | } 13 | 14 | PHDRS 15 | { 16 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 17 | } 18 | 19 | SECTIONS 20 | { 21 | .text 0x2054 : 22 | { 23 | . = ALIGN(16) ; 24 | *(.text) 25 | . = ALIGN(16) ; 26 | *(.data) 27 | . = ALIGN(16) ; 28 | PROVIDE(_GOT_begin = .); 29 | *(.got) 30 | PROVIDE(_GOT_end = .); 31 | . = ALIGN(16) ; 32 | *(.shstrtab) 33 | . = ALIGN(16) ; 34 | *(.symtab) 35 | . = ALIGN(16) ; 36 | *(.strtab) 37 | . = ALIGN(16) ; 38 | *(.rela.text) 39 | . = ALIGN(16) ; 40 | *(.bss) 41 | } >ELF1 :TEXT 42 | 43 | } 44 | 45 | -------------------------------------------------------------------------------- /samples/external/fba/s370bc/build/extrnal.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/external/fba/s370bc/build/extrnal.o -------------------------------------------------------------------------------- /samples/external/fba/s370bc/build/extrnal.s370: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/external/fba/s370bc/build/extrnal.s370 -------------------------------------------------------------------------------- /samples/external/fba/s370bc/extrnal.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/external/fba/s370bc/extrnal.3310 -------------------------------------------------------------------------------- /samples/external/fba/s370bc/s370bc.rc: -------------------------------------------------------------------------------- 1 | # S/370 Basic-Control Mode FBA external loader IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 000.FF 26 | r 100.FF 27 | r 200.FF 28 | r 300.FF 29 | r 400.FF 30 | r 500.FF 31 | r 600.FF 32 | r 2000.FF 33 | r 2100.FF 34 | r 2200.FF 35 | r 2300.FF 36 | -------------------------------------------------------------------------------- /samples/external/fba/s390/build/extrnal: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/external/fba/s390/build/extrnal -------------------------------------------------------------------------------- /samples/external/fba/s390/build/extrnal.lds: -------------------------------------------------------------------------------- 1 | /* s390 Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf32-s390) 5 | OUTPUT_ARCH(s390:31-bit) 6 | TARGET(elf32-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | ELF1 (rwx) : ORIGIN = 0x1054, LENGTH = 0xFFEFAC 12 | } 13 | 14 | PHDRS 15 | { 16 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 17 | } 18 | 19 | SECTIONS 20 | { 21 | .text 0x2054 : 22 | { 23 | . = ALIGN(16) ; 24 | *(.text) 25 | . = ALIGN(16) ; 26 | *(.data) 27 | . = ALIGN(16) ; 28 | PROVIDE(_GOT_begin = .); 29 | *(.got) 30 | PROVIDE(_GOT_end = .); 31 | . = ALIGN(16) ; 32 | *(.shstrtab) 33 | . = ALIGN(16) ; 34 | *(.symtab) 35 | . = ALIGN(16) ; 36 | *(.strtab) 37 | . = ALIGN(16) ; 38 | *(.rela.text) 39 | . = ALIGN(16) ; 40 | *(.bss) 41 | } >ELF1 :TEXT 42 | 43 | } 44 | 45 | -------------------------------------------------------------------------------- /samples/external/fba/s390/build/extrnal.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/external/fba/s390/build/extrnal.o -------------------------------------------------------------------------------- /samples/external/fba/s390/extrnal.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/external/fba/s390/extrnal.3310 -------------------------------------------------------------------------------- /samples/external/fba/s390/s390.rc: -------------------------------------------------------------------------------- 1 | # ESA/390 FBA external embedded loader IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 000.FF 26 | r 100.FF 27 | r 200.FF 28 | r 300.FF 29 | r 400.FF 30 | r 500.FF 31 | r 600.FF 32 | r 2000.FF 33 | r 2100.FF 34 | r 2200.FF 35 | r 2300.FF 36 | -------------------------------------------------------------------------------- /samples/external/fba/s390x/build/extrnal: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/external/fba/s390x/build/extrnal -------------------------------------------------------------------------------- /samples/external/fba/s390x/build/extrnal.lds: -------------------------------------------------------------------------------- 1 | /* s390x Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf64-s390) 5 | OUTPUT_ARCH(s390:64-bit) 6 | TARGET(elf64-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | ELF2 (rwx) : ORIGIN = 0x2078, LENGTH = 0xFFDF88 12 | } 13 | 14 | PHDRS 15 | { 16 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 17 | } 18 | 19 | SECTIONS 20 | { 21 | .text 0x2078 : 22 | { 23 | . = ALIGN(16) ; 24 | *(.text) 25 | . = ALIGN(16) ; 26 | *(.data) 27 | . = ALIGN(16) ; 28 | PROVIDE(_GOT_begin = .); 29 | *(.got) 30 | PROVIDE(_GOT_end = .); 31 | . = ALIGN(16) ; 32 | *(.shstrtab) 33 | . = ALIGN(16) ; 34 | *(.symtab) 35 | . = ALIGN(16) ; 36 | *(.strtab) 37 | . = ALIGN(16) ; 38 | *(.rela.text) 39 | . = ALIGN(16) ; 40 | *(.bss) 41 | } >ELF2 :TEXT 42 | 43 | } 44 | 45 | -------------------------------------------------------------------------------- /samples/external/fba/s390x/build/extrnal.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/external/fba/s390x/build/extrnal.o -------------------------------------------------------------------------------- /samples/external/fba/s390x/extrnal.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/external/fba/s390x/extrnal.3310 -------------------------------------------------------------------------------- /samples/external/fba/s390x/s390x.rc: -------------------------------------------------------------------------------- 1 | # z/Architecture FBA embedded loader IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 000.FF 26 | r 100.FF 27 | r 200.FF 28 | r 300.FF 29 | r 400.FF 30 | r 500.FF 31 | r 600.FF 32 | r 2000.FF 33 | r 2100.FF 34 | r 2200.FF 35 | r 2300.FF 36 | -------------------------------------------------------------------------------- /samples/guide/pgm1/asm: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm1 directory 20 | # Just type ./asm in the guide program directory. 21 | 22 | # Assemble the sample program into a list-directed IPL directory with 23 | # a listing. 24 | 25 | datetime() 26 | { 27 | sfx=$(date +%Y%m%d.%H%M%S) 28 | } 29 | datetime # set $sfx (the date and time of the run) for later use 30 | 31 | # Change this variable for your environment 32 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 33 | 34 | # This variable is for the author's use. Just leave it alone 35 | #REPO=${HOME}/SATKCLONE 36 | 37 | # ASMA related script variables 38 | ASMA=${REPO}/tools/asma.py # The ASMA tool 39 | GUIDE=${REPO}/samples/guide/pgm1 # Guide dir being used. Output goes here 40 | 41 | # Assemble the program 42 | ${ASMA} -t s370 -d --stats -g ldipl/pgm1.txt -l asma-$sfx.txt pgm1.asm 43 | -------------------------------------------------------------------------------- /samples/guide/pgm1/ipl: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm1 directory 20 | # Just type ./ipl in the guide program directory. 21 | 22 | # IPL the sample program in Hercules. 23 | 24 | datetime() 25 | { 26 | sfx=$(date +%Y%m%d.%H%M%S) 27 | } 28 | datetime # set $sfx (the date and time of the run) for later use 29 | 30 | # Change this variable for your environment 31 | HERCULES=${HOME}/hyperioni/bin/hercules # Hercules location directory 32 | 33 | export HERCULES_RC=pgm1.rc 34 | ${HERCULES} -v -f pgm1.conf >> log-${sfx}.txt 35 | -------------------------------------------------------------------------------- /samples/guide/pgm1/ldipl/IPLPGM1.bin: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm1/ldipl/IPLPGM1.bin -------------------------------------------------------------------------------- /samples/guide/pgm1/ldipl/IPLPSW.bin: -------------------------------------------------------------------------------- 1 |  -------------------------------------------------------------------------------- /samples/guide/pgm1/ldipl/pgm1.txt: -------------------------------------------------------------------------------- 1 | IPLPSW.bin 0x0 2 | IPLPGM1.bin 0x300 3 | -------------------------------------------------------------------------------- /samples/guide/pgm1/pgm1.conf: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # Hercules sample configuration file for pgm1.asm 19 | ARCHMODE S/370 # S/370 targeted by pgm1.asm 20 | MAINSIZE 16K # Sample starts at X'300' 21 | NUMCPU 1 22 | DIAG8CMD enable # Allow use of DIAG X'008' 23 | 24 | # Console Device 25 | 000F 3215-C / # Required by mainframe systems 26 | 27 | -------------------------------------------------------------------------------- /samples/guide/pgm1/pgm1.rc: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # This file is intended for use with Hercules Hyperion 19 | # Comment this statement if you do not want to trace 20 | t+ 21 | # Perform the list-directed IPL 22 | ipl ldipl/pgm1.txt 23 | -------------------------------------------------------------------------------- /samples/guide/pgm2/ipl: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm1 directory 20 | # Just type ./ipl in the guide program directory. 21 | 22 | # IPL the sample program in Hercules. 23 | 24 | datetime() 25 | { 26 | sfx=$(date +%Y%m%d.%H%M%S) 27 | } 28 | datetime # set $sfx (the date and time of the run) for later use 29 | 30 | # Change this variable for your environment 31 | HERCULES=${HOME}/hyperioni/bin/hercules # Hercules location directory 32 | 33 | export HERCULES_RC=pgm2.rc 34 | ${HERCULES} -v -f pgm2.conf >> log-${sfx}.txt 35 | -------------------------------------------------------------------------------- /samples/guide/pgm2/ldipl/IPLPGM1.bin: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm2/ldipl/IPLPGM1.bin -------------------------------------------------------------------------------- /samples/guide/pgm2/ldipl/IPLPSW.bin: -------------------------------------------------------------------------------- 1 |  -------------------------------------------------------------------------------- /samples/guide/pgm2/ldipl/pgm1.txt: -------------------------------------------------------------------------------- 1 | IPLPSW.bin 0x0 2 | IPLPGM1.bin 0x300 3 | -------------------------------------------------------------------------------- /samples/guide/pgm2/med: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm2 directory 20 | # Just type ./med in the guide program directory. 21 | 22 | datetime() 23 | { 24 | sfx=$(date +%Y%m%d.%H%M%S) 25 | } 26 | datetime # set $sfx (the date and time of the run) for later use 27 | 28 | # Change this variable for your environment 29 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 30 | 31 | # This variable is for the author's use. Just leave it alone 32 | #REPO=${HOME}/SATKCLONE 33 | 34 | # IPLASMA related script variables 35 | IPLASMA=${REPO}/tools/iplasma.py # The IPL medium creation tool 36 | GUIDE=${REPO}/samples/guide/pgm2 # Guide dir being used. Output goes here 37 | 38 | # Create the IPL medium 39 | ${IPLASMA} -v -f ld -m pgm2.3310 --records ldipl/pgm1.txt >> iplasma-${sfx}.txt 40 | 41 | -------------------------------------------------------------------------------- /samples/guide/pgm2/pgm2.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm2/pgm2.3310 -------------------------------------------------------------------------------- /samples/guide/pgm2/pgm2.conf: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # Hercules sample configuration file for pgm2.asm 19 | ARCHMODE S/370 # S/370 targeted by pgm2.asm 20 | MAINSIZE 16K # Sample starts at X'300' 21 | NUMCPU 1 22 | DIAG8CMD enable # Allow use of DIAG X'008' 23 | 24 | # Devices 25 | 000F 3215-C / # Console required by mainframe systems 26 | 0110 3310 pgm2.3310 # FBA IPL disk 27 | -------------------------------------------------------------------------------- /samples/guide/pgm2/pgm2.rc: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # This file is intended for use with Hercules Hyperion 19 | # Comment this statement if you do not want to trace 20 | t+ 21 | # Perform the FBA based IPL 22 | ipl 110 23 | -------------------------------------------------------------------------------- /samples/guide/pgm3/asm: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm1 directory 20 | # Just type ./asm in the guide program directory. 21 | 22 | # Assemble the sample program into a list-directed IPL directory with 23 | # a listing. 24 | 25 | datetime() 26 | { 27 | sfx=$(date +%Y%m%d.%H%M%S) 28 | } 29 | datetime # set $sfx (the date and time of the run) for later use 30 | 31 | # Change this variable for your environment 32 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 33 | 34 | # This variable is for the author's use. Just leave it alone 35 | #REPO=${HOME}/SATKCLONE 36 | 37 | # ASMA related script variables 38 | ASMA=${REPO}/tools/asma.py # The ASMA tool 39 | GUIDE=${REPO}/samples/guide/pgm3 # Guide dir being used. Output goes here 40 | 41 | # Assemble the program 42 | export MACLIB=${REPO}/maclib # Access SATK supplied macros 43 | ${ASMA} -t s370 -d --stats -g ldipl/pgm3.txt -l asma-$sfx.txt pgm3.asm 44 | -------------------------------------------------------------------------------- /samples/guide/pgm3/ipl: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm1 directory 20 | # Just type ./ipl in the guide program directory. 21 | 22 | # IPL the sample program in Hercules. 23 | 24 | datetime() 25 | { 26 | sfx=$(date +%Y%m%d.%H%M%S) 27 | } 28 | datetime # set $sfx (the date and time of the run) for later use 29 | 30 | # Change this variable for your environment 31 | HERCULES=${HOME}/hyperioni/bin/hercules # Hercules location directory 32 | 33 | export HERCULES_RC=pgm3.rc 34 | ${HERCULES} -v -f pgm3.conf >> log-${sfx}.txt 35 | -------------------------------------------------------------------------------- /samples/guide/pgm3/ldipl/ASAREGN.bin: -------------------------------------------------------------------------------- 1 |  2 |  3 | 4 | ( 5 | 0 6 | 8 -------------------------------------------------------------------------------- /samples/guide/pgm3/ldipl/IPLPGM3.bin: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm3/ldipl/IPLPGM3.bin -------------------------------------------------------------------------------- /samples/guide/pgm3/ldipl/pgm3.txt: -------------------------------------------------------------------------------- 1 | ASAREGN.bin 0x0 2 | IPLPGM3.bin 0x300 3 | -------------------------------------------------------------------------------- /samples/guide/pgm3/med: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm2 directory 20 | # Just type ./med in the guide program directory. 21 | 22 | datetime() 23 | { 24 | sfx=$(date +%Y%m%d.%H%M%S) 25 | } 26 | datetime # set $sfx (the date and time of the run) for later use 27 | 28 | # Change this variable for your environment 29 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 30 | 31 | # This variable is for the author's use. Just leave it alone 32 | #REPO=${HOME}/SATKCLONE 33 | 34 | # IPLASMA related script variables 35 | IPLASMA=${REPO}/tools/iplasma.py # The IPL medium creation tool 36 | GUIDE=${REPO}/samples/guide/pgm3 # Guide dir being used. Output goes here 37 | 38 | # Create the IPL medium 39 | ${IPLASMA} -v -f ld -m pgm3.3310 --records --asa=ASAREGN.bin \ 40 | ldipl/pgm3.txt >> iplasma-${sfx}.txt 41 | -------------------------------------------------------------------------------- /samples/guide/pgm3/pgm3.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm3/pgm3.3310 -------------------------------------------------------------------------------- /samples/guide/pgm3/pgm3.conf: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version.quit 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # Hercules sample configuration file for pgm3.asm 19 | ARCHMODE S/370 # S/370 targeted by pgm3.asm 20 | MAINSIZE 16K # Sample starts at X'300' 21 | NUMCPU 1 22 | DIAG8CMD enable # Allow use of DIAG X'008' 23 | 24 | # Devices 25 | 000F 3215-C / # Console required by mainframe systems 26 | 0110 3310 pgm3.3310 # FBA IPL disk 27 | -------------------------------------------------------------------------------- /samples/guide/pgm3/pgm3.rc: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # This file is intended for use with Hercules Hyperion 19 | # Comment either or both statements if you do not want to trace 20 | t+ 21 | t+00F 22 | # Perform the FBA based IPL 23 | ipl 110 24 | -------------------------------------------------------------------------------- /samples/guide/pgm4/asm: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm1 directory 20 | # Just type ./asm in the guide program directory. 21 | 22 | # Assemble the sample program into a list-directed IPL directory with 23 | # a listing. 24 | 25 | datetime() 26 | { 27 | sfx=$(date +%Y%m%d.%H%M%S) 28 | } 29 | datetime # set $sfx (the date and time of the run) for later use 30 | 31 | # Change this variable for your environment 32 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 33 | 34 | # This variable is for the author's use. Just leave it alone 35 | #REPO=${HOME}/SATKCLONE 36 | 37 | # ASMA related script variables 38 | ASMA=${REPO}/tools/asma.py # The ASMA tool 39 | GUIDE=${REPO}/samples/guide/pgm4 # Guide dir being used. Output goes here 40 | 41 | # Assemble the program 42 | export MACLIB=${REPO}/maclib # Access SATK supplied macros 43 | ${ASMA} -t s370 -d --stats -g ldipl/pgm4.txt -l asma-$sfx.txt pgm4.asm 44 | -------------------------------------------------------------------------------- /samples/guide/pgm4/basm: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm1 directory 20 | # Just type ./basm in the guide program directory. 21 | 22 | # Assemble the sample program's boot loader into a list-directed IPL directory 23 | # with a listing. 24 | 25 | datetime() 26 | { 27 | sfx=$(date +%Y%m%d.%H%M%S) 28 | } 29 | datetime # set $sfx (the date and time of the run) for later use 30 | 31 | # Change this variable for your environment 32 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 33 | 34 | # This variable is for the author's use. Just leave it alone 35 | #REPO=${HOME}/SATKCLONE 36 | 37 | # ASMA related script variables 38 | ASMA=${REPO}/tools/asma.py # The ASMA tool 39 | GUIDE=${REPO}/samples/guide/pgm4 # Guide dir being used. Output goes here 40 | 41 | # Assemble the program 42 | export MACLIB=${REPO}/maclib # Access SATK supplied macros 43 | ${ASMA} -t s370 -d --stats -g boot/boot4.txt -l basma-$sfx.txt boot4.asm 44 | -------------------------------------------------------------------------------- /samples/guide/pgm4/boot/ASAREGN.bin: -------------------------------------------------------------------------------- 1 |  2 |  3 | 4 | ( 5 | 0 6 | 8 -------------------------------------------------------------------------------- /samples/guide/pgm4/boot/BOOT4.bin: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm4/boot/BOOT4.bin -------------------------------------------------------------------------------- /samples/guide/pgm4/boot/boot4.txt: -------------------------------------------------------------------------------- 1 | ASAREGN.bin 0x0 2 | BOOT4.bin 0x400 3 | -------------------------------------------------------------------------------- /samples/guide/pgm4/ipl: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm1 directory 20 | # Just type ./ipl in the guide program directory. 21 | 22 | # IPL the sample program in Hercules. 23 | 24 | datetime() 25 | { 26 | sfx=$(date +%Y%m%d.%H%M%S) 27 | } 28 | datetime # set $sfx (the date and time of the run) for later use 29 | 30 | # Change this variable for your environment 31 | HERCULES=${HOME}/hyperioni/bin/hercules # Hercules location directory 32 | 33 | export HERCULES_RC=pgm4.rc 34 | ${HERCULES} -v -f pgm4.conf >> log-${sfx}.txt 35 | -------------------------------------------------------------------------------- /samples/guide/pgm4/ldipl/ASAREGN.bin: -------------------------------------------------------------------------------- 1 |  2 |  3 | 4 | ( 5 | 0 6 | 8 -------------------------------------------------------------------------------- /samples/guide/pgm4/ldipl/BOOTED4.bin: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm4/ldipl/BOOTED4.bin -------------------------------------------------------------------------------- /samples/guide/pgm4/ldipl/pgm4.txt: -------------------------------------------------------------------------------- 1 | ASAREGN.bin 0x0 2 | BOOTED4.bin 0x2000 3 | -------------------------------------------------------------------------------- /samples/guide/pgm4/med: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm2 directory 20 | # Just type ./med in the guide program directory. 21 | 22 | datetime() 23 | { 24 | sfx=$(date +%Y%m%d.%H%M%S) 25 | } 26 | datetime # set $sfx (the date and time of the run) for later use 27 | 28 | # Change this variable for your environment 29 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 30 | 31 | # This variable is for the author's use. Just leave it alone 32 | #REPO=${HOME}/SATKCLONE 33 | 34 | # IPLASMA related script variables 35 | IPLASMA=${REPO}/tools/iplasma.py # The IPL medium creation tool 36 | #GUIDE=${REPO}/samples/guide/pgm4 # Guide dir being used. Output goes here 37 | 38 | # Create the IPL medium 39 | ${IPLASMA} -v -f ld -m pgm4.3310 --records --asa=ASAREGN.bin --volser=PGM4 \ 40 | --boot boot/boot4.txt --lasa=ASAREGN.bin --recl 512 \ 41 | ldipl/pgm4.txt 2>&1 |tee iplasma-${sfx}.txt 42 | -------------------------------------------------------------------------------- /samples/guide/pgm4/pgm4.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm4/pgm4.3310 -------------------------------------------------------------------------------- /samples/guide/pgm4/pgm4.conf: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version.quit 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # Hercules sample configuration file for pgm4.asm 19 | ARCHMODE S/370 # S/370 targeted by pgm4.asm 20 | MAINSIZE 64K # Sample starts at X'2000' 21 | NUMCPU 1 22 | # DIAG8CMD enable # Allow use of DIAG X'008' 23 | 24 | # Devices 25 | 000F 3215-C / # Console required by mainframe systems 26 | 0110 3310 pgm4.3310 # FBA IPL disk 27 | -------------------------------------------------------------------------------- /samples/guide/pgm4/pgm4.rc: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # This file is intended for use with Hercules Hyperion 19 | # Comment any of the tracing statements if you do not want the trace 20 | t+ 21 | t+00F 22 | t+110 23 | # Perform the FBA based boot loading and execution of the "Hello World" program 24 | ipl 110 25 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s360/ipl: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm5/s360 directory 20 | # Just type ./ipl in the guide program directory. 21 | 22 | # IPL the sample program in Hercules. 23 | 24 | datetime() 25 | { 26 | sfx=$(date +%Y%m%d.%H%M%S) 27 | } 28 | datetime # set $sfx (the date and time of the run) for later use 29 | 30 | # Change this variable for your environment 31 | HERCULES=${HOME}/hyperioni/bin/hercules # Hercules location directory 32 | 33 | export HERCULES_RC=pgm5.rc 34 | ${HERCULES} -v -f pgm5.conf >> log-${sfx}.txt 35 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s360/ldipl/ASAREGN.bin: -------------------------------------------------------------------------------- 1 |  (08 -------------------------------------------------------------------------------- /samples/guide/pgm5/s360/ldipl/BOOTED5.bin: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm5/s360/ldipl/BOOTED5.bin -------------------------------------------------------------------------------- /samples/guide/pgm5/s360/ldipl/pgm5.txt: -------------------------------------------------------------------------------- 1 | ASAREGN.bin 0x0 2 | BOOTED5.bin 0x2000 3 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s360/med: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm5/s360 directory 20 | # Just type ./med to recreate the IPL medium. 21 | 22 | datetime() 23 | { 24 | sfx=$(date +%Y%m%d.%H%M%S) 25 | } 26 | datetime # set $sfx (the date and time of the run) for later use 27 | 28 | # Change this variable for your environment 29 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 30 | 31 | # This variable is for the author's use. Just leave it alone 32 | #REPO=${HOME}/SATKCLONE 33 | 34 | # IPLASMA related script variables 35 | IPLASMA=${REPO}/tools/iplasma.py # The IPL medium creation tool 36 | LOADER=${REPO}/loaders/fba/s360/boot # Location of the boot loader 37 | # ${REPO}/samples/guide/pgm5/s360 # Guide dir being used. Output goes here. 38 | 39 | # Create the IPL medium 40 | ${IPLASMA} -v -f ld -m pgm5.3310 --records --asa=ASAREGN.bin --volser=PGM5 \ 41 | --boot ${LOADER}/fbalodr.txt --lasa=ASAREGN.bin --recl 512 \ 42 | ldipl/pgm5.txt 2>&1 |tee iplasma-${sfx}.txt 43 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s360/pgm5.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm5/s360/pgm5.3310 -------------------------------------------------------------------------------- /samples/guide/pgm5/s360/pgm5.conf: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version.quit 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # Hercules sample configuration file for pgm5.asm (targeting S/360) 19 | ARCHMODE S/370 # S/370 targeted by pgm5.asm (in BC-mode) 20 | # Hercules does not support S/360, but it does support S/370 in BC-mode 21 | MAINSIZE 64K # Boot loader starts at X'400', 64K minimum mainsize 22 | NUMCPU 1 23 | # DIAG8CMD enable # Allow use of DIAG X'008' 24 | 25 | # Devices 26 | 000F 3215-C / # Console required by mainframe systems 27 | 0110 3310 pgm5.3310 # FBA IPL disk 28 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s360/pgm5.rc: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # This file is intended for use with Hercules Hyperion 19 | # Comment either or both statements if you do not want to trace 20 | # t+ 21 | t+00F 22 | t+110 23 | # Perform the FBA based IPL 24 | ipl 110 25 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s370/ipl: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm5/s370 directory 20 | # Just type ./ipl in the guide program directory. 21 | 22 | # IPL the sample program in Hercules. 23 | 24 | datetime() 25 | { 26 | sfx=$(date +%Y%m%d.%H%M%S) 27 | } 28 | datetime # set $sfx (the date and time of the run) for later use 29 | 30 | # Change this variable for your environment 31 | HERCULES=${HOME}/hyperioni/bin/hercules # Hercules location directory 32 | 33 | export HERCULES_RC=pgm5.rc 34 | ${HERCULES} -v -f pgm5.conf >> log-${sfx}.txt 35 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s370/ldipl/ASAREGN.bin: -------------------------------------------------------------------------------- 1 |  2 |  3 | 4 | ( 5 | 0 6 | 8 -------------------------------------------------------------------------------- /samples/guide/pgm5/s370/ldipl/BOOTED5.bin: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm5/s370/ldipl/BOOTED5.bin -------------------------------------------------------------------------------- /samples/guide/pgm5/s370/ldipl/pgm5.txt: -------------------------------------------------------------------------------- 1 | ASAREGN.bin 0x0 2 | BOOTED5.bin 0x2000 3 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s370/med: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm5/s370 directory 20 | # Just type ./med to recreate the IPL medium. 21 | 22 | datetime() 23 | { 24 | sfx=$(date +%Y%m%d.%H%M%S) 25 | } 26 | datetime # set $sfx (the date and time of the run) for later use 27 | 28 | # Change this variable for your environment 29 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 30 | 31 | # This variable is for the author's use. Just leave it alone 32 | #REPO=${HOME}/SATKCLONE 33 | 34 | # IPLASMA related script variables 35 | IPLASMA=${REPO}/tools/iplasma.py # The IPL medium creation tool 36 | LOADER=${REPO}/loaders/fba/s370/boot # Location of the boot loader 37 | # ${REPO}/samples/guide/pgm5/s370 # Guide dir being used. Output goes here. 38 | 39 | # Create the IPL medium 40 | ${IPLASMA} -v -f ld -m pgm5.3310 --records --asa=ASAREGN.bin --volser=PGM5 \ 41 | --boot ${LOADER}/fbalodr.txt --lasa=ASAREGN.bin --recl 512 \ 42 | ldipl/pgm5.txt 2>&1 |tee iplasma-${sfx}.txt 43 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s370/pgm5.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm5/s370/pgm5.3310 -------------------------------------------------------------------------------- /samples/guide/pgm5/s370/pgm5.conf: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version.quit 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # Hercules sample configuration file for pgm5.asm (targeting S/370) 19 | ARCHMODE S/370 # S/370 targeted by pgm5.asm (in EC-mode) 20 | MAINSIZE 64K # Boot loader starts at X'400', 64K minimum mainsize 21 | NUMCPU 1 22 | # DIAG8CMD enable # Allow use of DIAG X'008' 23 | 24 | # Devices 25 | 000F 3215-C / # Console required by mainframe systems 26 | 0110 3310 pgm5.3310 # FBA IPL disk 27 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s370/pgm5.rc: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # This file is intended for use with Hercules Hyperion 19 | # Comment either or both statements if you do not want to trace 20 | # t+ 21 | t+00F 22 | t+110 23 | # Perform the FBA based IPL 24 | ipl 110 25 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s390/ipl: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm5/s390 directory 20 | # Just type ./ipl in the guide program directory. 21 | 22 | # IPL the sample program in Hercules. 23 | 24 | datetime() 25 | { 26 | sfx=$(date +%Y%m%d.%H%M%S) 27 | } 28 | datetime # set $sfx (the date and time of the run) for later use 29 | 30 | # Change this variable for your environment 31 | HERCULES=${HOME}/hyperioni/bin/hercules # Hercules location directory 32 | 33 | export HERCULES_RC=pgm5.rc 34 | ${HERCULES} -v -f pgm5.conf >> log-${sfx}.txt 35 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s390/ldipl/ASAREGN.bin: -------------------------------------------------------------------------------- 1 |  2 |  3 | 4 | ( 5 | 0 6 | 8 0@P`p -------------------------------------------------------------------------------- /samples/guide/pgm5/s390/ldipl/BOOTED5.bin: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm5/s390/ldipl/BOOTED5.bin -------------------------------------------------------------------------------- /samples/guide/pgm5/s390/ldipl/pgm5.txt: -------------------------------------------------------------------------------- 1 | ASAREGN.bin 0x0 2 | BOOTED5.bin 0x2000 3 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s390/med: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm5/s390 directory 20 | # Just type ./med to recreate the IPL medium. 21 | 22 | datetime() 23 | { 24 | sfx=$(date +%Y%m%d.%H%M%S) 25 | } 26 | datetime # set $sfx (the date and time of the run) for later use 27 | 28 | # Change this variable for your environment 29 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 30 | 31 | # This variable is for the author's use. Just leave it alone 32 | #REPO=${HOME}/SATKCLONE 33 | 34 | # IPLASMA related script variables 35 | IPLASMA=${REPO}/tools/iplasma.py # The IPL medium creation tool 36 | LOADER=${REPO}/loaders/fba/s390/boot # Location of the boot loader 37 | # ${REPO}/samples/guide/pgm5/s390 # Guide dir being used. Output goes here. 38 | 39 | # Create the IPL medium 40 | ${IPLASMA} -v -f ld -m pgm5.3310 --records --asa=ASAREGN.bin --volser=PGM5 \ 41 | --boot ${LOADER}/fbalodr.txt --lasa=ASAREGN.bin --recl 512 \ 42 | ldipl/pgm5.txt 2>&1 |tee iplasma-${sfx}.txt 43 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s390/pgm5.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm5/s390/pgm5.3310 -------------------------------------------------------------------------------- /samples/guide/pgm5/s390/pgm5.conf: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version.quit 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # Hercules sample configuration file for pgm5.asm (targeting ESA/390) 19 | ARCHMODE ESA/390 # ESA/390 targeted by pgm5.asm 20 | MAINSIZE 2M # Boot loader starts at X'400', 2M minimum mainsize 21 | NUMCPU 1 22 | # DIAG8CMD enable # Allow use of DIAG X'008' 23 | 24 | # Devices 25 | 000F 3215-C / # Console required by mainframe systems 26 | 0110 3310 pgm5.3310 # FBA IPL disk 27 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s390/pgm5.rc: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # This file is intended for use with Hercules Hyperion 19 | # Comment either or both statements if you do not want to trace 20 | # t+ 21 | t+00F 22 | t+110 23 | # Perform the FBA based IPL 24 | ipl 110 25 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s390x/ipl: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm5/s390x directory 20 | # Just type ./ipl in the guide program directory. 21 | 22 | # IPL the sample program in Hercules. 23 | 24 | datetime() 25 | { 26 | sfx=$(date +%Y%m%d.%H%M%S) 27 | } 28 | datetime # set $sfx (the date and time of the run) for later use 29 | 30 | # Change this variable for your environment 31 | HERCULES=${HOME}/hyperioni/bin/hercules # Hercules location directory 32 | 33 | export HERCULES_RC=pgm5.rc 34 | ${HERCULES} -v -f pgm5.conf >> log-${sfx}.txt 35 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s390x/ldipl/ASAREGN.bin: -------------------------------------------------------------------------------- 1 |  2 |  3 | 4 | ( 5 | 0 6 | 8 0@P`p -------------------------------------------------------------------------------- /samples/guide/pgm5/s390x/ldipl/pgm5.txt: -------------------------------------------------------------------------------- 1 | ASAREGN.bin 0x0 2 | BOOTED5.bin 0x2000 3 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s390x/med: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script MUST be executed from SATK's samples/guide/pgm5/s390 directory 20 | # Just type ./med to recreate the IPL medium. 21 | 22 | datetime() 23 | { 24 | sfx=$(date +%Y%m%d.%H%M%S) 25 | } 26 | datetime # set $sfx (the date and time of the run) for later use 27 | 28 | # Change this variable for your environment 29 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 30 | 31 | # This variable is for the author's use. Just leave it alone 32 | #REPO=${HOME}/SATKCLONE 33 | 34 | # IPLASMA related script variables 35 | IPLASMA=${REPO}/tools/iplasma.py # The IPL medium creation tool 36 | LOADER=${REPO}/loaders/fba/s390x/boot # Location of the boot loader 37 | # ${REPO}/samples/guide/pgm5/s390x # Guide dir being used. Output goes here. 38 | 39 | # Create the IPL medium 40 | ${IPLASMA} -v -f ld -m pgm5.3310 --records --asa=ASAREGN.bin --volser=PGM5 \ 41 | --boot ${LOADER}/fbalodr.txt --lasa=ASAREGN.bin --recl 512 \ 42 | ldipl/pgm5.txt 2>&1 |tee iplasma-${sfx}.txt 43 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s390x/pgm5.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/guide/pgm5/s390x/pgm5.3310 -------------------------------------------------------------------------------- /samples/guide/pgm5/s390x/pgm5.conf: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version.quit 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # NOTICES: z/Architecture is a registered trademark of International Business 19 | # Machines Corporation. 20 | 21 | # Hercules sample configuration file for pgm5.asm (targeting z/Architecture(R)) 22 | ARCHMODE z/Arch # z/Architecture targeted by pgm5.asm 23 | MAINSIZE 2M # Boot loader starts at X'400', 2M minimum mainsize 24 | NUMCPU 1 25 | # DIAG8CMD enable # Allow use of DIAG X'008' 26 | 27 | # Devices 28 | 000F 3215-C / # Console required by mainframe systems 29 | 0110 3310 pgm5.3310 # FBA IPL disk 30 | -------------------------------------------------------------------------------- /samples/guide/pgm5/s390x/pgm5.rc: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # This file is intended for use with Hercules Hyperion 19 | # Comment either or both statements if you do not want to trace 20 | # t+ 21 | t+00F 22 | t+110 23 | # Perform the FBA based IPL 24 | ipl 110 25 | -------------------------------------------------------------------------------- /samples/ihandlers/s370/s370.rc: -------------------------------------------------------------------------------- 1 | # S/370 ih test with FBA IPL device 2 | 3 | # Copyright (C) 2012 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | ipl 0200 23 | pause 1 24 | -------------------------------------------------------------------------------- /samples/ihandlers/s370bc/s370bc.rc: -------------------------------------------------------------------------------- 1 | # S/370 Basic Control Mode FBA IPL 2 | 3 | # Copyright (C) 2012 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | ipl 0200 23 | pause 1 24 | -------------------------------------------------------------------------------- /samples/ihandlers/s390/s390.rc: -------------------------------------------------------------------------------- 1 | # ESA/390 ih FBA IPL 2 | 3 | # Copyright (C) 2012 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | ipl 0200 23 | pause 1 24 | -------------------------------------------------------------------------------- /samples/ihandlers/s390x/s390x.rc: -------------------------------------------------------------------------------- 1 | # z/Architecture ih sample FBA IPL 2 | 3 | # Copyright (C) 2012 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | ipl 0200 23 | pause 1 24 | -------------------------------------------------------------------------------- /samples/iplelf/fba/s370/build/iplelf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/iplelf/fba/s370/build/iplelf -------------------------------------------------------------------------------- /samples/iplelf/fba/s370/build/iplelf.lds: -------------------------------------------------------------------------------- 1 | /* s390 Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf32-s390) 5 | OUTPUT_ARCH(s390:31-bit) 6 | TARGET(elf32-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | ELF1 (rwx) : ORIGIN = 0x1054, LENGTH = 0xFFEFAC 12 | } 13 | 14 | PHDRS 15 | { 16 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 17 | } 18 | 19 | SECTIONS 20 | { 21 | .text 0x2054 : 22 | { 23 | . = ALIGN(16) ; 24 | *(.text) 25 | . = ALIGN(16) ; 26 | *(.data) 27 | . = ALIGN(16) ; 28 | PROVIDE(_GOT_begin = .); 29 | *(.got) 30 | PROVIDE(_GOT_end = .); 31 | . = ALIGN(16) ; 32 | *(.shstrtab) 33 | . = ALIGN(16) ; 34 | *(.symtab) 35 | . = ALIGN(16) ; 36 | *(.strtab) 37 | . = ALIGN(16) ; 38 | *(.rela.text) 39 | . = ALIGN(16) ; 40 | *(.bss) 41 | } >ELF1 :TEXT 42 | 43 | } 44 | 45 | -------------------------------------------------------------------------------- /samples/iplelf/fba/s370/build/iplelf.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/iplelf/fba/s370/build/iplelf.o -------------------------------------------------------------------------------- /samples/iplelf/fba/s370/build/iplelf.s370: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/iplelf/fba/s370/build/iplelf.s370 -------------------------------------------------------------------------------- /samples/iplelf/fba/s370/iplelf.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/iplelf/fba/s370/iplelf.3310 -------------------------------------------------------------------------------- /samples/iplelf/fba/s370/s370.rc: -------------------------------------------------------------------------------- 1 | # S/370 EC-mode FBA IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 000.FF 26 | r 100.FF 27 | r 200.FF 28 | r 300.FF 29 | r 400.FF 30 | r 500.FF 31 | r 600.FF 32 | r 2000.FF 33 | r 2100.FF 34 | r 2200.FF 35 | r 2300.FF 36 | r 2400.FF 37 | r 2500.FF 38 | -------------------------------------------------------------------------------- /samples/iplelf/fba/s370bc/build/iplelf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/iplelf/fba/s370bc/build/iplelf -------------------------------------------------------------------------------- /samples/iplelf/fba/s370bc/build/iplelf.lds: -------------------------------------------------------------------------------- 1 | /* s390 Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf32-s390) 5 | OUTPUT_ARCH(s390:31-bit) 6 | TARGET(elf32-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | ELF1 (rwx) : ORIGIN = 0x1054, LENGTH = 0xFFEFAC 12 | } 13 | 14 | PHDRS 15 | { 16 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 17 | } 18 | 19 | SECTIONS 20 | { 21 | .text 0x2054 : 22 | { 23 | . = ALIGN(16) ; 24 | *(.text) 25 | . = ALIGN(16) ; 26 | *(.data) 27 | . = ALIGN(16) ; 28 | PROVIDE(_GOT_begin = .); 29 | *(.got) 30 | PROVIDE(_GOT_end = .); 31 | . = ALIGN(16) ; 32 | *(.shstrtab) 33 | . = ALIGN(16) ; 34 | *(.symtab) 35 | . = ALIGN(16) ; 36 | *(.strtab) 37 | . = ALIGN(16) ; 38 | *(.rela.text) 39 | . = ALIGN(16) ; 40 | *(.bss) 41 | } >ELF1 :TEXT 42 | 43 | } 44 | 45 | -------------------------------------------------------------------------------- /samples/iplelf/fba/s370bc/build/iplelf.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/iplelf/fba/s370bc/build/iplelf.o -------------------------------------------------------------------------------- /samples/iplelf/fba/s370bc/build/iplelf.s370: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/iplelf/fba/s370bc/build/iplelf.s370 -------------------------------------------------------------------------------- /samples/iplelf/fba/s370bc/iplelf.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/iplelf/fba/s370bc/iplelf.3310 -------------------------------------------------------------------------------- /samples/iplelf/fba/s370bc/s370bc.rc: -------------------------------------------------------------------------------- 1 | # S/370 BC-mode FBA IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 000.FF 26 | r 100.FF 27 | r 200.FF 28 | r 300.FF 29 | r 400.FF 30 | r 500.FF 31 | r 600.FF 32 | r 2000.FF 33 | r 2100.FF 34 | r 2200.FF 35 | r 2300.FF 36 | r 2400.FF 37 | r 2500.FF 38 | -------------------------------------------------------------------------------- /samples/iplelf/fba/s390/build/iplelf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/iplelf/fba/s390/build/iplelf -------------------------------------------------------------------------------- /samples/iplelf/fba/s390/build/iplelf.lds: -------------------------------------------------------------------------------- 1 | /* s390 Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf32-s390) 5 | OUTPUT_ARCH(s390:31-bit) 6 | TARGET(elf32-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | ELF1 (rwx) : ORIGIN = 0x1054, LENGTH = 0xFFEFAC 12 | } 13 | 14 | PHDRS 15 | { 16 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 17 | } 18 | 19 | SECTIONS 20 | { 21 | .text 0x2054 : 22 | { 23 | . = ALIGN(16) ; 24 | *(.text) 25 | . = ALIGN(16) ; 26 | *(.data) 27 | . = ALIGN(16) ; 28 | PROVIDE(_GOT_begin = .); 29 | *(.got) 30 | PROVIDE(_GOT_end = .); 31 | . = ALIGN(16) ; 32 | *(.shstrtab) 33 | . = ALIGN(16) ; 34 | *(.symtab) 35 | . = ALIGN(16) ; 36 | *(.strtab) 37 | . = ALIGN(16) ; 38 | *(.rela.text) 39 | . = ALIGN(16) ; 40 | *(.bss) 41 | } >ELF1 :TEXT 42 | 43 | } 44 | 45 | -------------------------------------------------------------------------------- /samples/iplelf/fba/s390/build/iplelf.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/iplelf/fba/s390/build/iplelf.o -------------------------------------------------------------------------------- /samples/iplelf/fba/s390/iplelf.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/iplelf/fba/s390/iplelf.3310 -------------------------------------------------------------------------------- /samples/iplelf/fba/s390/s390.rc: -------------------------------------------------------------------------------- 1 | # ESA/390 FBA IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 300.FF 26 | r 400.FF 27 | r 500.FF 28 | r 600.FF 29 | r 2000.FF 30 | r 2100.FF 31 | r 2200.FF 32 | r 2300.FF 33 | r 2400.FF 34 | r 2500.FF 35 | -------------------------------------------------------------------------------- /samples/iplelf/fba/s390x/build/iplelf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/iplelf/fba/s390x/build/iplelf -------------------------------------------------------------------------------- /samples/iplelf/fba/s390x/build/iplelf.lds: -------------------------------------------------------------------------------- 1 | /* s390x Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf64-s390) 5 | OUTPUT_ARCH(s390:64-bit) 6 | TARGET(elf64-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | ELF2 (rwx) : ORIGIN = 0x2078, LENGTH = 0xFFDF88 12 | } 13 | 14 | PHDRS 15 | { 16 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 17 | } 18 | 19 | SECTIONS 20 | { 21 | .text 0x2078 : 22 | { 23 | . = ALIGN(16) ; 24 | *(.text) 25 | . = ALIGN(16) ; 26 | *(.data) 27 | . = ALIGN(16) ; 28 | PROVIDE(_GOT_begin = .); 29 | *(.got) 30 | PROVIDE(_GOT_end = .); 31 | . = ALIGN(16) ; 32 | *(.shstrtab) 33 | . = ALIGN(16) ; 34 | *(.symtab) 35 | . = ALIGN(16) ; 36 | *(.strtab) 37 | . = ALIGN(16) ; 38 | *(.rela.text) 39 | . = ALIGN(16) ; 40 | *(.bss) 41 | } >ELF2 :TEXT 42 | 43 | } 44 | 45 | -------------------------------------------------------------------------------- /samples/iplelf/fba/s390x/build/iplelf.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/iplelf/fba/s390x/build/iplelf.o -------------------------------------------------------------------------------- /samples/iplelf/fba/s390x/iplelf.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/iplelf/fba/s390x/iplelf.3310 -------------------------------------------------------------------------------- /samples/iplelf/fba/s390x/s390x.rc: -------------------------------------------------------------------------------- 1 | # z/Architecture FBA IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 300.FF 26 | r 400.FF 27 | r 500.FF 28 | r 600.FF 29 | r 2000.FF 30 | r 2100.FF 31 | r 2200.FF 32 | r 2300.FF 33 | r 2400.FF 34 | r 2500.FF 35 | r 2600.FF 36 | 37 | -------------------------------------------------------------------------------- /samples/textseg/fba/s370/build/textseg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/textseg/fba/s370/build/textseg -------------------------------------------------------------------------------- /samples/textseg/fba/s370/build/textseg.lds: -------------------------------------------------------------------------------- 1 | /* s390 Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf32-s390) 5 | OUTPUT_ARCH(s390:31-bit) 6 | TARGET(elf32-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | ELF1 (rwx) : ORIGIN = 0x1054, LENGTH = 0xFFEFAC 12 | } 13 | 14 | PHDRS 15 | { 16 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 17 | } 18 | 19 | SECTIONS 20 | { 21 | .text 0x2054 : 22 | { 23 | . = ALIGN(16) ; 24 | *(.text) 25 | . = ALIGN(16) ; 26 | *(.data) 27 | . = ALIGN(16) ; 28 | PROVIDE(_GOT_begin = .); 29 | *(.got) 30 | PROVIDE(_GOT_end = .); 31 | . = ALIGN(16) ; 32 | *(.shstrtab) 33 | . = ALIGN(16) ; 34 | *(.symtab) 35 | . = ALIGN(16) ; 36 | *(.strtab) 37 | . = ALIGN(16) ; 38 | *(.rela.text) 39 | . = ALIGN(16) ; 40 | *(.bss) 41 | } >ELF1 :TEXT 42 | 43 | } 44 | 45 | -------------------------------------------------------------------------------- /samples/textseg/fba/s370/build/textseg.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/textseg/fba/s370/build/textseg.o -------------------------------------------------------------------------------- /samples/textseg/fba/s370/build/textseg.s370: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/textseg/fba/s370/build/textseg.s370 -------------------------------------------------------------------------------- /samples/textseg/fba/s370/s370.rc: -------------------------------------------------------------------------------- 1 | # S/370 EC-mode textseg IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 000.FF 26 | r 100.FF 27 | r 200.FF 28 | r 300.FF 29 | r 400.FF 30 | r 500.FF 31 | r 600.FF 32 | r 2000.FF 33 | r 2100.FF 34 | r 2200.FF 35 | r 2300.FF 36 | -------------------------------------------------------------------------------- /samples/textseg/fba/s370/textseg.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/textseg/fba/s370/textseg.3310 -------------------------------------------------------------------------------- /samples/textseg/fba/s370bc/build/textseg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/textseg/fba/s370bc/build/textseg -------------------------------------------------------------------------------- /samples/textseg/fba/s370bc/build/textseg.lds: -------------------------------------------------------------------------------- 1 | /* s390 Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf32-s390) 5 | OUTPUT_ARCH(s390:31-bit) 6 | TARGET(elf32-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | ELF1 (rwx) : ORIGIN = 0x1054, LENGTH = 0xFFEFAC 12 | } 13 | 14 | PHDRS 15 | { 16 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 17 | } 18 | 19 | SECTIONS 20 | { 21 | .text 0x2054 : 22 | { 23 | . = ALIGN(16) ; 24 | *(.text) 25 | . = ALIGN(16) ; 26 | *(.data) 27 | . = ALIGN(16) ; 28 | PROVIDE(_GOT_begin = .); 29 | *(.got) 30 | PROVIDE(_GOT_end = .); 31 | . = ALIGN(16) ; 32 | *(.shstrtab) 33 | . = ALIGN(16) ; 34 | *(.symtab) 35 | . = ALIGN(16) ; 36 | *(.strtab) 37 | . = ALIGN(16) ; 38 | *(.rela.text) 39 | . = ALIGN(16) ; 40 | *(.bss) 41 | } >ELF1 :TEXT 42 | 43 | } 44 | 45 | -------------------------------------------------------------------------------- /samples/textseg/fba/s370bc/build/textseg.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/textseg/fba/s370bc/build/textseg.o -------------------------------------------------------------------------------- /samples/textseg/fba/s370bc/build/textseg.s370: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/textseg/fba/s370bc/build/textseg.s370 -------------------------------------------------------------------------------- /samples/textseg/fba/s370bc/s370bc.rc: -------------------------------------------------------------------------------- 1 | # S/370 BC-mode textsef IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 000.FF 26 | r 100.FF 27 | r 200.FF 28 | r 300.FF 29 | r 400.FF 30 | r 500.FF 31 | r 600.FF 32 | r 2000.FF 33 | r 2100.FF 34 | r 2200.FF 35 | r 2300.FF 36 | -------------------------------------------------------------------------------- /samples/textseg/fba/s370bc/textseg.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/textseg/fba/s370bc/textseg.3310 -------------------------------------------------------------------------------- /samples/textseg/fba/s390/build/textseg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/textseg/fba/s390/build/textseg -------------------------------------------------------------------------------- /samples/textseg/fba/s390/build/textseg.lds: -------------------------------------------------------------------------------- 1 | /* s390 Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf32-s390) 5 | OUTPUT_ARCH(s390:31-bit) 6 | TARGET(elf32-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | ELF1 (rwx) : ORIGIN = 0x1054, LENGTH = 0xFFEFAC 12 | } 13 | 14 | PHDRS 15 | { 16 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 17 | } 18 | 19 | SECTIONS 20 | { 21 | .text 0x2054 : 22 | { 23 | . = ALIGN(16) ; 24 | *(.text) 25 | . = ALIGN(16) ; 26 | *(.data) 27 | . = ALIGN(16) ; 28 | PROVIDE(_GOT_begin = .); 29 | *(.got) 30 | PROVIDE(_GOT_end = .); 31 | . = ALIGN(16) ; 32 | *(.shstrtab) 33 | . = ALIGN(16) ; 34 | *(.symtab) 35 | . = ALIGN(16) ; 36 | *(.strtab) 37 | . = ALIGN(16) ; 38 | *(.rela.text) 39 | . = ALIGN(16) ; 40 | *(.bss) 41 | } >ELF1 :TEXT 42 | 43 | } 44 | 45 | -------------------------------------------------------------------------------- /samples/textseg/fba/s390/build/textseg.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/textseg/fba/s390/build/textseg.o -------------------------------------------------------------------------------- /samples/textseg/fba/s390/s390.rc: -------------------------------------------------------------------------------- 1 | # ESA/390 textseg IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 300.FF 26 | r 400.FF 27 | r 500.FF 28 | r 600.FF 29 | r 2000.FF 30 | r 2100.FF 31 | r 2200.FF 32 | r 2300.FF 33 | -------------------------------------------------------------------------------- /samples/textseg/fba/s390/textseg.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/textseg/fba/s390/textseg.3310 -------------------------------------------------------------------------------- /samples/textseg/fba/s390x/build/textseg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/textseg/fba/s390x/build/textseg -------------------------------------------------------------------------------- /samples/textseg/fba/s390x/build/textseg.lds: -------------------------------------------------------------------------------- 1 | /* s390x Stand-Alone Linker Script 2 | Generated by ipldpp.py - DO NOT EDIT */ 3 | 4 | OUTPUT_FORMAT(elf64-s390) 5 | OUTPUT_ARCH(s390:64-bit) 6 | TARGET(elf64-s390) 7 | ENTRY(_start) 8 | 9 | MEMORY 10 | { 11 | ELF2 (rwx) : ORIGIN = 0x2078, LENGTH = 0xFFDF88 12 | } 13 | 14 | PHDRS 15 | { 16 | TEXT PT_LOAD FLAGS ( 0x00000007 ) ; 17 | } 18 | 19 | SECTIONS 20 | { 21 | .text 0x2078 : 22 | { 23 | . = ALIGN(16) ; 24 | *(.text) 25 | . = ALIGN(16) ; 26 | *(.data) 27 | . = ALIGN(16) ; 28 | PROVIDE(_GOT_begin = .); 29 | *(.got) 30 | PROVIDE(_GOT_end = .); 31 | . = ALIGN(16) ; 32 | *(.shstrtab) 33 | . = ALIGN(16) ; 34 | *(.symtab) 35 | . = ALIGN(16) ; 36 | *(.strtab) 37 | . = ALIGN(16) ; 38 | *(.rela.text) 39 | . = ALIGN(16) ; 40 | *(.bss) 41 | } >ELF2 :TEXT 42 | 43 | } 44 | 45 | -------------------------------------------------------------------------------- /samples/textseg/fba/s390x/build/textseg.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/textseg/fba/s390x/build/textseg.o -------------------------------------------------------------------------------- /samples/textseg/fba/s390x/s390x.rc: -------------------------------------------------------------------------------- 1 | # z/Architecture textsef IPL 2 | 3 | # Copyright (C) 2012,2013 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | archmode 21 | t+ 22 | t+0200 23 | ipl 0200 24 | pause 2 25 | r 300.FF 26 | r 400.FF 27 | r 500.FF 28 | r 600.FF 29 | r 2000.FF 30 | r 2100.FF 31 | r 2200.FF 32 | r 2300.FF 33 | -------------------------------------------------------------------------------- /samples/textseg/fba/s390x/textseg.3310: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/samples/textseg/fba/s390x/textseg.3310 -------------------------------------------------------------------------------- /src/.directory: -------------------------------------------------------------------------------- 1 | [Dolphin] 2 | Timestamp=2012,3,31,19,18,52 3 | ViewMode=1 4 | -------------------------------------------------------------------------------- /src/debug_arch.S: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2012 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | .ifdef __s370__ 19 | .ifdef __bcmode__ 20 | # S/370 Basic-control mode (__s370__ defined, __bcmode__ defined) 21 | .else 22 | # S/370 Extended-control mode (__s370__ defined, __bcmode__ not defined) 23 | .endif 24 | .endif 25 | .ifdef __s390__ 26 | # ESA/390 mode (__s390__ defined) 27 | .endif 28 | .ifdef __s390x__ 29 | # z/Architecture mode (__s390x__ defined) 30 | .endif 31 | .ifdef __zarch__ 32 | # z/Architecture mode (__zarch__ defined) 33 | .endif 34 | -------------------------------------------------------------------------------- /src/debug_psw.S: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2012 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | .ifdef .L__psw_arch 19 | .ifeq .L__psw_arch 20 | # S/370 Basic-control mode (.L__psw_arch == 0) 21 | .endif 22 | .ifeq .L__psw_arch-1 23 | # S/370 Extended-control mode (.L__psw_arch == 1) 24 | .endif 25 | .ifdef .L__psw_arch-2 26 | # ESA/390 mode (.L__psw_arch == 2) 27 | .endif 28 | .ifdef .L__psw_arch-4 29 | # z/Architecture mode (.L__psw_arch == 3) 30 | .endif 31 | .else 32 | # .L__psw_arch not defined 33 | .endif 34 | -------------------------------------------------------------------------------- /src/drivers/.directory: -------------------------------------------------------------------------------- 1 | [Dolphin] 2 | Timestamp=2012,3,31,20,21,5 3 | ViewMode=1 4 | -------------------------------------------------------------------------------- /src/hal/.directory: -------------------------------------------------------------------------------- 1 | [Dolphin] 2 | Timestamp=2012,3,31,19,19,19 3 | ViewMode=1 4 | -------------------------------------------------------------------------------- /src/ipl.S: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2012 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # Store IPL parameters in the prefix area 19 | 20 | .macro siplprm addr=0x200 21 | stm 0,15,\addr 22 | .endm 23 | -------------------------------------------------------------------------------- /src/ipl/.directory: -------------------------------------------------------------------------------- 1 | [Dolphin] 2 | Timestamp=2012,3,31,19,19,4 3 | ViewMode=1 4 | -------------------------------------------------------------------------------- /src/ipl/include/.directory: -------------------------------------------------------------------------------- 1 | [Dolphin] 2 | Timestamp=2012,3,31,19,19,12 3 | ViewMode=1 4 | -------------------------------------------------------------------------------- /src/storage/.directory: -------------------------------------------------------------------------------- 1 | [Dolphin] 2 | Timestamp=2012,3,31,19,18,59 3 | ViewMode=1 4 | -------------------------------------------------------------------------------- /src/storage/storages.S: -------------------------------------------------------------------------------- 1 | .ifndef .Lstorages_S 2 | .Lstorages_S = 1 3 | # Copyright (C) 2012 Harold Grovesteen 4 | # 5 | # This file is part of SATK. 6 | # 7 | # SATK is free software: you can redistribute it and/or modify 8 | # it under the terms of the GNU General Public License as published by 9 | # the Free Software Foundation, either version 3 of the License, or 10 | # (at your option) any later version. 11 | # 12 | # SATK is distributed in the hope that it will be useful, 13 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 | # GNU General Public License for more details. 16 | # 17 | # You should have received a copy of the GNU General Public License 18 | # along with SATK. If not, see . 19 | 20 | .ifdef .Lstg_features 21 | 22 | .if .Lstg_perm 23 | .include "memperm.S" # Include the permanent memory allocator macros 24 | memperm 25 | .endif # .if .Lstg_perm 26 | 27 | .else 28 | .error "storages.S suppressed due to missing stgfeat macro options" 29 | .endif # .ifdef .Lstg_features 30 | 31 | .endif # .ifndef .Lstorages_S scope -------------------------------------------------------------------------------- /tools/.directory: -------------------------------------------------------------------------------- 1 | [Dolphin] 2 | Timestamp=2012,3,31,21,19,24 3 | ViewMode=1 4 | -------------------------------------------------------------------------------- /tools/ipl/.directory: -------------------------------------------------------------------------------- 1 | [Dolphin] 2 | Timestamp=2012,3,31,21,19,19 3 | ViewMode=1 4 | -------------------------------------------------------------------------------- /xcard/s390/asmtst: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # Assemble the XCARD test program into an object module using ASMA 20 | 21 | # This script MUST be executed from SATK's xcard/s390 directory or your 22 | # local directory copy. 23 | # Just type ./asmtst in the XCARD directory or local copy. 24 | 25 | 26 | datetime() 27 | { 28 | sfx=$(date +%Y%m%d.%H%M%S) 29 | } 30 | datetime # set $sfx (the date and time of the run) for later use 31 | 32 | # Change this variable for your environment 33 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 34 | 35 | # This variable is for the author's use. Just leave it alone 36 | #REPO=${HOME}/SATKCLONE 37 | 38 | # ASMA related script variables 39 | ASMA=${REPO}/tools/asma.py # The ASMA tool 40 | SATKMACS=${REPO}/maclib # General SATK macros 41 | SOURCE=${REPO}/xcard # Source for the assembly 42 | 43 | # Assemble the program 44 | export ASMPATH=${SOURCE} # XCARD test program source directory 45 | export MACLIB=${SOURCE}:${SATKMACS} # Access SATK macros and XCARDTST.mac 46 | ${ASMA} -t s390 -d --stats -o xcardtst.deck -l asmtst-$sfx.txt xcardtst.asm 47 | -------------------------------------------------------------------------------- /xcard/s390/asmx: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script assembles the XCARD program from source into a list-directed 20 | # IPL directory from which an IPL medium can be construted. 21 | # 22 | # This script must be executed from SATK's xcard/s390 directory or your local 23 | # copy. 24 | # Simply type ./asmx to assemble XCARD. 25 | 26 | 27 | datetime() 28 | { 29 | sfx=$(date +%Y%m%d.%H%M%S) 30 | } 31 | datetime # set $sfx (the date and time of the run) for later use 32 | 33 | # Change this variable for your environment 34 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 35 | 36 | # This variable is for the author's use. Just leave it alone. 37 | #REPO=${HOME}/SATKCLONE 38 | 39 | # ASMA related script variables 40 | ASMA=${REPO}/tools/asma.py # The ASMA tool 41 | SATKMACS=${REPO}/maclib # General SATK macros 42 | SOURCE=${REPO}/xcard # Source for the assembly 43 | 44 | # Assemble the program 45 | export ASMPATH=${SOURCE} # XCARD program source 46 | export MACLIB=${SOURCE}:${SATKMACS} # Access XCARD.mac and SATK macros 47 | ${ASMA} -t s390 -d --stats -g ldipl/xcard.txt -l asmx-$sfx.txt xcard.asm 48 | -------------------------------------------------------------------------------- /xcard/s390/card: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # Create an IPL capable emulated card file containing XCARD and its object 20 | # module test program XCARDTST 21 | 22 | # This script MUST be executed from SATK's xcard/s390 directory or your local 23 | # copy. 24 | # Just type ./card in the XCARD directory to create the emulated 25 | # card deck IPL medium: load.deck 26 | 27 | datetime() 28 | { 29 | sfx=$(date +%Y%m%d.%H%M%S) 30 | } 31 | datetime # set $sfx (the date and time of the run) for later use 32 | 33 | # Change this variable for your environment 34 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 35 | 36 | # This variable is for the author's use. Just leave it alone 37 | #REPO=${HOME}/SATKCLONE 38 | 39 | # IPLASMA related script variables 40 | DECK=${REPO}/tools/deck.py # The IPL deck utility 41 | 42 | # Environment variable used to search for decks 43 | export DECKS=${REPO}/xcard/s390 44 | 45 | # Work with card decks 46 | ${DECK} --card load.deck --boot xcard.deck xcardtst.deck 47 | 48 | 49 | -------------------------------------------------------------------------------- /xcard/s390/iplc: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # Execute the IPL capable emulated card deck using Hercules 20 | 21 | # This script MUST be executed from SATK's xcard/s390 directory or your local 22 | # copy. 23 | # Just type ./iplc in the XCARD directory to IPL and run the XCARD test 24 | # program from an emulated card deck. 25 | 26 | datetime() 27 | { 28 | sfx=$(date +%Y%m%d.%H%M%S) 29 | } 30 | datetime # set $sfx (the date and time of the run) for later use 31 | 32 | # Change this variable for your environment 33 | HERCULES=${HOME}/hyperioni/bin/hercules # Hercules location directory 34 | 35 | export HERCULES_RC=iplc.rc 36 | ${HERCULES} -v -f iplc.conf >> iplc-${sfx}.txt 37 | -------------------------------------------------------------------------------- /xcard/s390/iplc.conf: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # Hercules sample configuration file for pgm1.asm 19 | ARCHMODE ESA/390 # ESA/390 targeted by xcard.asm 20 | MAINSIZE 1M # xcard.asm program starts at X'400' 21 | NUMCPU 1 22 | 23 | # Console Device 24 | 000C 3505 load.deck eof ebcdic # Define the IPL deck device w/EOF==unit excp 25 | 000F 3215-C / # Required by mainframe systems 26 | -------------------------------------------------------------------------------- /xcard/s390/iplc.rc: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # This file is intended for use with Hercules Hyperion 19 | # Comment this statement if you do not want to trace 20 | t+ 21 | t+00C 22 | # Perform the card deck IPL 23 | ipl 00C 24 | -------------------------------------------------------------------------------- /xcard/s390/iplt: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # IPL XCARD and boot the text program object module on a virtual AWS tape. 20 | 21 | # Just type ./iplt in the XCARD directory to IPL and run the XCARD test 22 | # program from an emulated AWS tape file. 23 | 24 | datetime() 25 | { 26 | sfx=$(date +%Y%m%d.%H%M%S) 27 | } 28 | datetime # set $sfx (the date and time of the run) for later use 29 | 30 | # Change this variable for your environment 31 | HERCULES=${HOME}/hyperioni/bin/hercules # Hercules location directory 32 | 33 | export HERCULES_RC=iplt.rc 34 | ${HERCULES} -v -f iplt.conf >> iplt-${sfx}.txt 35 | -------------------------------------------------------------------------------- /xcard/s390/iplt.conf: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # Hercules sample configuration file for xcard.asm and xcardtst.asm 19 | ARCHMODE ESA/390 # ESA/390 targeted by xcard.asm 20 | MAINSIZE 1M # xcard.asm program starts at X'400' 21 | NUMCPU 1 22 | 23 | # Console Device 24 | 0120 3420 load.aws # Define the IPL tape device with 80-byte records 25 | 000F 3215-C / # Required by mainframe systems 26 | -------------------------------------------------------------------------------- /xcard/s390/iplt.rc: -------------------------------------------------------------------------------- 1 | # Copyright (C) 2020 Harold Grovesteen 2 | # 3 | # This file is part of SATK. 4 | # 5 | # SATK is free software: you can redistribute it and/or modify 6 | # it under the terms of the GNU General Public License as published by 7 | # the Free Software Foundation, either version 3 of the License, or 8 | # (at your option) any later version. 9 | # 10 | # SATK is distributed in the hope that it will be useful, 11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | # GNU General Public License for more details. 14 | # 15 | # You should have received a copy of the GNU General Public License 16 | # along with SATK. If not, see . 17 | 18 | # This file is intended for use with Hercules Hyperion 19 | # Comment this statement if you do not want to trace 20 | t+ 21 | t+120 22 | # Perform the tape IPL 23 | ipl 120 24 | -------------------------------------------------------------------------------- /xcard/s390/ldipl/XCARD.bin: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/xcard/s390/ldipl/XCARD.bin -------------------------------------------------------------------------------- /xcard/s390/ldipl/xcard.txt: -------------------------------------------------------------------------------- 1 | XCARD.bin 0x400 2 | -------------------------------------------------------------------------------- /xcard/s390/load.aws: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/xcard/s390/load.aws -------------------------------------------------------------------------------- /xcard/s390/load.deck: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/xcard/s390/load.deck -------------------------------------------------------------------------------- /xcard/s390/medx: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script converts the XCARD list-directed IPL directory into a 20 | # IPL capable emulated card deck using SATK's IPLASMA tool. 21 | 22 | # This script must be executed from SATK's xcard/s390 directory or your local 23 | # copy. 24 | # Just type ./medx in SATK xcard/s390 directory. 25 | 26 | datetime() 27 | { 28 | sfx=$(date +%Y%m%d.%H%M%S) 29 | } 30 | datetime # set $sfx (the date and time of the run) for later use 31 | 32 | # Change this variable for your environment 33 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 34 | 35 | # This variable is for the author's use. Just leave it alone 36 | #REPO=${HOME}/SATKCLONE 37 | 38 | # IPLASMA related script variables 39 | IPLASMA=${REPO}/tools/iplasma.py # The IPL medium creation tool 40 | 41 | # Create the IPL medium 42 | ${IPLASMA} -v -f ld -d CARD -m xcard.deck --records \ 43 | ldipl/xcard.txt 2>&1 |tee medx-${sfx}.txt 44 | -------------------------------------------------------------------------------- /xcard/s390/tape: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Copyright (C) 2020 Harold Grovesteen 3 | # 4 | # This file is part of SATK. 5 | # 6 | # SATK is free software: you can redistribute it and/or modify 7 | # it under the terms of the GNU General Public License as published by 8 | # the Free Software Foundation, either version 3 of the License, or 9 | # (at your option) any later version. 10 | # 11 | # SATK is distributed in the hope that it will be useful, 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 | # GNU General Public License for more details. 15 | # 16 | # You should have received a copy of the GNU General Public License 17 | # along with SATK. If not, see . 18 | 19 | # This script creates a virtual AWS tape file from the card versions 20 | # of XCARD, xcard.deck, and the booted object module, xcardtst.deck. 21 | # 22 | # This script MUST be executed from your SATK's xcard/s390 directory 23 | # Just type ./tape in the XCARD directory to create load.aws, the emulated 24 | # AWS tape file containing XCARD and its test program. 25 | 26 | datetime() 27 | { 28 | sfx=$(date +%Y%m%d.%H%M%S) 29 | } 30 | datetime # set $sfx (the date and time of the run) for later use 31 | 32 | # Change this variable for your environment 33 | REPO=${HOME}/SATKREPO/SATK # SATK repository from github 34 | 35 | # This variable is for the author's use. Just leave it alone 36 | #REPO=${HOME}/SATKCLONE 37 | 38 | # deck.py related variables 39 | DECK=${REPO}/tools/deck.py # The IPL deck utility 40 | 41 | # Environment variable used to search for decks (illustrative, not needed) 42 | export DECKS=${REPO}/xcard/s390 43 | 44 | # Work with AWS virtual tape 45 | ${DECK} --tape load.aws --boot xcard.deck xcardtst.deck 46 | 47 | -------------------------------------------------------------------------------- /xcard/s390/xcard.deck: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/xcard/s390/xcard.deck -------------------------------------------------------------------------------- /xcard/s390/xcardtst.deck: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/s390guy/SATK/8e2a3989e382183b5d0420b49d38e77f52135d49/xcard/s390/xcardtst.deck -------------------------------------------------------------------------------- /xcard/xcard.asm: -------------------------------------------------------------------------------- 1 | * Copyright (C) 2020 Harold Grovesteen 2 | * 3 | * This file is part of SATK. 4 | * 5 | * SATK is free software: you can redistribute it and/or modify 6 | * it under the terms of the GNU General Public License as published by 7 | * the Free Software Foundation, either version 3 of the License, or 8 | * (at your option) any later version. 9 | * 10 | * SATK is distributed in the hope that it will be useful, 11 | * but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | * GNU General Public License for more details. 14 | * 15 | * You should have received a copy of the GNU General Public License 16 | * along with SATK. If not, see . 17 | * 18 | XCARD , XCARD eXtended LOADER 19 | END 20 | -------------------------------------------------------------------------------- /xcard/xcardtst.asm: -------------------------------------------------------------------------------- 1 | * Copyright (C) 2020 Harold Grovesteen 2 | * 3 | * This file is part of SATK. 4 | * 5 | * SATK is free software: you can redistribute it and/or modify 6 | * it under the terms of the GNU General Public License as published by 7 | * the Free Software Foundation, either version 3 of the License, or 8 | * (at your option) any later version. 9 | * 10 | * SATK is distributed in the hope that it will be useful, 11 | * but WITHOUT ANY WARRANTY; without even the implied warranty of 12 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 | * GNU General Public License for more details. 14 | * 15 | * You should have received a copy of the GNU General Public License 16 | * along with SATK. If not, see . 17 | * 18 | XCARDTST , XCARD eXtended LOADER Test Object Module 19 | END -------------------------------------------------------------------------------- /xforth/LICENSE.txt: -------------------------------------------------------------------------------- 1 | Copyright (c) 2001-2011 Chris Liechti 2 | All Rights Reserved. 3 | 4 | Redistribution and use in source and binary forms, with or without 5 | modification, are permitted provided that the following conditions are 6 | met: 7 | 8 | * Redistributions of source code must retain the above copyright 9 | notice, this list of conditions and the following disclaimer. 10 | 11 | * Redistributions in binary form must reproduce the above 12 | copyright notice, this list of conditions and the following 13 | disclaimer in the documentation and/or other materials provided 14 | with the distribution. 15 | 16 | * Neither the name of the copyright holder nor the names of its 17 | contributors may be used to endorse or promote products derived 18 | from this software without specific prior written permission. 19 | 20 | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 21 | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 22 | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 23 | A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 24 | HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 25 | SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT 26 | LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 27 | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 28 | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 29 | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 30 | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 31 | --------------------------------------------------------------------------------