TITLE 'SKELETON ASSEMBLER PROGRAM' 00050000 PRINT ON,DATA,NOGEN 00060000 ****************************************************************** 00070000 * * 00080000 * PROGRAMMER: WOOLBRIGHT * 00090000 * COMMENTS : ASM SKELETON PROGRAM * 00100000 * * 00110000 ****************************************************************** 00120000 * * 00130000 * REGISTER EQUATES * 00140000 * * 00150000 ****************************************************************** 00160000 R0 EQU 0 00170000 R1 EQU 1 00180000 R2 EQU 2 00190000 R3 EQU 3 00200000 R4 EQU 4 00210000 R5 EQU 5 00220000 R6 EQU 6 00230000 R7 EQU 7 00240000 R8 EQU 8 00250000 R9 EQU 9 00260000 R10 EQU 10 00270000 R11 EQU 11 00280000 R12 EQU 12 00290000 R13 EQU 13 00300000 R14 EQU 14 00310000 R15 EQU 15 00320000 ****************************************************************** 00330000 * * 00340000 * SYMBOLIC EQUATES * 00350000 * * 00360000 ****************************************************************** 00370000 BOMBS0C9 CSECT STANDARD ENTRY CODE 00380000 STM R14,R12,12(R13) 00390000 BASR R12,R0 ESTABLISH... 00400000 USING *,R12 ADDRESSABILITY 00410000 ST R13,SAVEAREA+4 BACKWARD CHAIN CALLER 00420000 LA R13,SAVEAREA ADDRESS OF MY SAVE AREA 00430000 ****************************************************************** 00440000 * BEGIN THE PROGRAM LOGIC. FIRST OPEN THE INPUT AND OUTPUT FILES 00450000 ****************************************************************** 00460000 ZAP DBLWD,APK 00470000 CVB R8,DBLWD 00480000 CVD R8,DBLWD 00481001 EXIT EQU * 00490000 L R13,SAVEAREA+4 POINT AT OLD SAVE AREA 00650000 LM R14,R12,12(R13) RESTORE THE REGISTERS 00660000 LA R15,0 RETURN CODE = 0 00670000 BR R14 RETURN TO OPERATING SYSTEM 00680000 ****************************************************************** 00690000 * 00700000 * STORAGE AREA 00710000 * 00720000 ****************************************************************** 00730000 ****************************************************************** 00740000 * * 00750000 * OUTPUT FILE - DATA CONTROL BLOCK * 00760000 * * 00770000 ****************************************************************** 00780000 DC X'FFFFFFFF' 00790000 FILEOUT1 DCB DSORG=PS, X00800000 MACRF=(PM), X00810000 DEVD=DA, X00820000 DDNAME=FILEOUT1, X00830000 RECFM=FB, X00840000 LRECL=80 00850000 ****************************************************************** 00860000 * * 00870000 * INPUT FILE - DATA CONTROL BLOCK * 00880000 * * 00890000 ****************************************************************** 00900000 DC X'FFFFFFFF' 00901000 FILEIN1 DCB DSORG=PS, X00902000 MACRF=(GM), X00903000 DEVD=DA, X00904000 DDNAME=FILEIN1, X00905000 EODAD=EXIT, X00906000 RECFM=FB, X00907000 LRECL=80 00908000 ****************************************************************** 00909000 * 00910000 * INPUT RECORD AREA 00920000 * 00930000 ****************************************************************** 00940000 RECIN DS CL80 00950000 ****************************************************************** 00960000 * 00970000 * OUTPUT RECORD AREA 00980000 * 00990000 ****************************************************************** 01000000 RECOUT DS CL80 PRINT AREA 01010000 APK DC PL8'3000000000000' 01011000 DBLWD DS D 01012000 ****************************************************************** 01020000 * 01030000 * REGISTER SAVE AREA 01040000 * 01050000 ****************************************************************** 01060000 SAVEAREA DS 18F 01070000 ****************************************************************** 01080000 * 01090000 * LITERAL POOL 01100000 * 01110000 ****************************************************************** 01120000 LTORG * 01130000 END BOMBS0C9 01140000