* %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