INHALT

* NAME: LDR-APM DOC. 70180005000 REV. E PAGE 66

3071 * ******************************************************************** 3072 * 3073 003660 PTIN EQU ORG+'3660 ASR/HSR SWITCH 3074 003661 IO EQU ORG+'3661 STORAGE FOR INPUT DEVICE 3075 003662 BACK EQU ORG+'3662 SPACE FOR BACKUP SYMBOL COUNT,COMMON BRK. 3076 003664 FLAG EQU BACK+2 'BLOCK DATA'FLAG. STORE 'PBRK' 3077 003665 KEY EQU FLAG+1 STORAGE FOR SYMBOL TABLE KEY WORD 3078 003666 MMOD EQU KEY+1 MEM MODE, 16K(LXD)='037777,32K(EXD)='077777 3079 003667 MODE EQU MMOD+1 ABS ('000000) OR REL ('040000). 3080 003670 PBRK EQU MODE+1 PROGRAM BREAK 3081 003671 SKIF EQU PBRK+1 SKIP FLAG ZERO MEANS LOAD 3082 003672 SSSP EQU SKIF+1 3083 003673 T EQU SSSP+1 FOUR CELLS FOR TEMPORARIES 3084 003677 VALU EQU T+4 ADDRESS OF INSTRUCTION 3085 003700 BUFF EQU ORG+'3700 BLOCK INPUT BUFFER FOR 'R1K'. 3086 003774 DATA EQU BUFF+60 CURRENT INPUT DATA, BLOCK ROUTINES 3087 003777 WORD EQU DATA+3 LOCATION COUNTER. END OF SECTOR 3088 003700 COMM EQU ORG+'3700 3089 * 3090 * 3091 03537 0 003777 TOP DAC WORD 3092 * 3093 003540 XSA4 EQU * DESECTORING AREA NO. 4 3094 * 3095 ORG ORG+'3577 FORCE MEMORY MAP TO GIVE 3096 03577 BSS 1 HIGH ABOVE DESECTORING AREA 3097 * 3098 * 3099 END GO THAT'S ALL FOLKS. APM 003443 BACK 003662 BASE 002674 BLER 000321 BLOK 000323 BOT 000042 BUFD 000365 BUFF 003700 BUFN 000656 BUFP 000657 CADD 003507 CARD 000225 CCRD 003474 CLED 003142 CLEJ 003137 CLEL 003101 CLEM 003111 CLEN 003060 CLEX 003144 CLEY 003127 COMM 003700 COMN 003357 CRLF 001653 CUT 002403 DAC1 002001 DACF 001661 DATA 003774 DEFE 002512 DEFF 002676 DEFJ 002472 DEFL 002452 DEFS 002446 DEFW 002504 DESB 002146 DESC 002151 DESE 002065 DESF 002126 DESG 002202 DESJ 002154 DESL 002136 DESS 002210 DEST 002166 DESU 002161 DEXA 003437 DFLT 001000 DISC 003475 DISI 000233 DOPI 000770A DOPO 000772A DSW 003506 EOT 003031 EXT 000645 FIL7 002000 FITK 002635 FITS 002613 FLAG 003664 FORS 000401 FRCE 003441 GEN3 002306 GEN6 002330 GENE 002320 GENL 002311 GET 002656 GET2 002662 GO 003000 HHHT 003444 HIGH 003345 IO 003661 ISCO 001454 JWB 003011 JWB1 003006 JWB2 003013 JWB3 003430 K 000661 KCKK 000263 KCKM 000256 KEY 003665 KLR 000243 KLR2 000251 LCER 003051