perm filename AID.ALP[AID,HE] blob
sn#381304 filedate 1978-09-14 generic text, type T, neo UTF8
;Start of program
XPROG
7
;BLOCK
XMVAR
;Scalars
1
1
;Vectors
2
1
;Transes
3
1
;Arrays
;$B1.T
1003
1
100100
100001
;$B1.V
1002
1
100100
100001
;$B1.S
1001
1
100100
100001
;Events
4
1
0
;Assignment
XPUSH
L1
;Array reference
XPUSH
L2
XCHNGE
;$B1.S
405
;Print
;Array reference
XPUSH
L2
XGTVAL
;$B1.S
405
XVALPRN
;FOR LOOP
XPUSH
L2
XPUSH
L3
XPUSH
L2
L4: XCOPY
2
XCHNGE
;$B1.I
400
XFORCHK
L5
;Assignment
XPUSH
L6
;Array reference
XGTVAL
;$B1.I
400
XCHNGE
;$B1.S
405
XCOPY
0
XCOPY
3
XSADD
XREPLACE
3
XJUMP
L4
L5: XPOP
XPOP
XPOP
;END FOR
;FOR LOOP
XPUSH
L2
XPUSH
L3
XPUSH
L2
L7: XCOPY
2
XCHNGE
;$B1.I
400
XFORCHK
L10
;Assignment
XPUSH
L11
;Array reference
XGTVAL
;$B1.I
400
XCHNGE
;$B1.V
404
XCOPY
0
XCOPY
3
XSADD
XREPLACE
3
XJUMP
L7
L10: XPOP
XPOP
XPOP
;END FOR
;FOR LOOP
XPUSH
L2
XPUSH
L3
XPUSH
L2
L12: XCOPY
2
XCHNGE
;$B1.I
400
XFORCHK
L13
;Assignment
XPUSH
L14
;Array reference
XGTVAL
;$B1.I
400
XCHNGE
;$B1.T
403
XCOPY
0
XCOPY
3
XSADD
XREPLACE
3
XJUMP
L12
L13: XPOP
XPOP
XPOP
;END FOR
;Assignment
XPUSH
L6
XCHNGE
;$B1.I
400
;Assignment
XPUSH
L11
XCHNGE
;$B1.J
401
;Assignment
XPUSH
L14
XCHNGE
;$B1.K
402
;Event operation
XWAITE
;$B1.E
406
;Block end cleanup
XKVAR
7
;End of BLOCK
XENDP
;End of program