* %GOTO DPB28BSL ; /* 03000000 MACRO 06000000 IKJDAP28 09000000 DAPB28 DSECT 12000000 *********************************************************************** 15000000 * THIS OPERATION CODE ALLOWS A LIST OF OPERATIONS TO BE PERFORMED * 18000000 * IF ANY OPERATION FAILS, PROCESSING STOPS AND THE ADDRESS OF THE * 21000000 * FAILED OPERATION IS RETURNED IN PFOP * 24000000 *********************************************************************** 27000000 DA28CD DS CL2 DAIR ENTRY CODE 30000000 DA28NOP DS H NUMB OF OPERATION PTR FIELDS WHICH FOLLOW 33000000 DA28PFOP DS A POINTER TO FAILED OPERATION 36000000 * OPERATION POINTERS ARE PLACED HERE 39000000 **/ 42000000 MEND 45000000 * %DPB28BSL: ; 48000000 * DECLARE 51000000 * 1 DAPB28 BASED(DAPB2PTR), 54000000 * /* *************************************************************** */ 57000000 * /* S OPERATION CODE ALLOWS A LIST OF OPERATIONS TO BE PERFORMED */ 60000000 * /* ANY OPERATION FAILS, PROCESSING STOPS AND THE ADDRESS OF THE */ 63000000 * /* LED OPERATION IS RETURNED IN PFOP */ 66000000 * /* *************************************************************** */ 69000000 * 2 DA28CD CHAR(2), /* DAIR ENTRY CODE */ 72000000 * 2 DA28NOP FIXED(15), /* NUMB OF OPERATION PTR FIELDS 75000000 * WHICH FOLLOW */ 78000000 * 2 DA28PFOP PTR(31); /* POINTER TO FAILED OPERATION 81000000 * OPERATION POINTERS ARE 84000000 * PLACED HERE */ 87000000 * 90000000