mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
2749 lines
250 KiB
Plaintext
2749 lines
250 KiB
Plaintext
裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 BDOSI SRC d
|
||
|
||
BDOS PLM BDOS PLM } !"#$%&'()*+,-.蕷LMTX1 TMP ' ^/0123456789: 裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹ED IN A
|
||
PUBLIC TRACK0 ;MOVE TRACK HEAD TO TRACK 0
|
||
PUBLIC SELDISK ;SELECT DISK DRIVE GIVEN BY REG C
|
||
PUBLIC SELTRK ;SELECT T裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹IA
|
||
;
|
||
; EXTERNALLY DEFINED DISK MONITOR ENTRY POINTS
|
||
EXTRN DSKMON
|
||
;
|
||
; PUBLICALLY DEFINED ENTRY AND EXIT PARAMETERS
|
||
PUBLIC BDOS OBJ c (;Yamn BDOS LST <=>?@ABCDEFGHIJK BDOS LST LMNOPQRSTUVWXZ[\ BDOS LST {]^_`bcdefghijklo裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹RACK GIVEN BY REG C
|
||
PUBLIC SELSEC ;SELECT SECTOR GIVEN BY REG C
|
||
PUBLIC SELDMA ;SET DMA ADDRESS TO ADD IN B & C
|
||
PUBLIC READ裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 FUNC ;FUNCTION NUMBER
|
||
PUBLIC INFO ;INFORMATION ADDRESS IN CP/M CALL
|
||
PUBLIC ARET ;RETURNED VALUE
|
||
PUBLIC BOOT ;WARM START
|
||
裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹DISK ;READ DISK SECTOR
|
||
PUBLIC WRITEDISK ;WRITE DISK SECTOR
|
||
;
|
||
DB 0,0,0,0,0,0
|
||
;
|
||
;
|
||
;
|
||
; ENTER HERE FROM THE USER'S PROGRAM 裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 PUBLIC CONRDY ;RETURNS CONSOLE STATUS
|
||
PUBLIC CONINE ;RETURNS CHARACTER IN A
|
||
PUBLIC CONCHAR ;CONSOLE CHARACTER SENT FROM C
|
||
裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 CSEG ;INCLUDE WITH CODE SEGMENT
|
||
BIAS EQU 01503H ;ADDRESS OF WBOOT ENTRY RELATIVE TO 0000
|
||
SSIZE EQU 24 ;24 LEVEL STACK
|
||
REBOO裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹WITH FUNCTION NUMBER IN C,
|
||
; AND INFORMATION ADDRESS IN D,E. CALL THE PL/M DISK MONITOR
|
||
JMP BDOSE ;PAST PARAMETER BLOCK
|
||
;
|
||
裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 PUBLIC LSTOUT ;LIST CHARACTER SENT FROM C
|
||
PUBLIC PUNOUT ;PUNCH CHARACTER SENT FROM C
|
||
PUBLIC READIN ;READER CHARACTER RETURN裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹T EQU 0000H ;REBOOT SYSTEM
|
||
; BDOS INTERFACE MODULE
|
||
;
|
||
; COPYRIGHT (C) 1978 DIGITAL RESEARCH
|
||
; BOX 579 PACIFIC GROVE, CALIFORN PUBLIC PERERR
|
||
PUBLIC SELERR
|
||
PUBLIC RODERR ;USED BY BDOS FOR ERROR REPORTS
|
||
; **********************************************A
|
||
; FROM 001A THROUGH 0039, OR 3AH - 1AH BYTES, OR
|
||
; 20H = 32 (DECIMAL) BYTES, WHERE
|
||
; 001AH: TRAN(0) - TRANSLATION OF SECTORELATIVE LOCATIONS 001A-0033 TRAN (26 SECT) **
|
||
; *************************************************
|
||
TRAN: DB 01H,07H,0DH,13H
|
||
DTING SYSTEM TRACKS
|
||
;
|
||
; ************************************************
|
||
; ** END OF DISK PARAMETER BLOCK 0007-0040 **
|
||
;AL SECTOR
|
||
; REGISTER-C CONTAINS LOGICAL SECTOR 0 ... N
|
||
; COMPUTE PHYSICAL SECTOR BASED UPON
|
||
; SECTOR TRANSLATE TABLE. NOTE: - DIRECTORY BLOCKS
|
||
PUBLIC OSTRKS ;40 - OPERATING SYSTEM TRACKS
|
||
; **************************************************
|
||
; ** R**
|
||
; *** RELATIVE LOCATIONS 0009 - 000E ***
|
||
; ************************************************
|
||
PERERR: DW PERSUB ;P 0
|
||
; 001BH: TRAN(1) - TRANSLATION OF SECTOR 1
|
||
; ...
|
||
; 0039H: TRAN(31) - TRANSLATION OF SECTOR 31
|
||
; IF THERE ARE MORE THAN 32B 19H,05H,0BH,11H
|
||
DB 17H,03H,09H,0FH
|
||
DB 15H,02H,08H,0EH
|
||
DB 14H,1AH,06H,0CH
|
||
DB 12H,18H,04H,0AH
|
||
DB 10H,16H
|
||
;
|
||
; ******* ************************************************
|
||
;
|
||
;
|
||
;
|
||
;
|
||
BDOSE: ;ARRIVE HERE FROM USER PROGRAMS
|
||
XCHG
|
||
SHLD INFO
|
||
LXI H THIS SUBROUTINE AND/OR
|
||
; TABLE CAN BE REPLACED FOR USE WITH DIFFERING DRIVE
|
||
; TYPES.
|
||
LXI H,TRAN ;0009 = LOAD TRANSLATE BASEELATIVE LOCATIONS 003A-0040 HOLD PARAMETERS **
|
||
; **************************************************
|
||
SECSIZ: DB 26 ;003A=SECTORERMANENT ERROR SUBROUTINE
|
||
SELERR: DW SELSUB ;SELECT ERROR SUBROUTINE
|
||
RODERR: DW RODSUB ;RO DISK ERROR SUBROUTINE
|
||
;
|
||
; FIXED D SECTORS TO TRANSLATE,
|
||
; REPLACE
|
||
; LXI H,TRAN
|
||
; BY A REFERENCE TO YOUR OWN TABLE ELSEWHERE IN
|
||
; MEMORY, OR REPLACE THE LXI*****************************************
|
||
; ** RELATIVE LOCATIONS 0034-0039 EXTEND TRAN **
|
||
; *******************************,FUNC ;INFORMATION ADDRESS AND FUNCTION STORED
|
||
MOV M,C
|
||
; SAVE THE USER'S STACK POINTER, AND SET TO A LOCAL STACK
|
||
LXI H,0
|
||
|
||
MVI B,0 ;0012 = DOUBLE PRECISION LOGICAL SEC#
|
||
DAD B ;0014 = HL = .TRAN(SECTOR)
|
||
MOV C,M ;0015 = TRANSLATED VALUE TO C
|
||
JMS PER TRACK
|
||
DIRMAX: DB 63 ;003B=MAXIMUM DIRECTORY NUMBER
|
||
BLKSHF: DB 3 ;003C=2**3 = 8 SECTORS PER BLOCK
|
||
BLKMSK: DB 111B ;003D=ATA AREAS FOR USER PARAMETERS
|
||
;
|
||
PUBLIC TRSECT
|
||
PUBLIC TRAN
|
||
; ************************************************
|
||
; ** RELATIV INSTRUCTION BY A JUMP
|
||
; TO A TRANSLATION SUBROUTINE.
|
||
;
|
||
PUBLIC SECSIZ ;3A - SECTOR SIZE
|
||
PUBLIC DIRMAX ;3B - DIRECTORY MA*****************
|
||
DB 00H,00H ;34-35
|
||
DB 00H,00H,00H,00H ;36-39
|
||
;
|
||
; NOTE THAT TRAN CAN BE EXTENDED TO OCCUPY THE AREDAD SP
|
||
SHLD ENTSP ;USE THE MONITOR'S STACK
|
||
LXI SP,LSTACK ;SET TO LOCAL STACK
|
||
CALL DSKMON
|
||
;
|
||
; RETURN FROM THE DISK MONITOP SELSEC ;0016 = TO SELECT PHYSICAL SECTOR
|
||
NOP ;0019 = (FILL)
|
||
;
|
||
; *************************************************
|
||
; ** R2**3-1
|
||
MAXALL: DB 242 ;003E=243 BLOCKS
|
||
DIRBLK: DB 0C0H ;003F=1100 0000 RESERVES TWO BLOCKS
|
||
OSTRKS: DB 2 ;0040=NUMBER OF OPERAE LOCATIONS 000F-0019 = TRSECT ***
|
||
; ************************************************
|
||
TRSECT: ;TRANSLATE LOGICAL TO PHYSICX
|
||
PUBLIC BLKSHF ;3C - BLOCK SHIFT
|
||
PUBLIC BLKMSK ;3D - BLOCK MASK
|
||
PUBLIC MAXALL ;3E - MAXIMUM ALLOC
|
||
PUBLIC DIRBLK ;3FR
|
||
LHLD ENTSP
|
||
SPHL ;ENTRY STACK POINTER RESTORED
|
||
LHLD ARET ;RETURNED VALUE
|
||
MOV A,L
|
||
MOV B,H ;B,A AND H,L CONTAIN RETURN
|
||
RODSUB: ;REPORT WRITE TO READ/ONLY DISK
|
||
LXI H,RODMSG
|
||
WAITER: CALL ERRFLG
|
||
JMP REBOOT
|
||
;
|
||
ERRFLG: ;REPORT ERROR TO CONSOLE,RROW
|
||
;
|
||
PUBLIC CONIN ;CONSOLE INPUT
|
||
PUBLIC CONECH ;CONSOLE WITH ECHO
|
||
PUBLIC CONBRK ;CONSOLE BREAK
|
||
PUBLIC CONOUT ;CONSOLE HERE
|
||
;
|
||
;
|
||
CONBRK: ;CHECK FOR CHARACTER READY
|
||
LDA KBCHAR ;ALREADY FILLED?
|
||
ORA A
|
||
JNZ CONB1 ;RETURN WITH 1 IF FILLED
|
||
CALAS+OSELDI
|
||
SELTRK EQU BIAS+OSELTR
|
||
SELSEC EQU BIAS+OSELSE
|
||
SELDMA EQU BIAS+OSELDM
|
||
READDI EQU BIAS+OREADD
|
||
WRITED EQU BIAS+OWRITREG A
|
||
LXI H,KBCHAR;ALREADY FILLED?
|
||
MOV A,M
|
||
MVI M,0 ;CLEAR IT IF SO
|
||
ORA A ;SET FLAGS
|
||
RNZ ;IF NON ZERO, THEN RETURN KBC VALUE
|
||
; (COMPATIBILITY BETWEEN PL/M VERSIONS REQUIRES THIS)
|
||
RET
|
||
;
|
||
;
|
||
;
|
||
OBOOT EQU 00H
|
||
OCONRD EQU 03H
|
||
OCONIN EQU 06H
|
||
OCO MESSAGE ADDRESS IN HL
|
||
PUSH H ;SAVE IT
|
||
CALL CRLF ;CLEAR TO NEW LINE
|
||
LDA CURDSK
|
||
ADI 'A' ;CURRENT DISK NAME
|
||
STA DSKERR ; OUT
|
||
PUBLIC TABOUT ;TAB OUT
|
||
PUBLIC CRLF ;CARRIAGE RETURN LINE FEED
|
||
PUBLIC PRINT ;PRINT 'TIL $
|
||
PUBLIC READ ;READ LINE
|
||
;
|
||
L CONRDY ;CHECK FOR CHARACTER READY
|
||
ANI 1 ;CLEAR ALL BUT LSB
|
||
RZ ;RETURN IF ZERO, OTHERWISE READ IT
|
||
CALL CONINE ;GET CHARAE
|
||
;
|
||
;
|
||
; EQUATES FOR NON GRAPHIC CHARACTERS
|
||
CTLC EQU 03H ;CONTROL C
|
||
CTLS EQU 13H ;STOP/START SCREEN
|
||
CTLU EQU 15H ;LINE DELEHAR
|
||
JMP CONINE ;GET CHARACTER EXTERNALLY
|
||
;
|
||
CONECH: ;READ CHARACTER WITH ECHO
|
||
CALL CONIN
|
||
CALL ECHOC ;ECHO CHARACTER?
|
||
RCNCH EQU 09H
|
||
OLSTOU EQU 0CH
|
||
OPUNOU EQU 0FH
|
||
OREADI EQU 12H
|
||
OTRACK EQU 15H
|
||
OSELDI EQU 18H
|
||
OSELTR EQU 1BH
|
||
OSELSE EQU 1EH
|
||
OSESTORE INTO MESSAGE AREA
|
||
LXI B,DSKMSG
|
||
CALL PRINT ;PRINT TO THE END OF MESSAGE
|
||
POP B ;GET MESSAGE
|
||
CALL PRINT ;SEND TO CONS
|
||
|
||
; ERROR SUBROUTINES
|
||
PERSUB: ;REPORT PERMANENT ERROR
|
||
LXI H,PERMSG
|
||
CALL ERRFLG ;TO REPORT THE ERROR
|
||
CPI CTLC
|
||
JZ REBOOTCTER TO A
|
||
CPI CTLS ;MAY BE SCREEN FUNTCTION
|
||
JNZ CONB0 ;RETURN 1 - SAVE CHAR
|
||
CALL CONINE ;STOP OUTPUT, CHECK CHAR
|
||
CPI CTLTE
|
||
CTLE EQU 05H ;PHYSICAL EOL
|
||
CTLP EQU 10H ;PRNT TOGGLE
|
||
CTLR EQU 12H ;REPEAT LINE
|
||
CTLX EQU 18H ;=CTL-U
|
||
CTLZ EQU 1AH ;END OF ;CARRY IF NOT GRAPIC OR CONTROL
|
||
PUSH PSW ;SAVE THE CHARACTER
|
||
MOV C,A
|
||
CALL TABOUT
|
||
POP PSW
|
||
RET ;WITH CHAR IN A
|
||
;
|
||
ECLDM EQU 21H
|
||
OREADD EQU 24H
|
||
OWRITE EQU 27H
|
||
;
|
||
;
|
||
;
|
||
BOOT EQU BIAS+OBOOT
|
||
CONRDY EQU BIAS+OCONRD
|
||
CONINE EQU BIAS+OCONIN
|
||
CONCHOLE
|
||
JMP CONIN ;READ CONSOLE CHARACTER
|
||
;
|
||
; ERROR MESSAGES
|
||
DSKMSG: DB 'BDOS ERR ON '
|
||
DSKERR: DB ' : $' ;FILLED IN BY ERRFLG
|
||
|
||
RET ;RETURN, IGNORE ERROR
|
||
;
|
||
SELSUB: ;REPORT SELECT ERROR
|
||
LXI H,SELMSG
|
||
JMP WAITER ;WAIT FOR CONSOLE CHAR BEFORE BOOT
|
||
;C ;REBOOT?
|
||
JZ REBOOT
|
||
XRA A ;CLEAR CHARACTER AND RETURN
|
||
RET
|
||
CONB0: ;CHARACTER IN ACCUM, SAVE IT
|
||
STA KBCHAR
|
||
CONB1: ;RETU FILE
|
||
RUBOUT EQU 7FH ;CHAR DELETE
|
||
TAB EQU 09H ;TAB CHAR
|
||
CR EQU 0DH ;CARRIAGE RETURN
|
||
LF EQU 0AH ;LINE FEED
|
||
CTL EQU 5EH ;UP AHOC: ;ECHO CHARACTER IF GRAPHIC OR CR, LF, TAB
|
||
CPI CR
|
||
RZ
|
||
CPI LF
|
||
RZ
|
||
CPI TAB
|
||
RZ
|
||
CPI ' '
|
||
RET ;CARRY IF NOT GRAPHICA EQU BIAS+OCONCH
|
||
LSTOUT EQU BIAS+OLSTOU
|
||
PUNOUT EQU BIAS+OPUNOU
|
||
READIN EQU BIAS+OREADI
|
||
TRACK0 EQU BIAS+OTRACK
|
||
SELDIS EQU BI
|
||
PERMSG: DB 'BAD SECTOR$'
|
||
SELMSG: DB 'SELECT$'
|
||
RODMSG: DB 'R/O$'
|
||
;
|
||
;
|
||
; CONSOLE HANDLERS
|
||
CONIN: ;READ CONSOLE CHARACTER TO RN WITH 1 FOR CONSOLE BREAK
|
||
MVI A,1
|
||
RET
|
||
;
|
||
CONOUT: ;WRITE CONSOLE CHARACTER FROM C
|
||
PUSH B ;CHAR SAVED FOR LATER TESTS
|
||
CFFER)
|
||
LHLD INFO ;MAX LENGTH
|
||
MOV C,M ;SAVE IN C
|
||
INX H ;TO CURRENT LENGTH ADDRESS
|
||
PUSH H ;SAVE FOR LATER FILL
|
||
MVI B,0 ;CALL CONOUT
|
||
LDA COLUMN
|
||
ANI 111B ;MOD 8
|
||
JNZ TAB0 ;FOR ANOTHER ' '
|
||
RET
|
||
;
|
||
CRLFP: ;# CRLF
|
||
MVI C,'#'
|
||
CALL CONOUT
|
||
;
|
||
CRLETE (ALTERNATE TO CTLX)
|
||
JZ DELINE
|
||
CPI CTLU ;LINE DELETE?
|
||
JNZ NOTU
|
||
DELINE: CALL CRLFP ;BACK TO BEGINNING OF LINE
|
||
POP H ; NOT
|
||
MVI M,0 ;CLEAR COLUMN COUNTER
|
||
RET
|
||
;
|
||
CTLOUT: ;SEND CHARACTER WITH POSSIBLE PRECEDING ^
|
||
; CHARACTER IS ASSUMED TO BE IH ;BACKUP POINTER TO BUFFER
|
||
JMP RDECH1 ;ACT LIKE THIS IS AN ECHO
|
||
;
|
||
NOTRUB: ;NOT A RUBOUT, CHECK FOR END OF LINE
|
||
CPI CTLE
|
||
ALL CONBRK ;CHECK FOR SCREEN STOP FUNCTION
|
||
POP B ;RECALL CHARACTER TO C
|
||
PUSH B ;SAVE IT AGAIN
|
||
CALL CONCHAR ;TO WRITE THE CURRENT ACTIVE LENGTH
|
||
READNX: ;READ NEXT CHARACTER
|
||
PUSH B ;SAVE CURRENT/MAX LENGTHS
|
||
PUSH H ;SAVE NEXT TO FILL-1
|
||
READN0: CALF: ;CARRIAGE RETURN LINE FEED
|
||
MVI C,CR
|
||
CALL CONOUT
|
||
MVI C,LF
|
||
JMP CONOUT
|
||
;
|
||
PRINT: ;PRINT MESSAGE GIVEN BY BC 'TIL $
|
||
LDTHROW AWAY PUSHED VALUE
|
||
JMP READ ;START ALL OVER
|
||
;
|
||
NOTU:
|
||
CPI CTLR ;REPEAT LINE?
|
||
JNZ NOTR
|
||
PUSH B ;SAVE LINE LENGTH
|
||
CAN C
|
||
MOV A,C
|
||
CALL ECHOC ;TAB, CR, OR LF?
|
||
JNC TABOUT ;SKIP IF GRAPIC OR TAB,CR,LF
|
||
; SEND PRECEDING UP ARROW
|
||
PUSH PSW
|
||
MV JNZ NOTE ;SKIP IF NOT
|
||
PUSH B
|
||
PUSH H ;READY FOR CRLF SEQUENCE
|
||
CALL CRLF
|
||
JMP READN0 ;FOR ANOTHER CHARACTER
|
||
;
|
||
NOTE: ;NOTHARACTER
|
||
POP B ;RECALL IT AGAIN
|
||
PUSH B ;SAVE IT FOR LATER TESTS
|
||
LDA LISTCP ;LIST COPY TOGGLE
|
||
ORA A ;SET?
|
||
CNZ LSTOUT ;TL CONIN ;NEXT CHARACTER IN
|
||
ANI 7FH ;CLEAR PARITY
|
||
POP H ;RECALL NEXT TO FILL-1
|
||
POP B ;RECALL LENGTHS
|
||
CPI CR ;END OF LINE?AX B
|
||
CPI '$' ;END OF MESSAGE?
|
||
RZ ;RETURN IF SO
|
||
INX B ;TO NEXT CHARACTER
|
||
PUSH B
|
||
MOV C,A ;READY TO PRINT
|
||
CALL TABOUT LL CRLFP ;RETURN CARRIAGE
|
||
POP B ;RECALL LINE LENGTH
|
||
POP H ;RECALL START ADDRESS OF BUFFER-1
|
||
PUSH H ;PUT IT BACK
|
||
PUSH B ;I C,CTL
|
||
CALL CONOUT ;UP ARROW
|
||
POP PSW ;RECALL CHAR
|
||
ORI 40H ;BECOMES GRAPHIC
|
||
MOV C,A
|
||
;
|
||
TABOUT: ;EXPAND TABS TO CONSOLE
|
||
END OF LINE, CTL-P?
|
||
CPI CTLP
|
||
JNZ NOTP ;SKIP IF NOT
|
||
PUSH H ;INVERT THE PRINT TOGGLE
|
||
LXI H,LISTCP
|
||
MVI A,1 ;1-LISTCP
|
||
SO PRINTER
|
||
POP B ;RECALL CHARACTER
|
||
MOV A,C ;GRAPIC?
|
||
LXI H,COLUMN
|
||
CPI RUBOUT
|
||
RZ ;NO INCREMENT IF RUBOUT
|
||
INR M ;INCREM
|
||
JZ READEN ;SKIP TO END IF SO
|
||
CPI RUBOUT ;CHARACTER DELETE?
|
||
JNZ NOTRUB ;SKIP IF NOT
|
||
MOV A,B ;RUBOUT CHARACTER, IF POSSIB;SEND THE CHARACTER
|
||
POP B ;RECALL NEXT TO GET ADDR
|
||
JMP PRINT
|
||
;
|
||
READ: ;READ TO INFO ADDRESS (MAX LENGTH, CURRENT LENGTH, BUSAVE LINE LENGTH
|
||
REP0: MOV A,B ;LINE LENGTH COUNTED DOWN TO ZERO?
|
||
ORA A
|
||
JZ REP1 ;END OF REPEAT?
|
||
INX H ;NO, GET NEXT CHARA
|
||
MOV A,C ;COMPARE WITH TAB
|
||
CPI TAB
|
||
JNZ CONOUT ;DIRECT TO CONSOLE IF NOT
|
||
TAB0: MVI C,' ' ;PAD TO NEXT COLUMNAR POSITION
|
||
CUB M
|
||
MOV M,A ;BACK TO LISTCOPY
|
||
POP H ;RECALL NXT TO FILL-1
|
||
JMP READNX
|
||
;
|
||
NOTP: ;NOT THE PRINT TOGGLE
|
||
CPI CTLX ;LINE DELENT COLUMN COUNT
|
||
CPI ' '
|
||
RNC ;NO CARRY GEN'ED IF GRAPHIC
|
||
DCR M ;NO COLUMN MOVEMENT
|
||
CPI LF ;END OF LINE?
|
||
RNZ ;DONE IFLE
|
||
ORA A ;ZERO LENGTH?
|
||
JZ READNX ;SKIP DELETE IF SO
|
||
MOV A,M ;LAST FILLED CHARACTER
|
||
DCR B ;DEC LENGTH TO DELETE IT
|
||
DCX CTER
|
||
MOV C,M ;READY TO PRINT
|
||
DCR B ;COUNT B DOWN
|
||
PUSH B ;SAVED FOR PRINTOUT
|
||
PUSH H ;SAVED FOR PRINTOUT
|
||
CALL CTLOUT ;CH裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹
|
||
PUBLIC CURDSK ;CURRENT DISK FOR ERR MESSAGES
|
||
;
|
||
COLUMN: DB 0 ;COLUMN POSITION
|
||
LISTCP: DB 0 ;LISTING TOGGLE
|
||
KBCHAR: DB 0 ;IN TABLE
|
||
(ACCESS TO TRAN IS ONLY THROUGH TRSECT)
|
||
003AH SECSIZ = NUMBER OF SECTORS PER TRACK (<=32)S FOR REBOOT CHECK
|
||
MOV A,B ;CHECK THE LENGTH
|
||
JNZ NOTCTC ;SKIP IF NOT CTLC
|
||
; CTLC FOUND, MUST BE LENGTH = 1
|
||
CPI 1 ;LENGTH INED PARAMETERS ARE FOUND AT THE BEGINNING OF
|
||
THE BDOS AREA (SEE THE BDOSI INTERFACE)
|
||
AND CAN BE ALTEREDARACTER ECHOED
|
||
POP H ;RECALL NEXT ADDR-1
|
||
POP B ;RECALL REMAINING COUNT
|
||
JMP REP0 ;FOR ANOTHER CHARACTER
|
||
REP1: POP B ;RECAL裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹ITIAL KEY CHAR = 00
|
||
CURDSK: DB 0 ;CURRENT DISK NUMBER
|
||
;
|
||
FUNC: DS 1 ;FUNCTION NUMBER
|
||
INFO: DS 2 ;INFORMATION ADDRESS
|
||
ARET: D
|
||
003BH DIRMAX = LARGEST DIRECTORY ENTRY NUMBER (0..254)
|
||
THE FOLLOWING VALUES ARE BASED UPON A BLONE
|
||
JZ REBOOT ;BOOT THE SYSTEM IF FOUND
|
||
NOTCTC: CMP C ;UP TO THE END OF THE BUFFER?
|
||
JC READNX ;FOR ANOTHER CHARACTER
|
||
;
|
||
RE TO FIT A RANGE OF DISK DRIVES
|
||
STARTING WITH THE BASE OF THE BDOS AREA:
|
||
0009 - 000AH PERERR = .PERM ERROL LENGTHS
|
||
JMP READNX ;FOR ANOTHER CHARACTER
|
||
;
|
||
NOTR:
|
||
RDECHO: INX H ;NEXT TO FILL
|
||
MOV M,A ;STORE THE CHARACTER IN THE BUFFE裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹S 2 ;ADDRESS VALUE TO RETURN
|
||
ENTSP: DS 2 ;ENTRY STACK POINTER
|
||
DS SSIZE*2 ;STACK SIZE
|
||
LSTACK:
|
||
END
|
||
OCK ALLOCATION
|
||
SIZE OF BLKSIZ, WHICH IS USUALLY 1K FOR SINGLE DENSITY,
|
||
2K FOR DOUBLE DENSITY, AND MUST BADEN: ;END OF READ, FILL CURRENT LENGTH
|
||
POP H ;.CURRENT LENGTH
|
||
MOV M,B ;FILLED TO MEMORY
|
||
MVI C,CR ;RETURN CARRIAGE
|
||
JMP CR SUBROUTINE
|
||
000B - 000CH SELERR = .SELECT ERROR SUBROUTINE
|
||
000D - 000EH RODERR = .READ ONLY DISK ERROR R
|
||
INR B ;INCREMENT THE LENGTH
|
||
RDECH1: ;LOOK FOR CONTROL CHARACTERS
|
||
PUSH B
|
||
PUSH H ;SAVE THE PARAMETERS
|
||
MOV C,A ;READY TOBDOS:
|
||
DO; /* (NORMALLY ORG'ED DIRECTLY AFTER BDOSI AT 3100H IN 16K CP/M) */
|
||
|
||
/*
|
||
COPYRIGHT (C) 1976,1977,1978
|
||
裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹E COMPUTED IN SUCH A WAY
|
||
THAT THE MAXIMUM ALLOCATION VALUE IS LESS THAN OR EQUAL TO
|
||
255 (A BYTE QUANTITONOUT ;RETURN THROUGH CONOUT
|
||
;
|
||
;
|
||
; DATA AREAS
|
||
PUBLIC COLUMN
|
||
PUBLIC LISTCP ;LIST COPY
|
||
PUBLIC KBCHAR ;KEYBOARD CHARACTER
|
||
SUBR
|
||
|
||
001A - 0019H TRSECT = SECTOR TRANSLATE SUBROUTINE
|
||
001A - 0039H TRAN = STANDARD SECTOR TRANSLATE PRINT
|
||
CALL CTLOUT ;MAY BE ^CHAR
|
||
POP H
|
||
POP B ;PARAMETERS READY FOR CHECKS
|
||
MOV A,M ;RECALL CHARACTER
|
||
CPI CTLC ;SET FLAG
|
||
DIGITAL RESEARCH
|
||
BOX 579, PACIFIC GROVE
|
||
CALIFORNIA, 93950
|
||
|
||
USER DEFY).
|
||
003CH BLKSHF = LOG2 OF BLOCK SIZE (BLKSIZ)
|
||
003DH BLKMSK = 2**BLKSHF-1
|
||
00ECTORY IS 64/4 = 16 SECTORS
|
||
WHICH USES A TOTAL OF 2 OF THE BASIC BLOCKS (OF 1024 BYTES EACH)
|
||
AND THUS THE AREA RESERVEROM
|
||
ZERO THROUGH 242 (THE LAST 3/4 OF AN ALLOCATION BLOCK IS LOST), AND
|
||
THUS THE VALUE
|
||
|
||
MAXALL = 242 (MAXLITERALLY '0003H',
|
||
CDLOC LITERALLY '0004H',
|
||
JBDOS LITERALLY '0005H',
|
||
BDOSA LITERALLY '0006H', /* ADDRESS FIELD OFDIRMAX = 63 (=64 DIRECTORY ENTRIES, FOR EXAMPLE)
|
||
|
||
GIVEN TWO SYSTEM TRACKS, WE HAVE A USABLE STORAGE AREA OF
|
||
|
||
GNED AS FOLLOWS:
|
||
0000H JMP WBOOT
|
||
0003H IOBYTE (USED IN BDOS, PIP, AND STAT)
|
||
0004H CDISK 3EH MAXALL = MAXIMUM ALLOCATION NUMBER
|
||
003FH DIRBLK = BIT PATTERN WHICH RESERVES ONE BLOCK
|
||
D FOR THE DIRECTORY IS
|
||
|
||
DIRBLK = 11000000B = 0C0H = 192 (DECIMAL)
|
||
|
||
(I.E., THE FIRST TWO BLOCKS CANNOT BE ALLOIMUM ALLOCATION NUMBER)
|
||
|
||
FURTHER, THE VALUE OF BLKSIZ (WHICH IS ONLY USED IN THE FOLLOWING
|
||
COMPUTATIONS) IS ASSUMED T JMP INSTRUCTION */
|
||
TFCB LITERALLY '005CH',
|
||
TBUFF LITERALLY '0080H';
|
||
|
||
|
||
|
||
|
||
/* THE FOLLOWING SUBROUTINES ARE ASS77-2 TRACKS TIMES 26 SECTORS PER TRACK = 75*26 = 1950 SECTORS
|
||
|
||
GIVEN 512 BYTES PER ALLOCATION, WE GET
|
||
|
||
1950*1 (CURRENT DISK NUMBER, USED IN CCP, ED)
|
||
0005H JMP BDOS (PRIMARY BDOS ENTRY POINT)
|
||
0038H JMP DDT (RESTAR FOR EACH DIRECTORY GROUP (4 ENTRIES PER GROUP),
|
||
BASED UPON BLKSIZ AND DIRMAX
|
||
CATED TO DATA AREAS)
|
||
|
||
*/
|
||
DECLARE
|
||
TRAN(32) BYTE EXTERNAL,
|
||
SECSIZ BYTE EXTERNAL,
|
||
DIRMAX BYTE EXTERNAL,
|
||
O BE 1024. AS A RESULT,
|
||
|
||
BLKSHF = LOG2 (1024/128) = LOG2 8 = 3 (I.E., 2**3=8), AND
|
||
BLKMSK = 2**BLKSHF-UMED TO EXIST EXTERNALLY,
|
||
STARTING AT THE ADDRESS 'BASE' (NORMALLY 3E00H IN 16K CP/M), AND
|
||
ARE ACCESSED THROUGH THE BD28/512 = 487.5 ALLOCATION BLOCKS
|
||
|
||
WHICH IS TOO LARGE TO FIT A BYTE VARIABLE. THUS, USING AN
|
||
ALLOCATION OF 1024 BYTEST FILLED BY DDT)
|
||
005CH - 007CH DEFAULT FILE CONTROL BLOCK
|
||
0080H - 00FFH DEFAULT BUFFER AREA
|
||
0040H OSTRKS = NUMBER OF SYSTEM TRACKS
|
||
|
||
AS AN EXAMPLE, GIVEN A STANDARD DISKETTE WITH 77 TRACKS USING 26 SECTOBLKSHF BYTE EXTERNAL,
|
||
BLKMSK BYTE EXTERNAL,
|
||
MAXALL BYTE EXTERNAL,
|
||
DIRBLK BYTE EXTERNAL,
|
||
OSTRKS BYT1 = 2**3-1 = 8-1 = 7
|
||
|
||
FURTHER, WE ARE USING DIRSIZ = 64 DIRECTORY ENTRIES, AND THUS THE
|
||
DATA AREA CONSUMED BY THE DIROS INTERFACE PROGRAM.
|
||
|
||
|
||
00 BASE: BOOT SYSTEM REBOOT OPERATION
|
||
01 BASE+3 WBOOT SYSTEM REBOOT - WAR,
|
||
|
||
1950*128/1024 = 243.75 ALLOCATION BLOCKS
|
||
|
||
WHICH IS WITHIN THE BYTE VALUE 0-255. THE BLOCKS ARE NUMBERED F 0100H - CCP TRANSIENT PROGRAM AREA
|
||
*/
|
||
DECLARE
|
||
JBOOT LITERALLY '0000H',
|
||
JDDT LITERALLY '0038H',
|
||
IOLOC RS
|
||
PER TRACK, WITH TWO TRACKS DEDICATED TO THE OPERATING SYSTEM:
|
||
|
||
SECSIZ = 26 (SECTORS PER TRACK)
|
||
E EXTERNAL,
|
||
CURDSK BYTE EXTERNAL; /* CURRENT DISK (EXTERN FOR ERRS) */
|
||
|
||
/*
|
||
|
||
THE FIRST PAGE OF ROM IS ASSIM START
|
||
02 BASE+6 CONSTAT CONSOLE STATUS - RETURNS
|
||
0 IN REG-A IF NO CONSOLE DATA READY
|
||
RY SIZE
|
||
7: INTERROGATE DEVICE STATUS
|
||
8: CHANGE DEVICE STATUS
|
||
9: PRINT BUFFER ON CONSOLE
|
||
S NOT ZERO
|
||
UPON RETURN FROM THE BIOS.
|
||
14 BASE+42 WRITE WRITE DISK SECTOR (SETTRK.'CONCHA',
|
||
SELDISK EQU 'SELDIS',
|
||
READ$DISK EQU 'READDI',
|
||
CONECHO EQU 'CONECH',
|
||
PERM$ERROR$SUB EQU 'PEISK DRIVE GIVEN BY REGISTER C (0,1,..)
|
||
10 BASE+30 SETTRK SET TRACK (0-76) GIVEN BY REGISTER C
|
||
11 BASE+33 SETSE 25: RETURN CURRENTLY SELECTED DISK NUMBER
|
||
26: SET SUBSEQUENT DMA ADDRESS
|
||
27: RETURN BASE ADDRESS OF AL
|
||
FF IF CHARACTER IS READY
|
||
03 BASE+9 CONIN CONSOLE CHARACTER INTO ACCUMULATOR - 0 PARITY 10: READ BUFFER FROM CONSOLE
|
||
11: CONSOLE CHARACTER READY
|
||
12: LIFT HEAD (NOT USED IN CURRENT SYSTEMS)
|
||
.SELDSK ASSUMED)
|
||
ERROR RETURNS IN REGISTER A AS ABOVE
|
||
*/
|
||
|
||
/* FUNC IS THE DISK MONITOR RERR',
|
||
SEL$ERROR$SUB EQU 'SELERR',
|
||
RO$ERROR$SUB EQU 'RODERR',
|
||
WRITE$DISK EQU 'WRITED';
|
||
|
||
/* EXTERNALLY DEC SET SECTOR NUMBER GIVEN BY REG C (1-26)
|
||
12 BASE+36 SETDMA SET DMA ADDRESS GIVEN BY REG PAIR B,C (INITIALLY
|
||
LOCATION VECTOR
|
||
28: WRITE PROTECT CURRENTLY SELECTED DISK
|
||
29: RETURN R/O DISK BIT VECTOR
|
||
30: SET D
|
||
04 BASE+12 CONOUT CONSOLE CHARACTER SENT FROM REGISTER C
|
||
05 BASE+15 LIST SEND CHARACTER FROM REGISTER C 13: RESET DISK SYSTEM - SELECT DISK 0
|
||
14: SELECT DISK 'INFO'
|
||
15: OPEN FILE
|
||
16: CLOSE FILE
|
||
FUNCTION NUMBER AS SHOWN BELOW:
|
||
0: SYSTEM RESET
|
||
1: READ CONSOLE DEVICE
|
||
2: WRITE CONSOLE DEVICE
|
||
FINED LABELS AND VARIABLES */
|
||
DECLARE
|
||
PERM$ERROR$SUB ADDRESS EXTERNAL,
|
||
SEL$ERROR$SUB ADDRESS EXTERNAL,
|
||
RO$ERROR$ DEFAULTED TO 80H)
|
||
13 BASE+39 READ READ DISK SECTOR (SETTRK, SETSEC, SELDSK ASSUMED)
|
||
MA ADDRESS FOR DIRECTORY OPERATIONS
|
||
*/
|
||
|
||
|
||
DECLARE
|
||
EQU LITERALLY 'LITERALLY',
|
||
FOREVER EQU 'WHILE TR TO LIST DEVICE
|
||
06 BASE+18 PUNCH SEND CHARACTER FROM REGISTER C TO PUNCH DEVICE
|
||
07 BASE+21 READER READ CH 17: SEARCH FOR FIRST OCCURRENCE
|
||
18: SEARCH FOR NEXT OCCURRENCE
|
||
19: DELETE A FILE
|
||
20: READ
|
||
3: READ READER DEVICE
|
||
4: WRITE PUNCH DEVICE
|
||
5: WRITE LIST DEVICE
|
||
6: INTERROGATE MEMOSUB ADDRESS EXTERNAL,
|
||
MEMSIZE ADDRESS AT(BDOSA), /* ADDRESS FIELD OF JUMP AT 5 */
|
||
FUNC BYTE EXTERNAL, /* A PERMANENT ERROR IS ASSUMED IF THE
|
||
LEAST SIGNIFICANT BIT IUE',
|
||
TRUE EQU '1',
|
||
FALSE EQU '0',
|
||
/* TRUNCATE EXTERNAL NAMES FOR ASSEMBLER INTERFACE */
|
||
CONCHAR EQU ARACTER TO REGISTER A WITH 0 PARITY
|
||
08 BASE+24 HOME MOVE DISK HEAD TO TRACK 0
|
||
09 BASE+27 SELDSK SELECT DA FILE
|
||
21: WRITE A FILE
|
||
22: CREATE A FILE
|
||
23: RENAME A FILE
|
||
24: RETURN LOGIN VECTOR
|
||
MONITOR FUNCTION NUMBER */
|
||
INFO ADDRESS EXTERNAL, /* DATA TO ACT UPON */
|
||
ARET ADDRESS EXTERNAL, /* RETUR
|
||
|
||
PRINT: PROCEDURE(A) EXTERNAL;
|
||
DECLARE A ADDRESS;
|
||
/* PRINT THE STRING STARTING AT ADDRESS A UNTIL THE NEXT
|
||
OCCXTERNAL;
|
||
END WRITE$DISK;
|
||
|
||
TRSECT: PROCEDURE(SECTOR) EXTERNAL;
|
||
DECLARE SECTOR BYTE;
|
||
/* TRANSLATE AND SET SECTOR A SET */
|
||
GETBUFF EQU 'BUFF'; /* CAN REPLACE BY FUNCTION */
|
||
|
||
DECLARE DMX EQU 'DIRMAX',
|
||
/* DMX IS THE LPROCEDURE BYTE EXTERNAL;
|
||
END READIN;
|
||
|
||
TRACK0: PROCEDURE EXTERNAL;
|
||
END TRACK0;
|
||
|
||
SELDISK: PROCEDURE(DISK) EXTERNAL CHARACTERS
|
||
SCANNED UPON RETURN */
|
||
END READ;
|
||
|
||
|
||
DECLARE MAXDSK EQU '3', /* MAX DISK NUMBER 0,1,... */
|
||
NN VALUE */
|
||
RET BYTE, /* SET TO LOW(ARET) */
|
||
LINFO BYTE; /* SET TO LOW(INFO) */
|
||
URRENCE OF A DOLLAR SIGN */
|
||
END PRINT;
|
||
|
||
READ: PROCEDURE EXTERNAL;
|
||
/* READ CHARACTERS FROM THE CONSOLE DEVICE
|
||
INUMBER */
|
||
END TRSECT;
|
||
|
||
|
||
/* CONSOLE COMMUNICATION PROCEDURES */
|
||
|
||
DECLARE
|
||
/* SPECIAL CHARACTERS */
|
||
CTLC EQUAST DIRECTORY ENTRY NUMBER
|
||
(LISTED AS 0, 1, ... , DMX) */
|
||
CHKSIZ EQU '16', /* SIZE OF CHECKSUM VECTORS */
|
||
;
|
||
DECLARE DISK BYTE;
|
||
END SELDISK;
|
||
|
||
SELTRK: PROCEDURE(TRACK) EXTERNAL ;
|
||
DECLARE TRACK BYTE;
|
||
END SELTRK;
|
||
DISK EQU '4'; /* NUMBER OF DISKS = MAXDSK+1 */
|
||
|
||
DECLARE (DPTR,DCNT,DREC) BYTE,
|
||
/* DIRECTORY OPERATIONS AND DA
|
||
BOOT: PROCEDURE EXTERNAL;
|
||
/* WARM START */
|
||
END BOOT;
|
||
|
||
CONECHO: PROCEDURE BYTE EXTERNAL;
|
||
/* READ CHARACTER, ECNTO THE MEMORY LOCATION GIVEN BY 'INFO',
|
||
UNTIL THE FIRST CARRIAGE RETURN
|
||
IS ENCOUNTERED. ALLOW BACKSPACE (RUBOUT),
|
||
'03H',
|
||
TAB EQU '09H',
|
||
LF EQU '0AH',
|
||
CR EQU '0DH';
|
||
|
||
DECLARE
|
||
IOSTAT BYTE AT(IOLOC) ; /* IO STATUS BYTE CHKSHF EQU '4', /* LOG2 CHKSIZ */
|
||
OFFSET EQU 'OSTRKS', /* NUMBER OF TRACKS USED BY BOOT */
|
||
|
||
AL1 EQU '
|
||
SELSEC: PROCEDURE(SECTOR) EXTERNAL ;
|
||
DECLARE SECTOR BYTE;
|
||
END SELSEC;
|
||
|
||
SELDMA: PROCEDURE(DMA) EXTERNAL ;
|
||
DETA TRANSFERS TAKE PLACE
|
||
AT TBUFF (NORMALLY 80H) UNLESS CHANGED BY SYSTEM CALLS */
|
||
BUFFA ADDRESS INITIAL(TBUFF),
|
||
HO GRAPHICS */
|
||
END CONECHO;
|
||
|
||
CONBRK: PROCEDURE BYTE EXTERNAL;
|
||
END CONBRK;
|
||
|
||
LSTOUT: PROCEDURE(CHAR) EXTERNAL;
|
||
LINE ELIMINATE (CTL U), AND SYSTEM RE-BOOT
|
||
(CTL C) */
|
||
/* THE INFO POINTER IS ASSUMED TO ADDRESS AN
|
||
AREA OF ME */
|
||
|
||
TABOUT: PROCEDURE(CHAR) EXTERNAL;
|
||
DECLARE CHAR BYTE;
|
||
END TABOUT;
|
||
|
||
CRLF: PROCEDURE EXTERNAL;
|
||
END CRLF;
|
||
DIRBLK', /* FIRST ALLOCATION
|
||
VECTOR ELEMENT. EACH BIT THAT IS '1' RESERVES
|
||
A 1 K BLOCK FOR THE DIRECTOCLARE DMA ADDRESS;
|
||
END SELDMA;
|
||
|
||
READ$DISK: PROCEDURE BYTE EXTERNAL;
|
||
END READ$DISK;
|
||
|
||
WRITE$DISK: PROCEDURE BYTE E
|
||
DMAAD ADDRESS INITIAL(TBUFF),
|
||
BUFF BASED BUFFA (128) BYTE,
|
||
DIRSET BYTE INITIAL(FALSE), /* TRUE IF DIR DM DECLARE CHAR BYTE;
|
||
END LSTOUT;
|
||
|
||
PUNOUT: PROCEDURE(CHAR) EXTERNAL;
|
||
DECLARE CHAR BYTE;
|
||
END PUNOUT;
|
||
|
||
READIN: MORY CONTAINING TWO BYTE QUANTITIES.
|
||
THE FIRST GIVES THE MAXIMUM BUFFER LENGTH, AND
|
||
THE SECOND IS SET TO THE NUMBER OFRY. EACH BLOCK IS
|
||
8 RECORDS BY 128 BYTES PER RECORD (NOTE THAT
|
||
RESERVATIONS START ON THE LEFT OF THE W LFB EQU '31',
|
||
FNM EQU '13'; /* LENGTH OF FILE NAME */
|
||
|
||
DECLARE S BASED INFO (33) BYTE, /* FILE CONTROL BLOCK TO GET A SINGLE DISK ENTRY */
|
||
DMK EQU '11B', /* MASK CORRESPONDING TO DSF */
|
||
FLN EQU '32',15 OTHERWISE IT POINTS TO ALLOCATED DISK BLOCK
|
||
|
||
THE FILE CONTROL BLOCK IS FOLLOWED BY ONE BYTE OF
|
||
ECTOR 0 */
|
||
CHECK1 (CHKSIZ) BYTE, /* CHECK SUM VECTOR 1 */
|
||
CHECK2 (CHKSIZ) BYTE, /* CHECK SUM VECTOR 2 */
|
||
CH UNDEFINED NOW)
|
||
NAME : 8 CHARACTER PRIMARY NAME
|
||
EXT : 3 CHARACTER EXTENT
|
||
ORD */
|
||
|
||
ALLOC0 (32) BYTE, /* ALLOCATION VECTOR FOR DISK 0 */
|
||
ALLOC1 (32) BYTE, /* ALLOCATION VECTOR FOR DISK
|
||
PASSED TO THE DISK MONITOR FROM THE USER */
|
||
SZ BASED INFO BYTE; /* SZ = S(0) */
|
||
|
||
|
||
/*
|
||
FSL EQU '5', /* AMOUNT TO SHIFT TO MULTIPLY
|
||
BY THE FCB LENGTH (FLN) */
|
||
FDM EQU '1INFORMATION WHICH GIVES THE NEXT RECORD TO BE READ
|
||
OR WRITTEN IN AN OPENED FILE. THIS INFORMATION
|
||
IS NOECK3 (CHKSIZ) BYTE, /* CHECK SUM VECTOR 3 */
|
||
CHECKA ADDRESS, /* POINTER TO CURRENT VECTOR */
|
||
CHECK BASED CHE COM IMPLIES COMMAND TYPE
|
||
(OTHERWISE UNDEFINED NOW)
|
||
REEL NO : 'REEL NUMBER' FIR 1 */
|
||
ALLOC2 (32) BYTE, /* ALLOCATION VECTOR FOR DISK 2 */
|
||
ALLOC3 (32) BYTE, /* ALLOCATION VECTOR FOR DISK 3 *THE FILE CONTROL BLOCK FORMAT IS SHOWN BELOW:
|
||
|
||
----------------------------------------------------------
|
||
6', /* BEGINNING OF DISK MAP */
|
||
FRL EQU '32', /* LOCATION OF REC TO R/W */
|
||
FRC EQU '15', /* LOCATION OF RECOT A PART OF THE DIRECTORY. EACH READ OR WRITE
|
||
WILL INCREMENT THIS RECORD COUNT.
|
||
|
||
*/
|
||
|
||
|
||
DECLARECKA (CHKSIZ) BYTE; /* CHECK SUM TEMPLATE */
|
||
|
||
|
||
DECLARE
|
||
EMP EQU '0E5H',
|
||
MAL EQU 'MAXALL', /* LARGEST BLOCK ST REEL IS 0, SECOND IS 1,
|
||
AND SO FORTH UNTIL 255.
|
||
XXX : UNUSED FOR NOW
|
||
R/
|
||
ALLOCA ADDRESS, /* POINTER TO CURRENTLY REFERENCED ALLOC */
|
||
ALLOC BASED ALLOCA (32) BYTE; /* ALLOC VECTOR / 1 BY / 8 BY / 3 BY / 1 BY /2BY/1 BY/ 16 BY /
|
||
/FILETYPE/ NAME / EXT / REEL NO/XXX/RCNT/DM0 .. DM1RD COUNT
|
||
(MUST BE ONE BELOW DISK MAP) */
|
||
FRE EQU '12', /* POSITION OF REEL NUMBER */
|
||
|
||
OLDDSK BYTE, /* DISK ON ENTRY TO DOS */
|
||
FCBDSK BYTE, /* DISK NAMED IN FCB */
|
||
DLNUMBER */
|
||
MRC EQU '127', /* LARGEST RECORD NUMBER */
|
||
DSF EQU '2', /* AMOUNT TO SHIFT 128 BYTE RECORD
|
||
CNT : RECORD COUNT IN FILE (0 TO 127)
|
||
DM0 ... : DISK ALLOCATION MAP. 255 IF NOT ALLOCATED,
|
||
DMTEMPLATE */
|
||
|
||
DECLARE
|
||
RODSK BYTE INITIAL(0),/* READ ONLY DISK BIT VECTOR */
|
||
CHECK0 (CHKSIZ) BYTE, /* CHECK SUM V5/
|
||
----------------------------------------------------------
|
||
|
||
FILETYPE : 0E5H IF AVAILABLE (OTHERWISEOG BYTE INITIAL(0), /* BIT VECTOR GIVING LOGGED-IN DISKS */
|
||
CURTRKV(NDISK) BYTE, /* TRACK VECTOR */
|
||
CURREAD$DISK; ELSE
|
||
COND = WRITE$DISK;
|
||
IF COND = 0 THEN RETURN; /* DISK I/O SUCCESSFUL */
|
||
|
||
/* ARRI+ SECSIZ);
|
||
CURREC = T;
|
||
CURTRK = CURTRK + 1;
|
||
END;
|
||
|
||
/* WE ARE NOW POSITIONED OVER THE TRACK CONT/* SEEK THE RECORD CONTAINING THE CURRENT DIRECTORY ENTRY */
|
||
ARECORD = DOUBLE(DREC := SHR(DCNT,DSF));
|
||
CALL SEEK;
|
||
L RECORD */
|
||
|
||
|
||
|
||
|
||
HOME: PROCEDURE;
|
||
/* MOVE TO HOME POSITION, THEN OFFSET BY DOS TRACKS */
|
||
CALL TRACK0; /* AT HO* COMPUTE ACTUAL TRACK ADDRESS (ASSUMES A
|
||
PREVIOUS CALL TO INDEX */
|
||
ARECORD = SHL(ARECORD,BLKSHF) OR (VRECORD AND BRECV(NDISK) ADDRESS, /* RECORD VECTOR */
|
||
CURTRKA ADDRESS, /* POINTS TO CURRENT TRACK NUMBER */
|
||
CURRECVE HERE AFTER TOO MANY READ WRITE FAILURES */
|
||
CALL PERM$ERROR$SUB;
|
||
END WAITIO;
|
||
|
||
RDBUFF: PROCEDURE;
|
||
/* START ANAINING THE ACTUAL
|
||
RECORD. THE SECTOR TO BE READ IS ARECORD - CURREC + 1. THE
|
||
TRACK NUMBER IS CURTRK */
|
||
CALL SEEND SEEK$DIR;
|
||
|
||
COMPUTE$CS: PROCEDURE BYTE;
|
||
/* COMPUTE CHECKSUM FOR CURRENT DIRECTORY BUFFER */
|
||
DECLARE (I,CS) BYTE;ME POSITION */
|
||
CALL SELTRK(OFFSET); /* SELECT FIRST DIRECTORY POSITION */
|
||
CURREC, CURTRK = 0;
|
||
END HOME;
|
||
|
||
SEEKLKMSK);
|
||
END ATRAN;
|
||
|
||
GETFCB: PROCEDURE;
|
||
/* SET VARIABLES FROM CURRENTLY ADDRESSED FCB */
|
||
|
||
VRECORD = S(FRL);
|
||
A ADDRESS, /* POINTS TO CURRENT RECORD NUMBER */
|
||
CURREC BASED CURRECA ADDRESS, /* CURRENTLY ADDRESSED RECORD */ I/O AND WAIT FOR IO FINISH */
|
||
CALL WAITIO(TRUE);
|
||
END RDBUFF;
|
||
|
||
WRBUFF: PROCEDURE;
|
||
/* WRITE THE BUFFER, SELECT LTRK(CURTRK+OFFSET);
|
||
CALL TRSECT(ARECORD - CURREC);
|
||
END SEEK;
|
||
|
||
WAITIO: PROCEDURE(READING);
|
||
DECLARE READING BYT
|
||
CS = 0;
|
||
DO I = 0 TO LAST(BUFF);
|
||
CS = CS + GETBUFF(I);
|
||
END;
|
||
RETURN CS;
|
||
END COMPUTE$CS;: PROCEDURE;
|
||
/* SEEK THE TRACK GIVEN BY ARECORD (ACTUAL RECORD) */
|
||
DECLARE T ADDRESS;
|
||
|
||
DO WHILE ARECORD < C RCOUNT = S(FRC);
|
||
END GETFCB;
|
||
|
||
SETFCB: PROCEDURE;
|
||
/* PLACE VALUES BACK INTO CURRENTLY ADDRESSED
|
||
FCB, AND I
|
||
CURTRK BASED CURTRKA BYTE, /* CURRENT TRACK 0-76 */
|
||
RCOUNT BYTE, /* RECORD COUNT IN CURRENTLY
|
||
NON-DELETED DATA */
|
||
CALL WAITIO(FALSE);
|
||
END WRBUFF;
|
||
|
||
|
||
INDEX: PROCEDURE;
|
||
/* COMPUTE DISK BLOCK NUMBER FROM CUE; /* TRUE IF READING, FALSE IF WRITING */
|
||
DECLARE COND BYTE; /* CONDITION UPON RETURN */
|
||
IF READING THEN COND =
|
||
|
||
SET$CDISK: PROCEDURE(MASK) BYTE;
|
||
/* SET A '1' VALUE IN CURDSK POSITION OF MASK */
|
||
DECLARE MASK BYTE;
|
||
RETURN MURREC;
|
||
CURREC = CURREC - SECSIZ;
|
||
CURTRK = CURTRK - 1;
|
||
END;
|
||
DO WHILE ARECORD >= (T := CURREC NCREMENT THE RECORD COUNT */
|
||
|
||
S(FRL) = VRECORD + 1;
|
||
S(FRC) = RCOUNT;
|
||
END SETFCB;
|
||
|
||
SEEK$DIR: PROCEDURE;
|
||
ADDRESSED FCB */
|
||
VRECORD BYTE, /* CURRENT VIRTUAL RECORD */
|
||
ARECORD ADDRESS; /* CURRENT ACTUARRENT
|
||
FCB ADDRESSED BY INFO */
|
||
ARECORD = S(FDM+SHR(VRECORD,BLKSHF));
|
||
END INDEX;
|
||
|
||
ATRAN: PROCEDURE;
|
||
/ASK OR ROR(ROL(1,CURDSK+1),1);
|
||
END SET$CDISK;
|
||
|
||
NOWRITE: PROCEDURE BYTE;
|
||
/* RETURN TRUE IF DIR CHECKSUM DIFFERENCE */OC$BIT;
|
||
|
||
SET$ALLOC$BIT: PROCEDURE(I,B);
|
||
/* SET THE I-TH BIT OF ALLOC TO THE LSB OF B */
|
||
DECLARE (I,B) BYTE;
|
||
ALTIALIZING SYSTEM */
|
||
/* READ NEXT DIRECTORY ENTRY (SET DCNT=255 INITIALLY)*/
|
||
IF (DCNT:=DCNT+1) > DMX THEN
|
||
DO; TR+1) = '$';
|
||
/* SET ALLOC BIT TO 1 FOR EACH NON-ZERO DM ENTRY */
|
||
CALL SCANDM(1);
|
||
END;
|
||
HEN RETURN; /* SKIP IF BEYOND CHECKED AREA */
|
||
IF INIT THEN /* SET CHECKSUM VALUE */
|
||
CHECK(DREC) = COMPUTE$CS; ELSEOCEDURE;
|
||
DECLARE I BYTE;
|
||
/* INITIALIZE THE DISK SYSTEM */
|
||
RET = FALSE; /* SET TO TRUE IF $ FILE EXISTS */
|
||
|
||
|
||
RETURN ROL(ROR(RODSK,CURDSK+1),1);
|
||
END NOWRITE;
|
||
|
||
SET$RO: PROCEDURE;
|
||
/* SET CURRENT DISK TO READ ONLY */
|
||
RLOC(SHR(I,3)) =
|
||
ROR((GET$ALLOC$BIT(I) AND 0FEH) OR B, (I AND 111B) + 1);
|
||
END SET$ALLOC$BIT;
|
||
|
||
SCANDM: PROCEDURE(DCNT = 255; RETURN;
|
||
END;
|
||
IF (DPTR:=SHL(DCNT AND DMK,FSL)) = 0 THEN
|
||
DO; CALL SEEK$DIR;
|
||
CALL RDBUF END;
|
||
END INITIALIZE;
|
||
|
||
|
||
DECLARE SEARCHL BYTE, /* SEARCH LENGTH SET BY SEARCH */
|
||
SEARCHA ADDRESS; /*
|
||
IF CHECK(DREC) <> COMPUTE$CS THEN /* CHECKSUM ERROR */
|
||
CALL SET$RO; /* DISK SET TO READ ONLY */
|
||
END CHECKSUM RODSK = 0; /* NO READ ONLY DISKS AT THIS POINT */
|
||
ALLOC(0) = AL1;
|
||
DO I=1 TO LAST(ALLOC); ALLOC(I)=0;
|
||
ENDODSK = SET$CDISK(RODSK);
|
||
END SET$RO;
|
||
|
||
CHECK$WRITE: PROCEDURE;
|
||
/* CHECK FOR WRITE PROTECTED DISK */
|
||
IF NOWRITE TBIT);
|
||
DECLARE (BIT, I, K) BYTE;
|
||
/* SCANDM SCANS THE DISK MAP ADDRESSED BY DPTR FOR NON-ZERO ENTRIES
|
||
-- THE ALLOCAF;
|
||
CALL CHECKSUM(INIT); /* CHECKSUM OPERATION */
|
||
END;
|
||
END READ$DIR;
|
||
|
||
GET$ALLOC$BIT: PROCEDURE(I) BYTE; SEARCH ADDRESS SET BY SEARCH */
|
||
|
||
SEARCHN: PROCEDURE;
|
||
/* SEARCH FOR THE NEXT DIRECTORY ELEMENT, ASSUMING A PREVIOUS
|
||
;
|
||
|
||
WRDIR: PROCEDURE;
|
||
/* WRITE THE CURRENT DIRECTORY ENTRY, SET CHECKSUM */
|
||
CALL CHECKSUM(TRUE); /* INITIALIZE ENTRY ;
|
||
CALL HOME;
|
||
DCNT = 255;
|
||
DO FOREVER;
|
||
CALL READ$DIR(TRUE);
|
||
IF DCNT = 255 THEN RETURN;
|
||
HEN
|
||
CALL RO$ERROR$SUB;
|
||
END CHECK$WRITE;
|
||
|
||
CHECKSUM: PROCEDURE(INIT);
|
||
DECLARE INIT BYTE;
|
||
/* COMPUTE CURRTION VECTOR ENTRY CORRESPONDING TO A NON-ZERO ENTRY
|
||
IS SET TO THE VALUE OF 'BIT' */
|
||
DO I = DPTR+FDM TO DPTR+LFB;
|
||
|
||
/* RETURN THE I-TH BIT OF ALLOC */
|
||
DECLARE I BYTE;
|
||
RETURN ROL(ALLOC(SHR(I,3)), (I AND 111B)+1);
|
||
END GET$ALL CALL ON SEARCH WHICH SETS SEARCHA AND SEARCHL */
|
||
DECLARE (I,C) BYTE;
|
||
INFO = SEARCHA;
|
||
DO FOREVER;
|
||
CA*/
|
||
CALL WRBUFF; /* WRITE THE BUFFER */
|
||
END WRDIR;
|
||
|
||
READ$DIR: PROCEDURE(INIT);
|
||
DECLARE INIT BYTE; /* TRUE IF INI IF GETBUFF(DPTR) <> EMP THEN
|
||
DO; /* CHECK FOR $ FILE (IN CASE OF SUBMIT) */
|
||
RET = RET OR GETBUFF(DPENT CHECKSUM RECORD AND
|
||
UPDATE THE DIRECTORY ELEMENT IF INIT, OR CHECK
|
||
FOR EQUALITY IF NOT */
|
||
IF DREC >= CHKSIZ T IF (K := GETBUFF(I)) <> 0 THEN
|
||
CALL SET$ALLOC$BIT(K,BIT);
|
||
END;
|
||
END SCANDM;
|
||
|
||
INITIALIZE: PRLL READ$DIR(FALSE);
|
||
IF (RET := DCNT) = 255 THEN RETURN;
|
||
I = 0;
|
||
DO WHILE (I < SEARCHL) AND
|
||
RENTLY ADDRESSED DIRECTORY ENTRY */
|
||
DO WHILE (L:=L-1) <> 255;
|
||
BUFF(L+DPTR) = S(B+L);
|
||
END;
|
||
CALL SAND IS CLOSEST
|
||
TO THE BLOCK 'L'. RETURN A 0 IF NO BLOCK IS AVAILABLE */
|
||
DECLARE (L, R) BYTE;
|
||
R = L;
|
||
|
||
END OPEN;
|
||
|
||
CLOSE: PROCEDURE;
|
||
/* LOCATE THE DIRECTORY ELEMENT AND RE-WRITE */
|
||
RET = 0;
|
||
IF NOWRITE THEN RETY UP THROUGH THREE CHARACTER EXTENT */
|
||
CALL SEARCH(FRE);
|
||
DO FOREVER;
|
||
IF DCNT = 255 THEN /* NO MORE ENTRIES MA
|
||
CALL CHECK$WRITE; /* IN CASE WRITE PROTECTED */
|
||
/* SEARCH UP TO THE REEL NUMBER FIELD */
|
||
CALL SEARCH(FRE); S(FDM /* MATCH OR QUESTION MARK */
|
||
((C := S(I)) = GETBUFF(DPTR+I) OR C = 63);
|
||
I = I + 1;
|
||
EEK$DIR;
|
||
CALL WRDIR; /* WRITE DIR ENTRY */
|
||
END COPY$DIR;
|
||
|
||
COPY$FCB: PROCEDURE;
|
||
/* COPY THE ENTIRE FILE CONTROL DO WHILE (R < MAL) OR (L > 0);
|
||
L = L - (1 AND L > 0);
|
||
R = R + (1 AND R < MAL);
|
||
IF NOT GET$ALLOC$BIT(URN; /* SKIP CLOSE IF WRITE PROTECTED */
|
||
CALL SEARCH(FNM);
|
||
IF DCNT <> 255 THEN
|
||
CALL COPY$FCB;
|
||
END CLOSE;TCH */ RETURN;
|
||
/* SET EACH NON-ZERO DISK MAP ENTRY TO 0 IN ALLOC VECTOR */
|
||
CALL SCANDM(0);
|
||
BUFF(DPTR)) = SZ;
|
||
/* ASSUME SAME DISK DRIVE FOR NEW NAMED FILE */
|
||
DO WHILE DCNT <> 255; CALL COPY$DIR(FDM,FRE);
|
||
CALEND;
|
||
IF I = SEARCHL THEN RETURN;
|
||
END;
|
||
END SEARCHN;
|
||
|
||
SEARCH: PROCEDURE(XL);
|
||
DECLARE XL BYTE;
|
||
BLOCK */
|
||
CALL COPY$DIR(0,FRL);
|
||
END COPY$FCB;
|
||
|
||
RENAME: PROCEDURE;
|
||
/* RENAME THE FILE DESCRIBED BY THE FIRST HAR) THEN RETURN R;
|
||
IF NOT GET$ALLOC$BIT(L) THEN RETURN L;
|
||
END;
|
||
RETURN 0;
|
||
END GET$BLOCK;
|
||
|
||
COPY$DIR:
|
||
|
||
MAKE: PROCEDURE;
|
||
/* CREATE A NEW FILE; FIRST CREATE ENTRY IN
|
||
THE DIRECTORY. FILE IS OPENED UPON RETURN */
|
||
D = EMP;
|
||
/* ARECORD HAS BEEN PREVIOUSLY SOUGHT BY READDIR */
|
||
CALL WRDIR; /* WRITE DIRECTORY ENTRY */
|
||
CL SEARCHN;
|
||
END;
|
||
END RENAME;
|
||
|
||
OPEN: PROCEDURE;
|
||
DECLARE I BYTE;
|
||
/* SEARCH FOR DIRECTORY ENTRY, COPY TO SEARCHL = XL;
|
||
SEARCHA = INFO;
|
||
DCNT = 255;
|
||
CALL HOME;
|
||
/* NOW READY TO READ THE DISK */
|
||
CALL SEARCHN;
|
||
LF OF THE CURRENTLY
|
||
ADDRESSED FILE CONTROL BLOCK. THE NEW NAME IS CONTAINED IN THE
|
||
LAST HALF OF THE CURRENTLY ADDRESS PROCEDURE(B,L);
|
||
DECLARE (B,L) BYTE;
|
||
/* COPY FCB INFORMATION STARTING AT BYTE B FOR L BYTES INTO
|
||
BEGINNING OF CURECLARE I BYTE,
|
||
FCB ADDRESS;
|
||
|
||
CALL CHECK$WRITE; /* MAY BE WRITE PROTECTED */
|
||
FCB = INFO; INFO = .(EMP);
|
||
ALL SEARCHN;
|
||
END;
|
||
END DELETE;
|
||
|
||
GET$BLOCK: PROCEDURE(L) BYTE;
|
||
/* FIND A BLOCK WHICH IS AVAILABLE ON THE DISK FCB */
|
||
CALL SEARCH(FNM);
|
||
IF DCNT <> 255 THEN
|
||
DO I=FNM TO LFB;
|
||
S(I) = GETBUFF(DPTR+I);
|
||
END;
|
||
END SEARCH;
|
||
|
||
DELETE: PROCEDURE;
|
||
DECLARE (I,J,K) BYTE;
|
||
CALL CHECK$WRITE; /* WRITE PROTECTED? */
|
||
/* SEARCH ONLED FILE CONTROL BLOCK. THE
|
||
FILE TYPE, FILE NAME, AND FILE EXT ARE CHANGED, BUT THE REEL
|
||
NUMBER FIELD IS IGNORED */
|
||
/* LOOK FOR AN EMPTY DIRECTORY ENTRY */
|
||
CALL SEARCH(1);
|
||
IF DCNT <> 255 THEN
|
||
DO; /* SET ELEMENTS TO ZERO */
|
||
/* NOW READ THE BUFFER */
|
||
CALL SETDMA; /* SELECTS DATA DMA ADDRESS */
|
||
CALL RDBUFF;
|
||
CALL RTHEN CALL SELDMA(BUFFA);
|
||
END RESETDMA;
|
||
|
||
DISKREAD: PROCEDURE;
|
||
CALL GETFCB;
|
||
|
||
IF RCOUNT <= VRECORD THEN
|
||
END;
|
||
END;
|
||
/* CONTINUE IF NO ERROR IN ALLOCATION */
|
||
IF RET = 0 THEN
|
||
DO; CALL RE) = S(FRE) + 1;
|
||
CALL SEARCH(FNM);
|
||
IF DCNT = 255 THEN
|
||
DO; IF READING THEN RETURN;
|
||
CALL MAKE;
|
||
IS SHOULD BE THE LAST ALLOCATED
|
||
BLOCK FOR THIS FILE, OR THE VALUE 0 IF NO SPACE HAS BEEN
|
||
ALLOCATED TO INFO = FCB;
|
||
DO I=FNM TO LFB;
|
||
S(I) = 0;
|
||
END;
|
||
/* COPY INTO DIRECTORY ENTRYESETDMA; /* SELECTS DIR DMA ADDRESS */
|
||
CALL SETFCB;
|
||
END;
|
||
END;
|
||
END DISKREAD;
|
||
|
||
DISKWRIT DO; RET = 1;
|
||
IF VRECORD = 128 THEN CALL OPEN$REEL(TRUE);
|
||
VRECORD = 0;
|
||
IF RET <> 0 THEN RETURN;
|
||
ATRAN;
|
||
CALL SEEK;
|
||
CALL SETDMA;
|
||
CALL WRBUFF;
|
||
CALL RESETDMA;
|
||
IF R END; ELSE
|
||
CALL OPEN;
|
||
IF DCNT = 255 THEN
|
||
DO; RET = 1; /* END OF FILE IN DISK READ */
|
||
RETURN;
|
||
THIS FILE */
|
||
I = 0;
|
||
IF (L := FDM + SHR(VRECORD,3)) > FDM THEN
|
||
/* THERE IS A PREVIOUS BLOC */
|
||
CALL COPY$FCB;
|
||
END;
|
||
END MAKE;
|
||
|
||
OPEN$REEL: PROCEDURE(READING);
|
||
DECLARE READING BYTE;
|
||
/* CE: PROCEDURE;
|
||
DECLARE (I,L) BYTE;
|
||
CALL CHECK$WRITE; /* IN CASE WRITE PROTECTED */
|
||
CALL GETFCB;
|
||
IF VRECORD > END;
|
||
DO; CALL INDEX;
|
||
|
||
/* ERROR 2 IF READING UNWRITTTEN DATA */
|
||
IF LOW(ARECORD) = 0 THEN RET = 1COUNT <= VRECORD THEN RCOUNT = VRECORD+1;
|
||
/* CHECK FOR END-OF-REEL, IF FOUND ATTEMPT TO OPEN
|
||
NEXT REEL END;
|
||
CALL GETFCB;
|
||
RET = 0;
|
||
END OPEN$REEL;
|
||
|
||
SETDMA: PROCEDURE;
|
||
/* SELECT DATA DMA ADDRESS */
|
||
IF DK ALLOCATED */ I = S(L-1);
|
||
IF (I := GET$BLOCK(I)) = 0 THEN /* NO MORE SPACE */
|
||
RET = 2; ELSE
|
||
LOSE CURRENT REEL AND OPEN THE NEXT ONE, IF POSSIBLE
|
||
READING IS TRUE IF WE ARE IN READ MODE */
|
||
CALL CLOSE;
|
||
/* RETMRC THEN /* PAST EOF, NEXT REEL NOT OPENED */
|
||
RET = 1; ELSE
|
||
DO; CALL INDEX;
|
||
IF LOW(ARECORD) = 0 THEN ; ELSE
|
||
DO; CALL ATRAN;
|
||
/* ARECORD IS NOW ACTUAL DISK ADDRESS */
|
||
CALL SEEK;
|
||
IN PREPARATION FOR THE NEXT WRITE */
|
||
IF VRECORD = MRC THEN
|
||
DO;
|
||
/* UPDATE CURRENTIRSET THEN CALL SELDMA(DMAAD);
|
||
END SETDMA;
|
||
|
||
RESETDMA: PROCEDURE;
|
||
/* RESELECT ORIGINAL DMA ADDRESS */
|
||
IF DIRSET DO; CALL SET$ALLOC$BIT(I,1);
|
||
/* BLOCK IS ALLOCATED */
|
||
ARECORD, S(L) = I;
|
||
REMAINS AT 255 IF WE CANNOT OPEN THE NEXT REEL */
|
||
IF DCNT = 255 THEN RETURN;
|
||
/* INCREMENT THE REEL NUMBER */
|
||
S(F/* NOT ALLOCATED */
|
||
DO; /* THE ARGUMENT TO GET$BLOCK IS THE STARTING POSITION
|
||
FOR THE DISK SEARCH - TH FCB BEFORE GOING TO THE NEXT EXTENT */
|
||
CALL SETFCB; CALL OPENREEL(FALSE);
|
||
/* VRECORD REMAINS BLIC;
|
||
LINFO = LOW(INFO);
|
||
ARET, RET, FCBDSK = 0;
|
||
|
||
DO CASE FUNC;
|
||
/* 0: SYSTEM RE-BOOT */
|
||
CALL BOOT;
|
||
ROCEDURE;
|
||
IF LINFO <> CURDSK THEN
|
||
DO; CURDSK = LINFO; CALL SELECT;
|
||
END;
|
||
END CURSELECT;
|
||
|
||
RESELECT:*/
|
||
DO; CALL RESELECT;
|
||
CALL CLOSE;
|
||
END;
|
||
/* 17: SEARCH FOR FIRST OCCURRENCE OF A FILE */
|
||
E THAT THIS ASSUMES THERE ARE NO MORE
|
||
THAN 8 DISKS ON THE SYSTEM - OTHERWISE
|
||
REPLACE BY .ALLOC0(SHL(DOUBLE(CURDSK),5))/
|
||
CALL PRINT(INFO);
|
||
/* 10: READ BUFFER FROM THE CONSOLE */
|
||
CALL READ;
|
||
/* 11: CHECK FOR CONSOLE INPUTAT MRC CAUSING END-OF-FILE
|
||
IF NO MORE DIRECTORY SPACE IS AVAILABLE */
|
||
IF RET = 0 THEN VRECORD /* 1: READ CONSOLE */
|
||
RET = CONECHO;
|
||
/* 2: WRITE CONSOLE */
|
||
CALL TABOUT(LINFO);
|
||
/* 3: READ READER PROCEDURE;
|
||
/* CHECK CURRENT FCB TO SEE IF RESELECTION NECESSARY */
|
||
IF (LINFO := (SZ AND 1$1111B) -1) < 30 THEN
|
||
DO; CALL RESELECT;
|
||
CALL SEARCH(FNM);
|
||
END;
|
||
/* 18: SEARCH FOR NEXT OCCURRENCE OF A FILE NAME */
|
||
DO */
|
||
CHECKA = .CHECK0(SHL(CURDSK,CHKSHF));
|
||
CURTRKA = .CURTRKV(CURDSK);
|
||
CURRECA = .CURRECV(CURDSK);
|
||
|
||
/* SET READY */
|
||
RET = CONBRK;
|
||
/* 12: */
|
||
;
|
||
/* 13: RESET DISK SYSTEM, INITIALIZE TO DISK 0 */
|
||
DO; C= 255; /* GOES TO ZERO */
|
||
RET = 0;
|
||
END;
|
||
CALL SETFCB;
|
||
END;
|
||
EDEVICE */
|
||
RET = READIN;
|
||
/* 4: WRITE PUNCH DEVICE */
|
||
CALL PUNOUT(LINFO);
|
||
/* 5: WRITE LIST DEVICE */
|
||
DO; OLDDSK = CURDSK; FCBDSK = SZ; SZ = SZ AND 1110$0000B;
|
||
CALL CURSELECT;
|
||
END;
|
||
END RESELECT;
|
||
|
||
SELBU; INFO = SEARCHA; CALL RESELECT;
|
||
CALL SEARCHN;
|
||
END;
|
||
/* 19: DELETE A FILE */
|
||
DO; CALL RESELECT;
|
||
CONTROLLER */
|
||
CALL SELDISK(CURDSK);
|
||
|
||
/* CHECK TO INSURE THAT DISK IS LOGGED IN */
|
||
IF NOT ROR(ROL(DLOG,1),CURDSKURDSK,DLOG,DIRSET = 0;
|
||
INFO = TBUFF; CALL SELBUFFA;
|
||
CALL SELECT;
|
||
END;
|
||
/* 14: SELECT DISK 'INFO' ND;
|
||
END DISKWRITE;
|
||
|
||
SELECT: PROCEDURE;
|
||
/* SELECT DISK 'INFO' FOR SUBSEQUENT
|
||
INPUT OR OUTPUT OPERATIONS */
|
||
|
||
CALL LSTOUT(LINFO);
|
||
/* 6: INTERROGATE MEMORY SIZE */
|
||
ARET = MEMSIZE;
|
||
/* 7: INTERROGATE DEVICE STATUS FFA: PROCEDURE;
|
||
/* SELECT DMA BUFFER ADDRESS */
|
||
CALL SELDMA(BUFFA := INFO);
|
||
END SELBUFFA;
|
||
|
||
DSKMON: PROCEDURE PU CALL DELETE;
|
||
END;
|
||
/* 20: READ A FILE */
|
||
DO; CALL RESELECT;
|
||
CALL DISKREAD;
|
||
END;
|
||
+1) THEN
|
||
DO;
|
||
DLOG = SET$CDISK(DLOG);
|
||
CALL INITIALIZE;
|
||
END;
|
||
END SELECT;
|
||
|
||
CURSELECT: P*/
|
||
CALL CURSELECT;
|
||
/* 15: OPEN */
|
||
DO; CALL RESELECT;
|
||
CALL OPEN;
|
||
END;
|
||
/* 16: CLOSE IF CURDSK > MAXDSK THEN /* SELECTION ERROR */
|
||
CALL SEL$ERROR$SUB;
|
||
ALLOCA = .ALLOC0(SHL(CURDSK,5));
|
||
/* NOT*/
|
||
ARET = IOSTAT;
|
||
/* 8: CHANGE DEVICE STATUS */
|
||
IOSTAT = LINFO;
|
||
/* 9: PRINT BUFFER AT THE CONSOLE *
|
||
/* 21: WRITE A FILE */
|
||
DO; CALL RESELECT;
|
||
CALL DISKWRITE;
|
||
END;
|
||
/* 22: CREATE A FILE */
|
||
佯 來 <00> 侖 儘
|
||
<00>
|
||
俔 <00> 俟 俎 <00> 俘
|
||
<00>
|
||
俛 <00> 俑 俚 <00> 俐 <00> 俤 <00> 俥 倚裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 亟 亠N 湧 <00> ; 亢O <00> 亰P <00> 亳Q 猷 ｰ d 由 ?<3F><ｰ , <09> <00> 亶S 祐 ?<3F><ｰ , <09> 从T 裕 ｰ , +TE PROTECT CURRENT DISK */
|
||
CALL SET$RO;
|
||
/* 29: RETURN R/O BIT VECTOR */
|
||
RET = RODSK;
|
||
/* 30: SET DIRE <00>7 <00>6 H露8 <00>8 労 R牢9 <00>9 狼 d脇: <00>: 惑 <00><01>; <00>; <00> <00><01>< <00>< <00><08> <00>= <00>= ?ﾐ<03>> <00>>
|
||
ｰ DO; CALL RESELECT;
|
||
CALL MAKE;
|
||
END;
|
||
/* 23: RENAME A FILE */
|
||
DO; CALL RESELECT;
|
||
CALL <00> 倨 <00> 倔 倪 <00> 倥 <00> 倅 伜 <00> 俶 <00> 倡 <00> 倩 倬 <00> 俾 <00> 俯 <00> 們 倆裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 <00> 誘 仍 <1B> 仄 仆V 遊 Aｰ <00>仂W 邑 ､ 仗 仞X 郵 <00>> 仭 仟Y 雄 m? 价Z 融 ､ 伉 佚[CTORY DMA */
|
||
DO; DIRSET = TRUE; /* MARK AS SEPARATE DIR AREA */
|
||
CALL SELBUFFA;
|
||
END;
|
||
END; /* OF C<>
|
||
?<04>? <00>?
|
||
ｰ Zm =
|
||
ｰ H <00>@ 諭 ､ <00> 弌A 輸 <00>丐 丕B <00> 个 丱C 佑 <00>
|
||
ｰ Z+ ｴ<08> <00> U <00> RENAME;
|
||
END;
|
||
/* 24: RETURN THE LOGIN VECTOR */
|
||
RET = DLOG;
|
||
/* 25: RETURN SELECTED DISK NUMBER */
|
||
<00> 偃 <00> 假 <00> 會 偕 <00> 偐 <00> 偈 ! <00>! 做 偖 " <00>" 偬 # <00># 偸 傀 $ <00>$ 傚 % <00>% 傅 傴裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 夕 Ⅰ 估 佛\ 予 m ? 佝] 余 ､ 佗 ﾈ佶^ 与 ㌦ 侈 ﾋ侘_ 誉
|
||
ｰ R
|
||
; ｢<08> +
|
||
ｰ <00>Y0;ｰ ｴ佻` ASES */
|
||
GOBACK:
|
||
IF FCBDSK <> 0 THEN /* RESTORE DISK NUMBER */
|
||
DO; SZ = FCBDSK; LINFO = OLDDSK; CALL CURSELECT;､D 優
|
||
ｰ Zｰ .<01>0> 丼E 勇
|
||
ｰ H!6丿F 友 控 <00> 乂G 宥 <00>
|
||
ｰ Zｰ .<01>;ｰ <00>+ ｴ<08><04>W 乖H 幽
|
||
ｰ Z: RET = CURDSK;
|
||
/* 26: SET THE SUBSEQUENT DMA ADDRESS TO INFO */
|
||
DO;
|
||
IF DIRSET THEN DMAAD = INFO; EL & <00>& 傲 ' <00>' <00> <00> ( <00>( <00> <01>) <00>) <00> <01>
|
||
* <00>* <00> <01>
|
||
+ <00>+ <00>, <00>, <00>- <00>- <00> <00>. <00>. <00>/ <00> <00> <00> L 弄 <00> 朗 c 賄 <00> 脇 ｰ 亞 <00> 亟 ﾀ 价 <00> 伉 ﾋ 侘 <00> 佻 佩 <00> 佰 侑 <00> 輿 ､ 佩 佰a 預 〝 侑 ﾑ來b 傭
|
||
ｰ R
|
||
; ｴ<08>
|
||
ｰ d: ; ｢*: <00>;ｰ ｴ侖c 幼 ､ 儘 俔d 妖
|
||
END;
|
||
/* RETURN A SINGLE OR DOUBLE BYTE VALUE */
|
||
ARET = ARET OR RET;
|
||
END DSKMON;
|
||
END;
|
||
|
||
ｰ <00>: > 乘I 悠
|
||
ｰ H!3亂J 憂 昂 <00> 亅 ｮ弍K 揖
|
||
ｰ Hｰ <00>*
|
||
?于L 有
|
||
ｰ Z+ ｴ<08>
|
||
?ｲ亞M 柚 ､SE
|
||
CALL SELBUFFA;
|
||
END;
|
||
/* 27: RETURN THE LOGIN VECTOR ADDRESS */
|
||
ARET = ALLOCA;
|
||
/* 28: WRI <00>/ <00> <00>0 <00>0 <00>1 <00>1 <00> <01>2 <00>2 <00> <00>3 <00>3 <00> %<01>&4 <00>4 <00>' (<01>)5 <00>5 <00>* +<01>,6 <00>6 <00>- 4<01>57 ⊥ 俟 ﾗ俘e 容
|
||
ｰ <00>Y <ｰ ｢俛f 庸
|
||
ｰ <00>Y <ｰ <00>俑g 揚 ､ 俚 俐h 揺 <00> 俤 ﾟ倨i 擁 ｰ ｢ｬ :ｰ l
|
||
ｰ ﾚY <ｰ ~ + <00> <00>=ｭ 溜
|
||
ｰ ~
|
||
|
||
ｰ Z ?
|
||
<0B> <00>>ｮ 琉 ; l !3<>Z <00> <00>?ｯ 留 ､ 蓮 連ｰ 硫 ≒ 錬 <00> 覧 ; ｶ&<26>利 <1B>!<02> 吏 <00> <00>"<02> 履 ｰ ｶ+It<ｰ ､+ <00>
|
||
<00>#<02> <00> 梨 ?ﾂ <09>$<02> 理 ?> <09>%<02> 璃
|
||
ｰ ﾐ
|
||
|
||
?|
|
||
<EFBFBD>&<02> 痢 伶 m ? <0C><02> 例 <00> <00><02> 冷 ｰ ｶ+<><C280> 励 <1B> <00> <00><02> 嶺 m ?D <0B><02> 怜 <00> :ｰ ､
|
||
ｰ ﾚY &蝌<><02> 玲 ?､
|
||
<EFBFBD><EFBFBD> <00> ⑰
|
||
<EFBFBD> <00> 沃
|
||
ｰ ﾊ
|
||
?
|
||
<ｰ ﾊ<06><02> 浴 ､ <00> <00><02> 翌 ㌶
|
||
<EFBFBD> <00><02> 翼 ?:
|
||
d <00><02> 淀 Aｰ ｪ<02> <00><02> m ?ｺ
|
||
歪ﾋ 陵 ｰ ｶ<ｰ +<><C280> 領 <1B> 賄ﾍ 力 ; <00> & 脇ﾎ 緑 <00> 惑 ; ｸ ｰ <00> -&:ｰ <00>
|
||
ｰ <00>Y
|
||
<ｰ ｰ $-
|
||
ｰ <00>Y 倔j 曜
|
||
ｰ <00>Yｰ <00> 倪k 楊 ､ 倥 倅l 様 <00> 伜 俶m 洋 ｰ ｶQ<ｰ ﾈ 1;ｰ ｴ倡n ｱ <00> 呂 魯ｲ 隆 櫓 ; & 炉ｳ 竜 ; ﾊ& 賂ｴ 龍
|
||
ｰ ｦｰ <00> 路ｵ 侶 ; ｦ &<01> m ; ｦ *<01>] 慮 :ｰ ｦ
|
||
<00>
|
||
<00>'<02> 裏 ､ <00>( <00>)｡ 裡 <00>
|
||
; <00>
|
||
<10>* <00>+｢ <00> <00>,｣ 離 ｰ <00>
|
||
R
|
||
ｰ ｦYｰ <00>
|
||
+$-
|
||
<10><1B>-､ 陸 ､ <00>.<02> 礼 ?ﾜ <0B><02> 苓 硬 <00> <00><02> 鈴 ､ <00> <00><02> 隷 ㈱ ; <00> <10> <00><02><02> <00> <00><02> 霊 ｰ <00> <ｰ ｲ <0C><02> 麗 <00> ; v 羅 ､ <00> <00>
|
||
<02> 螺 <00>
|
||
; <00>
|
||
<10> <02> <00> <00> <02><02> 来 ｰ ﾈ+<10> 莱 <1B> <00><02> 頼 ｰ <00>
|
||
d <00><02> 雷 ?ﾘ :ｰ ﾈ
|
||
<00> : ; ､*
|
||
ｰ ﾚY 0)
|
||
ｰ 1)? n, n,dc 枠 鷲ﾏ 倫 ; <00> !3亙ﾐ 厘 甲 <00> 亘ﾑ 林 ; 溶 ?ﾜ倩o 熔 ､ 倬 俾p 用 <00> 俯 們q <00> 倆r 羊 ;
|
||
& 偃s 耀 0& <00> m; <00> *<01>Y 假t 葉 :ｰ <00>
|
||
ｰｰ ｦY & 露ｷ 旅 ; ｦ !3<>\ <00> 労ｸ 虜 ?ﾆ婁ｹ 了 ; ｶ&<26>廊ｺ 亮 <00> 弄ｻ 僚 m?ｺ
|
||
朗ｼ 両 ｰ ｶ+<><C280> 凌 <1B> 楼 <00>/･ 律 <00>
|
||
; 2 <10>0 <00>1ｦ <00> <00>2ｧ 立 <00>3
|
||
ｰ
|
||
?<3F>
|
||
+<>; 2 *
|
||
m0*$-
|
||
|
||
<00>
|
||
R
|
||
ｰ ｦYｰ ｲ -&
|
||
m ; <00> -+ n,dg <00><02> 齢 m ; <00> -++
|
||
n, <00><02> 暦 0 ; v-&+; ｲ * <00><02> 歴 ｰ $Y <00> <00> <00><02> 洛 :ｰ ﾈ
|
||
ｰ $Y : ?ﾘ : *<02> <00><02> 絡 ?P
|
||
<EFBFBD> <00> <00> 落 ､ <00> <00><02> 酪 <00>
|
||
<EFBFBD> <00><02> ｸ ｰ <00> *<03> 淋 <1B> 鰐ﾓ 燐 港 <00> 詫ﾔ 琳 ､ 藁 蕨ﾕ 臨 <00> ; , 椀ﾖ <00> 湾ﾗ 隣 ｰ , <ｰ ｸ 碗ﾘ 鱗
|
||
ｰ <00> ﾚY ｰ
|
||
*<ｰ
|
||
會u 蓉 ; <00> !3<>X <00> 偕v 要 ｰ
|
||
偐w 謡 ､ 偈 做x 踊 <00>
|
||
; (
|
||
偖 偬y <00> 偸z ｾ 寮 :ｰ ､
|
||
ｰ ﾚY +蜿
|
||
榔ｿ <00> 浪ﾀ 梁 漏 :ｰ ､ <00>Y
|
||
ｰ ﾚY 1)$; * 牢ﾁ 涼 m?D 狼ﾂ 猟 <00>
|
||
<00> n<10>4ｨ 葎 ､ <00>5 <00>6ｩ 掠 ⑤ ; Z <10>7ｪ <00> <00>8 :<02>;ｫ 劉 ｰ ､+<ｰ l <0B> ｰ ､+ ; l *<01>[ <00><ｬ <00>
|
||
ｰ ｲ
|
||
?<3F>
|
||
v 列 ｰ ｲ <1B> <00><02> 劣
|
||
ｰ <00>
|
||
?<3F>
|
||
v 烈 ｰ <00> <1B> <00><02> 裂 糠 <00> <00><02> 廉 m <1B><02> 恋 ､ <00> <00><02> 憐 <00>乱 m?|
|
||
<EFBFBD><02> 卵 ?T <09><02> 嵐 ､ <00> <00> <02> 欄 <00>
|
||
; ﾐ
|
||
<10> <02> <00> <00> <00> <02> 藍 ｰ ｶ$- <ｰ ｶ
|
||
ｰ @,<10> <00> <02> ;ｰ ﾊ 腕ﾙ 麟 ; ｶ&<26><>ﾚ 瑠 <00> ?ﾆ<08>ﾛ 塁 ?ﾜ <0B>ﾜ 涙 ､ <00> <00>ﾝ 累 <00>> <0C>ﾞ <00> <00>ﾟ 令 <00> ?f
|
||
<EFBFBD><02> 陽 ｰ ｬ$-
|
||
m<01>EV; (
|
||
*傀{ 養 ､ 傚 傅| 慾 <00>:
|
||
傴 傲} 抑 ｰ ｬ$-
|
||
; ﾊ<06>EN<1B>~ 欲 ､ <00> 篭ﾃ 療 洪 <00> 老ﾄ 瞭 ､ 聾 X郎ﾅ <00> 六 [禄ﾆ 糧 <00> 肋 ^論ﾇ <00> 倭ﾈ 諒
|
||
ｰ ﾊ ;ｰ <00>和ﾉ 遼 <00> 話ﾊ <00> ; <00> <10><02> <00> <00> <00><02><02> 煉 <00> ｰ <00> $0 <ｰ <00> +<><C280>i <00><02> 簾 ｰ <00> ; ﾚ *
|
||
ｰ <00>Yｰ ､: ; <00> *
|
||
ｰ ﾚY ?<3F> <09>J 憂ｰ ｢; <00>*<01> <00>K <00>有; &<01>M 柚ｰ ｢+<C280> 湧m?｢
|
||
<EFBFBD> <00>O 涌; ｢& <00>P 猶ｰ + 倨 <00>倪, <00>,倥 ?R
|
||
倅- <00>-ｰ ｶ+<><C280> <00>.<1B> 伜 俶/ <00>/
|
||
ｰ <00>Y!3倡0 <00>0m
|
||
? 倩1 <00>1ｰ ｶ+<><C280>G I労<03> 雷m; ｬ*<05>- 婁<03> 洛Aｰ <00><02>- 廊<03> 絡弄 Oｰ ｬIt ; ^Y;ｰ ｦ榔<03> 落ｰ ｬHs ; ﾜY;ｰ $浪l <00> <00> 仞 <00>､ 仭 仟 <00>⑲
|
||
价 伉 <00>; & 佚 <00>?:
|
||
d <00><1B> 估 <00>m
|
||
? 佛 <00>ｰ ｶ+ <00>' <00>(o 熔; &<02>( <00>' <00>)p <00>窯
|
||
ｰ "
|
||
m(?
|
||
<0B>* <00>+r 羊:ｰ ";ｰ ｴ:ｰ 4
|
||
ｰ <00>Y ｰ " <00>,s 耀<01>( <00>-t <00><02> 練 紘 <00> <00><02> 聯 ?ﾂ <09><02> <00> ?､
|
||
弌<02> <00> ､ 丐 丕<02> <00> <00> 个 丱 <00> m( m ?ﾄ 丶 <00>､ <00> 猷<1B> <00>R 由<01> <00>S <00>裕<01>
|
||
?j <09> U 誘
|
||
ｰ ｴb0+ <00>! 遊; &<01>" <00>! <00> W <00>郵<01>
|
||
? <09>Y 雄<01> 倬2 <00>2<01>3ｰ ｸ
|
||
d <00>4<1B> 俾5 <00>5?h
|
||
俯6 <00>6<01> <00> 們7 <00>7?*
|
||
<EFBFBD> 倆8 <00>8ｰ ｶ+<><C280> 偃9 <00>9<01>:; &假; 酪 酪:ｰ ｬ $Y;ｰ H漏<03> 乱牢 T:ｰ ｬ 6o;ｰ Z篭<03> 卵
|
||
ｰ ｬ
|
||
?<3F>老 W蝋<03> 嵐ｰ EN
|
||
ｰ ｬ$-
|
||
|
||
<EFBFBD><EFBFBD> 佝 <00>?<3F> <0C> 佗 <00>､ 佇 佶 <00>㍗
|
||
侈 ﾋ侘 <00> 佻 ﾎ佰 <00> ?f
|
||
侑 <00>
|
||
ｰ <00>;ｰ <00>
|
||
<EFBFBD> 佯 ; 葉<01>% <00>. <00>/u 蓉ｰ + <00>) <00>0v <00>謡? <09>1x 踊?ﾜ<08>2y 遥?ﾊ
|
||
<EFBFBD>3z 陽?T <09>4{ 養?<3F>
|
||
<EFBFBD>5| 慾ｰ ｢; <00> 丼 丿 <00><01>
|
||
乂 ｬ亊 <00>舒 ?f
|
||
弍 <00>m ? <0C>于
|
||
ｰ <00>:
|
||
ｰ <00>Y* 亞 <00><01> ｰ ｶ+<> ?ﾜ<08>Z 融?ﾊ
|
||
<EFBFBD>[ 夕?> <09>\ 予?<3F>
|
||
<EFBFBD>] 余?ｬ <09>^ 与<01>" <00>_ <00><01>` 輿､ <00> <00>a 預<01> <0E>b <00><01>;會< <00><<01> 偕= <00>=?<3F> 偐> <00>>; & 偈? <00>?､ 做 偖@ 諭<01>
|
||
偬 偸A 輸ｰ d 唯
|
||
ｰ <00> ?^<04> 傀 <00>v. 郎<03> <00>六<03> 濫
|
||
ｰ
|
||
?
|
||
<ｰ 麓<03> 藍?<3F> 禄<03> 蘭<01>. 肋<03> 覧､ 録 論<03> 利Ⅸ倭<03> 吏; ｬｰ ﾀ;ｰ <00>來 <00> m? 侖! <00>!ｰ ｶ+<><C280> 儘" <00>"俔# <00>#
|
||
ｰ <00>
|
||
;ｰ <00>俟$ <00>$; ~
|
||
&
|
||
<EFBFBD> m ; ~
|
||
*<01>o 俎% <00>%*<01>* 抑<01>6 ｰ ｢$- <ｰ <00><08>* <00>7 <00>8~ 欲ｰ ｢+<C280>+ <00>9 <00><01>: <00>; 沃?ｬ 浴m ?｢
|
||
<EFBFBD>< =<03>><03> 翌ｰ +<2B>k <00>m( m?ﾄ 亟 <00>?ﾜ 亠 <00> 綱 <00> 亢
|
||
<00>
|
||
､ 亰 亳 <00> <01>*
|
||
亶 <00> 从 仍
|
||
<00>
|
||
m
|
||
? 仄 <00>ｰ c 幼?f
|
||
<EFBFBD>d 妖?<3F> <09> e 容m; ｢*<05># <00> f 庸; &<01>$ <00># <00> g <00>揺?j <09> i 擁
|
||
ｰ ｴb0+ <00>% <00> j <00><01>!C 佑､ 傚 傅D 優<01>
|
||
傴 傲E 勇ｰ d 友
|
||
ｰ ﾚ ?^<04> <00>G 宥､ <00> <00>H 幽<01>
|
||
<EFBFBD> I 悠<01> *<02>/ 和<03> <00>李ｰ <ｰ ｬ梨?F話<03> 理<01>/ 歪<03> 璃､ 賄 脇<03> 痢㎎惑 枠<03> 裏
|
||
ｰ <00>m *$0 <ｰ + :ｰ ~
|
||
|
||
ｰ <00>Y & 俘& <00>&; ~
|
||
!3<>n <00> 俛 俑' <00>'?<3F> 俚( <00>(<01> 俐) <00>)､ 俤 俥* <00>*<01>
|
||
; ｸ
|
||
倚+ <00>+ <00>, 翼; ｢&<26><>, <00>?<03> 淀; & 蓮<03> 羅<01>+ 連<03> 螺?ｬ 錬<03> 裸<01>) 呂<03> 来<01>$ 魯<03> 莱､ 櫓 炉<03> 頼⑦亳+<><C280> 仆 <00>; @
|
||
&
|
||
<EFBFBD> m ; @
|
||
*<01>m 仂 <00>ｰ @
|
||
; ､*
|
||
ｰ ﾚY: :ｰ @
|
||
|
||
ｰ <00>Y 仗 <00>; @
|
||
!3<> #<03>$k 楊; "& <00>%l 様ｰ ｢R+0
|
||
m,<10>& <00>&m 洋ｰ 4$0
|
||
ｰ <00>Y <ｰ "<0E>& <00>'n 溶
|
||
ｰ "
|
||
?<3F> <ｰ "+<03> 0 鷲｡ <00>里ｰ ｬ<ｰ <00>離
|
||
ｰ <00> <ｰ 陸
|
||
ｰ <00>m<08>* 亙･ 律?\亘ｦ 率<01>0 鰐ｧ 立､ 詫 藁ｨ 葎㊧蕨 > ? @ A B C D E F G H I J K L O P Q R <00>1 侑<03> 憐感ｰ + <00>S 佯 來<03> <00>煉
|
||
ｰ <00>ｰ 簾ｰ <00> 亞ﾜ 涙烏 累?r亟ﾞ 類? 亠ﾟ 令<01>1 亢 亰<03> 伶羽 例?r亳<03> 冷?h
|
||
亶<03> 励<01>1 从 仍<03> 嶺迂 怜?r仄<03> ｩﾔ ﾔE = ﾕ$?<3F> ｪﾖ ﾖ$ <0B> ｫﾗ ﾗ 1 ｬ ｭﾘ ﾘF = ﾙ$?<3F> ｮﾚ ﾚ$s<> ｯﾛ ﾛ 1 ｰ ｱﾜ <00>ｺ 亮<01>= ?T<ｰ <03>1 <00> <00>ｻ 僚<01>> <00>1 <00> <00>ｼ 両<01>? 凌; ｬ& ; & ; & <00>ｾ 寮8;ｰ <00>料?<3F><0E>ﾀ ｷ: $<>5$柵 1 <00> <00>ｸ ｸ; $b<>:$ｨ<>; 1 <00> <00>ｹ ｹ< $S<> 1 <00> <00>ｺ ｺ= $劣5$n<> 1 <00> <00>ｻ ｻ> 椀ｩ 掠
|
||
ｰ <00>;ｰ ﾚ ?^湾ｪ 略､ 碗 腕ｫ 劉<01><0E>ｬ 流
|
||
ｰ <00>b0<ｰ <03>ｭ 溜<01> 8 ;ｰ <00>
|
||
<ｰ <ｰ <ｰ 練?\侖<03> 聯<01> 儘 俔<03> <00>ｰ + <00><02>0> 俟<03> <00>､ 俎<03> <00>悸 l mｨ ｨ<0E> < n oｩ 玲?
|
||
仆<03> 礼<01>1 仂 仗<03> 苓雨 ｰ <ｰ <03>1 仞 仭<03> 鈴卯 ｰ ｬ<ｰ <03>1 仟 价<03> 隷鵜 伉<03> 零ｰ ﾜG = ﾝ$?<3F> ｲﾞ ﾞ$e<> ｳﾟ ﾟ 1 ｴ ｵ<03> <09>H
|
||
= <09>$?<3F> ｶ<03> <09>$ｭ<> ｷ<03> <09> 1 ｸ ｹ<03> <09>I = 梁?F<0E>ﾁ 涼<01>1 <00> <00>ﾂ 猟院 ?\<0E>1 <00> <00>ﾃ 療陰 瞭?r<0E>ﾅ 稜?*
|
||
<EFBFBD>ﾆ 糧<01>1 <00> <00>ﾇ 良隠 諒?r<0E> 1 <00> <00>ｼ ｼ? = ｽ$咽9$<0F>9$<24>5% <00>ｾ ｾ$ｨ<>5% ｿ$2<> <00>ﾀ ﾀ$Z<> <00>ﾁ ﾁ 1 <00> <00>ﾂ ﾂ@ $L<> 1 <08>ｮ 琉
|
||
ｰ ﾎ _ p <00> <00>ｯ 留<01>2 ?(<03>1 <00> <00>ｰ 硫<01>3 ?><ｰ <03>1 <00> <00>ｱ 粒<01>4
|
||
ｰ
|
||
?<05>1 <00> <00>ｲ ｩ$<24>:$<0F>.$ｨ<>; pｪ ｪ q rｫ ｫ<0E> = sｬ ｬ$柵5$}<7D>:$ｨ<>; tｭ ｭ$漑9$劣9$<18>5% u vｮ ｮ$ｱ<>= w dM 霊
|
||
ｰ <00>;ｰ <00>康 <00> 佚<03> 麗?<3F><0E> 估<03> 齢<01>1 佛 佝<03> 暦碓
|
||
ｰ ｦ;ｰ <00><02>1 佗 佇<03> 歴臼 ?P
|
||
<EFBFBD>1 佶 侈<03> <00>$?<3F> ｺ<03> <09>$ﾉ<> ｻ<03> <09> 1 ｼ ｽ<03> <09>J $劣5$<0F> 1 ｾ ｿ<03> <09>K $劣5$咽 1 ﾀ ﾁ<03> <09>L = ﾂ<03> ﾉ 遼?R
|
||
弌ﾊ 量<01>1 丐 丕ﾋ 陵韻 領?r个ﾍ 力m
|
||
? 丱ﾎ 緑<01>1 丶 丼ﾏ 倫吋 厘
|
||
ｰ ﾊ ;ｰ <00>林?r丿ﾒ 利 <00>ﾃ ﾃA = ﾄ$?<3F> <00>ﾅ ﾅ$ﾀ<> <00>ﾆ ﾆ 1 <00> <00>ﾇ ﾇB = ﾈ$?<3F> <00>ﾉ ﾉ$ｶ<> <00>ﾊ ﾊ 1 <00> ｡ﾋ 隆<01>5 ?ｺ<ｰ <03>1 <00> <00>ｳ 竜<01>6
|
||
ｰ
|
||
?<3F><03>1 <00> <00>ｴ 龍<01>7
|
||
ｰ
|
||
?j<03>1 <00> <00>ｵ 侶<01>8
|
||
ｰ ｼ;ｰ <00><02>1 <00> xｯ ｯ2 $<24> 1 y zｰ ｰ3 $劣5$y<> 1 { |ｱ ｱ4 $u<>:$柵; 1 } ~ｲ ｲ5 $劣5$D<> 1 ｳ列渦 ｰ ﾊ<ｰ <03>1 侏 侘<03> 劣嘘 烈; &佻<03> 裂?<3F>佩<03> 廉<01>1 佰<03> 恋<01> 2 3 4 5 6 7 8 9 : ; < = <15>$<24>
|
||
M <09>$<05>5$ｨ<> N M ﾃ<03> <09>$2<> N ﾄ<03> <09> 1 ﾅ ﾆ<03> <09>O $漑5$L<> 1 ﾇ ﾈ<03> <09>P $ﾛ<> 1 ﾉ ﾊ<03>ﾒ?ﾜ 乂ﾓ 燐<01>1 乖 乘ﾔ 琳右 臨?r亂ﾖ 輪?> 亅ﾗ 隣<01>1 豫 亊ﾘ 鱗宇 麟?r舒ﾚ 瑠?<3F>
|
||
弍ﾛ 塁<01>1 于 ﾋC = ﾌ$?<3F> ｢ﾍ ﾍ$ <1D>:%
|
||
; ｣ﾎ ﾎ 1 ､ ･ﾏ ﾏD = ﾐ$ｨ<>5$:<3A> ﾑ$?<3F> ｦﾒ ﾒ$.<2E> ｧﾓ ﾓ 1 ｨ <00>ｶ 慮<01>9 :ｰ ;ｰ <00><02>1 <00> <00>ｷ 旅<01>: ｰ <ｰ <05>1 <00> <00>ｸ 虜<01>;
|
||
ｰ <00> ?R<05>1 <00> <00>ｹ 了<01>< ?z<05>1 <00> ｳ6 $O<>:$柵; 1 <00> <00>ｴ ｴ7 $c<>:$柵; 1 <00> <00>ｵ ｵ8 $漑5$ｺ<> 1 <00> <00>ｶ ｶ9 $漑5$<> 1 <00> <00>ｷ <09>Q $劣5$8<> 1 ﾋ ﾌ<03> <09>R
|
||
= <09>$<24>5% ﾍ<03> <09>$2<> ﾎ<03> <09> 1 ﾏ<03> <09> 1 ﾐ<03> <09> ﾑ
|
||
ｴ$<18>6%
|
||
S ﾒBDOS
|
||
OBJECT MODULE PLACED IN :F1:BDOS.OBJ
|
||
COMPILER INVOKED BY: PLM80 :F1:BDOS.PLM PAGEWIDTH(80) PAGELENGTH(58) TITLE('BAS
|
||
Q U ] d o r * * * + - ? ! B , K g l * u y ｧ0 | !<21> q:<3A> ﾒ<> ﾍ 2<> ﾃ<> ﾍ 2<> :<3A> <00> ﾂ<> ﾉ!ｧ <00>* 鯔3"
|
||
<03> <00> <00> <00> <00>$
|
||
001A - 0039H TRAN = STANDARD SECTOR TRANSLATE TABLE
|
||
(ACCESS TO TRAN IS ONLY THROUGH TRSECT)
|
||
C INFO ARET BOOT CONECH CONBRK LSTOUT PUNOUT READIN TRACK0 SELDIS SELTRK SELSEC SELDMA READDI WRITED TRSECT TAB THE BDOS AREA (SEE THE BDOSI INTERFACE)
|
||
AND CAN BE ALTERED TO FIT A RANGE OF DISK DRIVES
|
||
<03> <09>= <09>$.<2E>5$<18> <09>$柵5$#<23> <09>$L<> ﾓ<03> <09> ﾔ S ﾕ<03> <09>$漑5$漑0$劣 ﾖ<03> <09> ﾗ<03> <09> <20><03>ﾐ<>BB<03><03>"ｧ<><03><> -IC DISK OPERATING SYSTEM') DATE(15 AUG 78)
|
||
|
||
|
||
|
||
1 BDOS:
|
||
DO; /* (NORMALLY ORG'ED DIR} <00> <00> <00> <00> <00> <00> ､ ﾔ
|
||
ｨ ﾍ| ﾉ&" ｫ ,
|
||
ｮ ﾍ| ﾉ!" ｱ & ｴ * M!<21> ﾍ ﾆO * n& "<22> ﾉ $ ｹ ﾋ L ｵ ) ｼ
|
||
ﾄ a 003AH SECSIZ = NUMBER OF SECTORS PER TRACK (<=3
|
||
- 2)
|
||
003BHOUT CRLF PRINT READ @P0015 @P0048 @P0055 @P0069 @P0070 @P0071 <00>1 @P0072 @P0086 @P0089 @P0099 @P0101 @P0102 t STARTING WITH THE BASE OF THE BDOS AREA:
|
||
0009 - 000AH PERERR = .PERM ERROR SUB ﾁ 1 <00> <00>ﾂ ﾂ@ $y<> 1 <00> <00>ﾃ ﾃA = ﾄ$l<> <00>ﾅ ﾅ$渼 <00>ﾆ ﾆ 1 <00> <00>ﾇ ﾇB = ﾈ$l<> ECTLY AFTER BDOSI AT 3100H IN 16K CP/M)
|
||
- */
|
||
|
||
/*
|
||
COPYRIGHT (C) 1976 ﾎ * M!<21> ﾍ : <00>!<21> ｦ睿 "<22> ﾉ~$ ﾓ ﾝ <00> 9 ﾏ ( ﾖ ﾙ " <00> <01> * ~2<> * ~2<> ﾉq$ <03> <00> <00>
|
||
|
||
<00>
|
||
<00> ﾖ <01> :<3A> DIRMAX = LARGEST DIRECTORY ENTRY NUMBER (
|
||
- 0..254)
|
||
THE FOLLOWING VALUES ARE BA<42>DSKMON q m k <00> <02> g ﾑ " <00> ﾍ * Mﾍ *<2A> > w#6 *ﾞ wﾉk$ ｯ <00>g *<2A> ROUTINE
|
||
000B - 000CH SELERR = .SELECT ERROR SUBROUTINE
|
||
000D - 000EH RODERR =<3D>ﾉ ﾉ$肚 <00>ﾊ ﾊ 1 <00> ｡ﾋ ﾋC = ﾌ$l<> ｢ﾍ ﾍ$J<>:Aﾀ%
|
||
; ｣ﾎ ﾎ 1 ､ ･ﾏ ﾏD = ﾐ$ﾕ<>5$g,1977,1978
|
||
DIGITAL RESEARCH
|
||
BOX 579, PACIFIC GROVE
|
||
PL/M-80 COMPILER BASIC DISK OPERATING SYSTEM 15 AUG 78 PAGE 1
|
||
|
||
|
||
ISIS-II PL/M-80 V3.0 COMPILATION OF MODULE SED UPON A BLOCK ALLOCATION
|
||
SIZE OF BLKSIZ, WHICH IS USUALLY 1K FOR SINGLE DENSITY,
|
||
<11> ﾍ ﾒ; *<2A> <00>: ﾍ <00>+s#r*ﾞ 5ﾃ *<2A> : ﾍ "<22> <11> ﾍ ﾚc *<2A> <00>*<2A> <00>s#r*ﾞ 4ﾃ; *ﾞ : <00>ﾍ *<2A> <11> ﾍ Mﾍ ﾉｵ"
|
||
# 9 N a ﾆ$ & 5 < E H .READ ONLY DISK ERROR SUBR
|
||
|
||
001A - 0019H TRSECT = SECTOR TRANSLATE SUBROUTINE
|
||
BDOS0T
|
||
<03>*TRAN SECSIZ DIRMAX BLKSHF BLKMSK MAXALL DIRBLK OSTRKS CURDSK PERERR SELERR RODERR FUN CALIFORNIA, 93950
|
||
|
||
USER DEFINED PARAMETERS ARE FOUND AT THE BEGINNING OF
|
||
2K FOR DOUBLE DENSITY, AND MUST BE COMPUTED IN SUCH A W
|
||
- AY
|
||
THAT THE MAXIMUM A 1950*128/1024 = 243.75 ALLOCATION BLOCKS
|
||
|
||
WHICH IS WITHIN THE BYTE VALUE 0-255. THE BLOCKS ARE DISK OPERATING SYSTEM 15 AUG 78 PAGE 2
|
||
|
||
|
||
|
||
GIVEN TWO SYSTEM TRACKS, WE HAVE A USABLE STORAGE., THE FIRST TWO BLOCKS CANNOT BE ALLOCATED TO DATA AREAS)
|
||
|
||
*/
|
||
2 1 DECLARE
|
||
TRAN(32 - ROUP),
|
||
BASED UPON BLKSIZ AND DIRMAX
|
||
0040H OSTND
|
||
BLKMSK = 2**BLKSHF-1 = 2**3-1 = 8-1 = 7
|
||
|
||
FURTHER, WE ARE USING DIRSIZ = 64 DIRELLOCATION VALUE IS LESS THAN OR EQUAL
|
||
- TO
|
||
255 (A BYTE QUANTITY).
|
||
NUMBERED
|
||
- FROM
|
||
ZERO THROUGH 242 (THE LAST 3/4 OF AN ALLOCATION BLOCK IS LOST)
|
||
- AREA OF
|
||
|
||
77-2 TRACKS TIMES 26 SECTORS PER TRACK = 75*26 = 1950 S
|
||
- ECTORS
|
||
|
||
) BYTE EXTERNAL,
|
||
SECSIZ BYTE EXTERNAL,
|
||
DIRMAX BYTE EXTERNAL,
|
||
BLKSHFRKS = NUMBER OF SYSTEM TRACKS
|
||
|
||
AS AN EXAMPLE, GIVEN A STANDARD DISKETTE WITH 77 TRACKS USING
|
||
- CTORY ENTRIES, AND THUS
|
||
- THE
|
||
DATA AREA CONSUMED BY THE DIRECTORY IS 64/4 = 16 SECTORS
|
||
003CH BLKSHF = LOG2 OF BLOCK SIZE (BLKSIZ)
|
||
003DH BLKMSK = 2**BLKSHF-1
|
||
, AND
|
||
THUS THE VALUE
|
||
|
||
MAXALL = 242 (MAXIMUM ALLOCATION NUMBER)
|
||
|
||
GIVEN 512 BYTES PER ALLOCATION, WE GET
|
||
|
||
1950*128/512 = 487.5 ALLOCATION BLOCKS
|
||
|
||
BYTE EXTERNAL,
|
||
BLKMSK BYTE EXTERNAL,
|
||
MAXALL BYTE EXTERNAL,
|
||
DIRBL 26 SECTORS
|
||
PER TRACK, WITH TWO TRACKS DEDICATED TO THE OPERATING SYSTEM:
|
||
|
||
SECSIZ WHICH USES A TOTAL OF 2 OF THE BASIC BLOCKS (OF 1024 BYTES EAC
|
||
- H)
|
||
AND THUS THE AR 003EH MAXALL = MAXIMUM ALLOCATION NUMBER
|
||
003FH DIRBLK = BIT PATTERN WHI FURTHER, THE VALUE OF BLKSIZ (WHICH IS ONLY USED IN THE FOLLOW
|
||
- ING
|
||
COMPUTATIONS) IS ASSUME WHICH IS TOO LARGE TO FIT A BYTE VARIABLE. THUS, USING AN
|
||
ALLOCATION OF 1024 BYTES,
|
||
|
||
K BYTE EXTERNAL,
|
||
OSTRKS BYTE EXTERNAL,
|
||
CURDSK BYTE EXTERNAL; /* CURRENT DISK (EXTER = 26 (SECTORS PER TRACK)
|
||
DIRMAX = 63 (=64 DIRECTORY ENTRIES, FOR EXAMPLE)
|
||
PL/M-80 COMPILER BASICEA RESERVED FOR THE DIRECTORY IS
|
||
|
||
DIRBLK = 11000000B = 0C0H = 192 (DECIMAL)
|
||
|
||
(I.ECH RESERVES ONE B
|
||
- LOCK
|
||
FOR EACH DIRECTORY GROUP (4 ENTRIES PER G
|
||
D TO BE 1024. AS A RESULT,
|
||
|
||
BLKSHF = LOG2 (1024/128) = LOG2 8 = 3 (I.E., 2**3=8), A
|
||
- N FOR ERRS) */
|
||
|
||
/*
|
||
PL/M-80 COMPILER BASIC DISK OPERATING SYSTEM 15 AUG 78 PAGE 3
|
||
|
||
|
||
|
||
- RETURNS
|
||
0 IN REG-A IF NO CONSOLE DATA READY
|
||
ALLY '0080H';
|
||
|
||
|
||
|
||
|
||
/* THE FOLLOWING SUBROUTINES ARE ASSUMED TO EXIST EXTERNALLY DEFAULTED TO 80H)
|
||
13 BASE+39 READ READ DISK SECTOR (SETTRK, SETSEC, SELD
|
||
PLER AREA
|
||
0100H - CCP TRANSIENT PROGRAM AREA
|
||
*/
|
||
3 1 DECLARE
|
||
A
|
||
- RITY
|
||
08 BASE+24 HOME MOVE DISK HEAD TO TRACK 0
|
||
09 BASE+27 SELD THE FIRST PAGE OF ROM IS ASSIGNED AS FOLLOWS:
|
||
0000H JMP WBOOT
|
||
FF IF CHARACTER IS READY
|
||
03 BASE+9 CONIN CONSOLE CHARACTER INTO ACCUMULATOR - 0
|
||
- ,
|
||
STARTING AT THE ADDRESS 'BASE' (NORMALLY 3E00H IN 16K CP/M), A
|
||
- ND
|
||
ARE AC/M-80 COMPILER BASIC DISK OPERATING SYSTEM 15 AUG 78 PAGE 4
|
||
|
||
|
||
- SK ASSUMED)
|
||
JBOOT LITERALLY '0000H',
|
||
JDDT LITERALLY '0038H',
|
||
IOLOC LITERALLY '0003H',
|
||
SK SELECT DISK DRIVE GIVEN BY REGISTER C
|
||
- (0,1,..)
|
||
10 BASE+30 SETTRK SET TRACK (0-7 0003H IOBYTE (USED IN BDOS, PIP, AND STAT)
|
||
0004H CDISK (CURRENT DISK NUMBER, USED IN CCP, E PARITY
|
||
04 BASE+12 CONOUT CONSOLE CHARACTER SENT FROM REGISTER C
|
||
05 BASE+15 LIST CESSED THROUGH THE BDOS INTERFACE PROGRAM.
|
||
|
||
|
||
00 BASE: BOOT SYSTEM REBOOT OPERATION A PERMANENT ERROR IS ASSUMED IF
|
||
- THE
|
||
CDLOC LITERALLY '0004H',
|
||
JBDOS LITERALLY '0005H',
|
||
BDOSA LITERALLY '0006H', /*6) GIVEN BY REGISTER C
|
||
11 BASE+33 SETSEC SET SECTOR NUMBER GIVEN BY REG C (1-26
|
||
- )
|
||
D)
|
||
0005H JMP BDOS (PRIMARY BDOS ENTRY POINT)
|
||
0038H JMP DDT (RESTART FILLED SEND CHARACTER FROM REGISTER C TO LIST
|
||
- DEVICE
|
||
06 BASE+18 PUNCH SEND CHARACTER F
|
||
01 BASE+3 WBOOT SYSTEM REBOOT - WARM START
|
||
02 BASE+6 CONSTAT CONSOLE STATUS LEAST SIGNIFICANT BIT IS NOT ZER
|
||
- O
|
||
UPON RETURN FROM THE BIO ADDRESS FIELD OF JMP INSTRUCTION *
|
||
- /
|
||
TFCB LITERALLY '005CH',
|
||
TBUFF LITER 12 BASE+36 SETDMA SET DMA ADDRESS GIVEN BY REG PAIR B,C
|
||
- (INITIALLY
|
||
BY DDT)
|
||
005CH - 007CH DEFAULT FILE CONTROL BLOCK
|
||
0080H - 00FFH DEFAULT BUFFROM REGISTER C TO PUNC
|
||
- H DEVICE
|
||
07 BASE+21 READER READ CHARACTER TO REGISTER A WITH 0 PS.
|
||
14 BASE+42 WRITE WRITE DISK SECTOR (SETTRK..SELDSK ASSU
|
||
- MED)
|
||
RETURN BASE ADDRESS OF ALLOCATION VECTOR
|
||
28: WRITE PROTECT CURRENTLY SELECTED DISK
|
||
17: SEARCH FOR FIRST OCCURRENCE
|
||
18: SEARCH FOR NEXT OCCURRENCE
|
||
SEL$ERROR$SUB ADDRESS EXTERNAL,
|
||
RO$ERROR$SUB ADDRESS EXTERNAL,
|
||
MEMSIZE ADD 7: INTERROGATE DEVICE STATUS
|
||
8: CHANGE DEVICE STATUS
|
||
9: PRS',
|
||
READ$DISK EQU 'READDI',
|
||
PL/M-80 COMPILER BASIC DISK OPERATING SYSTEM 15 AUG 78 PAGE ERROR RETURNS IN REGISTER A AS ABOVE
|
||
*/
|
||
|
||
/* FUNC IS 29: RETURN R/O DISK BIT VECTOR
|
||
30: SET DMA ADDRESS FOR DIRECTORY OPERATIONS
|
||
*/
|
||
19: DELETE A FILE
|
||
20: READ A FILE
|
||
21: WRITE A FILE
|
||
22:RESS AT(BDOSA), /* ADDRESS FIELD OF JUMP AT 5 */
|
||
FUNC BYTE EXTERNAL, /* MONITOR FUNCTION NUMBER INT BUFFER ON CONSOLE
|
||
10: READ BUFFER FROM CONSOLE
|
||
11: CONSOLE CHARACTER READY
|
||
5
|
||
|
||
|
||
CONECHO EQU 'CONECH',
|
||
PERM$ERROR$SUB EQU 'PERERR',
|
||
SEL$ERROTHE DISK MONITOR FUNCTION NUMBER AS SHOWN BELOW:
|
||
0: SYSTEM RESET
|
||
1: READ CONSO
|
||
|
||
4 1 DECLARE
|
||
EQU LITERALLY 'LITERALLY',
|
||
CREATE A FILE
|
||
23: RENAME A FILE
|
||
24: RETURN LOGIN VECTOR
|
||
*/
|
||
INFO ADDRESS EXTERNAL, /* DATA TO ACT UPON */
|
||
ARET ADDRESS EXTERNAL, /* R 12: LIFT HEAD (NOT USED IN CURRENT SYSTEMS)
|
||
13: RESET DISK SYSTEM - SELECT DISK 0R$SUB EQU 'SELERR',
|
||
RO$ERROR$SUB EQU 'RODERR',
|
||
WRITE$DISK EQU 'WRITED';
|
||
|
||
LE DEVICE
|
||
2: WRITE CONSOLE DEVICE
|
||
3: READ READER DEVICE
|
||
FOREVER EQU 'WHILE TRUE',
|
||
TRUE EQU '1',
|
||
FALSE EQU '0',
|
||
/* TRUNC 25: RETURN CURRENTLY SELECTED DISK NUMBER
|
||
26: SET SUBSEQUENT DMA ADDRESS
|
||
27: ETURN VALUE */
|
||
RET BYTE, /* SET TO LOW(ARET) */
|
||
LINFO BYTE;
|
||
14: SELECT DISK 'INFO'
|
||
15: OPEN FILE
|
||
16: CLOSE FILE
|
||
/* EXTERNALLY DEFINED LABELS AND VARIABLES */
|
||
5 1 DECLARE
|
||
PERM$ERROR$SUB ADDRESS EXTERNAL,
|
||
4: WRITE PUNCH DEVICE
|
||
5: WRITE LIST DEVICE
|
||
6: INTERROGATE MEMORY SIZE
|
||
ATE EXTERNAL NAMES FOR ASSEMBLER INTERFACE */
|
||
CONCHAR EQU 'CONCHA',
|
||
SELDISK EQU 'SELDI /* SET TO LOW(INFO) */
|
||
|
||
6 1 BOOT: PROCEDURE EXTERNAL;
|
||
/* WARM START */
|
||
7 2 38 1 TRSECT: PROCEDURE(SECTOR) EXTERNAL;
|
||
39 2 DECLARE SECTOR BYTE;
|
||
/* TRANSLATE AND SET ERNAL ;
|
||
29 2 DECLARE SECTOR BYTE;
|
||
30 2 END SELSEC;
|
||
|
||
PL/M-80 COMPILER BASIC DISKROM THE CONSOLE DEVICE
|
||
INTO THE MEMORY LOCATION GIVEN BY 'INFO',
|
||
UNTIL THE FIRST CARRIAGE
|
||
18 1 READIN: PROCEDURE BYTE EXTERNAL;
|
||
19 2 END READIN;
|
||
|
||
20 1 TRACK0: PROCL;
|
||
44 2 DECLARE CHAR BYTE;
|
||
45 2 END TABOUT;
|
||
|
||
46 1 CRLF: PROCEDURE EXTERNAL END BOOT;
|
||
|
||
8 1 CONECHO: PROCEDURE BYTE EXTERNAL;
|
||
/* READ CHARACTER, ECHO GRAPHICS */
|
||
9 2 SECTOR NUMBER */
|
||
40 2 END TRSECT;
|
||
|
||
|
||
/* CONSOLE COMMUNICATION PROCEDURES */
|
||
OPERATING SYSTEM 15 AUG 78 PAGE 6
|
||
|
||
|
||
31 1 SELDMA: PROCEDURE(DMA) EXTERNAL ;
|
||
32 2 DECLARERETURN
|
||
IS ENCOUNTERED. ALLOW BACKSPACE (RUBOUT),
|
||
LINE ELIMINATE (CTL U), AND SYSTEM RE-BOEDURE EXTERNAL;
|
||
21 2 END TRACK0;
|
||
|
||
22 1 SELDISK: PROCEDURE(DISK) EXTERNAL;
|
||
23 2 ;
|
||
47 2 END CRLF;
|
||
|
||
48 1 PRINT: PROCEDURE(A) EXTERNAL;
|
||
49 2 DECLARE A ADDRES END CONECHO;
|
||
|
||
10 1 CONBRK: PROCEDURE BYTE EXTERNAL;
|
||
11 2 END CONBRK;
|
||
|
||
12 1
|
||
41 1 DECLARE
|
||
/* SPECIAL CHARACTERS */
|
||
CTLC EQU '03H',
|
||
DMA ADDRESS;
|
||
33 2 END SELDMA;
|
||
|
||
34 1 READ$DISK: PROCEDURE BYTE EXTERNAL;
|
||
35 2 OT
|
||
(CTL C) */
|
||
/* THE INFO POINTER IS ASSUMED TO ADDRESS AN
|
||
AREA OF MEM DECLARE DISK BYTE;
|
||
24 2 END SELDISK;
|
||
|
||
25 1 SELTRK: PROCEDURE(TRACK) EXTERNAL ;
|
||
2S;
|
||
/* PRINT THE STRING STARTING AT ADDRESS A UNTIL THE NEXT
|
||
OCCURRENCE OF A DOLLAR SIGN */ LSTOUT: PROCEDURE(CHAR) EXTERNAL;
|
||
13 2 DECLARE CHAR BYTE;
|
||
14 2 END LSTOUT;
|
||
|
||
TAB EQU '09H',
|
||
LF EQU '0AH',
|
||
CR EQU '0DH';
|
||
|
||
42 1 DECLARE
|
||
END READ$DISK;
|
||
|
||
36 1 WRITE$DISK: PROCEDURE BYTE EXTERNAL;
|
||
37 2 END WRITE$DISK;
|
||
|
||
ORY CONTAINING TWO BYTE QUANTITIES.
|
||
THE FIRST GIVES THE MAXIMUM BUFFER LENGTH, AND
|
||
THE SEC6 2 DECLARE TRACK BYTE;
|
||
27 2 END SELTRK;
|
||
|
||
28 1 SELSEC: PROCEDURE(SECTOR) EXT
|
||
50 2 END PRINT;
|
||
|
||
51 1 READ: PROCEDURE EXTERNAL;
|
||
/* READ CHARACTERS F 15 1 PUNOUT: PROCEDURE(CHAR) EXTERNAL;
|
||
16 2 DECLARE CHAR BYTE;
|
||
17 2 END PUNOUT;
|
||
IOSTAT BYTE AT(IOLOC) ; /* IO STATUS BYTE */
|
||
|
||
43 1 TABOUT: PROCEDURE(CHAR) EXTERNAOND IS SET TO THE NUMBER OF CHARACTERS
|
||
SCANNED UPON RETURN */
|
||
52 2 END READ;
|
||
|
||
|
||
ALLOC0 (32) BYTE, /* ALLOCATION VECTOR FOR DISK 0 */
|
||
ALLOC1 (32) BYORS */
|
||
CHKSHF EQU '4', /* LOG2 CHKSIZ */
|
||
OFFSET EQU 'OSTRKS', /* NUMBER OF TRACKS L EQU 'MAXALL', /* LARGEST BLOCK NUMBER */
|
||
MRC EQU '127', /* LARGEST RECORD NUMBER */
|
||
L(TBUFF),
|
||
DMAAD ADDRESS INITIAL(TBUFF),
|
||
BUFF BASED BUFFA (128) BYTE,
|
||
HECK0 (CHKSIZ) BYTE, /* CHECK SUM VECTOR 0 */
|
||
CHECK1 (CHKSIZ) BYTE, /* CHECK SUM VECTOR 1 */
|
||
PL/M-80 COMPILER BASIC DISK OPERATING SYSTEM 15 AUG 78 PAGE 7
|
||
|
||
|
||
|
||
53 1 DECLARE MATE, /* ALLOCATION VECTOR FOR DISK 1 */
|
||
ALLOC2 (32) BYTE, /* ALLOCATION VECTOR FOR DISK 2 */
|
||
USED BY BOOT */
|
||
|
||
AL1 EQU 'DIRBLK', /* FIRST ALLOCATION
|
||
VECTOR EL DSF EQU '2', /* AMOUNT TO SHIFT 128 BYTE RECORD
|
||
TO GET A SINGLE DISK ENTRY */
|
||
DIRSET BYTE INITIAL(FALSE), /* TRUE IF DIR DMA SET */
|
||
GETBUFF EQU 'BUFF'; /* CAN REPLACE BY FUNCTI CHECK2 (CHKSIZ) BYTE, /* CHECK SUM VECTOR 2 */
|
||
CHECK3 (CHKSIZ) BYTE, /* CHECK SUM VECTOR 3 */
|
||
XDSK EQU '3', /* MAX DISK NUMBER 0,1,... */
|
||
NDISK EQU '4'; /* NUMBER OF DISKS = MAXDSK+1 */
|
||
ALLOC3 (32) BYTE, /* ALLOCATION VECTOR FOR DISK 3 */
|
||
ALLOCA ADDRESS, /* POINTER TO CURRENTLYEMENT. EACH BIT THAT IS '1' RESERVES
|
||
A 1 K BLOCK FOR THE DIRECTORY. EACH BLOCK IS
|
||
DMK EQU '11B', /* MASK CORRESPONDING TO DSF */
|
||
FLN EQU '32',
|
||
FSON */
|
||
|
||
55 1 DECLARE DMX EQU 'DIRMAX',
|
||
/* DMX IS THE LAST DIRECTORY ENTRY CHECKA ADDRESS, /* POINTER TO CURRENT VECTOR */
|
||
CHECK BASED CHECKA (CHKSIZ) BYTE; /* C
|
||
54 1 DECLARE (DPTR,DCNT,DREC) BYTE,
|
||
/* DIRECTORY OPERATIONS AND DATA TRANSFERS TAKE REFERENCED ALLOC
|
||
- */
|
||
ALLOC BASED ALLOCA (32) BYTE; /* ALLOC VECTOR TEMPLATE */
|
||
8 RECORDS BY 128 BYTES PER RECORD (NOTE THAT
|
||
RESERVATIONS START ON THE LEFT OF THE WORD */
|
||
L EQU '5', /* AMOUNT TO SHIFT TO MULTIPLY
|
||
BY THE FCB LENGTH (FLN) */
|
||
NUMBER
|
||
(LISTED AS 0, 1, ... , DMX) */
|
||
CHKSIZ EQU '16', /* SIZE OF CHECKSUM VECTHECK SUM TEMPLATE */
|
||
|
||
|
||
57 1 DECLARE
|
||
EMP EQU '0E5H',
|
||
MAPLACE
|
||
AT TBUFF (NORMALLY 80H) UNLESS CHANGED BY SYSTEM CALLS */
|
||
BUFFA ADDRESS INITIA
|
||
56 1 DECLARE
|
||
RODSK BYTE INITIAL(0),/* READ ONLY DISK BIT VECTOR */
|
||
C FDM EQU '16', /* BEGINNING OF DISK MAP */
|
||
PL/M-80 COMPILER BASIC DISK OPERATING SYSTEM 15 AUG 78 PAGEBER' FIRST REEL IS 0, SECOND IS 1,
|
||
AND SO FORTH UNTIL 255.
|
||
XXX - 5/
|
||
--------------------------------------------------------
|
||
- --
|
||
|
||
(NDISK) BYTE, /* TRACK VECTOR */
|
||
CURRECV(NDISK) ADDRESS, /* RECORD VECTOR */
|
||
ISK MONITOR FROM THE USER */
|
||
SZ BASED INFO BYTE; /* SZ = S(0) */
|
||
|
||
IS NOT A PART OF THE DIRECTORY. EACH READ OR WRITE
|
||
WILL INCREMENT THIS RECORD COUNT.
|
||
8
|
||
|
||
|
||
FRL EQU '32', /* LOCATION OF REC TO R/W */
|
||
FRC EQU '15', /* LOCATION OF RE : UNUSED FOR NOW
|
||
RCNT : RECORD COUNT IN FILE (0 TO 127)
|
||
DM0 ...
|
||
FILETYPE : 0E5H IF AVAILABLE (OTHERWISE UNDEFINED NOW)
|
||
NAME : 8 CHARACCURTRKA ADDRESS, /* POINTS TO CURRENT TRACK NUMBER
|
||
- */
|
||
CURRECA ADDRESS,
|
||
/* THE FILE CONTROL BLOCK FORMAT IS SHOWN BELOW:
|
||
|
||
------------
|
||
*/
|
||
|
||
|
||
59 1 DECLARE
|
||
OCORD COUNT
|
||
(MUST BE ONE BELOW DISK MAP) */
|
||
FRE EQU '12', /* POS: DISK ALLOCATION MAP. 255 IF NOT ALLOCATED,
|
||
DM15 OTHERWISE IT POINTS TO ALLOCATED DISK BLOCKTER PRIMARY NAME
|
||
EXT : 3 CHARACTER EXTENT
|
||
COM IMPLIES /* POINTS TO CURRENT RECORD NUMBE
|
||
- R */
|
||
PL/M-80 COMPILER BASIC DISK OPERATING SYSTEM 15 AUG 78 --------------------------------------------
|
||
- --
|
||
/ 1 BY / 8 BY / 3 BY / 1 BY /2BLDDSK BYTE, /* DISK ON ENTRY TO DOS */
|
||
FCBDSK BYTE, /* DISK NAMED IN FCB */
|
||
ITION OF REEL NUMBER */
|
||
LFB EQU '31',
|
||
FNM EQU '13'; /* LENGTH OF FILE NAME */
|
||
|
||
|
||
THE FILE CONTROL BLOCK IS FOLLOWED BY ONE BYTE OF
|
||
INFORMATCOMMAND TYPE
|
||
(OTHERWISE UNDEFINED NOW)
|
||
REEL NO : 'REEL NUM PAGE 9
|
||
|
||
|
||
CURREC BASED CURRECA ADDRESS, /* CURRENTLY ADDRESSED RECORD
|
||
- */
|
||
Y/1 BY/ 16 BY
|
||
- /
|
||
/FILETYPE/ NAME / EXT / REEL NO/XXX/RCNT/DM0 .. DM1
|
||
DLOG BYTE INITIAL(0), /* BIT VECTOR GIVING LOGGED-IN DI
|
||
- SKS */
|
||
CURTRKV
|
||
58 1 DECLARE S BASED INFO (33) BYTE, /* FILE CONTROL BLOCK
|
||
PASSED TO THE DION WHICH GIVES THE NEXT RECORD TO BE READ
|
||
OR WRITTEN IN AN OPENED FILE. THIS INFORMATION
|
||
CURTRK BASED CURTRKA BYTE, /* CURRENT TRACK 0-76 */
|
||
RCOUNT BYTE, /* RECORD COUNT IN CURRENTLY FALSE IF WRITING */
|
||
80 2 DECLARE COND BYTE; /* CONDITION UPON RETURN */
|
||
81 2 IF READING THEN CO CURTRK + 1;
|
||
74 3 END;
|
||
|
||
/* WE ARE NOW POSITIONED OVER THE TRACK CONTAINING
|
||
|
||
97 1 ATRAN: PROCEDURE;
|
||
/* COMPUTE ACTUAL TRACK ADDRESS (ASSUMES A
|
||
;
|
||
64 2 END HOME;
|
||
|
||
65 1 SEEK: PROCEDURE;
|
||
/* SEEK THE TRACK GIVEN BY AR1 WRBUFF: PROCEDURE;
|
||
PL/M-80 COMPILER BASIC DISK OPERATING SYSTEM 15 AUG 78 PAGE 10
|
||
|
||
|
||
|
||
ADDRESSED FCB */
|
||
VRECORD BYTE, /* CURRENT VIRTUAL RECORD */
|
||
ND = READ$DISK; ELSE
|
||
83 2 COND = WRITE$DISK;
|
||
84 2 IF COND = 0 THEN RETURN; /* DISK THE ACTUAL
|
||
RECORD. THE SECTOR TO BE READ IS ARECORD - CURREC + 1. THE
|
||
TRACK NUMBER IS C PREVIOUS CALL TO INDEX */
|
||
98 2 ARECORD = SHL(ARECORD,BLKSHF) OR (VRECORD AND BLKMSK);
|
||
99 2 ENDECORD (ACTUAL RECORD) */
|
||
66 2 DECLARE T ADDRESS;
|
||
|
||
67 2 DO WHILE ARECORD < CURREC /* WRITE THE BUFFER, SELECT NON-DELETED DATA */
|
||
92 2 CALL WAITIO(FALSE);
|
||
93 2 END WRBUFF;
|
||
ARECORD ADDRESS; /* CURRENT ACTUAL RECORD */
|
||
|
||
|
||
|
||
|
||
60 1 HOME: PRI/O SUCCESSFUL */
|
||
|
||
/* ARRIVE HERE AFTER TOO MANY READ WRITE FAILURES */
|
||
86 2 CAURTRK */
|
||
75 2 CALL SELTRK(CURTRK+OFFSET);
|
||
76 2 CALL TRSECT(ARECORD - CURREC);
|
||
77 2 END ATRAN;
|
||
|
||
100 1 GETFCB: PROCEDURE;
|
||
/* SET VARIABLES FROM CURRENTLY ADDRESSED FCB */
|
||
;
|
||
68 3 CURREC = CURREC - SECSIZ;
|
||
69 3 CURTRK = CURTRK - 1;
|
||
70 3 END;
|
||
71
|
||
|
||
94 1 INDEX: PROCEDURE;
|
||
/* COMPUTE DISK BLOCK NUMBER FROM CURRENT
|
||
OCEDURE;
|
||
/* MOVE TO HOME POSITION, THEN OFFSET BY DOS TRACKS */
|
||
61 2 CALL TRACK0; /* AT HOME LL PERM$ERROR$SUB;
|
||
87 2 END WAITIO;
|
||
|
||
88 1 RDBUFF: PROCEDURE;
|
||
/* START SEEK;
|
||
|
||
78 1 WAITIO: PROCEDURE(READING);
|
||
79 2 DECLARE READING BYTE; /* TRUE IF READING,
|
||
101 2 VRECORD = S(FRL);
|
||
102 2 RCOUNT = S(FRC);
|
||
103 2 END GETFCB;
|
||
2 DO WHILE ARECORD >= (T := CURREC + SECSIZ);
|
||
72 3 CURREC = T;
|
||
73 3 CURTRK = FCB ADDRESSED BY INFO */
|
||
95 2 ARECORD = S(FDM+SHR(VRECORD,BLKSHF));
|
||
96 2 END INDEX;
|
||
POSITION */
|
||
62 2 CALL SELTRK(OFFSET); /* SELECT FIRST DIRECTORY POSITION */
|
||
63 2 CURREC, CURTRK = 0 AN I/O AND WAIT FOR IO FINISH */
|
||
89 2 CALL WAITIO(TRUE);
|
||
90 2 END RDBUFF;
|
||
|
||
91
|
||
104 1 SETFCB: PROCEDURE;
|
||
/* PLACE VALUES BACK INTO CURRENTLY ADDRESSED
|
||
|
||
/* CHECK FOR WRITE PROTECTED DISK */
|
||
131 2 IF NOWRITE THEN
|
||
132 2 CALL RO$ERROR$ 2 END SET$CDISK;
|
||
|
||
124 1 NOWRITE: PROCEDURE BYTE;
|
||
PL/M-80 COMPILER BASIC DISK OPERATING SYSTEM TIALIZING SYSTEM */
|
||
/* READ NEXT DIRECTORY ENTRY (SET DCNT=255 INITIALLY)*/
|
||
149 2 IF (DCNT:=DCNTECKSUM FOR CURRENT DIRECTORY BUFFER */
|
||
113 2 DECLARE (I,CS) BYTE;
|
||
114 2 CS = 0;
|
||
115 2 IF CHECK(DREC) <> COMPUTE$CS THEN /* CHECKSUM ERROR */
|
||
141 2 CALL SET$RO; /* DISK SET TO READ ONLY */
|
||
FCB, AND INCREMENT THE RECORD COUNT */
|
||
|
||
105 2 S(FRL) = VRECORD + 1;
|
||
106 2 S(FRC) = RCOSUB;
|
||
133 2 END CHECK$WRITE;
|
||
|
||
134 1 CHECKSUM: PROCEDURE(INIT);
|
||
135 2 DECLARE INIT BYTE;
|
||
15 AUG 78 PAGE 11
|
||
|
||
|
||
/* RETURN TRUE IF DIR CHECKSUM DIFFERENCE */
|
||
125 2 RETURN ROL(ROR(RODS+1) > DMX THEN
|
||
150 2 DO; DCNT = 255; RETURN;
|
||
153 3 END;
|
||
154 2 IF (DPTR:=SHL(DCNT DO I = 0 TO LAST(BUFF);
|
||
116 3 CS = CS + GETBUFF(I);
|
||
117 3 END;
|
||
118 2 RETURN CS;
|
||
END CHECKSUM;
|
||
|
||
143 1 WRDIR: PROCEDURE;
|
||
/* WRITE THE CURRENT DIRECTORY ENTRY, SET UNT;
|
||
107 2 END SETFCB;
|
||
|
||
108 1 SEEK$DIR: PROCEDURE;
|
||
/* SEEK THE RECORD C /* COMPUTE CURRENT CHECKSUM RECORD AND
|
||
UPDATE THE DIRECTORY ELEMENT IF INIT, OR CHECK
|
||
K,CURDSK+1),1);
|
||
126 2 END NOWRITE;
|
||
|
||
127 1 SET$RO: PROCEDURE;
|
||
/* SET CURRENT DISK TO REAND DMK,FSL)) = 0 THEN
|
||
155 2 DO; CALL SEEK$DIR;
|
||
157 3 CALL RDBUFF;
|
||
158 3 CALL
|
||
119 2 END COMPUTE$CS;
|
||
|
||
120 1 SET$CDISK: PROCEDURE(MASK) BYTE;
|
||
/* SET A '1' VALUE IN CUCHECKSUM */
|
||
144 2 CALL CHECKSUM(TRUE); /* INITIALIZE ENTRY */
|
||
145 2 CALL WRBUFF; /* WRITE THE BUFFER *ONTAINING THE CURRENT DIRECTORY ENTRY */
|
||
109 2 ARECORD = DOUBLE(DREC := SHR(DCNT,DSF));
|
||
110 2 CALL SEE FOR EQUALITY IF NOT */
|
||
136 2 IF DREC >= CHKSIZ THEN RETURN; /* SKIP IF BEYOND CHECKED AREA
|
||
-AD ONLY */
|
||
128 2 RODSK = SET$CDISK(RODSK);
|
||
129 2 END SET$RO;
|
||
|
||
130 1 CHECK$WRITE: PROCEDURE;
|
||
CHECKSUM(INIT); /* CHECKSUM OPERATION */
|
||
159 3 END;
|
||
160 2 END READ$DIR;
|
||
|
||
161 RDSK POSITION OF MASK */
|
||
121 2 DECLARE MASK BYTE;
|
||
122 2 RETURN MASK OR ROR(ROL(1,CURDSK+1),1);
|
||
123 /
|
||
146 2 END WRDIR;
|
||
|
||
147 1 READ$DIR: PROCEDURE(INIT);
|
||
148 2 DECLARE INIT BYTE; /* TRUE IF INIK;
|
||
111 2 END SEEK$DIR;
|
||
|
||
112 1 COMPUTE$CS: PROCEDURE BYTE;
|
||
/* COMPUTE CH */
|
||
138 2 IF INIT THEN /* SET CHECKSUM VALUE */
|
||
139 2 CHECK(DREC) = COMPUTE$CS; ELSE
|
||
140 2 1 GET$ALLOC$BIT: PROCEDURE(I) BYTE;
|
||
/* RETURN THE I-TH BIT OF ALLOC */
|
||
162 2 DECLARE I BYTEwﾃﾑ* & <00>*ﾍ 袁-眄ﾊﾑﾍ{ﾉj" <03>ｨｫｹﾇﾌﾏｶ$ <03><01>､ｮｴｼﾂ
|
||
ﾒﾍ<>ﾍｮ ﾉb" ﾕﾘ&= ﾛ!<21> q: <2 O: ｹﾒ<EFBDB9>! 6<>ﾉ: <00>BIT);
|
||
174 3 END;
|
||
175 2 END SCANDM;
|
||
|
||
176 1 INITIALIZE: PROCEDURE;
|
||
177 IF DCNT = 255 THEN RETURN;
|
||
190 3 IF GETBUFF(DPTR) <> EMP THEN
|
||
191 3 DO; /* CHECK FOR $
|
||
|
||
169 1 SCANDM: PROCEDURE(BIT);
|
||
170 2 DECLARE (BIT, I, K) BYTE;
|
||
/* SCAN2 DECLARE I BYTE;
|
||
/* INITIALIZE THE DISK SYSTEM */
|
||
178 2 RET = FALSE; /* SET TO TRUE IF;
|
||
163 2 RETURN ROL(ALLOC(SHR(I,3)), (I AND 111B)+1);
|
||
164 2 END GET$ALLOC$BIT;
|
||
|
||
165 ㊦㊦<E38AA6>2 <00> ﾂﾍﾍｨ *<2A> Mﾍ<4D>ﾉﾉ" <03>
|
||
ｴ$ ﾜ<01><01><01><01><01>
|
||
. <00><01>" !<21> q:<3A> 蹊 O *<2A> :<3A> <00><Oﾍ ﾉ<>$ $(J $< * w * :<3A> wﾉ$ ｻ
|
||
|
||
|
||
｡ : <00> 2 O `i"<22> ﾍ ﾉ_" *ｬ$ 'm1 -!<21> 6 +6 >!<21> ｾﾚV*<2A> & <00>* :<3A> FILE (IN CASE OF SUBMIT) */
|
||
192 4 RET = RET OR GETBUFF(DPTR+1) = '$';
|
||
/* SET ALDM SCANS THE DISK MAP ADDRESSED BY DPTR FOR NON-ZERO EN
|
||
- TRIES
|
||
-- THE ALLOCATION VECTOR ENTRY $ FILE EXISTS */
|
||
|
||
179 2 RODSK = 0; /* NO READ ONLY DISKS AT THIS POINT */
|
||
180 2 ALLOC 1 SET$ALLOC$BIT: PROCEDURE(I,B);
|
||
/* SET THE I-TH BIT OF ALLOC TO THE LSB OF B */
|
||
PL/M-80 COMPILER /<02>4 2!<21> s+q*<2A> Mﾍ<02>!<21> ｶ<>>+ｦ<O<> <00>蹊 O *<2A> ﾁHqﾉ " =<02>$ 39B[ｻ ' N`B b!<21> q: ﾆ2<> : ﾆ !<21> ｾﾚ<EFBDBE>*<2A> & <00>* <00>2<EFBFBD> !<21> 4ﾂ5:<3A> ﾉ<>" <TC$ .8?EIMPW<01> Z!<21> q: <O>ﾍ !<21> ｶﾉ<EFBDB6>$ [j
|
||
_% fﾟ n: <O!<21> ﾍ ﾉj$ t]
|
||
LOC BIT TO 1 FOR EACH NON-ZERO DM ENTRY */
|
||
193 4 CALL SCANDM(1);
|
||
194 4 END;
|
||
195 3 CORRESPONDING TO A NON-ZERO ENT
|
||
- RY
|
||
IS SET TO THE VALUE OF 'BIT' */
|
||
171 2 DO (0) = AL1;
|
||
181 2 DO I=1 TO LAST(ALLOC); ALLOC(I)=0;
|
||
183 3 END;
|
||
184 2 CALL HOME;
|
||
BASIC DISK OPERATING SYSTEM 15 AUG 78 PAGE 12
|
||
|
||
|
||
166 2 DECLARE (I,B) BYTE;
|
||
167 2 ALLOC(S~2<> <00> ﾊ<>*<2A> M*<2A> <00>2!<21> 4ﾂnﾉ<>"
|
||
x<02><02><02><02>$ cglot{<02><02><02><02><02>T~ <01>! 6 !<21> 6 *<2A> : w!<21> 6> !<21> ｾﾚﾒ*<2A> & <00>*<2A> 6 !<21> 4ﾂｶﾍ o& wｽ {*<2A> MﾍZ2<> ﾉｼ" V$ |<01>ﾏ <01>ﾍn ﾒ<>!<21><01>* 鯔#" <03><01><01>0 <00>9@ <01>!<21> q: <00>ﾚ｣ﾉ:<3A> ﾒｻﾍ-* & <00>*ﾍ END;
|
||
196 2 END INITIALIZE;
|
||
|
||
|
||
197 1 DECLARE SEARCHL BYTE, I = DPTR+FDM TO DPTR+LFB;
|
||
172 3 IF (K := GETBUFF(I)) <> 0 THEN
|
||
173 3 CALL SET$ALLOC$BIT(K, 185 2 DCNT = 255;
|
||
186 2 DO FOREVER;
|
||
187 3 CALL READ$DIR(TRUE);
|
||
188 3 HR(I,3)) =
|
||
ROR((GET$ALLOC$BIT(I) AND 0FEH) OR B, (I AND 111B) + 1);
|
||
168 2 END SET$ALLOC$BIT; ! 6<>ﾍﾛ: <00><>ﾂ<EFBFBD>ﾉ* & <00>* ~<7E>衞* & <09>* ~ﾖ$ﾖ<01>! ｶwﾍbﾃﾚﾉL" ｽﾐﾓﾝ<02><02>t$! ｡ｦｫｲｹﾀﾆﾌﾖ<02><02><02><02>
|
||
/* SEARCH LENGTH SET BY SEARCH */
|
||
SEARCHA ADDRESS; /* SEARCH ADDRESS SET BY SEARCH */
|
||
|
||
THEN /* NO MORE ENTRIES MATCH */ RETURN;
|
||
/* SET EACH NON-ZERO DISK MAP ENTRY TO 0 IN ALLOC VECTOR *
|
||
INFO;
|
||
217 2 DCNT = 255;
|
||
218 2 CALL HOME;
|
||
/* NOW READY TO READ THE DISK */
|
||
219 EDURE(B,L);
|
||
248 2 DECLARE (B,L) BYTE;
|
||
/* COPY FCB INFORMATION STARTING AT BYTE B FOR L BYTES INT OPERATING SYSTEM 15 AUG 78 PAGE 13
|
||
|
||
|
||
/* MATCH OR QUESTION MARK */
|
||
A 0 IF NO BLOCK IS AVAILABLE */
|
||
235 2 DECLARE (L, R) BYTE;
|
||
236 2 R = L;
|
||
237 2 DO 198 1 SEARCHN: PROCEDURE;
|
||
/* SEARCH FOR THE NEXT DIRECTORY ELEMENT, ASSUMING A PREVIOUS
|
||
- /
|
||
228 3 CALL SCANDM(0);
|
||
229 3 BUFF(DPTR) = EMP;
|
||
/* ARECORD H2 CALL SEARCHN;
|
||
220 2 END SEARCH;
|
||
|
||
221 1 DELETE: PROCEDURE;
|
||
222 2 DEO
|
||
BEGINNING OF CURRENTLY ADDRESSED DIRECTORY ENTRY */
|
||
249 2 DO WHILE (L:=L-1) <> 255;
|
||
250 ((C := S(I)) = GETBUFF(DPTR+I) OR C = 63);
|
||
207 4 I = I + 1;
|
||
208 4 END;
|
||
209 WHILE (R < MAL) OR (L > 0);
|
||
238 3 L = L - (1 AND L > 0);
|
||
239 3 R = R + (1 AND R < MAL);
|
||
240 CALL ON SEARCH WHICH SETS SEARCHA AND SEARCHL */
|
||
199 2 DECLARE (I,C) BYTE;
|
||
200 2 INFO = SEARCHA;AS BEEN PREVIOUSLY SOUGHT BY READDIR */
|
||
230 3 CALL WRDIR; /* WRITE DIRECTORY ENTRY */
|
||
231 3 CACLARE (I,J,K) BYTE;
|
||
223 2 CALL CHECK$WRITE; /* WRITE PROTECTED? */
|
||
/* SEARCH ONLY UP THROUGH THR 3 BUFF(L+DPTR) = S(B+L);
|
||
PL/M-80 COMPILER BASIC DISK OPERATING SYSTEM 15 AUG 78 PAGE 14
|
||
|
||
|
||
2 3 IF I = SEARCHL THEN RETURN;
|
||
211 3 END;
|
||
212 2 END SEARCHN;
|
||
|
||
213 3 IF NOT GET$ALLOC$BIT(R) THEN RETURN R;
|
||
242 3 IF NOT GET$ALLOC$BIT(L) THEN RETURN L;
|
||
244 3
|
||
201 2 DO FOREVER;
|
||
202 3 CALL READ$DIR(FALSE);
|
||
203 3 IF (RET := DCNT) = 255 TLL SEARCHN;
|
||
232 3 END;
|
||
233 2 END DELETE;
|
||
|
||
234 1 GET$BLOCK: PROCEDURE(L) BYTEE CHARACTER EXTENT */
|
||
224 2 CALL SEARCH(FRE);
|
||
225 2 DO FOREVER;
|
||
226 3 IF DCNT = 255 51 3 END;
|
||
252 2 CALL SEEK$DIR;
|
||
253 2 CALL WRDIR; /* WRITE DIR ENTRY */
|
||
254 2 1 SEARCH: PROCEDURE(XL);
|
||
214 2 DECLARE XL BYTE;
|
||
215 2 SEARCHL = XL;
|
||
216 2 SEARCHA = END;
|
||
245 2 RETURN 0;
|
||
246 2 END GET$BLOCK;
|
||
|
||
247 1 COPY$DIR: PROCHEN RETURN;
|
||
205 3 I = 0;
|
||
206 3 DO WHILE (I < SEARCHL) AND
|
||
PL/M-80 COMPILER BASIC DISKE;
|
||
/* FIND A BLOCK WHICH IS AVAILABLE ON THE DISK AND IS CLOSEST
|
||
TO THE BLOCK 'L'. RETURN END COPY$DIR;
|
||
|
||
255 1 COPY$FCB: PROCEDURE;
|
||
/* COPY THE ENTIRE FILE CONTROL BLOCK *ITE PROTECTED */
|
||
279 2 CALL SEARCH(FNM);
|
||
280 2 IF DCNT <> 255 THEN
|
||
281 2 CALL COPY$FC DECLARE I BYTE;
|
||
/* SEARCH FOR DIRECTORY ENTRY, COPY TO FCB */
|
||
269 2 CALL SEARCH(FNM);
|
||
270 P ｮ!u *<2A> " ﾍﾛ: 2 <00><>ﾂ1ﾉ!<21> 6 !<21> :<3A> 漫*<2A> & <00>* <19>2<EFBFBD> :<3A> <00>! <00> * ﾁ
|
||
蒙滸:<3A> ﾖ?ﾖ淬HｱﾁH｡ ﾒ|!<21> 4ﾃ6!<21> :<3A> ｾﾂ<EFBDBE>ﾉﾃ R FIELD IS IGNORED */
|
||
|
||
259 2 CALL CHECK$WRITE; /* IN CASE WRITE PROTECTED */
|
||
/* /* LOOK FOR AN EMPTY DIRECTORY ENTRY */
|
||
288 2 CALL SEARCH(1);
|
||
289 2 IF DCNT <> 255 THEN
|
||
290 2 /
|
||
256 2 CALL COPY$DIR(0,FRL);
|
||
257 2 END COPY$FCB;
|
||
|
||
258 1 RENAME: PROCEDURE;
|
||
B;
|
||
282 2 END CLOSE;
|
||
|
||
283 1 MAKE: PROCEDURE;
|
||
/* CREATE A NEW FILE; FIRST 2 IF DCNT <> 255 THEN
|
||
271 2 DO I=FNM TO LFB;
|
||
272 3 S(I) = GETBUFF(DPTR+I);
|
||
273 ﾉ<>" #.sz<03><03>q$! &)27:?KNRYdv}"
|
||
|
||
|
||
EP <01>!<21> q:<3A> 2<> * "<22> ! 6<>ﾍ ﾍﾉD" ｡､<03>$
|
||
<03><03><03><03><03>ﾗSEARCH UP TO THE REEL NUMBER FIELD */
|
||
260 2 CALL SEARCH(FRE); S(FDM) = SZ;
|
||
/* ASSUME SAME DISK D DO; /* SET ELEMENTS TO ZERO */
|
||
291 3 INFO = FCB;
|
||
292 3 DO I=FNM TO LFB;
|
||
293 /* RENAME THE FILE DESCRIBED BY THE FIRST HALF OF THE CURRENTL
|
||
- Y
|
||
ADDRESSED CREATE ENTRY IN
|
||
THE DIRECTORY. FILE IS OPENED UPON RETURN */
|
||
284 2 DECLARE I BYTE,
|
||
3 END;
|
||
274 2 END OPEN;
|
||
|
||
275 1 CLOSE: PROCEDURE;
|
||
/* LOCATE
|
||
<00>10 ｧﾍ<> ﾍ<>: <00><>ﾂｸﾉ ﾍb* & <00>* 6袁ﾒﾍﾃｯﾉ/" ｨｭｵｻﾊﾍﾐ<03>$ ｰｾﾄ<03>f ﾓ!<21> q:<3A> 2 ! : 漫<>> !<21> 漫ﾁHｱ ﾒRIVE FOR NEW NAMED FILE */
|
||
262 2 DO WHILE DCNT <> 255; CALL COPY$DIR(FDM,FRE);
|
||
264 3 CALL SEAR 4 S(I) = 0;
|
||
294 4 END;
|
||
/* COPY INTO DIRECTORY ENTRY */
|
||
295 3 FILE CONTROL BLOCK. THE NEW NAME IS CONTAINED IN TH
|
||
- E
|
||
LAST HALF OF THE CURRENTLY ADDRESSED F FCB ADDRESS;
|
||
|
||
285 2 CALL CHECK$WRITE; /* MAY BE WRITE PROTECTED */
|
||
286 2 FTHE DIRECTORY ELEMENT AND RE-WRITE */
|
||
276 2 RET = 0;
|
||
277 2 IF NOWRITE THEN RETURN; /* SKIP CLOSE IF WR2> !<21> 漫<><01>ﾁH層#~! 漫<>! <01>* Mﾍ ﾚ : ﾉ*<2A> Mﾍ ﾚ/:<3A> ﾉﾃﾝ> ﾉ " <03>%)0$ ﾔﾘﾛ<03><03><03>
|
||
!,ﾇ
|
||
ﾞ ﾞ@CHN;
|
||
265 3 END;
|
||
266 2 END RENAME;
|
||
|
||
267 1 OPEN: PROCEDURE;
|
||
268 2 CALL COPY$FCB;
|
||
296 3 END;
|
||
297 2 END MAKE;
|
||
|
||
298 1 OPEN$REEL: PILE CONTROL BLOCK. THE
|
||
FILE TYPE, FILE NAME, AND FILE EXT ARE CHANGED, BUT THE REEL
|
||
NUMBECB = INFO; INFO = .(EMP);
|
||
PL/M-80 COMPILER BASIC DISK OPERATING SYSTEM 15 AUG 78 PAGE 15
|
||
|
||
|
||
5!s+q:=2<01><>ﾊj:!<01> * : <00>!<01> * ﾁ
|
||
wﾃ;ﾍﾍﾒﾉ"
|
||
Ehkn;$ 6<@HKVZaN
|
||
Rt q ﾍ5ﾉ]" /* RESELECT ORIGINAL DMA ADDRESS */
|
||
325 2 IF DIRSET THEN CALL SELDMA(BUFFA);
|
||
327 2 END RES 2 CALL OPEN;
|
||
312 2 IF DCNT = 255 THEN
|
||
313 2 DO; RET = 1; /* END OF FILE IN DISK READ */ CALL SETFCB;
|
||
350 4 END;
|
||
351 3 END;
|
||
352 2 END DISKREAD;
|
||
OSSIBLE
|
||
READING IS TRUE IF WE ARE IN READ MODE */
|
||
300 2 CALL CLOSE;
|
||
/* RET RE /* ERROR 2 IF READING UNWRITTTEN DATA */
|
||
341 3 IF LOW(ARECORD) = 0 THEN RET = 1; ELSE
|
||
343 3 v]0 yﾍ<> ﾍ<>* <00>* ﾑw: <00><>ﾊ､ ﾍ5ﾍﾃ<>ﾉﾋ" z<04><04><04>｢J$ <03>>
|
||
|
||
<00>
|
||
<00>ｦC ･
|
||
ﾍ<EFBFBD>: <00><>ﾊ<EFBFBD>!6
|
||
> !ｾﾚ<EFBDBE>:ETDMA;
|
||
|
||
328 1 DISKREAD: PROCEDURE;
|
||
329 2 CALL GETFCB;
|
||
|
||
330 2 IF RCOUNT <= VR
|
||
315 3 RETURN;
|
||
316 3 END;
|
||
317 2 CALL GETFCB;
|
||
318 2 RET = 0;
|
||
319
|
||
353 1 DISKWRITE: PROCEDURE;
|
||
354 2 DECLARE (I,L) BYTE;
|
||
355 2 CALL CHECK$WRITE; /* IN CASEMAINS AT 255 IF WE CANNOT OPEN THE NEXT REEL */
|
||
301 2 IF DCNT = 255 THEN RETURN;
|
||
/* INCREMENT TH DO; CALL ATRAN;
|
||
/* ARECORD IS NOW ACTUAL DISK ADDRESS */
|
||
345 4 CALL SEE! <00> * <09>*& <00>* ﾁ
|
||
w!4ﾂｷﾉ<>"
|
||
ｨｰｾ<04>ﾊ$ ｫｳｺﾁﾄﾋﾐﾝ<04>
|
||
ﾖ<04>" <01>! 6 ﾍn ﾒ<>ﾉ
|
||
ﾍ<EFBFBD>: <00><>ﾊﾍqﾉ"" <03><04><04><04><04>ECORD THEN
|
||
331 2 DO; RET = 1;
|
||
333 3 IF VRECORD = 128 THEN CALL OPEN$REEL(TRUE);
|
||
335 3 2 END OPEN$REEL;
|
||
|
||
320 1 SETDMA: PROCEDURE;
|
||
/* SELECT DATA DMA ADDRESS */
|
||
WRITE PROTECTED */
|
||
356 2 CALL GETFCB;
|
||
357 2 IF VRECORD > MRC THEN /* PAST EOF, NEXT REEL NOT OPENED *E REEL NUMBER */
|
||
303 2 S(FRE) = S(FRE) + 1;
|
||
304 2 CALL SEARCH(FNM);
|
||
305 2 IF DCNT = 255 TK;
|
||
/* NOW READ THE BUFFER */
|
||
346 4 CALL SETDMA; /* SELECTS DATA DMA ADDRESS */
|
||
<04>$ <03><04><04>K ﾍ<>* "! " ﾍ<>: <00><>ﾊH*" !6
|
||
> !ｾﾚE*& <00>* 6 !4ﾂ)ﾍqﾉﾕ" 0CFｰ$ %,3? VRECORD = 0;
|
||
336 3 IF RET <> 0 THEN RETURN;
|
||
338 3 END;
|
||
PL/M-80 COMPILER BASIC DI321 2 IF DIRSET THEN CALL SELDMA(DMAAD);
|
||
323 2 END SETDMA;
|
||
|
||
324 1 RESETDMA: PROCEDURE;
|
||
/
|
||
358 2 RET = 1; ELSE
|
||
359 2 DO; CALL INDEX;
|
||
361 3 IF LOW(ARECORD) = 0 THEN /*HEN
|
||
306 2 DO; IF READING THEN RETURN;
|
||
309 3 CALL MAKE;
|
||
310 3 END; ELSE
|
||
311 347 4 CALL RDBUFF;
|
||
348 4 CALL RESETDMA; /* SELECTS DIR DMA ADDRESS */
|
||
349 4 ROCEDURE(READING);
|
||
299 2 DECLARE READING BYTE;
|
||
/* CLOSE CURRENT REEL AND OPEN THE NEXT ONE, IF PSK OPERATING SYSTEM 15 AUG 78 PAGE 16
|
||
|
||
|
||
339 2 DO; CALL INDEX;
|
||
|
||
NOT ALLOCATED */
|
||
362 3 DO; /* THE ARGUMENT TO GET$BLOCK IS THE STARTING POSIT
|
||
- ION
|
||
DISK OPERATING SYSTEM 15 AUG 78 PAGE 17
|
||
|
||
|
||
384 5 CALL SETFCB; CALL OPENREEL(FALSE);
|
||
CALL WRBUFF;
|
||
379 4 CALL RESETDMA;
|
||
380 4 IF RCOUNT <= VRECORD THEN RCOUN CURTRKA = .CURTRKV(CURDSK);
|
||
400 2 CURRECA = .CURRECV(CURDSK);
|
||
|
||
/* SET CON67 4 RET = 2; ELSE
|
||
368 4 DO; CALL SET$ALLOC$BIT(I,1);
|
||
LECT DISK 'INFO' FOR SUBSEQUENT
|
||
INPUT OR OUTPUT OPERATIONS */
|
||
|
||
395 2 IF CURDSK > FOR THE DISK SEARCH - THIS SHOULD BE THE LAST ALLOCATE
|
||
- D
|
||
BLOCK FOR /* VRECORD REMAINS AT MRC CAUSING END-OF-FILE
|
||
IF NO MORE DIRECTORY SPACT = VRECORD+1;
|
||
/* CHECK FOR END-OF-REEL, IF FOUND ATTEMPT TO OPEN
|
||
NEXT REETROLLER */
|
||
401 2 CALL SELDISK(CURDSK);
|
||
|
||
/* CHECK TO INSURE THAT DISK IS LOGGED I /* BLOCK IS ALLOCATED */
|
||
370 5 ARECORD, S(L) = I;
|
||
371 5 END;
|
||
372 4 MAXDSK THEN /* SELECTION ERROR */
|
||
396 2 CALL SEL$ERROR$SUB;
|
||
397 2 ALLOCA = .ALLOC0(SHL(CURDSK,5)) THIS FILE, OR THE VALUE 0 IF NO SPACE HAS BE
|
||
- EN
|
||
ALLOCATED TO THIS FILE */
|
||
363 4 E IS AVAILABLE */
|
||
386 5 IF RET = 0 THEN VRECORD = 255; /* GOES TO ZERO */
|
||
388 5 L IN PREPARATION FOR THE NEXT WRITE */
|
||
382 4 IF VRECORD = MRC THEN
|
||
383 4 DO;
|
||
N */
|
||
402 2 IF NOT ROR(ROL(DLOG,1),CURDSK+1) THEN
|
||
403 2 DO;
|
||
404 3 DLOG = SET$CDISK END;
|
||
/* CONTINUE IF NO ERROR IN ALLOCATION */
|
||
373 3 IF RET = 0 THEN
|
||
374;
|
||
/* NOTE THAT THIS ASSUMES THERE ARE NO MORE
|
||
THAN 8 DISKS ON THE SYSTEM - OTHERWISE
|
||
I = 0;
|
||
364 4 IF (L := FDM + SHR(VRECORD,3)) > FDM THEN
|
||
365 4 /* THERE RET = 0;
|
||
389 5 END;
|
||
390 4 CALL SETFCB;
|
||
391 4 END;
|
||
392 3 /* UPDATE CURRENT FCB BEFORE GOING TO THE NEXT EXT
|
||
- ENT */
|
||
PL/M-80 COMPILER BASIC (DLOG);
|
||
405 3 CALL INITIALIZE;
|
||
406 3 END;
|
||
407 2 END SELECT;
|
||
|
||
40 3 DO; CALL ATRAN;
|
||
376 4 CALL SEEK;
|
||
377 4 CALL SETDMA;
|
||
378 4 REPLACE BY .ALLOC0(SHL(DOUBLE(CURDSK),5)) */
|
||
398 2 CHECKA = .CHECK0(SHL(CURDSK,CHKSHF));
|
||
399 2 IS A PREVIOUS BLOCK ALLOCATED */ I = S(L-1);
|
||
366 4 IF (I := GET$BLOCK(I)) = 0 THEN /* NO MORE SPACE */
|
||
3 END;
|
||
393 2 END DISKWRITE;
|
||
|
||
394 1 SELECT: PROCEDURE;
|
||
/* SE8 1 CURSELECT: PROCEDURE;
|
||
409 2 IF LINFO <> CURDSK THEN
|
||
410 2 DO; CURDSK = LINFO; CALL SELE ARET = IOSTAT;
|
||
/* 8: CHANGE DEVICE STATUS */
|
||
439 3 IOSTAT = LINFO;
|
||
ONECHO;
|
||
/* 2: WRITE CONSOLE */
|
||
433 3 CALL TABOUT(LINFO);
|
||
/* 3: READ READELL RESELECT;
|
||
461 4 CALL SEARCH(FNM);
|
||
462 4 END;
|
||
/* 18: SEARCH FOR NEXT OCCU SELECT DMA BUFFER ADDRESS */
|
||
425 2 CALL SELDMA(BUFFA := INFO);
|
||
426 2 END SELBUFFA;
|
||
|
||
PL/M-80 COMPIL CALL SELECT;
|
||
449 4 END;
|
||
/* 14: SELECT DISK 'INFO' */
|
||
450 3 CALL CCT;
|
||
413 3 END;
|
||
414 2 END CURSELECT;
|
||
|
||
415 1 RESELECT: PROCEDURE;
|
||
/* 9: PRINT BUFFER AT THE CONSOLE */
|
||
440 3 CALL PRINT(INFO);
|
||
/* 10: READ BUFFER FROM R DEVICE */
|
||
434 3 RET = READIN;
|
||
/* 4: WRITE PUNCH DEVICE */
|
||
435 3 CALL PUNORRENCE OF A FILE NAME */
|
||
463 3 DO; INFO = SEARCHA; CALL RESELECT;
|
||
466 4 CALL SEARCHN;
|
||
467 ER BASIC DISK OPERATING SYSTEM 15 AUG 78 PAGE 18
|
||
|
||
|
||
427 1 DSKMON: PROCEDURE PUBLIC;
|
||
428 2 LURSELECT;
|
||
/* 15: OPEN */
|
||
451 3 DO; CALL RESELECT;
|
||
453 4 CALL OPEN;
|
||
454 /* CHECK CURRENT FCB TO SEE IF RESELECTION NECESSARY */
|
||
416 2 IF (LINFO := (SZ AND 1$1111B) -1) < 30 THENTHE CONSOLE */
|
||
441 3 CALL READ;
|
||
/* 11: CHECK FOR CONSOLE INPUT READY */
|
||
442 3 UT(LINFO);
|
||
/* 5: WRITE LIST DEVICE */
|
||
436 3 CALL LSTOUT(LINFO);
|
||
/* 6: INT4 END;
|
||
/* 19: DELETE A FILE */
|
||
PL/M-80 COMPILER BASIC DISK OPERATING SYSTEM 15INFO = LOW(INFO);
|
||
429 2 ARET, RET, FCBDSK = 0;
|
||
|
||
430 2 DO CASE FUNC;
|
||
/4 END;
|
||
/* 16: CLOSE */
|
||
455 3 DO; CALL RESELECT;
|
||
457 4 CALL CLO
|
||
417 2 DO; OLDDSK = CURDSK; FCBDSK = SZ; SZ = SZ AND 1110$0000B;
|
||
421 3 CALL CURSELECT;
|
||
422 RET = CONBRK;
|
||
/* 12: */
|
||
443 3 ;
|
||
/* 13: RESET DISK SYSTEM, INITIALIZE TERROGATE MEMORY SIZE */
|
||
437 3 ARET = MEMSIZE;
|
||
/* 7: INTERROGATE DEVICE STATUS */
|
||
438 3 AUG 78 PAGE 19
|
||
|
||
|
||
468 3 DO; CALL RESELECT;
|
||
470 4 CALL DELETE;
|
||
471 4 END;
|
||
* 0: SYSTEM RE-BOOT */
|
||
431 3 CALL BOOT;
|
||
/* 1: READ CONSOLE */
|
||
432 3 RET = CSE;
|
||
458 4 END;
|
||
/* 17: SEARCH FOR FIRST OCCURRENCE OF A FILE */
|
||
459 3 DO; CA 3 END;
|
||
423 2 END RESELECT;
|
||
|
||
424 1 SELBUFFA: PROCEDURE;
|
||
/*O DISK 0 */
|
||
444 3 DO; CURDSK,DLOG,DIRSET = 0;
|
||
446 4 INFO = TBUFF; CALL SELBUFFA;
|
||
448 4 /* 20: READ A FILE */
|
||
472 3 DO; CALL RESELECT;
|
||
474 4 CALL DISKREAD;
|
||
475 4508 3 END;
|
||
/* RETURN A SINGLE OR DOUBLE BYTE VALUE */
|
||
509 2 ARET = ARET OR RET;
|
||
496 3 CALL SET$RO;
|
||
/* 29: RETURN R/O BIT VECTOR */
|
||
497 3 RET = RODSK;
|
||
<20>: 2ﾏ * ~2ﾐ * >爬wﾍLﾉ " m<07>ﾖ$ hszd
|
||
a p
|
||
v
|
||
}ｼ <01>* " DMﾍ ﾉ<>$ <03>@
|
||
|
||
<00> <00><07>ﾅ<01>* }2 ! " TOR */
|
||
488 3 RET = DLOG;
|
||
/* 25: RETURN SELECTED DISK NUMBER */
|
||
489 3 RET = ﾍ2*& "<22> * & <00>* :w: <00> ﾂﾗﾍﾎ ﾍ ﾍ<>ﾍｮ ﾍｦ:<3A> !<21> ｾﾚｲ:<3A> <2<> :<3A> <00>ﾂﾔﾍ<> ﾍI: <00> ﾂﾏ!<21> 6<>! 6 ﾍ<> ﾉｧ"0 "+CYai END;
|
||
/* 21: WRITE A FILE */
|
||
476 3 DO; CALL RESELECT;
|
||
478 4 CA｡
|
||
|
||
|
||
"
|
||
9Q I!qﾍ<71>: <00><>ﾂYﾉ * 4
|
||
ﾍ<EFBFBD>: <00><>ﾂ|: ﾒvﾉﾍﾃﾍ･: <00><>ﾂ<EFBFBD>! 6ﾉﾍ<EFBE89> ! 6 ﾉ<>" NVdlswz}<05> /* 30: SET DIRECTORY DMA */
|
||
498 3 DO; DIRSET = TRUE; /* MARK AS SEPARATE DIR AREA */
|
||
500 4 }2 2ﾐ * M !<21> ^#V<>ﾍ ﾃ- ﾍ 2 ﾃ- * Mﾍ ﾃ- ﾍ 2 ﾃ- * Mﾍ ﾃ- * Mﾍ ﾃ- * " ﾃ- * & " ﾃ- : 2 ﾃ- * DMﾍ ﾃ- ﾍ ﾃ- ﾍ 2 CURDSK;
|
||
/* 26: SET THE SUBSEQUENT DMA ADDRESS TO INFO */
|
||
490 3 DO;
|
||
491 4 IFr<06><06><06><06><06><06>ｩｸｻﾀﾈﾕｧ$3 %.3FRU\dluz}<06><06>｢･ｬｰｳﾃﾋﾐ
|
||
|
||
M
|
||
<00>ﾝx ﾘ>! ｾﾒ<EFBDBE>!<21><06>* <00>: ㊦㊦⑯LL DISKWRITE;
|
||
479 4 END;
|
||
/* 22: CREATE A FILE */
|
||
480 3 DO; CALL RESELECT;
|
||
<EFBFBD>+$ JQgo<05><05><05>
|
||
]h <01>: ﾒ･* DMﾍ ﾉ" <03>7$ <03><05><05> ｣ ｦ: ﾒｵ* DMﾍ ﾉ<>" ｫ'$ ｧｮq ｳ CALL SELBUFFA;
|
||
501 4 END;
|
||
502 3 END; /* OF CASES */
|
||
503 2 GOBACK:
|
||
ﾃ- ﾃ- ! 6 !ﾑ 6 ! 6 ! " ﾍ<>ﾍﾘﾃ- ﾍLﾃ- ﾍ`ﾍ･ﾃ- ﾍ`ﾍ<>ﾃ- ﾍ`
|
||
ﾍ<EFBFBD>ﾃ- *<2A> " ﾍ`ﾍﾃ- ﾍ`ﾍｧﾃ- ﾍ`ﾍｶﾃ- ﾍ`ﾍ
|
||
ﾃ- ﾍ`ﾍﾃ- ﾍ`ﾍy DIRSET THEN DMAAD = INFO; ELSE
|
||
493 4 CALL SELBUFFA;
|
||
494 4 END;
|
||
/* 27: RETU !
|
||
"<22> : ㊦㊦O !<21> "ﾍ * & ﾒ "ﾞ * & ﾖ ) "<22> * Mﾍ :ﾑ <07>: <O<> ﾚK*ﾑ MﾍZ2ﾑ ﾍ<>ﾉ " ﾟ<06><CI%$ <03><06>
|
||
#- 482 4 CALL MAKE;
|
||
483 4 END;
|
||
/* 23: RENAME A FILE */
|
||
484 3 DX ｶﾍ<> :<3A> !<21> ｾﾚ<EFBDBE>! 6:<3A> <00>ﾂﾕﾍI!<21> 6 : <00> ﾊ<>ﾉﾍｴ *<2A> }<7D> ﾂ<>! 6ﾃ ﾍﾎ ﾍ ﾍ<>ﾍｨ ﾍｦﾍ<> ﾉ<>" ｷﾁﾎﾓ<05><05><05><05><05><05><05>ｸ$ IF FCBDSK <> 0 THEN /* RESTORE DISK NUMBER */
|
||
504 2 DO; SZ = FCBDSK; LINFO = OLDDSK; CALL CURSELECT;
|
||
ﾃ- :ﾑ 2 ﾃ- : 2 ﾃ- : ﾒﾆ* " ﾃﾉﾍ<>ﾃ- *<2A> " ﾃ- ﾍ{ﾃ- :<3A> 2 ﾃ- ! 6ﾍ<>ﾃ- ｷｽﾆﾐﾙ<07><07><07>
|
||
$'EKT]hw<08><08><08>､RN THE LOGIN VECTOR ADDRESS */
|
||
495 3 ARET = ALLOCA;
|
||
/* 28: WRITE PROTECT CURRENT DISK */
|
||
?FZ * ﾛ
|
||
<00> <00> <00>
|
||
& * 2' 8k L! : ｾﾊ_: 2 ﾍﾘﾉc" T]$ PW
|
||
M Z+ `* > ｦ=2 <00> ﾒO; CALL RESELECT;
|
||
486 4 CALL RENAME;
|
||
487 4 END;
|
||
/* 24: RETURN THE LOGIN VEC ｺｽﾄﾉﾖﾛ<05><05>ﾒ
|
||
ﾍ<>ﾍ<> >!<21> ｾﾒ!! 6ﾃﾗﾍｴ *<2A> }<7D> ﾂ<>!6 :<3A> 蹊 ﾆ#wO>ｹﾒT: =O * ~2*Mﾍﾓ2<01> ﾂk! 6ﾃ<>*M ｭｶﾌﾕﾛ<08>:ﾐ <00> ﾊE * :ﾐ w:ﾏ 2 ﾍL: ﾍ <00>+s#rﾉ"ｸ ｮｻﾄﾎﾗ<07><07><07><07>"%=@CFILORUX[^cforux{~<08><08>裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹薛E AREA SIZE = 010AH 266D
|
||
MAXIMUM STACK SIZE = 0014H 20D
|
||
PL/M-80 COMPILER BASIC DISK OPERATING SYSTEM 裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹<08><08><08><08><08><08><08><08><08>｢ｫｴｻﾄﾇﾊﾓﾖﾙ<08><08><08><08><08><08><08><08><08><08><08><08>
|
||
! # % ' ) + 3 C y$9 <03>｢･ﾁﾇﾔ裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 15 AUG 78 PAGE 20
|
||
|
||
|
||
983 LINES READ
|
||
0 PROGRAM ERROR(S)
|
||
|
||
END OF PL/M-80 COMPILATION
|
||
裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹ﾚ<07> -2i･ｨｱｷﾁﾍﾜﾟ<08>. 9 = @ F ﾚ b
|
||
<00> <00> ｨ ｸ ｾ ﾋ ﾑ ﾞ <00> <00> <00>
|
||
(
|
||
:
|
||
l ｮ
|
||
ｾ裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 ﾐ
|
||
6 I # L j <00> <00>裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 510 2 END DSKMON;
|
||
511 1 END;
|
||
|
||
|
||
|
||
MODULE INFORMATION:
|
||
|
||
CODE AREA SIZE = 0954H 2388D
|
||
VARIAB裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 |