-
Notifications
You must be signed in to change notification settings - Fork 1
/
SUPBRK.DEC
51 lines (44 loc) · 1 KB
/
SUPBRK.DEC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
.ENABL LC
.NLIST BEX
.TITLE SUPBRK
.ASECT
.GLOBL ARRERR, BADDEV, CHKRW, CHNMAP, CH0OPT, CH0PTR
.GLOBL COROVR, DIVZER, EOFERR, EXPOVR, FATLIO, FILE
.GLOBL LOGNEG, MISSNG, NEWOF0, NOTOPN, OVRFLO, RESRVD
.GLOBL RTAREA, RTERR, SETBIG, SETR0, SQRNEG, TOOMNY
.GLOBL VERERR, $DEFEX, $DEFLE, $FREE, $KORE, $TTY
.CSECT
..:
.CSECT $$$BRK
B.: .BLKB 110
. = B.
BREAK::
$B62:: ; +I
MOV R3, -(SP)
MOV FILE, R3
CMPB 3(R3), #11
BNE B.104
MOV 6(R3), -(SP)
CMP @SP, @R3
BEQ B.102
BIC #140000, 14(R3)
ADD 10(R3), @SP
ADD 10(R3), @SP
MOV @R3, R0
B.46: ; +I B
CLRB (R0)+
CMP R0, @SP
BCS B.46
MOV FILE, R0
CLR 12(R0)
MOV 6(R0), (R0)+
EMT 375
CALL CHKRW
INC 4(R3)
B.102: ; B
TST (SP)+
B.104: ; B
MOV (SP)+, R3
RETURN
.END