Symbol B$RTADR

Definition

00534 387RTADRSYNCHKSUM+2

Uses

00210 0634 00 2 00534 147SXARTADR,2 INITIALIZE ADDRESS
00213 0625 00 0 00534 150STTRTADR SET TAG
00214 −0634 00 0 00534 151SXDRTADR,0 ZERO DECREMENT
00236 −0600 60 0 00534 169STQ*RTADR PUT IT AWAY
00237 0361 60 0 00534 170ACL*RTADR ADD TO CHECK SUM
00263 −0534 00 2 00534 191RCKLXDRTADR,2 DID NOT WORK, SEE IF FIRST OR SECOND
00266 −0634 00 4 00534 194SXDRTADR,4 MAKE NON-ZERO