********************************************************* * * * Double sided newdisk utility for micro-box * * Taken from supplied single sided version * * and original TSC skeletal newdisk * * * * Last update - 18th September 1984 * * Authors - TSC , Micro concepts and David Boreham * * * ********************************************************* SMAXS0 EQU 10 SMAXS1 EQU 20 DMAXS0 EQU 18 DMAXS1 EQU 36 FIRST EQU $0101 SMAX0 EQU 10 SD MAX SIDE 0 SECTORS WORK EQU $800 * STANDARD PRE-NAMED LABEL EQUATES SYSMTH EQU $CC0E SYSYR EQU $CC10 WARMS EQU $CD03 GETCHR EQU $CD15 PUTCHR EQU $CD18 INBUFF EQU $CD1B PSTRNG EQU $CD1E PCRLF EQU $CD24 GETFIL EQU $CD2D OUTDEC EQU $CD39 OUTHEX EQU $CD3C GETHEX EQU $CD42 INDEC EQU $CD48 FMSCLS EQU $D403 FMS EQU $D406 * ASCII CODE EQUATES EOT EQU $04 BEL EQU $07 * EXTERNAL LABEL EQUATES L0002 EQU $0002 L0010 EQU $0010 L0013 EQU $0013 TRACK EQU $0020 SECTOR EQU $0021 BADCNT EQU $0022 DRN EQU $0023 SIDE EQU $0024 DBSDF EQU $0025 DENSE EQU $0026 DNSITY EQU $0027 SECCNT EQU $002A FSTAVL EQU $002C LSTAVL EQU $002E MAXS0 EQU $0030 MAXS1 EQU $0031 MAX EQU $0032 FKFCB EQU $0034 VOLNAM EQU $0038 VOLNUM EQU $0043 L0815 EQU $0815 L081E EQU $081E L083C EQU $083C SWKEND EQU $13EA L1FD4 EQU $1FD4 DWRITE EQU $DE03 REST EQU $DE09 DSEEK EQU $DE1B ORG $0033 TRACKS FCB 40 Default 40 tracks ORG $0100 NEWDISK BRA FORM1 FCB $02 OUTIN JSR PSTRNG OUTIN2 JSR GETCHR ANDA #$5F CMPA #'Y RTS FORM1 LDA #SMAX0 STA DNSITY BEQ L056B LDA