URL https://opencores.org/ocsvn/System09/System09/trunk

Subversion Repositories System09

[/] [System09/] [rev_86/] [src/] [Flex9/] [f9-fms.asm] - Blame information for rev 113

Go to most recent revision | Details | Compare with Previous | View Log


*
** FILE MANAGEMENT SYSTEM
*
ZD400 JMP >ZD436
FMSCLS JMP >ZD459
FMS JMP >FMS1
CPYMSG FCC / DISK OPERATING SYSTEM/
 FCC / COPYRIGHT (C) 1980 BY/
 FCC / TECHNICAL SYSTEMS CONSULTANTS/
 ORG CPYMSG
FCBPTR RMB 2
CURFCB RMB 4
ZD40F RMB 2
ZD411 RMB 1
ZD412 RMB 1
ZD413 RMB 1
ZD414 RMB 1
ZD415 RMB 2
ZD417 RMB 1
ZD418 RMB 2
ZD41A RMB 1
ZD41B RMB 2
ZD41D RMB 24
VERFLG FCB $FF
*
**
*
ZD436 JSR >COLDDR
 LDX #FCBPTR
 LDB #$0A
 BSR ZD451
 LDX #Z0005
 STX >ZD413
 STX >ZD415
 CLR >ZD41A
ZD44C LDX #ZD41B
 LDB #$1A
ZD451 CLR ,X+
 DECB
 BNE ZD451
 JMP >PRSPL5
 
ZD459 JSR >PRSPL4
ZD45C LDX >FCBPTR
 BEQ ZD44C
 LEAX -$1C,X
 STX >CURFCB
 PSHS Y
 JSR >CLOSE
 PULS Y
 BCC ZD45C
 LDX >CURFCB
 CLR $02,X
 JSR >PRSPL5
 LDB #$FF
 RTS
 
*
** FMS CALL, PROCESSING
*
FMS1 TST >ZCCFC
 BEQ ZD483
 JSR >PRSPL4
ZD483 PSHS Y,B
 STX >CURFCB
 CLR $01,X
 LDB ,X
 BNE DOFUNC
*
** READ/WRITE CHAR/BYTE
*
 LDB $02,X
 BEQ ZD4AC
 CMPB #$02
 BEQ ZD4A7
 JSR >ZD5B4
ZD499 LDX >CURFCB
 BCS ZD4C4
 TST >ZCCFC
 BNE ZD4C6
 CLRB
 PULS Y,B
 RTS
 
ZD4A7 JSR >ZD6CF
 BRA ZD499
ZD4AC LDB #$12
 BRA ZD4C4
 
DOFUNC CMPB #$16
 BLS DOFUN1
 LDB #$01
 BRA ZD4C4
DOFUN1 DECB
 ASLB
 LDX #FMSTBL
 JSR [B,X]
 LDX >CURFCB
 BCC ZD4C6
ZD4C4 STB $01,X
ZD4C6 JSR >PRSPL5
 TST $01,X
 PULS Y,B
 RTS
*
** FMS COMMAND VECTOR TABLE
*
FMSTBL FDB OPENRD FC 1
 FDB OPENWR FC 2
 FDB OPENUD FC 3
 FDB CLOSE FC 4
 FDB REWIND FC 5
 FDB OPNDIR FC 6
 FDB GETREC FC 7
 FDB PUTREC FC 8
 FDB RDSECT FC 9
 FDB WRSECT FC 10
 FDB RESV1 FC 11
 FDB DELETE FC 12
 FDB RENAME FC 13
 FDB RESV2 FC 14
 FDB NXTSEC FC 15
 FDB OPNREC FC 16
 FDB GETBYT FC 17
 FDB PUTBYT FC 18
 FDB RESV3 FC 19
 FDB NXTDRV FC 20
 FDB POSREC FC 21
 FDB BAKREC FC 22
*
**
*
ZD4FA BSR ZD51C
 BNE ZD503
 LDB #$02
 ORCC #$01
 RTS
 
ZD503 STD ,X
 LDX ,X
 CLR ,X
 CLR $01,X
 RTS
 
ZD50C BSR ZD51C
 BEQ ZD515
 LDB #$0D
 ORCC #$01
 RTS
 
ZD515 LDD [,X]
 STD ,X
 ANDCC #$FE
 RTS
 
ZD51C LDD >CURFCB
 ADDD #$001C
 LDX #FCBPTR
ZD525 LDY ,X
 BNE ZD52D
 ANDCC #$FB
 RTS
 
ZD52D CMPD ,X
 BNE ZD533
 RTS
ZD533 LDX ,X
 BRA ZD525
 
ZD537 LDX >CURFCB
 CLRA
 CLRB
 BSR ZD540
 LDB #$2F
ZD540 STA $11,X
 LEAX $01,X
 DECB
 BNE ZD540
 RTS
 
ZD549 LDX >CURFCB
 LDB #$0B
ZD54E LDA $04,X
 STA $24,X
 LEAX $01,X
 DECB
 BNE ZD54E
 RTS
 
ZD559 LDX >CURFCB
 LDB #$0B
ZD55E LDA $04,X
 PSHS A
 LDA $24,X
 CMPA ,S+
 BNE ZD56E
 LEAX $01,X
 DECB
 BNE ZD55E
ZD56E RTS
*
** GET RANDOM BYTE FROM SECTOR
*
GETBYT LDX >CURFCB
 LDB $02,X
 LSRB
 BCC ZD5F0
 LDB $23,X
 JMP >ZD600
 
ZD57D LDX >CURFCB
 LDB $22,X
 INC $22,X
 ABX
 STA $40,X
 INCB
 BNE ZD5AC
 ORCC #$01
 RTS
*
** PUT RANDOM BYTE IN SECTOR
*
PUTBYT LDX >CURFCB
 LDB $02,X
 ANDB #$03
 CMPB #$03
 BNE ZD5F0
 ORB #$80
 STB $02,X
 LDB $0F,X
 BITB #$80
 BNE ZD5AF
 LDB $23,X
 ABX
 STA $40,X
ZD5AC ANDCC #$FE
 RTS
 
ZD5AF LDB #$0B
 ORCC #$01
 RTS
 
ZD5B4 LDA $3B,X
 BMI ZD5F5
 BEQ ZD5C2
 DEC $3B,X
 LDA #$20
 BRA ZD5DF
 
ZD5C2 BSR ZD5F5
 BCS ZD5E1
 CMPA #$18
 BHI ZD5DF
 BEQ ZD5C2
 CMPA #$09
 BNE ZD5DC
 BSR ZD5F5
 BCS ZD5E1
 LDX >CURFCB
 STA $3B,X
 BRA ZD5B4
 
ZD5DC TSTA
 BEQ ZD5C2
ZD5DF ANDCC #$FE
ZD5E1 RTS
*
** REWIND FILE
*
REWIND JSR >ZDAB1
 BCS ZD5F0
 BITA #$01
 BEQ ZD5F0
 STA ,X
 JMP >ZD9A0
 
ZD5F0 LDB #$12
 ORCC #$01
 RTS
 
ZD5F5 LDX >CURFCB
 LDB $22,X
 BEQ ZD607
 INC $22,X
ZD600 ABX
 LDA $40,X
 ANDCC #$FE
 RTS
 
ZD607 BSR ZD60C
 BCC ZD5F5
 RTS
 
ZD60C LDX >CURFCB
 LDD $40,X
 INC $21,X
 BNE ZD61A
 INC $20,X
ZD61A CMPD #$0000
 BEQ ZD63C
ZD620 STD $1E,X
 PSHS A
 LDA #$04
 STA $22,X
 PULS A
 BSR RDSECT
 BCC ZD640
 BITB #$80
 BEQ ZD638
 LDB #$10
 BRA ZD63E
 
ZD638 LDB #$09
 BRA ZD63E
 
ZD63C LDB #$08
ZD63E ORCC #$01
ZD640 RTS
*
** READ SINGLE SECTOR
*
RDSECT BSR ZD668
 LDX >CURFCB
 JSR >DRIVE
 BCS ZD65D
ZD64B BSR ZD65E
 JSR >READ
 BNE ZD655
 ANDCC #$FE
 RTS
 
ZD655 PSHS B
 BSR ZD670
 PULS B
 BCC ZD64B
ZD65D RTS
 
ZD65E LDX >CURFCB
 LDD $1E,X
 LEAX $40,X
 RTS
 
ZD668 CLRA
 STA >ZD411
 STA >ZD412
 RTS
 
ZD670 BITB #$10
 BNE ZD685
 BITB #$80
 BNE ZD69C
 LDB >ZD411
 INCB
 CMPB #$07
 BEQ ZD685
 STB >ZD411
 BRA RESV2
 
ZD685 CLR >ZD411
 LDB >ZD412
 INCB
 CMPB #$04
 BEQ ZD69C
 STB >ZD412
 LDX >CURFCB
 JSR >RESTOR
*
** RESERVED
*
RESV2 ANDCC #$FE
 RTS
ZD69C ORCC #$01
 RTS
*
** WRITE SINGLE SECTOR
*
WRSECT BSR ZD668
 LDX >CURFCB
 JSR >DRIVE
 BCS ZD6C9
ZD6A9 LDX >CURFCB
 BSR ZD65E
 JSR >WRITE
 BNE ZD6BD
 LDA >VERFLG
 BEQ ZD6EF
 JSR >VERIFY
 BEQ ZD6EF
ZD6BD BITB #$40
 BNE ZD6CC
 PSHS B
 BSR ZD670
 PULS B
 BCC ZD6A9
ZD6C9 RTS
 
 LDB #$20
ZD6CC ORCC #$01
 RTS
 
ZD6CF LDX >CURFCB
 LDB $3B,X
 BMI ZD714
 CMPA #$20
 BNE ZD6EA
 INCB
 STB $3B,X
 CMPB #$7F
 BNE ZD6EF
 BRA ZD6F2
 
ZD6E5 BSR ZD6F2
 BCC ZD6CF
 RTS
 
ZD6EA TSTB
 BEQ ZD714
 BRA ZD6E5
 
ZD6EF ANDCC #$FE
 RTS
 
ZD6F2 PSHS A
 CMPB #$01
 BNE ZD6FC
 LDA #$20
 BRA ZD70C
 
ZD6FC LDA #$09
 BSR ZD714
 PULS A
 BCS ZD713
 PSHS A
 LDX >CURFCB
 LDA $3B,X
ZD70C CLR $3B,X
 BSR ZD714
 PULS A
ZD713 RTS
 
ZD714 LDX >CURFCB
 LDB $02,X
 CMPB #$02
 LBNE ZD5F0
 LDB $22,X
 CMPB #$04
 BNE ZD72E
 PSHS A
 BSR ZD74B
 PULS A
 BCS ZD73D
ZD72E JSR >ZD57D
 BCC ZD73D
 LDB #$04
 LDX >CURFCB
 STB $22,X
 ANDCC #$FE
ZD73D RTS
 
ZD73E LDX >CURFCB
 CLRA
 CLRB
 STD $20,X
 STD $42,X
 BRA ZD772
 
ZD74B LDB $12,X
 BNE ZD772
 LDB $17,X
 BEQ ZD799
 CLR $17,X
 BSR ZD799
 BCS ZD786
 BSR ZD73E
 BCS ZD786
 BSR ZD73E
 BCS ZD786
 LDX >CURFCB
 LDB #$02
 STB $17,X
 LDD $11,X
 JMP >ZDC82
 
ZD772 BSR ZD782
 LDX >CURFCB
 STD $40,X
 JSR >WRSECT
 BCC ZD799
 JMP >ZDBC1
 
ZD782 BSR ZD787
 LDD ,X
ZD786 RTS
 
ZD787 LDX >CURFCB
 LDB $03,X
 LDA #$06
 MUL
 LDX #ZD41D
 ABX
 STX >ZD41B
 TST ,X
 RTS
 
ZD799 BSR ZD782
 BNE ZD7A2
 LDB #$07
ZD79F ORCC #$01
 RTS
 
ZD7A2 LDX >CURFCB
 STD $13,X
 TST $12,X
 BNE ZD7B0
 STD $11,X
ZD7B0 INC $16,X
 BNE ZD7B8
 INC $15,X
ZD7B8 TST $17,X
 BEQ ZD7C8
 JSR >ZDC43
 BCS ZD79F
 LDX >CURFCB
 LDD $13,X
ZD7C8 JSR >ZD620
 BCS ZD79F
 LDX >CURFCB
 LDD $40,X
 PSHS B,A
 BSR ZD787
 PULS B,A
 STD ,X
 BNE ZD7E7
 CLR $02,X
 CLR $03,X
 CLR $04,X
 CLR $05,X
 BRA ZD7EF
 
ZD7E7 LDY $04,X
 LEAY -$01,Y
 STY $04,X
ZD7EF CLRA
 LDX >CURFCB
 INC $21,X
 BNE ZD7FB
 INC $20,X
ZD7FB CLRB
ZD7FC STA $40,X
 LEAX $01,X
 DECB
 BNE ZD7FC
 LDX >CURFCB
 LDD $20,X
 STD $42,X
 ANDCC #$FE
 RTS
*
** OPEN SYSTEM INFO. RECORD
*
OPNREC CLRB
 PSHS B
 LDB #$03
 BRA ZD825
 LDX >ZD415
 STX >ZD413
OPNDIR LDB >ZD413
 PSHS B
 LDB >ZD414
ZD825 LDX >CURFCB
 STB $41,X
 PULS B
 STB $40,X
 CLR >ZD418
 CLRB
 STB $22,X
 RTS
*
** GET INFO RECORD
*
GETREC LDX >CURFCB
 LDB $22,X
 BNE ZD85D
 JSR >ZD60C
 BCS ZD875
 LDX >CURFCB
 TST >ZD418
 BNE ZD852
 LDD 
 STD >ZD418
ZD852 LDA #$10
 STA $22,X
 LDD $1E,X
 STD $2F,X
ZD85D LDA $22,X
 STA $31,X
 LDB #$18
ZD865 PSHS X,B
 JSR >ZD5F5
 PULS X,B
 STA $04,X
 LEAX $01,X
 DECB
 BNE ZD865
 ANDCC #$FE
ZD875 RTS
*
** PUT INFORMATION RECORD
*
PUTREC LDX >CURFCB
 LDA $31,X
 STA $22,X
 LDB #$18
ZD881 PSHS X,B
 LDA $04,X
 JSR >ZD714
 PULS X,B
 LEAX $01,X
 DECB
 BNE ZD881
 JMP >WRSECT
 
ZD892 LDX >CURFCB
 LDA $03,X
 STA $23,X
 LDA >ZD417
 TST >ZD41A
 BNE ZD8D3
 STA $03,X
 LDX >ZD415
 STX >ZD413
ZD8AA CMPX #Z0005
 BEQ ZD8BB
 BSR ZD8D3
 BLS ZD8EA
 LDX >ZD418
 STX >ZD413
 BRA ZD8AA
 
ZD8BB LDX >CURFCB
 LDA $23,X
 STA $03,X
 BPL ZD8D3
ZD8C5 JSR >NXTDRV
 BCS ZD900
 BSR ZD8D3
 BLS ZD8EA
 JSR >ZDDAD
 BRA ZD8C5
 
ZD8D3 LDX >CURFCB
 CLR >ZD41A
 JSR >ZD549
 JSR >OPNDIR
ZD8DF JSR >GETREC
 BCC ZD8EB
 CMPB #$08
 BEQ ZD900
 ORCC #$01
ZD8EA RTS
 
ZD8EB LDX >CURFCB
 LDA $04,X
 BEQ ZD8FE
 BPL ZD8F6
 BSR ZD905
ZD8F6 JSR >ZD559
 BNE ZD8DF
 ANDCC #$FE
 RTS
 
ZD8FE BSR ZD905
ZD900 ANDCC #$FB
 ANDCC #$FE
 RTS
 
ZD905 LDA $33,X
 BNE ZD916
 LDD $2F,X
 STD $32,X
 LDA $31,X
 STA $34,X
ZD916 RTS
 
ZD917 JSR >ZD787
 BNE ZD933
 BSR ZD936
 BCS ZD935
 LDB #$06
 LDY >CURFCB
 LDX >ZD41B
ZD929 LDA $5D,Y
 LEAY $01,Y
 STA ,X+
 DECB
 BNE ZD929
ZD933 ANDCC #$FE
ZD935 RTS
 
ZD936 JSR >OPNREC
 JSR >ZD60C
 BCS ZD946
 LDX >CURFCB
 LDB #$10
 STB $22,X
ZD946 RTS
 
ZD947 JSR >ZD787
 BSR ZD936
 BCS ZD946
 LDB #$06
 LDY >CURFCB
 LDX >ZD41B
ZD957 LDA ,X+
 STA $5D,Y
 LEAY $01,Y
 DECB
 BNE ZD957
 JSR >WRSECT
 BCC ZD946
 JMP >ZDBC1
*
**
*
RESV1 LDX >CURFCB
 LDA #$02
 STA $02,X
 LDD $2F,X
 STD $1E,X
 JSR >RDSECT
 BCS ZD983
 JSR >PUTREC
 BCC ZD985
 JMP >ZDBC1
 
ZD983 LDB #$0A
ZD985 RTS
*
** OPEN FOR READ
*
OPENRD JSR >ZD4FA
 BCS ZD9C8
 JSR >ZD892
 BCS ZD9C8
 BNE ZD9CD
 LDX >CURFCB
 TST >ZD41A
 BEQ ZD9A0
 LDA $0F,X
 BITA #$20
 BNE ZD9C9
ZD9A0 JSR >ZDCC0
 BCS ZD9CF
 LDD $11,X
 STD $40,X
 JSR >ZDA76
 LDB $17,X
 BEQ ZD9C6
ZD9B3 PSHS B
 JSR >ZD60C
 PULS B
 BCS ZD9C8
 DECB
 BNE ZD9B3
 LDX >CURFCB
 CLRB
 STB $22,X
ZD9C6 ANDCC #$FE
ZD9C8 RTS
 
ZD9C9 LDB #$11
 BRA ZD9CF
 
ZD9CD LDB #$04
ZD9CF PSHS B
 JSR >ZD50C
 PULS B
 ORCC #$01
 RTS
 
OPENWR LDX >CURFCB
 TST $03,X
 BPL ZD9E8
 JSR >NXTDRV
 BCC ZD9E8
 LDB #$10
 RTS
 
ZD9E8 JSR >ZD4FA
 BCS ZD9CF
 JSR >ZD537
 JSR >ZD917
 BCS ZD9CF
 JSR >ZD892
 BCS ZD9CF
 BNE ZDA00
 LDB #$03
 BRA ZD9CF
 
ZDA00 JSR >ZDCC0
 BCS ZD9CF
 LDX >CURFCB
 LDB #$0A
ZDA0A CLR $0F,X
 LEAX $01,X
 DECB
 BNE ZDA0A
 LDX >CURFCB
 LDD $32,X
 BEQ ZDA40
 STD $2F,X
 LDA $34,X
 STA $31,X
 LDD >DATERG
 STD $19,X
 LDA >YEAR
 STA $1B,X
 JSR >ZDDAD
 JSR >RESV1
 BCS ZD9CF
 BSR ZDA76
 LDA #$04
 STA $22,X
 ANDCC #$FE
 RTS
 
ZDA40 LDX >CURFCB
 CLR $17,X
 INC $12,X
 LDD $2F,X
 JSR >ZD620
 BCS ZDA5E
 JSR >ZD772
 BCS ZDA5E
 JSR >WRSECT
 BCC ZDA61
 JSR >ZDBC1
ZDA5E JMP >ZD9CF
 
ZDA61 LDX >CURFCB
 LDD $1E,X
 STD $32,X
 LDA #$10
 STA $34,X
 JSR >ZD947
 BCS ZDA5E
 BRA ZDA00
 
ZDA76 LDX >CURFCB
 LDA ,X
 STA $02,X
 CLR ,X
 CLR $3B,X
 CLRA
 STA $22,X
 RTS
*
** READ/WRITE NEXT SECTOR
*
NXTSEC BSR ZDAB1
 BCS ZDA99
 CLR ,X
 LSRA
 LBCS ZD60C
 LDB #$04
 STB $22,X
 ANDCC #$FE
ZDA99 RTS
 
ZDA9A LDX >CURFCB
 LDA $02,X
 CMPA #$83
 BNE ZDAAE
 LDA #$03
 STA $02,X
ZDAA7 JSR >WRSECT
 LBCS ZDBC1
ZDAAE ANDCC #$FE
 RTS
 
ZDAB1 BSR ZDA9A
 BCS ZDAC2
 LDX >CURFCB
 LDA $02,X
 CMPA #$03
 BLS ZDAAE
 LDB #$12
 ORCC #$01
ZDAC2 RTS
 
CLOSE BSR ZDAB1
 BCS ZDAF8
 CMPA #$02
 BEQ ZDAD3
ZDACB LDX >CURFCB
 CLR $02,X
 JMP >ZD50C
 
ZDAD3 LDA $12,X
 BNE ZDADD
 JSR >ZDBA7
 BRA ZDAF6
 
ZDADD BSR ZDAA7
 BCS ZDAF8
 LDX >CURFCB
 TST $17,X
 BEQ ZDAEE
 JSR >ZDC98
 BCS ZDAF8
ZDAEE JSR >RESV1
 BCS ZDAF8
 JSR >ZD947
ZDAF6 BCC ZDACB
ZDAF8 RTS
*
** OPEN FOR UPDATE
*
OPENUD JSR >OPENRD
 BCS ZDB26
 JSR >ZD60C
 BCS ZDB26
 LDA #$03
 BRA ZDB1F
*
**
*
RESV3 JSR >OPENRD
 BCS ZDB26
 LDX >CURFCB
 LDA $0F,X
 BITA #$80
 BNE ZDB27
 LDD $13,X
 JSR >ZD620
 BCS ZDB26
 LDA #$02
ZDB1F LDX >CURFCB
 STA $02,X
 ANDCC #$FE
ZDB26 RTS
 
ZDB27 LDB #$0B
 ORCC #$01
 RTS
*
** RENAME FILE
*
RENAME BSR ZDB63
 JSR >ZD892
 BCS ZDB5D
 BEQ ZDB59
 LDX >CURFCB
 LDB #$0B
ZDB3A LDA $24,X
 STA $04,X
 LEAX $01,X
 DECB
 BNE ZDB3A
 BSR ZDB93
 BCS ZDB5D
 LDX >CURFCB
 LDA $0F,X
 BITA #$80
 BNE ZDB27
 BITA #$60
 BNE ZDB5E
 BSR ZDB63
 BRA ZDBAE
 
ZDB59 LDB #$03
 ORCC #$01
ZDB5D RTS
ZDB5E LDB #$0C
 ORCC #$01
 RTS
 
ZDB63 LDX >CURFCB
 LDA #$0B
 STA >ZD411
ZDB6B LDA $04,X
 LDB $35,X
 STA $35,X
 STB $04,X
 LEAX $01,X
 DEC >ZD411
 BNE ZDB6B
 LDX >CURFCB
 LDA $0C,X
 BNE ZDB8F
 LDB #$03
ZDB85 LDA $3D,X
 STA $0C,X
 LEAX $01,X
 DECB
 BNE ZDB85
ZDB8F LDX >CURFCB
 RTS
 
ZDB93 BSR ZDB63
ZDB95 JSR >ZD892
 BCS ZDBA1
 BNE ZDBA2
 LDX >CURFCB
 ANDCC #$FE
ZDBA1 RTS
 
ZDBA2 LDB #$04
 ORCC #$01
 RTS
 
ZDBA7 LDX >CURFCB
 LDA #$FF
 STA $04,X
ZDBAE JSR >RESV1
 LDX >CURFCB
 LDA #$00
 STA $02,X
 RTS
 
ZDBB9 STD $40,X
 JSR >WRSECT
 BCC ZDBD5
ZDBC1 BITB #$40
 BNE ZDBCD
 BITB #$80
 BEQ ZDBD3
 LDB #$10
 BRA ZDBD3
ZDBCD LDB #$0B
 BRA ZDBD3
 
 LDB #$0A
ZDBD3 ORCC #$01
ZDBD5 RTS
*
** DELETE FILE
*
DELETE JSR >ZD917
 BCS ZDC39
 BSR ZDB95
 BCS ZDC39
 LDX >CURFCB
 LDA $0F,X
 BITA #$80
 BNE ZDC3A
 BITA #$60
 BNE ZDC3E
 JSR >ZD787
 LDX >ZD41B
 LDD $02,X
 BNE ZDC05
 LDX >CURFCB
 LDD $11,X
 BEQ ZDC31
 LDX >ZD41B
 STD ,X
 BRA ZDC19
 
ZDC05 LDX >CURFCB
 JSR >ZD620
 BCS ZDC39
 LDX >CURFCB
 LDD $11,X
 BEQ ZDC31
 BSR ZDBB9
 BCS ZDC39
ZDC19 LDX >CURFCB
 LDD $13,X
 LDX >ZD41B
 STD $02,X
 LDX >CURFCB
 LDD $15,X
 LDX >ZD41B
 ADDD $04,X
 STD $04,X
ZDC31 JSR >ZDBA7
 BCS ZDC39
 JSR >ZD947
ZDC39 RTS
 
ZDC3A LDB #$0B
 BRA ZDC40
ZDC3E LDB #$0C
ZDC40 ORCC #$01
 RTS
 
ZDC43 LDD $1E,X
 INCB
 CMPB $3C,X
 BLS ZDC4F
 LDB #$01
 INCA
ZDC4F CMPD $13,X
 BNE ZDC63
 LDA $37,X
 CMPA #$FF
 BEQ ZDC63
 INCA
 STA $37,X
 ANDCC #$FE
 RTS
 
ZDC63 BSR ZDC98
 BCS ZDC97
 LDX >CURFCB
 LDA $3A,X
 ADDA #$03
 BNE ZDC87
 LDD $1E,X
 CMPD $11,X
 BEQ ZDC7F
 LDB #$17
 ORCC #$01
 RTS
 
ZDC7F LDD $40,X
ZDC82 STD $38,X
 LDA #$04
ZDC87 STA $3A,X
 LDD $13,X
 STD $35,X
 LDA #$01
 STA $37,X
 ANDCC #$FE
ZDC97 RTS
 
ZDC98 LDD $38,X
 JSR >ZD620
 BCS ZDC97
 LDX >CURFCB
 TFR X,Y
 LDB $3A,X
 ABX
 LDB #$03
ZDCAB LDA $35,Y
 LEAY $01,Y
 STA $40,X
 LEAX $01,X
 DECB
 BNE ZDCAB
 JSR >WRSECT
 BCC ZDC97
 JMP >ZDBC1
 
ZDCC0 JSR >OPNREC
 JSR >ZD60C
 BCS ZDD0E
 LDX >CURFCB
 CLRA
 CLRB
 STD $20,X
 LDA $67,X
 STA $3C,X
 CLRB
ZDCD7 CLR $40,X
 LEAX $01,X
 DECB
 BNE ZDCD7
 LDX >CURFCB
 ANDCC #$FE
 RTS
*
** BACKUP ONE RECORD
*
BAKREC LDX >CURFCB
 LDA $17,X
 BEQ ZDD0A
 LDD $20,X
 SUBD #$0001
 BPL ZDCF8
 JMP >ZDD9A
*
** POSITION TO RECORD N
*
ZDCF8 STD $20,X
POSREC JSR >ZDAB1
 BCS ZDD0E
 RORA
 BCC ZDD0A
 CLR ,X
 LDA $17,X
 BNE ZDD0F
ZDD0A LDB #$12
 ORCC #$01
ZDD0E RTS
 
ZDD0F CLR >ZD411
 LDD $11,X
 LDY $20,X
 BEQ ZDD85
 JSR >ZDD9F
 BCS ZDD0E
 CLRA
 CLRB
ZDD22 TST $02,X
 BEQ ZDD9A
 ADDB $02,X
 ADCA #$00
 STX >ZD40F
 LDX >CURFCB
 CMPD $20,X
 BCC ZDD62
 LDX >ZD40F
 LEAX $03,X
 PSHS A
 LDA >ZD411
 INCA
 STA >ZD411
 CMPA #$54
 BEQ ZDD50
 CMPA #$A8
 PULS A
 BEQ ZDD9A
 BRA ZDD22
 
ZDD50 PSHS B
 LDX >CURFCB
 LDD $40,X
 BSR ZDD9F
 BCS ZDD9A
 PULS B
 PULS A
 BRA ZDD22
 
ZDD62 SUBD $20,X
 LDX >ZD40F
 LDA $02,X
 PSHS B
 SUBA ,S+
 DECA
 TFR A,B
 LDA ,X
 ADDB $01,X
 LDX >CURFCB
 BCS ZDD7F
ZDD7A CMPB $3C,X
 BLS ZDD85
ZDD7F SUBB $3C,X
 INCA
 BRA ZDD7A
 
ZDD85 JSR >ZD620
 BCS ZDD9E
 LDX >CURFCB
 LDD $42,X
 CMPD $20,X
 BEQ ZDDAA
 LDB #$19
 BRA ZDD9C
 
ZDD9A LDB #$18
ZDD9C ORCC #$01
ZDD9E RTS
 
ZDD9F JSR >ZD620
 BCS ZDDAC
 LDX >CURFCB
 LDB #$44
 ABX
ZDDAA ANDCC #$FE
ZDDAC RTS
 
ZDDAD LDX >CURFCB
 LDB #$0B
ZDDB2 LDA $24,X
 STA $04,X
 LEAX $01,X
 DECB
 BNE ZDDB2
 RTS
*
** FIND NEXT DRIVE
*
NXTDRV LDX >CURFCB
 LDA $03,X
 INCA
 CMPA #$04
 BCC ZDDD6
 STA $03,X
 BNE ZDDD0
 JSR >DRVRDY
 BRA ZDDD3
 
ZDDD0 JSR >QUICK
ZDDD3 BCS NXTDRV
 RTS
 
ZDDD6 LDB #$10
 ORCC #$01
 RTS
 END
 

Browse

Tools

Subversion Repositories System09

[/] [System09/] [rev_86/] [src/] [Flex9/] [f9-fms.asm] - Blame information for rev 113

Line No.	Rev	Author	Line
1	59	davidgb	`*`
2			`** FILE MANAGEMENT SYSTEM`
3			`*`
4			`ZD400 JMP >ZD436`
5			`FMSCLS JMP >ZD459`
6			`FMS JMP >FMS1`
7			`CPYMSG FCC / DISK OPERATING SYSTEM/`
8			`FCC / COPYRIGHT (C) 1980 BY/`
9			`FCC / TECHNICAL SYSTEMS CONSULTANTS/`
10			`ORG CPYMSG`
11			`FCBPTR RMB 2`
12			`CURFCB RMB 4`
13			`ZD40F RMB 2`
14			`ZD411 RMB 1`
15			`ZD412 RMB 1`
16			`ZD413 RMB 1`
17			`ZD414 RMB 1`
18			`ZD415 RMB 2`
19			`ZD417 RMB 1`
20			`ZD418 RMB 2`
21			`ZD41A RMB 1`
22			`ZD41B RMB 2`
23			`ZD41D RMB 24`
24			`VERFLG FCB $FF`
25			`*`
26			`**`
27			`*`
28			`ZD436 JSR >COLDDR`
29			`LDX #FCBPTR`
30			`LDB #$0A`
31			`BSR ZD451`
32			`LDX #Z0005`
33			`STX >ZD413`
34			`STX >ZD415`
35			`CLR >ZD41A`
36			`ZD44C LDX #ZD41B`
37			`LDB #$1A`
38			`ZD451 CLR ,X+`
39			`DECB`
40			`BNE ZD451`
41			`JMP >PRSPL5`
42
43			`ZD459 JSR >PRSPL4`
44			`ZD45C LDX >FCBPTR`
45			`BEQ ZD44C`
46			`LEAX -$1C,X`
47			`STX >CURFCB`
48			`PSHS Y`
49			`JSR >CLOSE`
50			`PULS Y`
51			`BCC ZD45C`
52			`LDX >CURFCB`
53			`CLR $02,X`
54			`JSR >PRSPL5`
55			`LDB #$FF`
56			`RTS`
57
58			`*`
59			`** FMS CALL, PROCESSING`
60			`*`
61			`FMS1 TST >ZCCFC`
62			`BEQ ZD483`
63			`JSR >PRSPL4`
64			`ZD483 PSHS Y,B`
65			`STX >CURFCB`
66			`CLR $01,X`
67			`LDB ,X`
68			`BNE DOFUNC`
69			`*`
70			`** READ/WRITE CHAR/BYTE`
71			`*`
72			`LDB $02,X`
73			`BEQ ZD4AC`
74			`CMPB #$02`
75			`BEQ ZD4A7`
76			`JSR >ZD5B4`
77			`ZD499 LDX >CURFCB`
78			`BCS ZD4C4`
79			`TST >ZCCFC`
80			`BNE ZD4C6`
81			`CLRB`
82			`PULS Y,B`
83			`RTS`
84
85			`ZD4A7 JSR >ZD6CF`
86			`BRA ZD499`
87			`ZD4AC LDB #$12`
88			`BRA ZD4C4`
89
90			`DOFUNC CMPB #$16`
91			`BLS DOFUN1`
92			`LDB #$01`
93			`BRA ZD4C4`
94			`DOFUN1 DECB`
95			`ASLB`
96			`LDX #FMSTBL`
97			`JSR [B,X]`
98			`LDX >CURFCB`
99			`BCC ZD4C6`
100			`ZD4C4 STB $01,X`
101			`ZD4C6 JSR >PRSPL5`
102			`TST $01,X`
103			`PULS Y,B`
104			`RTS`
105			`*`
106			`** FMS COMMAND VECTOR TABLE`
107			`*`
108			`FMSTBL FDB OPENRD FC 1`
109			`FDB OPENWR FC 2`
110			`FDB OPENUD FC 3`
111			`FDB CLOSE FC 4`
112			`FDB REWIND FC 5`
113			`FDB OPNDIR FC 6`
114			`FDB GETREC FC 7`
115			`FDB PUTREC FC 8`
116			`FDB RDSECT FC 9`
117			`FDB WRSECT FC 10`
118			`FDB RESV1 FC 11`
119			`FDB DELETE FC 12`
120			`FDB RENAME FC 13`
121			`FDB RESV2 FC 14`
122			`FDB NXTSEC FC 15`
123			`FDB OPNREC FC 16`
124			`FDB GETBYT FC 17`
125			`FDB PUTBYT FC 18`
126			`FDB RESV3 FC 19`
127			`FDB NXTDRV FC 20`
128			`FDB POSREC FC 21`
129			`FDB BAKREC FC 22`
130			`*`
131			`**`
132			`*`
133			`ZD4FA BSR ZD51C`
134			`BNE ZD503`
135			`LDB #$02`
136			`ORCC #$01`
137			`RTS`
138
139			`ZD503 STD ,X`
140			`LDX ,X`
141			`CLR ,X`
142			`CLR $01,X`
143			`RTS`
144
145			`ZD50C BSR ZD51C`
146			`BEQ ZD515`
147			`LDB #$0D`
148			`ORCC #$01`
149			`RTS`
150
151			`ZD515 LDD [,X]`
152			`STD ,X`
153			`ANDCC #$FE`
154			`RTS`
155
156			`ZD51C LDD >CURFCB`
157			`ADDD #$001C`
158			`LDX #FCBPTR`
159			`ZD525 LDY ,X`
160			`BNE ZD52D`
161			`ANDCC #$FB`
162			`RTS`
163
164			`ZD52D CMPD ,X`
165			`BNE ZD533`
166			`RTS`
167			`ZD533 LDX ,X`
168			`BRA ZD525`
169
170			`ZD537 LDX >CURFCB`
171			`CLRA`
172			`CLRB`
173			`BSR ZD540`
174			`LDB #$2F`
175			`ZD540 STA $11,X`
176			`LEAX $01,X`
177			`DECB`
178			`BNE ZD540`
179			`RTS`
180
181			`ZD549 LDX >CURFCB`
182			`LDB #$0B`
183			`ZD54E LDA $04,X`
184			`STA $24,X`
185			`LEAX $01,X`
186			`DECB`
187			`BNE ZD54E`
188			`RTS`
189
190			`ZD559 LDX >CURFCB`
191			`LDB #$0B`
192			`ZD55E LDA $04,X`
193			`PSHS A`
194			`LDA $24,X`
195			`CMPA ,S+`
196			`BNE ZD56E`
197			`LEAX $01,X`
198			`DECB`
199			`BNE ZD55E`
200			`ZD56E RTS`
201			`*`
202			`** GET RANDOM BYTE FROM SECTOR`
203			`*`
204			`GETBYT LDX >CURFCB`
205			`LDB $02,X`
206			`LSRB`
207			`BCC ZD5F0`
208			`LDB $23,X`
209			`JMP >ZD600`
210
211			`ZD57D LDX >CURFCB`
212			`LDB $22,X`
213			`INC $22,X`
214			`ABX`
215			`STA $40,X`
216			`INCB`
217			`BNE ZD5AC`
218			`ORCC #$01`
219			`RTS`
220			`*`
221			`** PUT RANDOM BYTE IN SECTOR`
222			`*`
223			`PUTBYT LDX >CURFCB`
224			`LDB $02,X`
225			`ANDB #$03`
226			`CMPB #$03`
227			`BNE ZD5F0`
228			`ORB #$80`
229			`STB $02,X`
230			`LDB $0F,X`
231			`BITB #$80`
232			`BNE ZD5AF`
233			`LDB $23,X`
234			`ABX`
235			`STA $40,X`
236			`ZD5AC ANDCC #$FE`
237			`RTS`
238
239			`ZD5AF LDB #$0B`
240			`ORCC #$01`
241			`RTS`
242
243			`ZD5B4 LDA $3B,X`
244			`BMI ZD5F5`
245			`BEQ ZD5C2`
246			`DEC $3B,X`
247			`LDA #$20`
248			`BRA ZD5DF`
249
250			`ZD5C2 BSR ZD5F5`
251			`BCS ZD5E1`
252			`CMPA #$18`
253			`BHI ZD5DF`
254			`BEQ ZD5C2`
255			`CMPA #$09`
256			`BNE ZD5DC`
257			`BSR ZD5F5`
258			`BCS ZD5E1`
259			`LDX >CURFCB`
260			`STA $3B,X`
261			`BRA ZD5B4`
262
263			`ZD5DC TSTA`
264			`BEQ ZD5C2`
265			`ZD5DF ANDCC #$FE`
266			`ZD5E1 RTS`
267			`*`
268			`** REWIND FILE`
269			`*`
270			`REWIND JSR >ZDAB1`
271			`BCS ZD5F0`
272			`BITA #$01`
273			`BEQ ZD5F0`
274			`STA ,X`
275			`JMP >ZD9A0`
276
277			`ZD5F0 LDB #$12`
278			`ORCC #$01`
279			`RTS`
280
281			`ZD5F5 LDX >CURFCB`
282			`LDB $22,X`
283			`BEQ ZD607`
284			`INC $22,X`
285			`ZD600 ABX`
286			`LDA $40,X`
287			`ANDCC #$FE`
288			`RTS`
289
290			`ZD607 BSR ZD60C`
291			`BCC ZD5F5`
292			`RTS`
293
294			`ZD60C LDX >CURFCB`
295			`LDD $40,X`
296			`INC $21,X`
297			`BNE ZD61A`
298			`INC $20,X`
299			`ZD61A CMPD #$0000`
300			`BEQ ZD63C`
301			`ZD620 STD $1E,X`
302			`PSHS A`
303			`LDA #$04`
304			`STA $22,X`
305			`PULS A`
306			`BSR RDSECT`
307			`BCC ZD640`
308			`BITB #$80`
309			`BEQ ZD638`
310			`LDB #$10`
311			`BRA ZD63E`
312
313			`ZD638 LDB #$09`
314			`BRA ZD63E`
315
316			`ZD63C LDB #$08`
317			`ZD63E ORCC #$01`
318			`ZD640 RTS`
319			`*`
320			`** READ SINGLE SECTOR`
321			`*`
322			`RDSECT BSR ZD668`
323			`LDX >CURFCB`
324			`JSR >DRIVE`
325			`BCS ZD65D`
326			`ZD64B BSR ZD65E`
327			`JSR >READ`
328			`BNE ZD655`
329			`ANDCC #$FE`
330			`RTS`
331
332			`ZD655 PSHS B`
333			`BSR ZD670`
334			`PULS B`
335			`BCC ZD64B`
336			`ZD65D RTS`
337
338			`ZD65E LDX >CURFCB`
339			`LDD $1E,X`
340			`LEAX $40,X`
341			`RTS`
342
343			`ZD668 CLRA`
344			`STA >ZD411`
345			`STA >ZD412`
346			`RTS`
347
348			`ZD670 BITB #$10`
349			`BNE ZD685`
350			`BITB #$80`
351			`BNE ZD69C`
352			`LDB >ZD411`
353			`INCB`
354			`CMPB #$07`
355			`BEQ ZD685`
356			`STB >ZD411`
357			`BRA RESV2`
358
359			`ZD685 CLR >ZD411`
360			`LDB >ZD412`
361			`INCB`
362			`CMPB #$04`
363			`BEQ ZD69C`
364			`STB >ZD412`
365			`LDX >CURFCB`
366			`JSR >RESTOR`
367			`*`
368			`** RESERVED`
369			`*`
370			`RESV2 ANDCC #$FE`
371			`RTS`
372			`ZD69C ORCC #$01`
373			`RTS`
374			`*`
375			`** WRITE SINGLE SECTOR`
376			`*`
377			`WRSECT BSR ZD668`
378			`LDX >CURFCB`
379			`JSR >DRIVE`
380			`BCS ZD6C9`
381			`ZD6A9 LDX >CURFCB`
382			`BSR ZD65E`
383			`JSR >WRITE`
384			`BNE ZD6BD`
385			`LDA >VERFLG`
386			`BEQ ZD6EF`
387			`JSR >VERIFY`
388			`BEQ ZD6EF`
389			`ZD6BD BITB #$40`
390			`BNE ZD6CC`
391			`PSHS B`
392			`BSR ZD670`
393			`PULS B`
394			`BCC ZD6A9`
395			`ZD6C9 RTS`
396
397			`LDB #$20`
398			`ZD6CC ORCC #$01`
399			`RTS`
400
401			`ZD6CF LDX >CURFCB`
402			`LDB $3B,X`
403			`BMI ZD714`
404			`CMPA #$20`
405			`BNE ZD6EA`
406			`INCB`
407			`STB $3B,X`
408			`CMPB #$7F`
409			`BNE ZD6EF`
410			`BRA ZD6F2`
411
412			`ZD6E5 BSR ZD6F2`
413			`BCC ZD6CF`
414			`RTS`
415
416			`ZD6EA TSTB`
417			`BEQ ZD714`
418			`BRA ZD6E5`
419
420			`ZD6EF ANDCC #$FE`
421			`RTS`
422
423			`ZD6F2 PSHS A`
424			`CMPB #$01`
425			`BNE ZD6FC`
426			`LDA #$20`
427			`BRA ZD70C`
428
429			`ZD6FC LDA #$09`
430			`BSR ZD714`
431			`PULS A`
432			`BCS ZD713`
433			`PSHS A`
434			`LDX >CURFCB`
435			`LDA $3B,X`
436			`ZD70C CLR $3B,X`
437			`BSR ZD714`
438			`PULS A`
439			`ZD713 RTS`
440
441			`ZD714 LDX >CURFCB`
442			`LDB $02,X`
443			`CMPB #$02`
444			`LBNE ZD5F0`
445			`LDB $22,X`
446			`CMPB #$04`
447			`BNE ZD72E`
448			`PSHS A`
449			`BSR ZD74B`
450			`PULS A`
451			`BCS ZD73D`
452			`ZD72E JSR >ZD57D`
453			`BCC ZD73D`
454			`LDB #$04`
455			`LDX >CURFCB`
456			`STB $22,X`
457			`ANDCC #$FE`
458			`ZD73D RTS`
459
460			`ZD73E LDX >CURFCB`
461			`CLRA`
462			`CLRB`
463			`STD $20,X`
464			`STD $42,X`
465			`BRA ZD772`
466
467			`ZD74B LDB $12,X`
468			`BNE ZD772`
469			`LDB $17,X`
470			`BEQ ZD799`
471			`CLR $17,X`
472			`BSR ZD799`
473			`BCS ZD786`
474			`BSR ZD73E`
475			`BCS ZD786`
476			`BSR ZD73E`
477			`BCS ZD786`
478			`LDX >CURFCB`
479			`LDB #$02`
480			`STB $17,X`
481			`LDD $11,X`
482			`JMP >ZDC82`
483
484			`ZD772 BSR ZD782`
485			`LDX >CURFCB`
486			`STD $40,X`
487			`JSR >WRSECT`
488			`BCC ZD799`
489			`JMP >ZDBC1`
490
491			`ZD782 BSR ZD787`
492			`LDD ,X`
493			`ZD786 RTS`
494
495			`ZD787 LDX >CURFCB`
496			`LDB $03,X`
497			`LDA #$06`
498			`MUL`
499			`LDX #ZD41D`
500			`ABX`
501			`STX >ZD41B`
502			`TST ,X`
503			`RTS`
504
505			`ZD799 BSR ZD782`
506			`BNE ZD7A2`
507			`LDB #$07`
508			`ZD79F ORCC #$01`
509			`RTS`
510
511			`ZD7A2 LDX >CURFCB`
512			`STD $13,X`
513			`TST $12,X`
514			`BNE ZD7B0`
515			`STD $11,X`
516			`ZD7B0 INC $16,X`
517			`BNE ZD7B8`
518			`INC $15,X`
519			`ZD7B8 TST $17,X`
520			`BEQ ZD7C8`
521			`JSR >ZDC43`
522			`BCS ZD79F`
523			`LDX >CURFCB`
524			`LDD $13,X`
525			`ZD7C8 JSR >ZD620`
526			`BCS ZD79F`
527			`LDX >CURFCB`
528			`LDD $40,X`
529			`PSHS B,A`
530			`BSR ZD787`
531			`PULS B,A`
532			`STD ,X`
533			`BNE ZD7E7`
534			`CLR $02,X`
535			`CLR $03,X`
536			`CLR $04,X`
537			`CLR $05,X`
538			`BRA ZD7EF`
539
540			`ZD7E7 LDY $04,X`
541			`LEAY -$01,Y`
542			`STY $04,X`
543			`ZD7EF CLRA`
544			`LDX >CURFCB`
545			`INC $21,X`
546			`BNE ZD7FB`
547			`INC $20,X`
548			`ZD7FB CLRB`
549			`ZD7FC STA $40,X`
550			`LEAX $01,X`
551			`DECB`
552			`BNE ZD7FC`
553			`LDX >CURFCB`
554			`LDD $20,X`
555			`STD $42,X`
556			`ANDCC #$FE`
557			`RTS`
558			`*`
559			`** OPEN SYSTEM INFO. RECORD`
560			`*`
561			`OPNREC CLRB`
562			`PSHS B`
563			`LDB #$03`
564			`BRA ZD825`
565			`LDX >ZD415`
566			`STX >ZD413`
567			`OPNDIR LDB >ZD413`
568			`PSHS B`
569			`LDB >ZD414`
570			`ZD825 LDX >CURFCB`
571			`STB $41,X`
572			`PULS B`
573			`STB $40,X`
574			`CLR >ZD418`
575			`CLRB`
576			`STB $22,X`
577			`RTS`
578			`*`
579			`** GET INFO RECORD`
580			`*`
581			`GETREC LDX >CURFCB`
582			`LDB $22,X`
583			`BNE ZD85D`
584			`JSR >ZD60C`
585			`BCS ZD875`
586			`LDX >CURFCB`
587			`TST >ZD418`
588			`BNE ZD852`
589			`LDD`
590			`STD >ZD418`
591			`ZD852 LDA #$10`
592			`STA $22,X`
593			`LDD $1E,X`
594			`STD $2F,X`
595			`ZD85D LDA $22,X`
596			`STA $31,X`
597			`LDB #$18`
598			`ZD865 PSHS X,B`
599			`JSR >ZD5F5`
600			`PULS X,B`
601			`STA $04,X`
602			`LEAX $01,X`
603			`DECB`
604			`BNE ZD865`
605			`ANDCC #$FE`
606			`ZD875 RTS`
607			`*`
608			`** PUT INFORMATION RECORD`
609			`*`
610			`PUTREC LDX >CURFCB`
611			`LDA $31,X`
612			`STA $22,X`
613			`LDB #$18`
614			`ZD881 PSHS X,B`
615			`LDA $04,X`
616			`JSR >ZD714`
617			`PULS X,B`
618			`LEAX $01,X`
619			`DECB`
620			`BNE ZD881`
621			`JMP >WRSECT`
622
623			`ZD892 LDX >CURFCB`
624			`LDA $03,X`
625			`STA $23,X`
626			`LDA >ZD417`
627			`TST >ZD41A`
628			`BNE ZD8D3`
629			`STA $03,X`
630			`LDX >ZD415`
631			`STX >ZD413`
632			`ZD8AA CMPX #Z0005`
633			`BEQ ZD8BB`
634			`BSR ZD8D3`
635			`BLS ZD8EA`
636			`LDX >ZD418`
637			`STX >ZD413`
638			`BRA ZD8AA`
639
640			`ZD8BB LDX >CURFCB`
641			`LDA $23,X`
642			`STA $03,X`
643			`BPL ZD8D3`
644			`ZD8C5 JSR >NXTDRV`
645			`BCS ZD900`
646			`BSR ZD8D3`
647			`BLS ZD8EA`
648			`JSR >ZDDAD`
649			`BRA ZD8C5`
650
651			`ZD8D3 LDX >CURFCB`
652			`CLR >ZD41A`
653			`JSR >ZD549`
654			`JSR >OPNDIR`
655			`ZD8DF JSR >GETREC`
656			`BCC ZD8EB`
657			`CMPB #$08`
658			`BEQ ZD900`
659			`ORCC #$01`
660			`ZD8EA RTS`
661
662			`ZD8EB LDX >CURFCB`
663			`LDA $04,X`
664			`BEQ ZD8FE`
665			`BPL ZD8F6`
666			`BSR ZD905`
667			`ZD8F6 JSR >ZD559`
668			`BNE ZD8DF`
669			`ANDCC #$FE`
670			`RTS`
671
672			`ZD8FE BSR ZD905`
673			`ZD900 ANDCC #$FB`
674			`ANDCC #$FE`
675			`RTS`
676
677			`ZD905 LDA $33,X`
678			`BNE ZD916`
679			`LDD $2F,X`
680			`STD $32,X`
681			`LDA $31,X`
682			`STA $34,X`
683			`ZD916 RTS`
684
685			`ZD917 JSR >ZD787`
686			`BNE ZD933`
687			`BSR ZD936`
688			`BCS ZD935`
689			`LDB #$06`
690			`LDY >CURFCB`
691			`LDX >ZD41B`
692			`ZD929 LDA $5D,Y`
693			`LEAY $01,Y`
694			`STA ,X+`
695			`DECB`
696			`BNE ZD929`
697			`ZD933 ANDCC #$FE`
698			`ZD935 RTS`
699
700			`ZD936 JSR >OPNREC`
701			`JSR >ZD60C`
702			`BCS ZD946`
703			`LDX >CURFCB`
704			`LDB #$10`
705			`STB $22,X`
706			`ZD946 RTS`
707
708			`ZD947 JSR >ZD787`
709			`BSR ZD936`
710			`BCS ZD946`
711			`LDB #$06`
712			`LDY >CURFCB`
713			`LDX >ZD41B`
714			`ZD957 LDA ,X+`
715			`STA $5D,Y`
716			`LEAY $01,Y`
717			`DECB`
718			`BNE ZD957`
719			`JSR >WRSECT`
720			`BCC ZD946`
721			`JMP >ZDBC1`
722			`*`
723			`**`
724			`*`
725			`RESV1 LDX >CURFCB`
726			`LDA #$02`
727			`STA $02,X`
728			`LDD $2F,X`
729			`STD $1E,X`
730			`JSR >RDSECT`
731			`BCS ZD983`
732			`JSR >PUTREC`
733			`BCC ZD985`
734			`JMP >ZDBC1`
735
736			`ZD983 LDB #$0A`
737			`ZD985 RTS`
738			`*`
739			`** OPEN FOR READ`
740			`*`
741			`OPENRD JSR >ZD4FA`
742			`BCS ZD9C8`
743			`JSR >ZD892`
744			`BCS ZD9C8`
745			`BNE ZD9CD`
746			`LDX >CURFCB`
747			`TST >ZD41A`
748			`BEQ ZD9A0`
749			`LDA $0F,X`
750			`BITA #$20`
751			`BNE ZD9C9`
752			`ZD9A0 JSR >ZDCC0`
753			`BCS ZD9CF`
754			`LDD $11,X`
755			`STD $40,X`
756			`JSR >ZDA76`
757			`LDB $17,X`
758			`BEQ ZD9C6`
759			`ZD9B3 PSHS B`
760			`JSR >ZD60C`
761			`PULS B`
762			`BCS ZD9C8`
763			`DECB`
764			`BNE ZD9B3`
765			`LDX >CURFCB`
766			`CLRB`
767			`STB $22,X`
768			`ZD9C6 ANDCC #$FE`
769			`ZD9C8 RTS`
770
771			`ZD9C9 LDB #$11`
772			`BRA ZD9CF`
773
774			`ZD9CD LDB #$04`
775			`ZD9CF PSHS B`
776			`JSR >ZD50C`
777			`PULS B`
778			`ORCC #$01`
779			`RTS`
780
781			`OPENWR LDX >CURFCB`
782			`TST $03,X`
783			`BPL ZD9E8`
784			`JSR >NXTDRV`
785			`BCC ZD9E8`
786			`LDB #$10`
787			`RTS`
788
789			`ZD9E8 JSR >ZD4FA`
790			`BCS ZD9CF`
791			`JSR >ZD537`
792			`JSR >ZD917`
793			`BCS ZD9CF`
794			`JSR >ZD892`
795			`BCS ZD9CF`
796			`BNE ZDA00`
797			`LDB #$03`
798			`BRA ZD9CF`
799
800			`ZDA00 JSR >ZDCC0`
801			`BCS ZD9CF`
802			`LDX >CURFCB`
803			`LDB #$0A`
804			`ZDA0A CLR $0F,X`
805			`LEAX $01,X`
806			`DECB`
807			`BNE ZDA0A`
808			`LDX >CURFCB`
809			`LDD $32,X`
810			`BEQ ZDA40`
811			`STD $2F,X`
812			`LDA $34,X`
813			`STA $31,X`
814			`LDD >DATERG`
815			`STD $19,X`
816			`LDA >YEAR`
817			`STA $1B,X`
818			`JSR >ZDDAD`
819			`JSR >RESV1`
820			`BCS ZD9CF`
821			`BSR ZDA76`
822			`LDA #$04`
823			`STA $22,X`
824			`ANDCC #$FE`
825			`RTS`
826
827			`ZDA40 LDX >CURFCB`
828			`CLR $17,X`
829			`INC $12,X`
830			`LDD $2F,X`
831			`JSR >ZD620`
832			`BCS ZDA5E`
833			`JSR >ZD772`
834			`BCS ZDA5E`
835			`JSR >WRSECT`
836			`BCC ZDA61`
837			`JSR >ZDBC1`
838			`ZDA5E JMP >ZD9CF`
839
840			`ZDA61 LDX >CURFCB`
841			`LDD $1E,X`
842			`STD $32,X`
843			`LDA #$10`
844			`STA $34,X`
845			`JSR >ZD947`
846			`BCS ZDA5E`
847			`BRA ZDA00`
848
849			`ZDA76 LDX >CURFCB`
850			`LDA ,X`
851			`STA $02,X`
852			`CLR ,X`
853			`CLR $3B,X`
854			`CLRA`
855			`STA $22,X`
856			`RTS`
857			`*`
858			`** READ/WRITE NEXT SECTOR`
859			`*`
860			`NXTSEC BSR ZDAB1`
861			`BCS ZDA99`
862			`CLR ,X`
863			`LSRA`
864			`LBCS ZD60C`
865			`LDB #$04`
866			`STB $22,X`
867			`ANDCC #$FE`
868			`ZDA99 RTS`
869
870			`ZDA9A LDX >CURFCB`
871			`LDA $02,X`
872			`CMPA #$83`
873			`BNE ZDAAE`
874			`LDA #$03`
875			`STA $02,X`
876			`ZDAA7 JSR >WRSECT`
877			`LBCS ZDBC1`
878			`ZDAAE ANDCC #$FE`
879			`RTS`
880
881			`ZDAB1 BSR ZDA9A`
882			`BCS ZDAC2`
883			`LDX >CURFCB`
884			`LDA $02,X`
885			`CMPA #$03`
886			`BLS ZDAAE`
887			`LDB #$12`
888			`ORCC #$01`
889			`ZDAC2 RTS`
890
891			`CLOSE BSR ZDAB1`
892			`BCS ZDAF8`
893			`CMPA #$02`
894			`BEQ ZDAD3`
895			`ZDACB LDX >CURFCB`
896			`CLR $02,X`
897			`JMP >ZD50C`
898
899			`ZDAD3 LDA $12,X`
900			`BNE ZDADD`
901			`JSR >ZDBA7`
902			`BRA ZDAF6`
903
904			`ZDADD BSR ZDAA7`
905			`BCS ZDAF8`
906			`LDX >CURFCB`
907			`TST $17,X`
908			`BEQ ZDAEE`
909			`JSR >ZDC98`
910			`BCS ZDAF8`
911			`ZDAEE JSR >RESV1`
912			`BCS ZDAF8`
913			`JSR >ZD947`
914			`ZDAF6 BCC ZDACB`
915			`ZDAF8 RTS`
916			`*`
917			`** OPEN FOR UPDATE`
918			`*`
919			`OPENUD JSR >OPENRD`
920			`BCS ZDB26`
921			`JSR >ZD60C`
922			`BCS ZDB26`
923			`LDA #$03`
924			`BRA ZDB1F`
925			`*`
926			`**`
927			`*`
928			`RESV3 JSR >OPENRD`
929			`BCS ZDB26`
930			`LDX >CURFCB`
931			`LDA $0F,X`
932			`BITA #$80`
933			`BNE ZDB27`
934			`LDD $13,X`
935			`JSR >ZD620`
936			`BCS ZDB26`
937			`LDA #$02`
938			`ZDB1F LDX >CURFCB`
939			`STA $02,X`
940			`ANDCC #$FE`
941			`ZDB26 RTS`
942
943			`ZDB27 LDB #$0B`
944			`ORCC #$01`
945			`RTS`
946			`*`
947			`** RENAME FILE`
948			`*`
949			`RENAME BSR ZDB63`
950			`JSR >ZD892`
951			`BCS ZDB5D`
952			`BEQ ZDB59`
953			`LDX >CURFCB`
954			`LDB #$0B`
955			`ZDB3A LDA $24,X`
956			`STA $04,X`
957			`LEAX $01,X`
958			`DECB`
959			`BNE ZDB3A`
960			`BSR ZDB93`
961			`BCS ZDB5D`
962			`LDX >CURFCB`
963			`LDA $0F,X`
964			`BITA #$80`
965			`BNE ZDB27`
966			`BITA #$60`
967			`BNE ZDB5E`
968			`BSR ZDB63`
969			`BRA ZDBAE`
970
971			`ZDB59 LDB #$03`
972			`ORCC #$01`
973			`ZDB5D RTS`
974			`ZDB5E LDB #$0C`
975			`ORCC #$01`
976			`RTS`
977
978			`ZDB63 LDX >CURFCB`
979			`LDA #$0B`
980			`STA >ZD411`
981			`ZDB6B LDA $04,X`
982			`LDB $35,X`
983			`STA $35,X`
984			`STB $04,X`
985			`LEAX $01,X`
986			`DEC >ZD411`
987			`BNE ZDB6B`
988			`LDX >CURFCB`
989			`LDA $0C,X`
990			`BNE ZDB8F`
991			`LDB #$03`
992			`ZDB85 LDA $3D,X`
993			`STA $0C,X`
994			`LEAX $01,X`
995			`DECB`
996			`BNE ZDB85`
997			`ZDB8F LDX >CURFCB`
998			`RTS`
999
1000			`ZDB93 BSR ZDB63`
1001			`ZDB95 JSR >ZD892`
1002			`BCS ZDBA1`
1003			`BNE ZDBA2`
1004			`LDX >CURFCB`
1005			`ANDCC #$FE`
1006			`ZDBA1 RTS`
1007
1008			`ZDBA2 LDB #$04`
1009			`ORCC #$01`
1010			`RTS`
1011
1012			`ZDBA7 LDX >CURFCB`
1013			`LDA #$FF`
1014			`STA $04,X`
1015			`ZDBAE JSR >RESV1`
1016			`LDX >CURFCB`
1017			`LDA #$00`
1018			`STA $02,X`
1019			`RTS`
1020
1021			`ZDBB9 STD $40,X`
1022			`JSR >WRSECT`
1023			`BCC ZDBD5`
1024			`ZDBC1 BITB #$40`
1025			`BNE ZDBCD`
1026			`BITB #$80`
1027			`BEQ ZDBD3`
1028			`LDB #$10`
1029			`BRA ZDBD3`
1030			`ZDBCD LDB #$0B`
1031			`BRA ZDBD3`
1032
1033			`LDB #$0A`
1034			`ZDBD3 ORCC #$01`
1035			`ZDBD5 RTS`
1036			`*`
1037			`** DELETE FILE`
1038			`*`
1039			`DELETE JSR >ZD917`
1040			`BCS ZDC39`
1041			`BSR ZDB95`
1042			`BCS ZDC39`
1043			`LDX >CURFCB`
1044			`LDA $0F,X`
1045			`BITA #$80`
1046			`BNE ZDC3A`
1047			`BITA #$60`
1048			`BNE ZDC3E`
1049			`JSR >ZD787`
1050			`LDX >ZD41B`
1051			`LDD $02,X`
1052			`BNE ZDC05`
1053			`LDX >CURFCB`
1054			`LDD $11,X`
1055			`BEQ ZDC31`
1056			`LDX >ZD41B`
1057			`STD ,X`
1058			`BRA ZDC19`
1059
1060			`ZDC05 LDX >CURFCB`
1061			`JSR >ZD620`
1062			`BCS ZDC39`
1063			`LDX >CURFCB`
1064			`LDD $11,X`
1065			`BEQ ZDC31`
1066			`BSR ZDBB9`
1067			`BCS ZDC39`
1068			`ZDC19 LDX >CURFCB`
1069			`LDD $13,X`
1070			`LDX >ZD41B`
1071			`STD $02,X`
1072			`LDX >CURFCB`
1073			`LDD $15,X`
1074			`LDX >ZD41B`
1075			`ADDD $04,X`
1076			`STD $04,X`
1077			`ZDC31 JSR >ZDBA7`
1078			`BCS ZDC39`
1079			`JSR >ZD947`
1080			`ZDC39 RTS`
1081
1082			`ZDC3A LDB #$0B`
1083			`BRA ZDC40`
1084			`ZDC3E LDB #$0C`
1085			`ZDC40 ORCC #$01`
1086			`RTS`
1087
1088			`ZDC43 LDD $1E,X`
1089			`INCB`
1090			`CMPB $3C,X`
1091			`BLS ZDC4F`
1092			`LDB #$01`
1093			`INCA`
1094			`ZDC4F CMPD $13,X`
1095			`BNE ZDC63`
1096			`LDA $37,X`
1097			`CMPA #$FF`
1098			`BEQ ZDC63`
1099			`INCA`
1100			`STA $37,X`
1101			`ANDCC #$FE`
1102			`RTS`
1103
1104			`ZDC63 BSR ZDC98`
1105			`BCS ZDC97`
1106			`LDX >CURFCB`
1107			`LDA $3A,X`
1108			`ADDA #$03`
1109			`BNE ZDC87`
1110			`LDD $1E,X`
1111			`CMPD $11,X`
1112			`BEQ ZDC7F`
1113			`LDB #$17`
1114			`ORCC #$01`
1115			`RTS`
1116
1117			`ZDC7F LDD $40,X`
1118			`ZDC82 STD $38,X`
1119			`LDA #$04`
1120			`ZDC87 STA $3A,X`
1121			`LDD $13,X`
1122			`STD $35,X`
1123			`LDA #$01`
1124			`STA $37,X`
1125			`ANDCC #$FE`
1126			`ZDC97 RTS`
1127
1128			`ZDC98 LDD $38,X`
1129			`JSR >ZD620`
1130			`BCS ZDC97`
1131			`LDX >CURFCB`
1132			`TFR X,Y`
1133			`LDB $3A,X`
1134			`ABX`
1135			`LDB #$03`
1136			`ZDCAB LDA $35,Y`
1137			`LEAY $01,Y`
1138			`STA $40,X`
1139			`LEAX $01,X`
1140			`DECB`
1141			`BNE ZDCAB`
1142			`JSR >WRSECT`
1143			`BCC ZDC97`
1144			`JMP >ZDBC1`
1145
1146			`ZDCC0 JSR >OPNREC`
1147			`JSR >ZD60C`
1148			`BCS ZDD0E`
1149			`LDX >CURFCB`
1150			`CLRA`
1151			`CLRB`
1152			`STD $20,X`
1153			`LDA $67,X`
1154			`STA $3C,X`
1155			`CLRB`
1156			`ZDCD7 CLR $40,X`
1157			`LEAX $01,X`
1158			`DECB`
1159			`BNE ZDCD7`
1160			`LDX >CURFCB`
1161			`ANDCC #$FE`
1162			`RTS`
1163			`*`
1164			`** BACKUP ONE RECORD`
1165			`*`
1166			`BAKREC LDX >CURFCB`
1167			`LDA $17,X`
1168			`BEQ ZDD0A`
1169			`LDD $20,X`
1170			`SUBD #$0001`
1171			`BPL ZDCF8`
1172			`JMP >ZDD9A`
1173			`*`
1174			`** POSITION TO RECORD N`
1175			`*`
1176			`ZDCF8 STD $20,X`
1177			`POSREC JSR >ZDAB1`
1178			`BCS ZDD0E`
1179			`RORA`
1180			`BCC ZDD0A`
1181			`CLR ,X`
1182			`LDA $17,X`
1183			`BNE ZDD0F`
1184			`ZDD0A LDB #$12`
1185			`ORCC #$01`
1186			`ZDD0E RTS`
1187
1188			`ZDD0F CLR >ZD411`
1189			`LDD $11,X`
1190			`LDY $20,X`
1191			`BEQ ZDD85`
1192			`JSR >ZDD9F`
1193			`BCS ZDD0E`
1194			`CLRA`
1195			`CLRB`
1196			`ZDD22 TST $02,X`
1197			`BEQ ZDD9A`
1198			`ADDB $02,X`
1199			`ADCA #$00`
1200			`STX >ZD40F`
1201			`LDX >CURFCB`
1202			`CMPD $20,X`
1203			`BCC ZDD62`
1204			`LDX >ZD40F`
1205			`LEAX $03,X`
1206			`PSHS A`
1207			`LDA >ZD411`
1208			`INCA`
1209			`STA >ZD411`
1210			`CMPA #$54`
1211			`BEQ ZDD50`
1212			`CMPA #$A8`
1213			`PULS A`
1214			`BEQ ZDD9A`
1215			`BRA ZDD22`
1216
1217			`ZDD50 PSHS B`
1218			`LDX >CURFCB`
1219			`LDD $40,X`
1220			`BSR ZDD9F`
1221			`BCS ZDD9A`
1222			`PULS B`
1223			`PULS A`
1224			`BRA ZDD22`
1225
1226			`ZDD62 SUBD $20,X`
1227			`LDX >ZD40F`
1228			`LDA $02,X`
1229			`PSHS B`
1230			`SUBA ,S+`
1231			`DECA`
1232			`TFR A,B`
1233			`LDA ,X`
1234			`ADDB $01,X`
1235			`LDX >CURFCB`
1236			`BCS ZDD7F`
1237			`ZDD7A CMPB $3C,X`
1238			`BLS ZDD85`
1239			`ZDD7F SUBB $3C,X`
1240			`INCA`
1241			`BRA ZDD7A`
1242
1243			`ZDD85 JSR >ZD620`
1244			`BCS ZDD9E`
1245			`LDX >CURFCB`
1246			`LDD $42,X`
1247			`CMPD $20,X`
1248			`BEQ ZDDAA`
1249			`LDB #$19`
1250			`BRA ZDD9C`
1251
1252			`ZDD9A LDB #$18`
1253			`ZDD9C ORCC #$01`
1254			`ZDD9E RTS`
1255
1256			`ZDD9F JSR >ZD620`
1257			`BCS ZDDAC`
1258			`LDX >CURFCB`
1259			`LDB #$44`
1260			`ABX`
1261			`ZDDAA ANDCC #$FE`
1262			`ZDDAC RTS`
1263
1264			`ZDDAD LDX >CURFCB`
1265			`LDB #$0B`
1266			`ZDDB2 LDA $24,X`
1267			`STA $04,X`
1268			`LEAX $01,X`
1269			`DECB`
1270			`BNE ZDDB2`
1271			`RTS`
1272			`*`
1273			`** FIND NEXT DRIVE`
1274			`*`
1275			`NXTDRV LDX >CURFCB`
1276			`LDA $03,X`
1277			`INCA`
1278			`CMPA #$04`
1279			`BCC ZDDD6`
1280			`STA $03,X`
1281			`BNE ZDDD0`
1282			`JSR >DRVRDY`
1283			`BRA ZDDD3`
1284
1285			`ZDDD0 JSR >QUICK`
1286			`ZDDD3 BCS NXTDRV`
1287			`RTS`
1288
1289			`ZDDD6 LDB #$10`
1290			`ORCC #$01`
1291			`RTS`
1292			`END`
1293