TITLE 'CUSTOMIZING MODULE'›SUBTTL 'File CUSTOM.AMA'›;›; This module reads a DISKDIS customizing file›; if one is present on Drive 1, and sets the›; various customizing options to adapt DISKDIS›; to the user's assembler.›;›PROC›;›; Open file if present›;›CUSTOMLDX #$30;IOCB3›LDA #OPEN›STA ICCOM,X›LDA #LOW CUSFIL›STA ICBAL,X›LDA #HIGH CUSFIL›STA ICBAH,X›LDA #OPNIN›STA ICAX1,X›JSR CIOV›BPL :OK0›JMP :EXIT›:OK0LDA #GETREC ;File link pseudo›STA ICCOM,X›LDA #LOW LINKBF›STA ICBAL,X›LDA #HIGH LINKBF›STA ICBAH,X›LDA #37›STA ICBLL,X›LDA #0›STA ICBLH,X›JSR CIOV›BPL :OK2›JMP :EXIT›:OK2LDA #LOW ORGOP ;Origin pseudo›STA ICBAL,X›LDA #HIGH ORGOP›STA ICBAH,X›LDA #21›STA ICBLL,X›LDA #0›STA ICBLH,X›JSR CIOV›BPL :OK4›JMP :EXIT›:OK4LDA #LOW ENDOP›STA ICBAL,X›LDA #HIGH ENDOP›STA ICBAH,X›LDA #20›STA ICBLL,X›LDA #0›STA ICBLH,X›JSR CIOV›BPL :OK6›JMP :EXIT›:OK6LDA #LOW [STR3+1];Define byte pseudo›STA ICBAL,X›LDA #HIGH [STR3+1]›STA ICBAH,X›LDA #9›STA ICBLL,X›LDA #0›STA ICBLH,X›JSR CIOV›BMI :EXIT›LDA #0   ;Spare record›STA ICBAL,X›LDA #$FF›STA ICBAH,X›LDA #$80›STA ICBLL,X›LDA #0›STA ICBLH,X›JSR CIOV›BMI :EXIT›LDA # LOW MISCBF;Misc. flags›STA ICBAL,X›LDA #HIGH MISCBF›STA ICBAH,X›LDA #10›STA ICBLL,X›LDA #0›STA ICBLH,X›JSR CIOV›BMI :EXIT›LDA MISCBF›STA COMENT›LDA MISCBF+1›STA LNFLAG›LDA MISCBF+2›STA MAXSZ›LDA MISCBF+3›STA MAXSZ+1›LDA MISCBF+4›STA MAXFIL›:EXITLDA #CLOSE;Close file & get out›STA ICCOM,X›JSR CIOV›LDA LNFLAG;Want line numbers?›BNE :NUMON;Yes›LDA #LOW LINEBF;No›STA OUTPTR›LDA #HIGH LINEBF›STA OUTPTR+1›RTS›:NUMONLDA #LOW NUMBUF›STA OUTPTR›LDA #HIGH NUMBUF›STA OUTPTR+1›RTS›MISCBFDB $31,$00;Comments on, line nrs off›DW $4000;Bytes/file›DB $05,$00;Files/disk+1,spare›CUSFILDB 'D1:DISKDIS.CUS'›EPROC›››››