home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / PASCALZ4.ZIP / D3 / ERROR.SRC < prev    next >
Text File  |  1999-04-05  |  640b  |  28 lines
  1. ;CLOSE OUTPUT FILES WHEN ERROR DETECTED
  2. ;
  3.     NAME .ERROR
  4.     ENTRY .ERROR
  5.     EXT .PSTAT,.TIN,.CLSOT,.MXOUT
  6.     include deflt.src
  7. ;
  8. .ERROR:    EXX            ;CHECK STATEMENT NUMBER
  9.     MOV    A,B
  10.     ORA    C
  11.     CNZ    .PSTAT        ;PRINT NON-ZERO STATEMENT NUMBER
  12.     EXX
  13.     INX    Y
  14.     LXI    B,.MXOUT    ;CLOSE ALL REMAINING OPEN OUTPUT FILES
  15. L0A:    MOV    H,1(Y)        ;GET NEXT ADDRESS
  16.     MOV    L,0(Y)        ;AND CHECK FOR NON-ZERO
  17.     INX    Y        ;BUMP POINTER
  18.     INX    Y
  19.     MOV    A,H
  20.     ORA    L
  21.     INX    H        ;ADD 3 TO POINTER IN CASE
  22.     INX    H        ;IT'S A FILE POINTER
  23.     INX    H
  24.     CNZ    .CLSOT        ;CLOSE FILE FOR NON-ZERO POINTER
  25.     DJNZ    L0A        ;GO CHECK NEXT POINTER IF THERE IS ONE
  26.     JMP    RESTRT                    ;ALL DONE
  27. ;
  28.