XCBINDEX
(GIN Macro)
Defined in: MACROS GEM
Used in: BLOGNAL865, INCRCUBX860, LOGANAL864, SCEDITAR84
- XCBINDEX.mac.txt
3L^# ...[??? XCBINDEX SECT CENT FGN 1 DOC 3M96 # 3MNQ #MAC XCBINDEX 3N8B CALL %A MXCBINDEX1 [%A IS THE LINK ADRESS 3NN2 #OPT MXCBINDEX2=1 3P7L #SKI MXCBINDEX2 3PM= ( 3Q6W BRN MY [BRN PAST END OF SUBROUTINE 3QLG #DEF MXCBINDEX1=0? [TRANSFER ADRESS. 3R66 #STR 7,%C [SKI IF %C = 7. 3RKQ LDX 7 %C 3S5B SMO FX1 3SK2 MPY 7 MNO [MULTIPLY BY STRAUSS NO. 3T4L MODE 1 3TJ= LDX 6 ACES 3W3W DCH 6 0(%B) [STORE SPACE IN FIRST CH. 3WHG BCHX %B £ [STEP MOD.ACC. 3X36 LDN 6 6 [COUNT. 3XGQ MD CBD 7 0(%B) 3Y2B BCHX %B £ 3YG2 BCT 6 MD [LOOP 6 TIMES. 3Y^L MODE 0 3^F= CBD 7 0(%B) 3^YW BCHX %B £ 42DG EXIT %A 0 42Y6 MNO +7036875 [THE MAGIC NUMBER. 43CQ MY 43XB ) 44C2 #FREE MXCBINDEX2 [FREE IDENTIFIER. 44WL #DEF MXCBINDEX2=0 [SET IT. 45B= # 45TW ...[ THE MACRO CONVERTS BIN TO DEC. 46*G ...[ %C CONTAINS THE BIN NO. 46T6 ...[ %B IS A MODIFIER CONT. THE GEORGE ADRESS 47#Q ...[ TO WHICH THE ANS IS PUT. 47SB ...[ %A IS THE LINK WORD 48#2 # 48RL #NOR