s4.s

" s4

alloc: 0
   -1
   tad s.nfblks
   spa
   jmp 1f
   dac s.nfblks
   tad fblksp
   jms laci
   dac 9f+t
   jms copyz; dskbuf; 64
   lac 9f+t
   jms dskwr
   dzm .savblk
   lac 9f+t
   jmp alloc i
1:
   lac s.nxfblk
   sna
   jms halt " OUT OF DISK
   dac s.fblks
   jms dskrd
   lac dskbuf
   dac s.nxfblk
   jms copy; dskbuf+1; s.fblks+1; 9
   lac d10
   dac s.nfblks
   jmp alloc+1

free: 0
   lmq
   lac s.nfblks
   sad d10
   jmp 1f
   tad fblksp
   dac 9f+t
   lacq
   dac 9f+t i
   dzm .savblk
   isz s.nfblks
   jmp free i
1:
   lac s.nxfblk
   dac dskbuf
   jms copy; s.fblks+1; dskbuf+1; 9
   lacq
   dac s.nxfblk
   jms dskwr
   dzm .savblk
   lac d1
   dac s.nfblks
   jmp free i
t = t+1

laci: 0
   and o17777
   tad o200000
   dac .+1
   lac ..
   jmp laci i


betwen: 0
   lmq cmq
   lac betwen i
   dac 9f+t
   isz betwen
   lacq
   tad 9f+t i
   sma
   jmp 1f
   lac betwen i
   dac 9f+t
   isz betwen
   lacq
   tad 9f+t i
   cma
   spa sna
1:
   isz betwen
   lacq
   cma
   jmp betwen i

copy: 0
   -1
   tad copy i
   dac 8
   isz copy
   -1
   tad copy i
   dac 9
   isz copy
   -1
   tad copy i
   cma
   dac 9f+t
   isz copy
1:
   lac 8 i
   dac 9 i
   isz 9f+t
   jmp 1b
   jmp copy i

copyz: 0
   -1
   tad copyz i
   dac 8
   isz copyz
   -1
   tad copyz i
   cma
   dac 9f+t
   isz copyz
1:
   dzm 8 i
   isz 9f+t
   jmp 1b
   jmp copyz i
t = t+1

putchar: 0
   dac 9f+t
   cla
   jms takeq
      jmp putchar i
   tad o40001
   dac .+4
   lac 9f+t
   jms putq
   lac char
   dac q2+1 ..
   isz putchar
   jmp putchar i
t = t+1

getchar: 0
   jms takeq
      jmp i getchar
   tad o200001
   dac .+3
   cla
   jms putq
   lac q2+1 ..
   isz getchar
   jmp i getchar

takeq: 0
   rcl
   tad lacq1
   dac .+7
   tad o640000
   dac .+17
   tad d1
   dac .+14
   tad o500000
   dac .+5
   lac q1 ..
   sna
   jmp takeq i
   dac lnkaddr
   sad q1+1 ..
   jmp .+5
   tad o200000
   dac .+1
   lac q2 ..
   jmp .+3
   cla
   dac q1+1 ..
   dac q1 ..
   isz takeq
   lac lnkaddr
   jmp i takeq

putq: 0
   rcl
   tad dacq1
   dac .+14
   tad d1
   dac .+13
   tad o140000
   dac .+1
   lac q1-1 ..
   sna
   jmp .+6
   tad o40000
   dac .+2
   lac lnkaddr
   dac q2 ..
   jmp .+3
   lac lnkaddr
   dac q1 ..
   dac q1+1 ..
   jmp putq i

srcdbs: 0
   dac 9f+t+2   "* lmq
   -ndskbs
   dac 9f+t
   law dskbs	"* -1 dac 8 written
   dac 9f+t+1	"* lacq
1:
   jmp srcdbs i
   isz 9f+t+1
   isz 9f+t
   jmp 1b
   isz srcdbs
   jmp srcdbs i

collapse: 0
   cla
   jms srcdbs
      jmp 1f
   law dskbs
1:
   dac 0f+1
   dac 0f
   cma
   tad d1
   tad edskbsp
   and o17777
   sna
   jmp 0f+3
   dac 0f+2
   jms copy; 0:..; ..; ..
   -65
   tad edskbsp
   dac 9f+t
   tad d1
   dac 0f
   lac dskaddr
   dac 9f+t i
   jms copy; dskbuf; 0:..; 64
   jmp collapse i

dskrd: 0
   jms betwen; d2; d7999

      jms halt
   sad dskaddr
   jmp dskrd i
   dac dskaddr
   jms srcdbs
      jmp 1f
   lac dskaddr
   jms dskio; 06000
   jmp 2f
1:
   dzm 9f+t+1 i
   law 1
   tad 9f+t+1
   dac .+2
   jms copy; ..; dskbuf; 64
2:
   jms collapse
   jmp dskrd i

dskwr: 0
   jms betwen; d2; d7999
      jms halt
   jms dskio; 07000
   lac dskaddr
   jms srcdbs
      dzm 9f+t+1 i
   jms collapse
   jmp dskwr i
t = t+3

dskio: 0
   dac dskaddr
   cll; idiv; 80
   dac 9f+t
   lacq
   idiv; 10
   dac 9f+t+1
   lls 22
   xor 9f+t+1
   als 8
   dac 9f+t+1
   lac 9f+t
   idiv; 10
   dac 9f+t
   lls 22
   xor 9f+t
   xor 9f+t+1
   xor o200000
   dac 9f+t
   jms dsktrans; -64; dskbuf; 9f+t; dskio
   isz dskio
   jmp dskio i
t = t+1

dsktrans: 0
   -10
   dac 9f+t
1:
   -1
   tad dsktrans
   dac 12
   dscs
   lac 12 i
   dslw
   lac 12 i
   dslm
   lac 12 i
   jms laci
   dsld
   dzm .dskb
   lac 12 i
   jms laci
   jms laci
   dsls
   lac .dskb
   sna
   jmp .-2
   lac .dske
   sma
   jmp 12 i
   isz 9f+t
   jmp 1b
   jms halt " 10 disk errors
t = t+1

halt: 0
   isz 9f+t
   jmp .-1
   iof
   hlt
   jms copy; law; 4096; 4096
   hlt; jmp .-1
t = t+1