forked from amberisvibin/chibi-pc09
5141 lines
250 KiB
Plaintext
5141 lines
250 KiB
Plaintext
裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹藉YSGEN BAK EX COM E
|
||
CLS MAC SURVEY MAC w !"#$%&'()*+,- 裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹NF EQU 15 ;DISK OPEN FUNCTION
|
||
DREADF EQU 20 ;DISK READ FUNCTION
|
||
;
|
||
MAXTRY EQU 10 ;MAXIMUM NUMBER OF RETRIES ON EACH READ/WRITE藉YSGEN SYM <08> 裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹RATING SYSTEM TRACKS
|
||
NDISKS EQU 4 ;NUMBER OF DISK DRIVES
|
||
SECSIZ EQU 128 ;SIZE OF EACH SECTOR
|
||
LOG2SEC EQU 3 ;LOG 2 SECSIZ
|
||
SKE EX MAC 3456789:;<XYZ[\] CLS COM BOOT Z80 G SURVEY COM 裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹
|
||
CR EQU 0DH ;CARRIAGE RETURN
|
||
LF EQU 0AH ;LINE FEED
|
||
STACKSIZE EQU 16 ;SIZE OF LOCAL STACK
|
||
;
|
||
WBOOT EQU 1 ;ADDRESS OF WARM BOO裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹W EQU 6 ;SECTOR SKEW FACTOR
|
||
;
|
||
FCB EQU 005CH ;DEFAULT FCB LOCATION
|
||
FCBCR EQU FCB+32 ;CURRENT RECORD LOCATION
|
||
TPA EQU 0100H ;T EX MAC ^_`abcdefghijklm EX MAC znopqrstuvwxyz{|} BIOS HEX BOOT HEX 裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 .Z80
|
||
ASEG
|
||
ORG 0100H
|
||
|
||
LD C,9
|
||
LD DE,CLEAR
|
||
CALL 5
|
||
RET
|
||
|
||
CLEAR: DB 1BH,5BH,48H,1BH,5BH,32H,4AH,'$' ; clear screen UNI裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹RANSIENT PROGRAM AREA
|
||
LOADP EQU 900H ;LOAD POINT FOR SYSTEM DURING LOAD/STORE
|
||
BDOS EQU 5H ;DOS ENTRY POINT
|
||
BOOT EQU 0 ;JMP TO CPM64 COM B
|
||
SYSGEN SUB BIOS Z80 h PABCDEFGHIJ 蕷UTSYS BAK K xsub
|
||
b:
|
||
a:z80asm boot/h
|
||
a:z80asm bios/h
|
||
a:
|
||
ddt movcpm.com
|
||
s234
|
||
0
|
||
0
|
||
0
|
||
.
|
||
s2cb
|
||
0
|
||
0
|
||
0
|
||
.
|
||
i64 *
|
||
g
|
||
save 34 b:cpm64.co裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹X xterm
|
||
|
||
END
|
||
裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 'BOOT' TO REBOOT SYSTEM
|
||
CONI EQU 1 ;CONSOLE INPUT FUNCTION
|
||
CONO EQU 2 ;CONSOLE OUTPUT FUNCTION
|
||
SELF EQU 14 ;SELECT DISK
|
||
OPE蕋UILDSYSBAK L 藉YSGEN PRN KL~≠ヤ<E289A0><E383A4>葛悟SYSGEN HEX <15><> 藉YSGEN PRN 誌葬 m
|
||
b:
|
||
a:ddt cpm64.com
|
||
iboot.hex
|
||
r900
|
||
ibios.hex
|
||
r2580
|
||
g0
|
||
a:
|
||
save 34 b:cpm64.com
|
||
; now use sysgen b:cpm64.com
|
||
<1A>'AｸX( OﾃI艚+界ﾂ疳ｸ\. <0B>疳ｸ\$)ｲﾈ ﾄ|<7C>ｳ@0 <09><>=園ﾈ ~ L <03> <03><><EFBFBD> <1F> <01>訶<18>'AｸX<1 bﾃ ｰﾊ,4
|
||
ｕ<EFBFBD>淵陲oｴG<EFBDB4>!<21> <00> 5ﾀ Y<>y<>
|
||
&<26>ｰﾈe1巡ﾁpｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k<> Yp|悛0 <09>XmKパ<4B> ?ﾀﾀ 5ﾀ <03>ｯf
|
||
&<26>ｰﾈe1巡Qpｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k<> *<2A>7]ｱ2<EFBDB1>"^ﾀﾁ :20FA0000C389FBC3A6FBC30BFCC30EFCC311FCC315FCC31CFCC320FCC323FCC328FCC34575
|
||
:20FA2000FCC349FCC353FCC35AFCC35EFCC319FCC34DFC73FA |ﾐ"2
|
||
&<26>ｰﾈe1巡!pｸ\. <0B>疳ｸ\. <0B>疳ｸ\$kﾀ ]圻"2Qｮ70"､t <00>$ﾑP ﾀ 5ﾀ I\;v
|
||
&<26>ｰﾈe1巡#TIME FOR MISSED SECTORS
|
||
; WHEN SLOW CONTROLLERS ARE INVOLVED. TRANSLATION TAKES
|
||
; PLACE ACCORDING TO THE "SKEW" FACTOR SET ABﾁA<EFBE81>ﾘ)Gﾂ疳ｸ\$kｻU ﾙ雫9=<3D>@
|
||
<EFBFBD> 0
|
||
4<EFBFBD> <00> <01> 5ﾀ H$ｨ!ﾎA睚|. <0B>疳ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$kｻT :2000000001020016322100E43E00D30A78D30B79D30C7DD30F7CD310AFD30DDB0EFE00CAC9
|
||
:1800200023007615CA00FA318000390C79FE1BDA0C000E0104 5ﾀ qﾚ<71>><3E>
|
||
&<26>ｰﾈe1巡｝ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k安 ﾑ<>佞`B{ ﾄ*Aﾜ !| 5ﾀ <03>m%
|
||
&<26>00000000000065FC8DFA60E1
|
||
:20FA4000FEE5FC73FA00000000000065FC8DFA70FE04FD73FA00000000000065FC8DFA802E
|
||
:20FA6000FE23FD73FA000000 ﾍ ﾉ[H[2J$@<40>HlｶH
|
||
免D｡$<24> <00> OVE.
|
||
;
|
||
OST: DB NTRKS ;OPERATING SYSTEM TRACKS
|
||
SPT: DB NSECTS ;SECTORS PER TRACK (CAN BE PATCHED)
|
||
TRAN: ;BASE OF TRANSLATE 哽W墺 0 ﾄ<> $ﾍGﾄ <00> <01> 5ﾀ ｼｳ+ﾎ黛ﾈ|. <0B>疳ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k佳 B<><04>･<>)myHﾉﾑH` C30C0006
|
||
:00000001FF
|
||
ｰﾈe1巡チｸ\. <0B>疳ｸ\. <0B>疳ｸ\$kｷD` <00><><06>\ﾕi<EFBE95>4薔ﾐｮ X <00> 5ﾀ 爆ｾ<18>
|
||
&<26>ｰﾈe1巡涜ｸ\. <0B>疳ｸ\00000065FC8DFA90FE42FD01070D1319050B111703090F159D
|
||
:20FA800002080E141A060C1218040A10161A00030700F2003F00C00010000200ACFA0000E3
|
||
<EFBFBD>2.=ﾃY+ｯ2.=ﾃ@ >2.=ﾃY+ｯﾃ}+><3E>ﾃ}+:后/o:<3A><ｷﾊY+}2后2*=ﾃY+>2<><ﾃY+ｯ2<EFBDAF><ﾃY+><3E>2<EFBFBD><ﾍﾄ(ｯ2<EFBDAF><zｷﾂ<EFBDB7>:><3E> ﾀ{=<3D><><04>ﾒ<><2<><ｯgkﾃ4ﾍﾄ(zｷﾂ<EFBDB7>:<3A><ｷﾈ{ｷﾊTABLE
|
||
TRELT SET 1 ;FIRST/NEXT TRAN ELEMENT
|
||
TRBASE SET 1 ;BASE FOR WRAPAROUND
|
||
REPT NSECTS ;ONCE FOR EACH SECTOR ON A TRACK
|
||
]<5D> l岬:<3A> <0C>ｰﾆp6 f30ｰﾆc3<0F>疳ｸ\. <0B>疳ｸ\$k<> |蛮jｦ ｢ｴRﾁN!<21> C <01> QU 36 ;WBOOT+36 FOR READ FUNCTION
|
||
WRITF EQU 39 ;WBOOT+39 FOR WRITE FUNCTION
|
||
;
|
||
ORG TPA ;TRANSIENT PROGRAM AREA
|
||
JMP START
|
||
. <0B>疳ｸ\$kｿD` (z1<7A><31>%ｦ3･dｴU<EFBDB4>@Sh ﾀ 5ﾀ @ｺQQ<51>
|
||
&<26>ｰﾈe1巡栃ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k<> ﾅ R
|
||
:20FAA0000000000065FC2CFBA0FE61FD0102030405060708090A0B0C0D0E0F1011121314F0
|
||
:20FAC00015161718191A1B1C1D1E1F2021222324252627282<38>+<2B> ﾍ ﾃ >2.=ﾃY+ｯﾃ}+><3E>ﾃ}+:后/o:<3A><ｷﾊY+}2后2*=ﾃY+>2<><ﾃY+ｯ2<EFBDAF><ﾃY+><3E>2<EFBFBD><ﾍﾄ(ｯ2<EFBDAF><zｷﾂ<EFBDB7>:><3E> ﾀ{=<3D><><04>ﾒ<><2<><ｯgkﾃ4ﾍﾄ(zｷﾂ<EFBDB7>:<3A><ｷﾈ{ｷﾊDB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
TRELT SET TRELT+SKEW
|
||
IF TRELT GT NSECTS
|
||
TRBASE SET TRBASE+1
|
||
TRELT SET TRBASE
|
||
ENDIF
|
||
5ﾀ ER
|
||
&<26>ｰﾈe1巡pｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k<> 混-!楼H
|
||
ｴ<>!<21> ｴﾘ <07> 5ﾀDB 'COPYRIGHT (C) 1978, DIGITAL RESEARCH '
|
||
;
|
||
; TRANSLATE TABLE - SECTOR NUMBERS ARE TRANSLATED
|
||
; HERE TO DECREASE THE SYSGEN 92A2B2C2D2E2F303132333496
|
||
:20FAE00035363738393A3B3C3D3E3F404142434445464748494A4B4C4D4E4F505152535476
|
||
:20FB000055565758595A5B5ALID MEMORY SIZE$! $ﾊ｡~/wｾ/wﾊ<77>|蹊g<E8B98A>* "z砒|<0F>?ﾂｸ>@G!<21>>0w#w!<21>4~<7E>:ﾚﾏ60+4ﾂﾁ~ﾍu!N#Fﾅ! <11>xｱﾊ, ﾅ<0F>ｾﾂ#
|
||
ﾊ ﾃ<>ｯ; GET OR PUT CP/M (RW=0 FOR READ, 1 FOR WRITE)
|
||
; DISK IS ALREADY SELECTED
|
||
;
|
||
LXI H,LOADP ;LOAD POINT IN RAM FOR CP/M DURING S D
|
||
:20FBE00016010CCD45FCC3BAFB3EC33200002103FA2201003205002106EC220600018000F5
|
||
:20FC0000CD53FCFB3A04004FC300E4DB00C9DB01C979D30 C5D5E5F606162636465666768696A6B6C6D6E6F707172737455
|
||
:20FB200075767778797A7B7C7D7E7F808000040F00F707FF03FFFF0000000036344B20435E=ﾂ !<21>"z!w6ﾍ<11>! <19>u<03>#ﾁﾃ<EFBE81>眞+<11>w+wz
|
||
<EFBFBD>> ﾂZﾁ眷xﾆG}双|枠"|<03>! ﾁﾅ:m <00> ﾊc ﾃp!<21>"ﾃxｱﾊp ~#ﾃcﾁ<>*|<03>! :m <00> ﾊYSGEN
|
||
SHLD DMADDR
|
||
;
|
||
; CLEAR TRACK TO 00
|
||
MVI A,-1 ;START WITH TRACK EQUAL -1
|
||
STA TRACK
|
||
;
|
||
RWTRK: ;READ OR WRITE NEXT TRA 1C979D303C9DB02C979D305C962
|
||
:20FC2000DB05C90E00C345FC21000079FE04300CD30A6F292929291133FA19C9FE08C0D388
|
||
:20FC40000A219CFAC979D
|
||
:20FB4000502F4D20566572732E20322E3220284342494F532056312E3120666F72205A3862
|
||
:20FB60003053494D2C20436F707972696768742031393838<33> xｱﾊﾀﾃ､
|
||
SYNCRONIZATION ERROR$ {<7B>ﾂｰ縷#縊}oﾒｼ<1A>ﾃｼﾃ<>ﾑ *zｾﾂZ#
|
||
ﾂﾉ:m <00> ﾊm! ~ｷﾂ #ﾂ<><02>*<> DM! xｱﾊ wCK
|
||
LXI H,TRACK
|
||
INR M ;TRACK = TRACK + 1
|
||
LDA OST ;NUMBER OF OPERATING SYSTEM TRACKS
|
||
CMP M ;= TRACK NUMBER ?
|
||
JZ ENDRW ;E 30BC979D30CC9EB096E2600C979D30F78D310C9AFC360FC3E01FC
|
||
:05FC6000D30DDB0EC90D
|
||
:00000001FF
|
||
718191A1B1C1D1E1F2021222324252627282 2D323030362062792055646F35
|
||
:20FB8000204D756E6B290D0A00318000213BFB7EB7CA9CFB4FCD11FC23C38FFBAF3203004F
|
||
:20FBA000320400C3E9FB31#ﾃ<>ﾃ!N#F! D!_>0w#wﾊ1!`4~<7E>:ﾚ 60+4ﾃ *<2A>"e@ﾍuﾃ
|
||
READY FOR "SYSGEN" OR
|
||
"SAVE 33 CPM64.COM"$ *|<19> ﾃ <00><>
|
||
ﾃ,COPYRIGHT (C) DIGITAL RESEARCH, 1979 1 ] <1A> ﾊ<><01>?ﾊ<>! <13> ﾊ_ｷﾊ_ﾖ0<EFBE96>
|
||
ﾒr)<29>))ﾁ O ﾃ@|ｷﾂr}<7D>ﾚr. g))ﾃ･{ﾍuﾃ
|
||
INV i" j=HL
|
||
;
|
||
DREAD: ;DISK READ FUNCTION
|
||
MVI C,DREADF
|
||
JMP BDOS
|
||
;
|
||
OPEN: ;FILE OPEN FUNCTION
|
||
MVI C,OPENF ! JMP BDOS
|
||
;
|
||
GETPUT:
|
||
80000E00CD28FCCD23FC062C0E0016022100E4C5D5E54ACD4990
|
||
:20FBC000FCC1C5CD53FCCD5AFCFE00C2A6FBE111800019D1C105CAE9FB147AFE1BDABAFBFCONSTRUCTING 64k CP/M vers 2.2$ j ﾒ<0E> ﾂﾙ靉｢菘ﾙ頌ﾍﾂ蠶鯱蒿ﾃ倩ﾑﾃ<EFBE91>ﾍ^<5E> ﾂB<EFBE82>R鯱ｧ莽9<E88EBD>!<07>5ﾂら#~<7E>Yﾂら#"井ﾍT<EFBE8D>ﾍ<><EFBE8D><ﾌ<>ﾃ<EFBFBD>ALL (Y/N)? ﾍ^貭 賚T靉ﾐ萍ｧ鯱倅!<21>6<EFBFBD>!<21>~<7E>ﾚ<C280>袁<EFBFBD> #~<7E>?ﾂ <09>
|
||
ﾂ輾ｷﾉDIR ERA TYPESAVEREN USER !<10> y<>ﾐﾎ<>ｾﾂO<EFBE82>#ﾂ<<3C><1A> ﾂT轌ﾉ#ﾂO<EFBE82> ﾃ3遽2<07>1ｫ<31>y <1F>_ﾍ袁ｸ<E8A281>2ｫ<32>y<EFBFBD>2<>ﾍｽ<EFBE8D>:莵ﾂ !<21> <00><> <00><><EFBFBD><EFBFBD>ﾗ <00><>ﾃY<EFBE83>add ix,<bc,de,ix,sp>..........$ﾗ<> ﾂﾇ<07>Q<EFBFBD>><3E> Q<> 麭 0 !<21> <00><> <00><><EFBFBD><EFBFBD>ﾗ <00><><EFBFBD>ﾃ<>ﾃﾃ<EFBE83>ﾃ <1E> ﾃ ﾍ蜃㊦<E89C83>!<21>ｶ2 ﾉ:<3A>2 ﾉ<>aﾘ<61>{ﾐ訐ﾉ:ｫ<>ﾊ門:<3A>ｷ> ﾄｽ<EFBE84>ｬ<>ﾋ萍門:ｻ<>=2ﾌ<32>ｬ<><EFBDAC>ﾂ門<07>! ﾍB<EFBE8D>!ｺ<>6 #5ｬ<>ﾚ萍門:<3A>ﾃe Switched to Z80 processor.
|
||
$Switched to 8080 processor.
|
||
$>0ﾃ[>ﾓ<>2ｹ ﾃ5 ｯ2ｸ 2ｹ =龝ﾍV* <00>A ﾍ5 ! 蓊ﾂ<E8938A>魃w4! ﾍY諧<59>ﾊ<>ﾍ御ﾍﾂ蠶<EFBE82>ﾃt<EFBE83>=ﾊ<>ﾍﾙ醢f霤 賚<><E8B39A>^貭 賚T<E8B39A>ﾍ<>ﾍ<EFBFBD>ﾑﾍ 衞隆ｯ2溿<32>& ) |ｵﾊ<EFBDB5>+<2B>! 袁ﾘ<E8A281>ﾍ<>衽眥隆ﾃﾔ<EFBE83>ﾍ<>ﾚ<EFBFBD><ﾂ<01><07>ｧ倡1ｫ<31>倅ﾍﾐ衄Aﾍ御>>ﾍ御ﾍ9<EFBE8D> ﾍﾘ袁ﾐ<E8A281>2<EFBFBD>ﾍ^貽 <09>:<3A>ｷﾂ･<EFBE82>.<2E>!ﾁ軅 ~#fo駢<6F> 饐鬲<E9A590>齊<><E9BD8A>!<21>" <00>! 蓚ﾟ酖ｧ膤EAD ERROR <01>ﾃｧ膀O FILE ﾍ^<5E>:<3A>ｷﾂ<EFBDB7>_ﾈ(饌dd iy,<bc,de,iy,sp>..........$ﾗﾆ @<40><~gzmﾟa[) fｲ<66>8 <00> <00> ﾗ Hy伝aluop a,nn.................ｷﾄｽ<EFBE84>!莽ｬ莽ﾂ衞ｧ袁ﾝ蠹らﾍﾝ袁<1A>
|
||
莽 ﾍ)<29>!腱#xｷﾊｺ蛬ﾍ0蚰ﾃｫ蚰!<08>"井ﾉ ﾍ ｷﾈﾍ ｷﾉﾃ ﾃ !ｫ<>ｷﾈ6 ｯﾍｽ<EFBE8D>ｬ<><EFBDAC>:<3A>ﾃｽ<EFBE83>(<28>! <00>ｾﾂｮ~#ｶﾊ<EFBDB6>+ﾍDﾃ<>:ｸ ｷｺ ﾊ<>ﾒ ﾍ5 :ｹ ｷﾊ ﾍNﾃ $<02><02>D､ﾄ$<05><05>D､dﾄ$<08><08>D ､
|
||
d
|
||
ﾄ
|
||
$ <0B> <0B> D $<0E><0E>D､dﾄ$<11><11>D､ 2! <00>> ﾓ
|
||
xﾓ yﾓ }ﾓ|ﾓｯﾓ
|
||
ﾛ<0E> ﾊ# vﾊ <00>1 9 y<>ﾚ ﾃ 莽ﾕ蠹<EFBE95>NO SPACE ﾍ^貭 <09>:<3A><>T靉鱠ﾂy<EFBE82>!ﾍ<>ﾝ<>ﾍB<EFBE8D>*井<>O<EFBFBD>=ﾊ?<3F>_ﾂs<EFBE82>#"井ﾍ^貭s<E8B2AD>G!<21>~ｷﾊY<EFBE8A>pﾂs麪ｯ2ﾍ<32>鱠ﾊm<EFBE8A>ﾍ<>蠹<>ﾍ<EFBFBD>ﾃ<EFBFBD>ﾍf霤 <09>れﾍｧ菘 <09>!ﾎ<> ~<7E> ﾊ3<EFBE8A>#ﾖ0<EFBE96>
|
||
ﾒ 觚x赳ﾂ 諄ﾚ 諤ﾚ 謔ﾚ 襾
|
||
ﾂ靄~<7E> ﾂ <09>#
|
||
ﾂ3閂ﾉ~#ﾂB靄! ∀Y諧ﾉｯ2ﾍ<32>:<3A>ｷﾈ=!<21>ｾﾈﾃｽ<EFBE83>:<3A>ｷﾈ=!<21>ｾﾈ:<3A>ﾃｽ莽^賚T<E8B39A>!ﾎ<>...$ﾗ >ﾅ:WML 綰ｦﾐ;ｻｭ? <00> <00> <00><><EFBFBD><EFBFBD>ﾗ <00>Cｰaluop a,<b,c,d,e,h,l,(hl),a>..$ﾗﾝ<EFBE97> <00>nﾇﾏｬG(ﾝ"5ﾀﾅ8K# 9 ﾏ<>#ﾂ<>衙ﾍ倅*贋~<7E> ﾊ"豺ﾊ"趺ﾍ御<EFBE8D>#ﾃ<0F>>?ﾍ御ﾍ倅ﾍﾝ蠹らｷﾈ<EFBDB7> ﾚ 貶<>=ﾈ<>_ﾈ<5F>.ﾈ<>:ﾈ<>;ﾈ<><ﾈ<>>ﾈﾉｷﾈ<EFBDB7> ﾀﾃO諷oﾐ$ﾉ> !ﾍ<>Y趺蟇2<E89F87>*井<>O跋"贋<>ｷﾊ画ﾞ@dﾄ<13>D､dﾄ$<17><17>dﾄ$<1A><1A> ﾗ鍈 ,ヨO+<2B>9ｳ ~cﾓ運F 8 !<21> <00><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ﾗ <00><><EFBFBD>旺<adc,sbc> hl,<bc,de,hl,sp>.ﾃ\酖X<E98596> COPYRIGHT (C) 1979, DIGITAL RESEARCH qﾍ.*ｬ <1E> ﾍ ﾉ ﾍ ﾉ
|
||
ﾍ ﾉ!ｯ q*ｯ & <00>ﾍ ﾉ!ｱ p+q*ｰ <1E>ﾍ 2ｮ <1E>FILE EXISTS ﾍ<><EFBE8D>ﾒ 訐:ﾎ<> ﾊ 賚蠹雅ﾍ<E99B85>:ﾎ<> ﾂﾄ<EFBE82>:<3A>ｷﾊ雅=2<>ﾍ)袁ｽ菘雅ﾖ<><1A> ﾂ 贏ﾍT靦!<21>ﾍ@靉ﾐ萍k<E8908D>! 褄ﾍﾘ<EFBE8D>ﾍ<><EFBE8D>ﾂ<01> 艟倒墺q<E5A2BA>痿<EFBFBD> ﾂ剰 6?#ﾂ郁 ﾕﾍ鱠ﾌ<E9B1A0>ﾊ<1B>:鸙訌O>
|
||
ﾍK<EFBFBD>ﾚ鰉{ ﾕ<><03>ﾌ靉倅ﾅﾍﾐ蠱ﾆAﾍ剃>:ﾍ剃ﾃﾔ靉｢<E99D89>>:ﾍ剃ﾍ｢<EFBE8D>xﾍK韆<E99F86> ﾂ<><EFBE82><EFBFBD>ﾂ<>> ﾍK韆<E99F86> ﾊ<0E>> ﾍ剃x<> <00> <00> <00><><EFBFBD><EFBFBD>ﾗ ､mZaluop a,<ixh,ixl,iyh,iyl>.....$ﾗﾝ<EFBE97> ｷ<><01>2n@ﾜﾁEn栁 8 <00> <00> ﾗ G<1A>:ﾊ先:<3A>wﾃ匁x2<78>pﾍ0賁ｹ<E8B381>#<23>*ﾂｩ<EFBE82>6?ﾃｫ誣ﾂ俶ﾍ0賁ﾀ<E8B381>ﾃｯ<EFBE83>#6 ﾂｹ<EFBE82><03>.ﾂ鱶ﾍ0賁鱶#<23>*ﾂﾙ<EFBE82>6?ﾃﾛ誣ﾂﾈ賚0賁<30>ﾃﾟ<EFBE83>#6 ﾂ鱶#6 ﾂ<><EFBE82>"井<> ...$ﾗ ･ﾄﾇﾄ&ﾒP<EFBE92>鷙f<E9B799>ﾞﾉ<EFBE9E>0 !<21> <00><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ﾗ <00><>e<>add hl,<bc,de,hl,sp>..........$ﾗﾝ ｬﾝ板[cﾓ3vj 哿h<E593BF>6 0 ﾉ!ｳ p+q*蓁_ﾃ ﾅﾍ御ﾁﾉ>
|
||
ﾍ剃>
|
||
ﾃ剃> ﾃ剃ﾅﾍ倅痿ｷﾈ#袁御眦ｬ<E79CA6>
|
||
ﾃ _ﾃ ﾍ 2鸙<ﾉﾃﾃ莟2溿ﾍ<>ﾋ<EFBFBD>ﾃﾃ<EFBE83>ﾃﾃ<EFBE83>ﾃﾃ<EFBE83>ﾍ<>ﾟ<EFBFBD>ﾃ ﾍ ｷﾉﾃ<>ﾍ<>=ﾂq<EFBE82>f靉^<5E>!<21>蛬2ﾍ<32>>ﾍ`趁~2ﾝ<32>2溿\ !ﾍ<>!ﾍB<EFBE8D>!艤ｷﾊ><3E> ﾊ><3E>#ﾃ0<EFBE83> <11> ~ｷﾊO<EFBE8A>#ﾃC<EFBE83>2 ﾍ倅ﾍﾕ袁袁 1ｫ<31>)袁ｽ菘らﾍf霤 <09>z<>ｧ菘<EFBDA7>BAD LO 鍼gnaluop a,(<ix,iy>+1)...........$SﾝﾋFu <01><圦t=Q'ﾊ 8 S <00> ｨ<>gbit n,(<ix,iy>+1).............$ﾗ4 Vｸ| ><3E>~Ⅴﾚ\7 <00> ﾗ ｸ:ﾜ<><inc,dec> (hl)................$ﾗ3 o4ぶiﾑｶﾞ筈v<E7AD88>[<5B> 疼ｯﾌ<inc,dec> e...................$ﾗ$ <15>ﾝ<EFBFBD>+&ｦｼ( <00> ﾗ 奓}<inc,dec> h...................$ﾗ" ﾐrwSr?鹽<E9B9BD>-<2D>5 <00><> ｣`季ld (nnnn),hl..................$ﾗ﨎ﾜﾀﾖﾑZ侔<5A>ｯｧlD<6C>
|
||
? <00> ﾗ _h"d<inc,dec> b...................$ﾗ 力ｫDﾉ阪耄､<>IM* !<21> ﾗ 鉧ｺ<E989A7><inc,dec> iyl.................$ﾗ彅ｨ<><EFBDA8>楠<EFBFBD>ohﾙ<68>ﾘK <00><> MEｩｬld <bc,de>,(nnnn).............$Sﾋ@ <00>><3E>ﾌzaｾ<61>P$<24> ? S <00> <00><><EFBFBD><EFBFBD> <00> {U貶bit n,<b,c,d,e,h,l,(hl),a>....$ﾗ愰 ｶﾇｴr<EFBDB4>ｽ<> ﾀ0｣<30> !<21> ﾗ ]ｬﾕ'<inc,dec> sp..................$ﾗﾝ4 n<>(,蝿WP3o( <00> ﾗ ...$ﾗ# <00>･mOﾂ<4F>*８珮ﾃ !<21> ﾗ <00>
|
||
mJ<inc,dec> hl..................$ﾗﾝ# <ｼ<>
|
||
≒<EFBFBD>ｭ壼<EFBFBD><13> <00><>X_ﾗld (nnnn),sp..................$ﾗﾝ"ﾃl<EFBE83>
|
||
i<>ﾖ胱ﾃﾆﾙﾟﾂ <00><><EFBFBD><EFBFBD> ﾒｮ;<3B><inc,dec> bc..................$ﾗ 荷5 [<05>'<27>ﾒ<>` <00> ﾗ ﾂФL<inc,dec> c...................$ﾗ* c<>0xw <20>ｱ彧ｸｫ` <00><> _<>$㌫d hl,(nnnn)..................$ﾗ垬<01>ﾗWa!ﾊ<>ﾚ'<27> `<60>
|
||
<00> ﾗ ﾒｨBcpd<r>........................$ﾗ悅 HMJｯk<EFBDAF>qN 屠|<7C>
|
||
<00> ﾗ Xp<inc,dec> (<ix,iy>+1).........$ﾗﾝ$ 8ｸl1ﾔﾆ>XΧ∇YB <00> ﾗ oF6b<inc,dec> ixh.............. !<21> ﾗ ･Mｾ1<inc,dec> ix..................$ﾗ<># 配c<E9858D>1Zﾆ魎ｴｫ<16>m !<21> ﾗ ｺ*kld (nnnn),<ix,iy>.............$ﾗ \F-ｹ支`ｱtｳFﾑﾌ00 <00><> ﾞ9ild <bc,de,hl,sp>,nnnn.........$ﾗ 槇ｺ_琇 侘8ｼﾞC\ｽ <00> ﾗ E#ﾞ<inc,dec> d...................$ﾗ .4 ﾉ(ﾊ
|
||
g<EFBFBD>.:程T<E7A88B> <00><> zﾎ｡ld sp,(nnnn)..................$ﾗﾝ*ﾗﾞ孖<E5AD96>$ﾞ<>ｼc豊 <00><> ﾞｳVcpi<r>........................$ﾗ' A!<21> ` Y･[酵<>持) ﾗ<> 姙ｦu<daa,cpl,scf,ccf>.............$ﾗﾝ, M`tﾔv<EFBE94>｢2<!ﾖﾗ･<EFBE97> <00> ﾗ {<7B>,<inc,dec> ixl.................$ﾗﾝ$ 6(o<>損aﾋ<61>竰s見 <00> P]Q｣<inc,dec> iy..................$ﾗ, 1 ･VC ｴﾁ<EFBDB4>ﾟﾑ<｢> <00> ﾗ Vﾍ<06><inc,dec> l...................$ﾗﾝ! 閾 ｽ峺Sr蝪Qｽ<> <00><> "}ﾕ%ld <ix,iy>,nnnn...............$ﾗ
|
||
ｨｳ* <1D>ｬBﾆｱ趣 !<21> ﾗ ｮﾆﾔ,<inc,dec> de..................$ﾗ /`
|
||
L$<24><>
|
||
｡2%Y <00> ﾗ <00><>ld <ix,iy>,(nnnn).............$ﾗ銈<01> M┏竟ﾉ]ﾉa準?ｿﾇ <00><><EFBFBD><EFBFBD> d <1E>ld (nnnn),<bc,de>.............$ﾗ< ﾟJﾘﾕ伜+寛ｧCDZ0ﾐ <00> ﾗ ﾑ<>､<inc,dec> a...................$ﾗ #ﾖ-Caz≧Z<E289A7> <1E>ｻ<EFBFBD> ﾗ -僕<><inc,dec> iyh.................$ﾗﾝ, ﾆﾗﾕb棧9p~>汾ﾙ" <00> ﾗ <00> ﾗ<> ｰ♂5ld a,<(bc),(de)>..............$ﾗ ﾄ暉=ﾑ9迦UtSﾀ U8 <00> q:ﾍ《hf/rot (<ix,iy>+1)...........$ﾗﾋ <00>J]<07><01><13>0Cxｭ= ? <00> <00><><EFBFBD><EFBFBD>W<EFBFBD> <00>MXshf/rot <b,c,d,e,h,l,(hl),a <00><> ﾗ 埒<>ldi<r> (1)....................$ﾗ恝 ﾎJnﾂ鯵 -泪 <00><> ﾗ ﾊ G<1A>ﾊ 6 ﾁﾑ睨#ﾃ<> ﾅﾕ<EFBE85>!i <00><19>ｷﾊ< G<1A>ﾂ8 x<07>ﾂ6 6 #wｯ瞋ﾁﾉ#ﾃ ...$ﾗ@ ､r$<24>ｬaﾇｏq酪趣? <00> <00><><EFBFBD><EFBFBD>ﾗ<EFBFBD> tKld <bcdehla>,<bcdehla>........$ﾗﾝ@ ﾅｼﾂ/ﾀ<> ﾍ; ? <00><> <00> zLOld (<bc,de>),a................$蛬#fo~2ﾌ #<23> A ﾍｰ 砒( i ﾍｰ !i 6砒ｩ 擎 擎, <00>ｵVld <b,c,d,e,h,l,(hl),a>,nn....$ﾗﾝ6 Eﾁﾕﾇaﾄｽﾀ<EFBDBD>ﾍ <00> <00> &ﾛG~ld (<ix,iy>+1),nn..........>..$ﾗﾋ ﾕ,ｫ<>9KﾑｲjS'8ｵ <00> <00><><EFBFBD><EFBFBD>ﾗ<EFBFBD> 妓<><set,res> n,<bcdehl(hl)a>.....$ﾗﾝﾋ<01><> ｺｾhﾘ2^gｨ x <00><>ldi<r> (2)....................$ﾗ蓜 ｢8k_4ﾙ膰ﾖﾒBFCZﾌ ﾗ<> j<;ｽneg........................ <00>ﾕ褫﨎<E8A4AB> 1<01>矍矣ﾑﾁ<EFBE91>{ 﨎<> 1<> <1D>ﾕ袿<EFBE95>褊{<7B> <1D>*"<22> !<21> ~贐w<11> !> ﾍ ﾂﾖ 瞋ﾁ<E79E8B> ~ﾍ #ﾂ<> ﾉ <00> <00><><EFBFBD><EFBFBD>ﾗ<EFBFBD> G競kld <bcdexya>,<bcdexya>........$ﾗ2 h<><68><EFBFBD>DCｵSｺﾍﾒOﾘ <00> ﾗ<> <00> ﾍ5 ﾍ* :ｩ <1D>vﾊ<76>赱<>ﾝﾂ<EFBE9D>:ｪ <1D>vﾄ<76> ﾍ<> ﾄ 睫<>< ﾍ<> <11> ﾊﾘ>2ｸ <11> ﾍ5 ﾍ ｭ ﾍ5 !> ﾍ ｵ ﾍ5 <1E>##ﾉ<>>2W 2{ !A "X !i "| 砒ｩ ﾍ ...$ﾗﾝF ﾐ`B9憂<> <00><> ﾌｨld <b,c,d,e>,(<ix,iy>+1)......$ﾗﾝf 焙R恙ｧｶI<EFBDB6> ｭ<> <00> ﾗ ﾌc<EFBE8C><set,res> n,(<ix,iy>+1).......$ﾗﾝp
|
||
':ｷ{稲刎pﾊ <00><><EFBFBD><EFBFBD> ...$ﾗ刕 ﾋ窓ﾄb<EFBE84> 轌ｴ@竓 <00> ﾗ<> 票｣&<rrd,rld>.....................$ﾗ 塚Cm<43>
|
||
<EFBFBD>S <0E><>@ <00><>~ﾍ #ﾂ 眞<><E79C9E>ﾍ <1E>ﾅﾕ褂<0F>
|
||
ﾚ( ﾆ'ﾆ0_ﾍ5 瞋ﾁ<E79E8B><EFBE81>ﾕ袁 瞋ﾁ<E79E8B>Z80 instruction exerciser
|
||
Undefined status bits NOT taken into ﾉ&-虱d a,(nnnn) / ld (nnnn),a.....$ﾗ愷 R傅h｡f ﾁhｷ <00><> ﾗ 簸'ildd<r> (1).................ﾍ ﾃ<>ﾍ #ﾂ ﾉﾅﾕ薇 ~<7E> ﾊ5 <0F>> ﾜZ ｩO<>ﾂ$ ~<7E> ﾊP <0F>> ﾜ~ ｩO<>ﾂA 瞋yﾁﾉ ﾅ<>*X F!W ~Ow<>ﾂs *X #"X x｡眞ﾈ>ﾉ ﾅ<> <00><> <00>*Mld <h,l>,(<ix,iy>+1)..........$ﾗﾝ~ ｶﾘﾆﾟﾐ廚ｦ蝣 <00><> bjｿld (<ix,iy>+1),<b,c,d,e>......$ﾗﾝt dｶｬ頷ｵ<E9A0B7>ｪf<> <00><> j<1A>1ld (<ix,iy>+1),<h,l>....... <00> ﾗ %0ｮ<rlca,rrca,rla,rra>...........$ﾗﾝﾋｯﾝ<<3C><><EFBFBD><EFBFBD>ﾙa 8 <00> W account
|
||
$ OK
|
||
$ ERROR **** crc expected:$ found:$
|
||
$ All tests successful.
|
||
$Some failure detected.
|
||
$ﾅﾕ<EFBE85>> ｾﾂ<EFBDBE> #ﾂ<> 瞋...$ﾗ愷 .<2E>*<2A>ﾕ G<>蕘 <00><> ﾗ Z厨ﾔldd<r> (2)....................$ﾗ恝 0<>ﾍX` `<60>& *| F!{ ~Ow<>ﾂ<> *| #"| x｡眞ﾈ>ﾉ<>ﾕ<EFBFBD>6 T] 擎瞋ﾁ<E79E8B>ﾕ<EFBFBD>( ﾍ<> <1C> ^{｡ﾊﾆ yO<>ﾂﾀ #ﾂｿ z蹂o& z<><G>ﾂ<> ﾑ wﾉﾅﾕ<EFBE85>!A <00><19>4~<7E> ･鬯dld a,(<ix,iy>+1)..............$ﾗﾝ& S<@Fy<46>wﾁ<><1A>嫋 <00> $閧詰d <ixh,ixl,iyh,iyl>,nn.......$ﾗﾝw ｯgODﾗｼPｬｯ_ <00> ﾌｾZ僕d (<ix,iy>+1),a..............$ﾗ ; 跳<>l桾ﾁ!鄂 ﾁﾉ<EFBE81>ﾕ裹 ｮo& ))<29>!B <19> ｨFw#
|
||
ﾂ 瞋ﾁ<E79E8B><EFBE81><EFBFBD>!> ><3E>w#ﾂ4 眞<> w0矢a,<2C> Qｺmﾄpj<70>馗･5枦淵ﾛ<>2yﾜｸ､獨<EFBDA4> 淋ﾙ<E6B78B> ｶL+~ｱ|ｽ邵-請 ﾃ<11><><EFBFBD><EFBFBD><EFBFBD>"C<>{2ﾖ<32>! "E<>9"<0F>1A<31>2瓊2ﾞ<32>!t<>y<EFBFBD>)ﾐK!G<> ^#V*C<><43>抦譿﨔<E8ADBF><12>昤<>ⅴⅹ髜<E285B9>蕙<EFBFBD><E89599><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><04>
|
||
<EFBFBD><11>, <1D> ｷdjｰ <20>ｹqH╂Aﾞﾚﾔ}mﾝ蓁<EFBE9D>ｵQφ<51>l老dkｨﾀ<EFBDA8>b<EFBFBD>各ﾉ<E59084>\Oclﾙ<6C>=c<>
|
||
<EFBFBD>;n ﾈLi^ﾕ`A茲gqr<葭KﾔGﾒ
|
||
<EFBFBD>･
|
||
ｵk5ｵｨⅲｲ詫ﾛｻﾉﾖｬｼ<EFBFBD>2ﾘl絋ﾟ\uﾜﾖ
|
||
ﾏｫﾑ"襌ﾉ*襌}ｴﾉ:ﾃ<>*襌)=ﾂ栓"錏:ﾄ<>:脩｡ｵo"襌ﾉ*C<> ﾉ*C<> <19>! ﾉﾍｮ<EFBE8D>2脩<32>2碼ﾍｦ<EFBE8D>:ﾅ<>2糴ﾉﾍｮ<EFBE8D>:ﾕ<>ﾂﾞ<EFBE82>O:脩『<E884A9>:碼wﾉ
|
||
ﾈ|ｷ g} oﾃ<6F>*ｹ<><EFBDB9>#
|
||
楹<EFBFBD>泥<>｣ﾒ <01>iﾂ<><EFBE82>W]egﾋl6qnk<06>ﾔv箇+<2B>ﾚzZgﾝJﾌ<4A>ﾟo疾<6F>ｷｾC`ｰ遮ﾖﾖ｣陦ﾑ冬8ﾘﾂﾄOﾟ<4F>ﾑｻg<EFBDBB>ｼWg?ｵﾝHｲ6Kﾘ
|
||
+ﾚｯ
|
||
L6J<>z`ﾟ`<60>ｨgﾟU1n趣Fiﾅ袁涖ﾁﾃx鮱:
|
||
<EFBFBD>ﾊ<EFBFBD>! <0C>2
|
||
<EFBFBD>､<EFBFBD>!
|
||
<EFBFBD>5ﾂ咒ﾃ<EFBFBD>#wﾅ薜ﾍ涖ﾁ~<7E>xﾂｽ<EFBE82>ﾊ ｹﾚ<EFBDB9>疳
|
||
ﾃH楨朎<01>愑<01><ﾊ瑁<ﾊ愑 敎弡ﾊ茸ﾍ 愑<01>: ﾃ<01>! qﾉ<71>Dﾃﾓ楨# <1D> ｷdjｰ <20>ｹqH╂Aﾞﾚﾔ}mﾝ蓁<EFBE9D>ｵQφ<51>l老dkｨﾀ<EFBDA8>b<EFBFBD>各ﾉ<E59084>\Oclﾙ<6C>=c<>
|
||
<EFBFBD>;n ﾈLi^ﾕ`A茲gqr<葭KﾔGﾒ
|
||
<EFBFBD>･
|
||
ｵk5ｵｨⅲｲ詫ﾛｻﾉﾖｬｼ<EFBFBD>2ﾘl絋ﾟ\uﾜﾖ
|
||
ﾏｫﾑ<EFBFBD><17> <1D>&<26>-<2D><><EFBFBD><EFBFBD><0E><><04><04><>!ﾊ<>褌<EFBFBD>ﾊ ﾉ!ﾕ<>ｴ<EFBFBD>!碆ﾃｴ<EFBE83>!ﾜ<>褌ﾃ Bdos Err On : $Bad Sector$Select$File R/O$袁ﾉ<E8A281>:B<>A2ﾆ<32>ｺ<>ﾓ暿ﾍﾓ<EFBE8D>!<0E>6=Y&ﾙ0ｬQﾞ :ﾈﾗQｿﾐa!ｴ<>Vｳﾄ#ﾏｺ蕗ｸｽ･(ｸ枩<05>ﾆ ﾙｲｱ <0B>$/o|ⅤhLﾁa ｫｶf-=vﾜA<EFBE9C>ﾛq來 ｼ<>*qｱ<71>ｶｵ 涸茹雕ﾔ3xﾉ｢ <00>4<EFBFBD> ｨ若<0E>j
|
||
ｻm=-租l玲cﾂ<63><EFBE82>
|
||
ﾈ)ﾃ<05>:B<>! ﾍ<04>yｵoxｴgﾉ*ｭ<>:B<>ﾍ<EFBFBD>}<7D>ﾉ!ｭ<>#Fﾍ <0B>"ｭ<>*ﾈ<>#<23>*ｳ<>#rﾉﾍ^<5E> ~ﾐ!<0F>J<EFBFBD> <1E>!
|
||
<EFBFBD>J<EFBFBD>*ｹ<>:鴿<>ﾐ$ﾉ*C<> ~ﾉﾍi<EFBE8D>6 ﾉﾍi<EFBE8D>wﾉ*ｾyﾋaｳ絃f<E7B583>%oﾒ<6F>Rh<52>6ﾌ w塀 G"ｹU&/ﾅｺ;ｾｲｽ (+ｴZ箪ｳjﾂﾗ<EFBE82>ｧｵﾐﾏ1,ﾙ梛[ﾞｮ 嫖ﾂｰ<EFBE82><EFBDB0>&uj｣<6A>m<>
|
||
<EFBFBD> ｩ<>6?rg<> W柄Jやｸz{ｱ+ｮ ｶ8辻寺袗ｾ
|
||
|ﾜ<> ﾛ<>2E<32>>ﾃ<01> ﾒ):ｨ <1E>[ﾂ ﾍｱ!N 5!ｩ 6ﾉﾃｱ:ｪ <1E>ﾊ5ﾉ!｡ 6<>#6 >!｢ ﾚｰ!! <0B>#V<>
|
||
ﾈw#ﾃP<EFBE83>:B<>ﾍ僴ｵﾈ^#V#"ｳ<>##"ｵ<>##"ｷ<>##<23>"ﾐ<>!ｹ<>ﾍ=Y&ﾙ0ｬQﾞ :ﾈﾗQｿﾐa!ｴ<>Vｳﾄ#ﾏｺ蕗ｸｽ･(ｸ枩<05>ﾆ ﾙｲｱ <0B>$/o|ⅤhLﾁa ｫｶf-=vﾜA<EFBE9C>ﾛq來 ｼ<>*qｱ<71>ｶｵ 涸茹雕ﾔ3xﾉ｢ <00>4<EFBFBD> ｨ若<0E>j
|
||
ｻm=-租l玲c ｷﾀﾃ 敎隯ﾍ毖<>ﾍ戦<EFBE8D><E688A6>
|
||
ﾈ<EFBFBD>
|
||
ﾈ<EFBFBD> ﾈ<>ﾈ<> ﾉ:<0E>ﾂE楨桄ﾈﾍ <09>ﾂB楨 <09>ﾊ ｯﾉ2<0E>>ﾉ:
|
||
<EFBFBD>ﾂb杦ﾍ#暿ﾅﾍ 愠ﾅ:
|
||
<EFBFBD>ﾄ愠y! <0C>ﾈ4<EFBE88> ﾐ5~ｷﾈy<EFBE88>ﾂy<EFBE82>5ﾉ<35>
|
||
ﾀ6 ﾉy\kkQ<6B> lab<61>0ﾘ<30> Nl倣･{<7B><08><>ﾄWeｰﾙﾆｷ餘鏡ｸ<E98FA1>ｹ<EFBFBD>bﾝ ﾟﾚ-I胡|<7C>ﾔLeMｲaX:ｵQﾎ｣ｼ tﾔｻ0祀ﾟ･A=ﾘ勉､ﾑﾄmﾓﾖ<EFBE93>Ci駛4nﾙ<6E>g<EFBFBD>ﾚ`ｸﾐD-s3 蟐
|
||
L_ﾝ
|
||
<EFBFBD><EFBFBD>*ｳ<><EFBDB3>#z榾ﾍ<EFBE8D>r+sﾉ{賓z徃ﾉ<0E>*<2A><>*ﾌ<>報ﾐﾅﾍ<EFBE85>*ｽ<>*<2A>ﾁ ﾊﾄ<EFBE8A>ﾈﾍ<EFBE8D>ﾍ,<2C>wﾉﾍ懴ﾍ瑰ﾍｸ<EFBE8D>ﾚ<EFBFBD>瑰ﾍｲ<EFBE8D>!ｱ<>胝!ｹ<>#Fﾃ$<24>*ｹ<>*ｱ<>ﾃO<EFBE83>!<21>~#ｾﾀ<ﾉ!<21>ﾟ!<21>ﾒﾔ<EFBE92>磽hﾝｳ<EFBE9D> ﾚハ∪ﾍ<>&[oｰw<EFBDB0>ｷGw<47>Z<>jpf;ﾊ \銃<><E98A83>ｮiak<61>ﾓlﾏE<EFBE8F>
|
||
窗ﾗ
|
||
ﾒ琮サ9ｳﾂｧg&aﾐ`<16>iGM>nwﾛｮﾑjJﾙﾖZﾜ@ﾟ f7ﾘ;<3B>ｼｮSﾞｻ槐Gｲﾏ0ｵO<EFBDB5>*ｻ<>!ﾁ<>ﾍO<EFBE8D>*ﾆ<>!ﾝ<>6<EFBFBD>ｷﾊ晢6 ><3E>ｷﾉﾍ崧*ｵ<>#w*ｷ<>#wﾉﾍ'愑ｻ<E68491>*弡ﾈ! <09>J<EFBFBD>*<2A>ﾍ<>"襌"<22>!襌N#F*ｷ<>#V*ｵ<>#foy度墺橆<E5A2BA>*ﾁ<>廟z弩<7A>+ﾃ蔡<EFBE83>*ﾁ<>ﾚ\kkQ<6B> lab<61>0ﾘ<30> Nl倣･{<7B><08><>ﾄWeｰﾙﾆｷ餘鏡ｸ<E98FA1>ｹ<EFBFBD>bﾝ ﾟﾚ-I胡|<7C>ﾔLeMｲaX:ｵQﾎ｣ｼ tﾔｻ0祀ﾟ･A=ﾘ勉､ﾑﾄmﾓﾖ<EFBE93>Ci駛4nﾙ<6E>g<EFBFBD>ﾚ`ｸﾐD-s3 蟐
|
||
L_ﾝ
|
||
ﾍ橫戦<E6A9AB>^ﾍH瀨<48>Oy<4F> ﾂH<EFBE82> ﾍH<EFBE8D>: <0C>ﾂ弥ﾉﾍｬ<EFBE8D> ﾍ <0C>ﾃ <0C>#ﾍH楨ﾉ<E6A5A8>: <0C>! <0B>ﾐ ﾍH朎ｹ<E69C8E>
|
||
ﾍH<EFBFBD>
|
||
ﾃH<EFBFBD>
|
||
<EFBFBD>$ﾈﾅOﾍ戦ﾁﾃﾓ<EFBE83>: <0C>2 <0B>*C<>#<23> ﾅ袁隯<E8A281>眞<7F>
|
||
ﾊﾁ<EFBFBD>
|
||
ﾊAD COMﾍf靉^<5E>:ﾎ<> !<21>ｶﾂ 貪ら* ~2<> *<2A> #"<22> ﾃ $$$ SUB ﾃm! 6ﾃ<>ﾃm! 6ﾃ<>ﾃm! 6 ﾃ<>ﾃm ﾍ <00>2<7F> ﾃmﾃﾃﾃﾃﾃﾃ<>"<22>ﾉ*ﾈ<>*<2A>#"<22>ﾍ報ﾒ<19><><EFBFBD>:<3A><><05>ﾂ <20>2鴿ｷﾀﾅﾍﾃ<EFBE8D>ﾔ<EFBFBD>ﾃ橢y<E6A9A2><_Wy<0F> Ox㊦㊦<E38AA6>Ox<0F> G*ｿ<> ~ ﾂV<EFBE82>ﾕﾍ5<EFBE8D><35>ﾁｱﾂd<EFBE82>ﾉﾍ^<5E> ﾅﾑ
|
||
ﾈﾕ:ﾝ<>ﾊ允<EFBE8A>鮨ｽ<E9AEA8> ﾊｺﾂ慨ｳ<E685A8>0$ｴ｣ｦｺﾐ6ﾍﾗ典ﾞW)#ﾙgｿｳfz.ﾄaJｸ]h*o+閥 ｾ7ﾃ 治Zﾟ-<02><>
|
||
窗ﾗ
|
||
ﾒ琮サ9ｳﾂｧg&aﾐ`<16>iGM>nwﾛｮﾑjJﾙﾖZﾜ@ﾟ f7ﾘ;<3B>ｼｮSﾞｻ槐Gｲﾏ0ｵ<0F>富憇<0F><>#ﾃ橆眷ﾕ褄*ﾎ<>DMﾍ 昉*ｵ<>#rﾑ*ｷ<>#rﾁy徹x哦*ﾐ<>ﾍ0ⅣDﾃ!<21>!ﾃ<>:脩ｷ
|
||
ﾂE<EFBFBD>>飽:糴
|
||
ﾊ\<5C>ﾃS<EFBE83>ﾉ*C<> :ﾝ<>ﾊq<EFBE8A>& ﾉ ^#V<>ﾍ><3E> ﾍ^<5E>ﾉPq<'Aｪｾ ﾉ <20>hｵ% o<>ｹfﾔ ﾎa茵^ﾞ<>)ﾙﾉ于ﾐ<E4BA8E>"ﾇﾗｨｴYｳ=.ｴ
|
||
<EFBFBD>ｽ\;ﾀｺlｭ昤<EFBDAD> 堊ｳｶｶ<> tｱﾒ夛ﾕG9旆wｯﾛ&sﾜ<16>c 播;<3B>
|
||
mj>zjZｨ<5A>ﾏ <0B> <09><>
|
||
ｮ'}ﾁ<>ﾂ荿ｷﾊ<EFBDB7>: <0C>2
|
||
<EFBFBD>p<EFBFBD>ﾂ&荿ｷﾊ<EFBDB7>~+ﾃｩ<EFBE83>ﾂ7鎤袁ﾉ撝2 <0B><><EFBFBD>ﾂH鮱!
|
||
<EFBFBD>>殆眦<E6AE86><E79CA6>ﾂ_髜: <0B>! <0C>ﾒ硼5ﾍ､朎N<E69C8E>ﾂk隆ｱ涖ﾃ硼<EFBE83>ﾂｦ鎤ﾍｱ暿砒ﾅxｷﾊ基#Nﾅ薇 ﾃ儒
|
||
ﾅN#F蠣ｰﾊ暈*ﾆ<>掃儘\<5C>#ﾁﾃu<EFBE83>*ﾆ<>ﾍ<>#DM*ｿ<>6 # xｱﾂｱ<EFBE82>*ﾊ<>*ｿ<>#rﾍ｡<EFBE8D>*ｳ<>6#6 ﾍ<><EFBE8D><0E>ﾍ<05><>ﾈﾍ^<5E>>蠕ﾊﾒ<EFBE8A>:A<>ﾂ<EFBFBD>#~ﾖ$ﾂ<>=2E<32>ﾍk<EFBE8D>佼ﾃﾒrs to load
|
||
;
|
||
; we aren't using a stack, so use <sp> as scratch register
|
||
; to hold the load address increment
|
||
;
|
||
LD SP,128 ve A
|
||
OUT (DRIVE),A
|
||
;
|
||
; load the next sector
|
||
;
|
||
LSECT: LD A,B ; set track
|
||
OUT (TRACK),A
|
||
LD A,C ; set sector
|
||
OUT (SECﾃｬ<EFBE83> 4~<7E>ﾊｶ<EFBE8A>ﾍ<18><>ﾂｬ<EFBE82>:ﾓ<><ﾊｶ<EFBE8A>$<24><>ﾊｶ<EFBE8A>ｯ<EFBFBD>Z<EFBFBD>ｻ<EFBFBD>ﾃ<01><05>x<EFBFBD>>2ﾕ<32>><3E>2ﾓ<32>ｻ<EFBFBD>:脩!碼ｾﾚ踞<EFBE9A>ﾂ顥ﾍZ<EFBE8D>2脩:E<>ﾂ顥ﾍw<EFBE8D><77>ﾊ顥ﾍ嬉ﾍﾑ<EFBE8D>ｲ<EFBFBD>ﾒ<EFBFBD><05>>TS EQU SIZE/128 ; # of sectors to load
|
||
;
|
||
; I/O ports
|
||
;
|
||
DRIVE EQU 10 ; fdc-port: # of drive
|
||
TRACK EQU 11 ; fdc-port: #ﾃS<EFBE83>:<3A><>2E<32>!ﾔ<>ﾐｯwﾉﾍ<EFBE89><EFBE8D>><3E>ﾃ<01>T<EFBFBD> ﾍ<18><>ﾈﾍD<EFBE8D>^<5E>6<EFBFBD> ﾍk<EFBE8D>ﾆ<EFBFBD>-<2D>､<EFBFBD>Yyｰﾊﾑ<EFBE8A> ﾕﾅﾍ5<EFBE8D> ﾒ<>ﾁﾑ*ﾆ<>布慥<E5B883>ﾅﾕBKﾍ5<EFBE8D> ﾒ<>ﾑﾁﾃﾀ<EFBE83><ﾍd<EFBE8D>ﾑﾉyｰﾂﾀ<EFBE82>! ﾉ <1E>:ﾔ<><01><>:ﾅ<>/Gy<47>O<EFBFBD>第 ﾁﾉ><3E>2ﾔ<32>!ﾘ<>*C<>"ﾙ<><EFBE99><EFBFBD>｡<EFBFBD> ﾍ<05><>ﾊ樋*ﾙ<><1A>衞J<E8A19E>ﾍ<EFBE8D>ﾒ樋ﾍ^<5E>:ﾘ<> yｷﾊ<EFBDB7><1A>?ﾊ|<7C><>
|
||
ﾊ|<7C> ﾊs<EFBE8A><73>ﾂ-<2D>|<7C>Nﾍ<07>ﾂ-<2D>#
|
||
; 128 bytes per sector
|
||
ADD HL,SP ; <hl> = <hl> + 128
|
||
;
|
||
INC C ; sector = sector + 1
|
||
LD A,C
|
||
CP 27 ; last sector of traTOR),A
|
||
LD A,L ; set dma address low
|
||
OUT (DMAL),A
|
||
LD A,H ; set dma adress high
|
||
OUT (DMAH),A
|
||
XOR A ; read sector
|
||
OU2ﾕ<32>> 2ﾓ<32>T<EFBFBD>*C<>G<EFBFBD>ｻ<EFBFBD>:脩<>ﾒ<05>w<EFBFBD><77> ﾂn<EFBE82>><3E>2ﾗ<32> ｷﾊ;<3B> ﾍ^<5E>Mﾍｾ<EFBE8D>ｴﾂH<EFBE82>>ﾃ<01>"襌<>*C<> :ﾝ<>:ﾗ<>d<EFBFBD>d<EFBFBD>ﾃl<EFBE83> s#r:E<>ﾀﾅﾍ嬉:ﾕ<>==ﾂｻ<EFBE82> of track
|
||
SECTOR EQU 12 ; fdc-port: # of sector
|
||
FDCOP EQU 13 ; fdc-port: command
|
||
FDCST EQU 14 ; fdc-port: status
|
||
DMA ﾕ *C<> <09>^<5E>ﾍO<EFBE8D>ﾃ<EFBFBD>ﾆ<EFBFBD>T<EFBFBD> ﾍ<18>*C<> wﾍ<77>ﾈﾍD<EFBE8D> ﾍ<01>-<2D>'<27> ﾍ<18><>ﾈ ﾍ<01>-<2D>@<40>ﾍ<18><>ﾈﾍｦ<EFBE8D><EFBDA6>ﾍ^<5E>*C<> ﾕﾍO<EFBE8D>x<EFBFBD>! N! F碵wyｾ; CP/M 2.2 boot-loader for Z80-Simulator
|
||
;
|
||
; Copyright (C) 1988 by Udo Munk
|
||
;
|
||
ORG 0 ; mem base of boot
|
||
;
|
||
MSIZE EQU 64 ;ck ?
|
||
JP C,LSECT ; no, go read another
|
||
;
|
||
; end of track, increment to next track
|
||
;
|
||
LD C,1 ; sector = 1
|
||
INC B ; track T (FDCOP),A
|
||
IN A,(FDCST) ; get status of fdc
|
||
CP 0 ; read successful ?
|
||
JP Z,CONT ; yes, continue
|
||
HALT ; no, halt cpu
|
||
ﾅy==ﾂｻ<EFBE82>*ｹ<>w#<14><>瑰*錏"襌ﾅﾍﾑ<EFBE8D>ﾍｸ<EFBE8D>*襌 :ﾄ<>･ｸ#ﾂ奚<EFBE82>"襌ﾍﾚ<EFBE8D>ﾑ<EFBFBD>ﾅﾍｸ<EFBE8D>:脩!碼ｾﾚﾒ<EFBE9A>4
|
||
|
||
ﾂﾟ<EFBFBD>ﾍi<EFBFBD>w<EFBFBD>ﾂ <00>:ﾕ<>ﾂ <00>ﾒ<EFBFBD>Z<EFBFBD>!E<>ｷﾂ<EFBDB7><EFBE82>=2脩6 L EQU 15 ; dma-port: dma address low
|
||
DMAH EQU 16 ; dma-port: dma address high
|
||
;
|
||
; begin the load operation
|
||
;
|
||
COLD: xﾊ偶> ﾚ偶>*C<> wﾉ~#ｶ+ﾀw#w+ﾉｯ2E<32>2<EFBFBD>2<EFBFBD>ﾍ <1E>ﾍi<EFBE8D>ﾀﾍ<18><>ﾈ ﾍ^<5E> <09>*C<> :ﾝ<>ﾊ頡~ｷﾂﾛ<EFBE82>ｷﾂ磑~ｾﾂ <1F><><EFBFBD>簸<EFBFBD>簸<EFBFBD>ｾﾂ <1F>#ｾﾂ <1F>
|
||
#
|
||
mem size in kbytes
|
||
;
|
||
BIAS EQU (MSIZE-20)*1024 ; offset from 20k system
|
||
CCP EQU 3400H+BIAS ; base of the ccp
|
||
BIOS EQU CCP+16= track + 1
|
||
JP LSECT ; for another group
|
||
END ; of boot loader
|
||
|
||
CONT:
|
||
; go to next sector if load is incomplete
|
||
DEC D ; sects=sects-1
|
||
JP Z,BOOT ; head for the bios
|
||
;
|
||
; more sectoﾃﾒ<EFBE83>2ﾕ<32>*C<>!! ~<7E><EFBFBD>#~<17> O~ <1F>G<>#n,-.ﾂ隅! w! y鳴G<E9B3B4>! x匁ﾊ<EFBE8A>ﾕﾍ｢<EFBE8D>ﾁ.:E<><ﾊ<>! q! pﾍQ<EFBE8D>:E<><ﾂ<EFBE82>ﾅ. ﾊ<>ﾍ$<24>.:E<><ﾊ<>ﾁLD BC,2 ; b=track 0, c=sector 2
|
||
LD D,SECTS ; d=# sectors to load
|
||
LD HL,CCP ; base transfer address
|
||
LD A,0 ; select driﾂﾍ<EFBE82><01> <09> ｾﾚ<17> <09> ~><3E>2ﾒ<32><10>!E<>5ﾉﾍT<EFBE8D>*C<>!ｬ<>"C<>ﾍ<18><><EFBFBD>"C<><43>! ｯw#
|
||
ﾂF<EFBFBD>!
|
||
wﾍ佼ﾍ<E4BDBC><EFBE8D>x<EFBFBD>2ﾒ<32>｢<EFBFBD><EFBDA2>ﾈ*C<> ~<<3C> wﾊ<77>G:ﾅ<>!ﾒ<>ﾊ寿00H ; base of the bios
|
||
BIOSL EQU 0300H ; length of the bios
|
||
BOOT EQU BIOS
|
||
SIZE EQU BIOS+BIOSL-CCP ; size of cp/m system
|
||
SEC ｯﾃ<01>ﾍi<EFBE8D>6ﾀ眞}2E<32>x<EFBFBD><0E>ﾍ<03>ﾁ<EFBFBD> ﾍ<03><03><>N ! ~諤＾> <00>~<0F>G! ~㊦㊦<E38AA6>G<EFBFBD>}盞<>ﾉ ﾍ<18>*C<>! 蚌#r#rﾍ<72>ﾊ <0C>^<5E> ﾍ･<EFBE8D>蘋y<E8988B>#x<>#{樛ﾃ<>ﾃ､鈊 <09> <0C><0F><13><1A> <1E>!<21>&<26>C<EFBFBD>G<EFBFBD>Q<EFBFBD>X<EFBFBD>\<5C><17>K<EFBFBD><4B> c<>鍈<EFBFBD>腋s<E8858B> c<>佖<EFBFBD><02>s<EFBFBD> c<>兊<EFBFBD>!<21>s<EFBFBD> c<>厲<EFBFBD>@<40>
|
||
ﾍX<EFBE8D>: Oﾃ 葩 ﾉﾛﾉyﾓﾉyﾓﾉﾛﾉyﾓﾉﾛﾉ ﾃH<EFBE83>! y<>ﾒ?<3F>
|
||
o))))3<>ﾉ<>ﾀﾓ
|
||
!戌ﾉyﾓ ﾉyﾓ ﾉ<> <09>o& ﾉyﾓxﾓﾉｯﾃe<EFBE83>>ﾓ
|
||
ﾛﾉ<>>ﾃ2 !<03>" 2 !<06>" G<1A>:ﾊ先:<3A>wﾃ匁x2<78>pﾍ0賁ｹ<E8B381>#<23>*ﾂｩ<EFBE82>6?ﾃｫ誣ﾂ俶ﾍ0賁ﾀ<E8B381>ﾃｯ<EFBE83>#6 ﾂｹ<EFBE82><03>.ﾂ鱶ﾍ0賁鱶#<23>*ﾂﾙ<EFBE82>6?ﾃﾛ誣ﾂﾈ賚0賁<30>ﾃﾟ<EFBE83>#6 ﾂ鱶#6 ﾂ<><EFBE82>"井<> ﾃ拐ﾃｨ鈊
|
||
<EFBFBD><10><13><17> <1E>"<22>%<25>*<2A>H<EFBFBD>L<EFBFBD>X<EFBFBD>_<EFBFBD>c<EFBFBD><1B>P<EFBFBD><50> j<>鋹<EFBFBD><E98BB9>s<EFBFBD> j<>倢<EFBFBD> <09>s<EFBFBD> j<>劜<EFBFBD>(<28>s<EFBFBD> j<>喆<EFBFBD>G<EFBFBD>
|
||
<00>+p+qﾍ-<2D>蔔睨*C<> ﾍ･<EFBE8D>!! q#p#wﾉ*ｯ<>:B<>ﾍ<EFBFBD>褄ﾍY<EFBE8D>ﾌG<EFBE8C> ﾘ*ｯ<>Dﾍ <0B>"ｯ<>｣<EFBFBD>:ﾖ<>!B<>ﾈwﾃ!<21>><3E>2ﾞ<32>*C<><43> =2ﾖ<32> ﾒu<EFBE92>:B<>2ﾟ<32>2瓊赳wﾍE<EFBE8D>:A<>*C<>wﾉ>"
|
||
<00> ? ﾀ ｬ<> c<>,薰<>_<EFBFBD>
|
||
|
||
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRST ﾍX<EFBE8D>: Oﾃ 葩 ﾉﾛﾉyﾓﾉyﾓﾉﾛﾉyﾓﾉﾛﾉ ﾃH<EFBE83>! y<>ﾒ?<3F>
|
||
o))))3<>ﾉ<>ﾀﾓ
|
||
!戌ﾉyﾓ ﾉyﾓ ﾉ<> <09>o& ﾉyﾓxﾓﾉｯﾃe<EFBE83>>ﾓ
|
||
ﾛﾉ #~<7E>?ﾂ <09>
|
||
ﾂ輾ｷﾉDIR ERA TYPESAVEREN USER ﾁ!<10> y<>ﾐﾎ<>ｾﾂO<EFBE82>#ﾂ<<3C><1A> ﾂT轌ﾉ#ﾂO<EFBE82> ﾃ3遽2<07>1ｫ<31>y <1F>_ﾍ袁ｸ<E8A281>2ｫ<32>y<EFBFBD>2<>ﾍｽ<EFBE8D>:莵ﾂ
|
||
<00> ? ﾀ ｬ<> j<>,詹<>f<EFBFBD>
|
||
|
||
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRST ﾃ<01>! "ｭ<>"ｯ<>2B<32>! "ｱ<>ﾚ<EFBFBD>!<21>r<EFBFBD>Q<EFBFBD>Q<EFBFBD>Q<EFBFBD>｢<EFBFBD> <00><>?ﾊﾂ<EFBE8A>ｦ<EFBFBD><EFBDA6>?ﾄr<EFBE84>Q<EFBFBD>ﾍ<18>鴦*ﾙ<>"C<>Q<EFBFBD>-<2D>鴦ﾍQ<EFBE8D>懽ﾃ<01>Q<EFBFBD>ｼ<EFBFBD>Q<EFBFBD><51><EFBFBD>r<EFBFBD>Q<EFBFBD>$<24>Q<EFBFBD><16><01>*ｯUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ <00><07><03><> 64K CP/M Vers. 2.2 (CBIOS V1.1 for Z80SIM, Copyright 1988-2006 by Udo $ @B <00>B<10> 推 辿辿 II$垂@<40> 棚 A<08>I $"$<10><>$<10><> <00> @<40> $<24>$I! 辿! 9"j1ｵﾍ
|
||
*** System Survey (June 82) ***
|
||
|
||
<EFBFBD>! 袁 <00> ﾒP<02>ﾍ
|
||
Drive<76>>AЮﾍ"ﾍ
|
||
:<3A>砒\ﾍ ﾍ o`<60> ﾍ }ｷﾂ<EFBDB7>* .<~2r##n& "UVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ <00><07><03><> 64K CP/M Vers. 2.2 (CBIOS V1.1 for Z80SIM, Copyright 1988-2006 by Udoｷﾄｽ<EFBE84>!莽ｬ莽ﾂ衞ｧ袁ﾝ蠹らﾍﾝ袁<1A>
|
||
莽 ﾍ)<29>!腱#xｷﾊｺ蛬ﾍ0蚰ﾃｫ蚰!<08>"井ﾉ ﾍ ｷﾈﾍ ｷﾉﾃ ﾃ !ｫ<>ｷﾈ6 ｯﾍｽ<EFBE8D>ｬ<><EFBDAC>:<3A>ﾃｽ<EFBE83>(<28>! <00>ｾﾂ<EFBDBE>)<29>:B<><01>"ｱ<>ﾚ<EFBFBD>*ｿ<>)<29>*ｭ<>)<29>Q<EFBFBD>;<3B><01>*ｻ<>"E<>:ﾖ<><EFBE96>ﾂ;<3B>:A<><01> 2A<32>ﾍQ<EFBE8D>肉ﾍQ<EFBE8D>戈ﾍQ<EFBE8D>ﾒ<EFBFBD>*C<>/_|/*ｯ<>W}｣_*ｭ<>"ｯ<>｣o|｢g"ｭ<>:ﾞ<>ﾊ茸*C<>6 xsub
|
||
b:
|
||
a:z80asm boot/h
|
||
a:z80asm bios/h
|
||
a:
|
||
ddt movcpm.com
|
||
s234
|
||
0
|
||
0
|
||
0
|
||
.
|
||
s2cb
|
||
0
|
||
0
|
||
0
|
||
.
|
||
i64 *
|
||
g
|
||
save 33 b:cpm64.co:瓊ｷﾊ茸w:ﾟ<>2ﾖ<32>E<EFBFBD>*<0F>*E<>DﾉﾍQ<EFBE8D>>2ﾕ<32> ﾍ<07><03><> s ﾃｹ>?2J ﾍ ##~2r###~#fo"s#|ｷ g} oﾂ､E:s<05>ﾊｹ<04> ~ ﾒﾅ
|
||
ﾂﾀ#ﾂｽﾍ'袁ﾝﾍ
|
||
K bytes in<69>Jﾍ ! <00><>ﾊ㊦㊦<E38AA6>_ <1A><> Munk)
|
||
1 !;隝<1A>ﾊ檢Oﾍ<13>#ﾃ埴ｯ2 2 ﾃ<>1 ﾍ*<2A>%<25>, ! 菁ﾕ蕭ﾍL<EFBE8D>ﾅﾍX<EFBE8D>_<EFBFBD> ﾂｨ鎤 ﾑﾁﾊ<>z<>ﾚｼ<EFBE9A> ﾍH<EFBE8D>ｼ<EFBFBD>>ﾃ2 !<03>" 2 !<06>" ﾏ<>#ﾂ<>衙ﾍ倅*贋~<7E> ﾊ"豺ﾊ"趺ﾍ御<EFBE8D>#ﾃ<0F>>?ﾍ御ﾍ倅ﾍﾝ蠹らｷﾈ<EFBDB7> ﾚ 貶<>=ﾈ<>_ﾈ<5F>.ﾈ<>:ﾈ<>;ﾈ<><ﾈ<>>ﾈﾉｷﾈ<EFBDB7> ﾀﾃO諷oﾐ$ﾉ> !ﾍ<>Y趺蟇2<E89F87>*井<>O跋"贋<>ｷﾊ画ﾞ@:瓊ｷﾊ茸w:ﾟ<>2ﾖ<32>E<EFBFBD>*<0F>*E<>DﾉﾍQ<EFBE8D>>2ﾕ<32> ﾍ<07><03><> . <09><08> 8 m^ <00> ﾁ a m
|
||
b:
|
||
a:ddt cpm64.com
|
||
iboot.hex
|
||
r900
|
||
ibios.hex
|
||
r2580
|
||
g0
|
||
a:
|
||
save 33 b:cpm64.com
|
||
; now use sysgen b:cpm64.com
|
||
ﾊ#J袁 眦<>ﾍﾝﾍ
|
||
files with<74>*s<05>ﾍ'<05>|/g}/o#ﾍﾝﾍ
|
||
K bytes remaining
|
||
眼<EFBFBD>$-ﾂ<ﾍ
|
||
|
||
Memory map:
|
||
0 8 16 24 32 40 48 56 64
|
||
expcrc <0ffh,082h,03eh,077h>,<095h,05bh,0a3h,026h>,<0,0,0,0> ; expected crc
|
||
tmsg '<rrd,rld>'
|
||
|
||
; <rlca,rrca,rla,rra> (6144 cyask ; flag mask
|
||
tstr <0edh,044h>,038a2h,05f6bh,0d934h,057e4h,0d2d6h,04642h,043h,05ah,009cch
|
||
tstr 0,0,0,0,0,0,0,0d7h,-1,0
|
||
;
|
||
|
||
;24/Jun/80 - Removed MACLIB statement, included required macros
|
||
|
||
; in source. Bruce R. Ratoff
|
||
|
||
;
|
||
|
||
|
||
|
||
.Z80
|
||
|
||
ASEG+|ｵﾂ! <1E>zG2<47>ﾛ <00><>ﾊｺｸﾊｺz跼ｻﾊｭﾍ
|
||
|
||
額跼_zﾕ袁}瞋#ﾍ
|
||
<05>ﾂ<>ﾍ
|
||
|
||
艦ﾝﾍ
|
||
Ports active
|
||
<EFBFBD>*j<05>ﾃﾅﾕ<EFBE85><01><11><> ﾚ<>
|
||
<09>ｵﾄ<EFBDB5>{ﾆ0__ﾍ equate
|
||
|
||
; Bill Bolton - Software Tools, Australia
|
||
|
||
;
|
||
|
||
;01/Jun/82 - Tidied up and fixed port display, added display
|
||
|
||
; of
|
||
| | | | | | | | |
|
||
ﾔ!l6<>#6#6 ﾂ<>! ? ｯ2p2q~G/w朴ﾂﾍ<02>!l4ﾂﾉ#4眦<34>2p><3E>青<EFBFBD>:qｧﾊ<EFBDA7>ﾃ<>2q<05>!n4ﾂ<34>#4<>#ｯｲｳﾂｶﾅ<>:pｧﾂ#%;***************************************;
|
||
|
||
; ;
|
||
|
||
; S U R V E Y ;
|
||
|
||
; ;
|
||
|
||
;***************************************;
|
||
|
||
; (16,384 cycles)
|
||
tstr 0,0,0,0,0,0,0,0,0,0 ; (1 cycle)
|
||
expcrc <0d6h,038h,0ddh,06ah>,<06ah,03ch,03bh,0bdh>,<0,0,0,0> ; expe
|
||
|
||
|
||
|
||
;*******************************;
|
||
|
||
; SYSTEM MACROS ;
|
||
|
||
;*******************************;
|
||
|
||
;Increments 16 bit memory loc 瞋ﾁﾉﾍ<EFBE89>ﾉ耻~W<>_袗ﾍ"ﾑ<>#>｢<C280> ﾑ翹ﾃ :r<05>ﾂ3k& ﾉ<>ﾂ@{<0F>oﾃ0ﾖG<>)ﾂDﾉ ??????????? ﾄ<>{ﾆ0__ﾍcontents of low memory. David Bennett - Alfred
|
||
|
||
; Hospital, Australia
|
||
|
||
;
|
||
|
||
;29/Jun/80 - Added version number test and calcula: ｼﾚﾍ
|
||
ﾔﾃ5: ｼﾚ ﾍ
|
||
ﾃﾃ5ﾍ
|
||
ﾂﾃ5:qｧﾊ1ﾍ
|
||
ﾒﾃ5ﾍ
|
||
<05>眞
|
||
ﾂｬﾍ
|
||
|
||
T=TPA C=CPM B=BIOS or unassigned R=ROM or bad
|
||
艦
|
||
BIOS at<61>ﾃ<EFBFBD><03>;By Michael Friese 9/22/79
|
||
|
||
;* Lists Kbytes used and remaining plus number of files
|
||
|
||
; on all logged disks (up to 8)
|
||
|
||
;* cted crc
|
||
tmsg 'neg'
|
||
|
||
; <rld,rrd> (7168 cycles)
|
||
rld: db flgmask ; flag mask
|
||
tstr <0edh,067h>,091cbh,0c48bh,0fa62h,msbt,0eation X
|
||
|
||
INXI MACRO X
|
||
|
||
LOCAL JUST8
|
||
|
||
PUSH HL
|
||
|
||
LD HL,X
|
||
|
||
INC (HL)
|
||
|
||
JP NZ,JUST8
|
||
|
||
INC HL
|
||
|
||
INC (HL)
|
||
|
||
JUST8: POP HL
|
||
|
||
,msbt,2,014h,02dh,0a39fh
|
||
tstr <0,010h>,0,0,0,0,0,0,0,0,0 ; (2 cycles)
|
||
tstr 0,-1,0,0,0,0,0,0d7h,0,0 ; (22 cycles)
|
||
expcrctions for CP/M
|
||
|
||
; version 2 compatibility. This program should now work
|
||
|
||
; properly on all versions 1.4 and later. BRR
|
||
|
||
ﾍ<><03>ﾆ<>'ﾎ@'_ﾃ : ﾍ}: ﾍ}ﾍ
|
||
iobyte<74>: ﾍ}ﾍ
|
||
drive<76>: ﾍ}ﾍ
|
||
BDOS at<61>: ﾍ}: ﾍ}ﾍ
|
||
|
||
|
||
<EFBFBD>*l袁ﾝﾍ
|
||
Bytes RAM <09>*n袁ﾝﾍ
|
||
Prints Memory map and synopsis of all machine memory
|
||
|
||
;* Lists all active I/O Ports
|
||
|
||
;* Uses disk allocation block for all 720h,0b479h,040h,006h,08ae2h
|
||
tstr <0,8>,0ffh,0,0,0,0,0,0,0,0 ; (512 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,-1,0 ; (14 cycles)
|
||
ENDM
|
||
|
||
|
||
|
||
;..............................................................
|
||
|
||
;
|
||
|
||
; SAVE MACRO SAVE SPECIFIED REGISTERS
|
||
|
||
;
|
||
|
||
; SA <0e9h,0eah,0d0h,0aeh>,<0ebh,059h,089h,01bh>,<0,0,0,0> ; expected crc
|
||
tmsg 'ldi<r> (2)'
|
||
|
||
; neg (16,384 cycles)
|
||
neg: db flgm;
|
||
|
||
;28/Jun/80 - Added IMS400 equate (prevents Industrial Micro Systems
|
||
|
||
; controller from hanging up during port scan). BRR
|
||
Bytes ROM <09>* ﾍﾝﾍ
|
||
Bytes in TPA
|
||
貫<EFBFBD><19> |/g}/oﾍﾝﾍ
|
||
Bytes Empty 蚊ﾍﾝﾍ
|
||
Total Active Bytes
|
||
|
||
*j<05>Active I/O portsｺ! disk calculations
|
||
|
||
;
|
||
|
||
;VERSION LIST - Most recent version first.
|
||
|
||
;
|
||
|
||
;06/Jul/82 - Added Godbout DISK 1 equate and added SKIPVE R1,R2,R3,R4
|
||
|
||
;
|
||
|
||
; R1-R4 MAY BE B,D,H OR PSW SAVED IN ORDER SPECIFIED
|
||
|
||
; IF REGS ARE OMITTED SAVE B,D AND H
|
||
|
||
;
|
||
|
||
SAVE MA,H
|
||
|
||
OR L ;;TEST FOR ZERO
|
||
|
||
CALL NZ,@DECOUT ;;RECURSIVE CALL
|
||
|
||
LD A,E
|
||
|
||
ADD A,'0' ;;CONVERT FROM BCD TO HEX
|
||
|
||
LD E,A ;;CONVERT A POSITIVE INTEGER TO DECIMAL AND OUTPUT
|
||
|
||
; TO THE CONSOLE.
|
||
|
||
;
|
||
|
||
; DECOUT ADDR
|
||
|
||
;
|
||
|
||
; IF ADDR OMITTED, NUMBER ASSU*******************;
|
||
|
||
TRUE EQU -1
|
||
|
||
FALSE EQU NOT TRUE
|
||
|
||
|
||
|
||
TARBEL EQU FALSE ; Tarbell FDC dmb 31-may-82
|
||
|
||
IMS400 EQU FALSE ;2>,<R3>,<R4>>
|
||
|
||
IF NUL R
|
||
|
||
EXITM
|
||
|
||
ENDIF
|
||
|
||
POP R
|
||
|
||
ENDM
|
||
|
||
ELSE
|
||
|
||
POP HL
|
||
|
||
POP DE
|
||
|
||
POP BC
|
||
|
||
ENDIF
|
||
|
||
ENDM
|
||
|
||
|
||
|
||
;
|
||
|
||
;..RCA
|
||
|
||
RRCA
|
||
|
||
RRCA
|
||
|
||
RRCA ;;SHIFT RIGHT 4
|
||
|
||
CALL OUTCHR
|
||
|
||
RESTORE PSW
|
||
|
||
OUTCHR: AND 0FH ;;MASK 4 BITS
|
||
|
||
ADD A,90H ACRO R1,R2,R3,R4
|
||
|
||
IF NOT NUL R1&R2&R3&R4
|
||
|
||
IRP R,<<R1>,<R2>,<R3>,<R4>>
|
||
|
||
IF NUL R
|
||
|
||
EXITM
|
||
|
||
ENDIF
|
||
|
||
PUSH R
|
||
|
||
ENDM
|
||
|
||
ELSTO E FOR OUTPUT
|
||
|
||
CHAROUT ;;CONSOLE OUTPUT
|
||
|
||
RESTORE ;;POP STACK
|
||
|
||
RET
|
||
|
||
ENDDEC:
|
||
|
||
DECOUT MACRO ?ADDR
|
||
|
||
IF NOT NUL ?ADMED TO BE IN HL, ELSE LOADED TO HL
|
||
|
||
; LEADING ZEROS SUPRESSED. MAXIMUM NUMBER 65,767
|
||
|
||
;
|
||
|
||
DECOUT MACRO ADDR
|
||
|
||
LOCAL ENDDEC,D Industrial Micro Systems FDC
|
||
|
||
GODBOUT EQU FALSE ; Godbout Disk 1 FDC
|
||
|
||
|
||
|
||
SKIP EQU TARBEL OR IMS400 OR GODBOUT ; Will be true............................................................
|
||
|
||
;
|
||
|
||
; CHAROUT MACRO CONSOLE OUTPUT FROM A
|
||
|
||
;
|
||
|
||
; CHAROUT ADDR
|
||
|
||
;;ADD OFFSET
|
||
|
||
DAA ;;DEC ADJUST
|
||
|
||
ADC A,40H ;;ADD OFFSET
|
||
|
||
DAA ;;DEC ADJUST
|
||
|
||
LD E,A ;;TO E FOR OUTPUT
|
||
|
||
LD C,coE
|
||
|
||
PUSH BC
|
||
|
||
PUSH DE
|
||
|
||
PUSH HL
|
||
|
||
ENDIF
|
||
|
||
ENDM
|
||
|
||
|
||
|
||
;
|
||
|
||
; . . . . . . . . . . . . . . . . . . . . . . . . . . . .
|
||
|
||
;
|
||
|
||
; RDR
|
||
|
||
LD HL,(?ADDR)
|
||
|
||
ENDIF
|
||
|
||
CALL @DECOUT ;;CALL THE SUBROUTINE
|
||
|
||
ENDM
|
||
|
||
DECOUT ADDR
|
||
|
||
ENDM
|
||
|
||
;
|
||
|
||
;
|
||
|
||
;...............X
|
||
|
||
JP ENDDEC
|
||
|
||
@DECOUT:
|
||
|
||
SAVE ;;PUSH STACK
|
||
|
||
LD BC,-10 ;;RADIX FOR CONVERSION
|
||
|
||
LD DE,-1 ;;THIS BECOMES NO DIVIDED BY
|
||
|
||
; if any skip needed
|
||
|
||
IF TARBEL
|
||
|
||
TARBAS EQU 0F8H ; Base of Tarbell
|
||
|
||
SKIPORT EQU TARBAS+4 ; Port # to skip if Tarbe;
|
||
|
||
CHAROUT MACRO ADDR
|
||
|
||
IF NOT NUL ADDR
|
||
|
||
LD A,(ADDR)
|
||
|
||
ENDIF
|
||
|
||
LD C,consoleOutputCmd ;;CONOUT
|
||
|
||
LD E,A ;;CHAR TO E
|
||
|
||
CnsoleOutputCmd ;;CONOUT
|
||
|
||
JP BDOS ;;CALL BDOS
|
||
|
||
HEXEND:
|
||
|
||
HEXOUT MACRO ?ADDR
|
||
|
||
IF NOT NUL ?ADDR
|
||
|
||
LD A,(?ADDR)
|
||
|
||
ENDIF
|
||
|
||
ESTORE MACRO RESTORE REGISTERS (INVERSE OF SAVE)
|
||
|
||
;
|
||
|
||
; RESTORE R1,R2,R3,R4
|
||
|
||
;
|
||
|
||
; R1-R4 MAY BE B,D,H OR PSW RESTORED IN OR...............................................
|
||
|
||
;
|
||
|
||
; HEXOUT MACRO CONVERT BINARY NO AND OUTPUT TO CONSOLE
|
||
|
||
;
|
||
|
||
; HEXOUT ADDRRADIX
|
||
|
||
DX: ADD HL,BC ;;SUBTRACT 10
|
||
|
||
INC DE
|
||
|
||
JP C ,DX
|
||
|
||
LD BC,10
|
||
|
||
ADD HL,BC ;;ADD RADIX BACK IN ONCE
|
||
|
||
EX DE,HL
|
||
|
||
LD ll FDC
|
||
|
||
ENDIF
|
||
|
||
IF IMS400
|
||
|
||
SKIPORT EQU 08FH ; Port # to skip if IMS FDC
|
||
|
||
ENDIF
|
||
|
||
IF GODBOUT
|
||
|
||
GODBAS EQU 0C0H ; Base ALL BDOS ;;CALL BDOS
|
||
|
||
ENDM
|
||
|
||
|
||
|
||
;
|
||
|
||
;
|
||
|
||
;.............................................................
|
||
|
||
;
|
||
|
||
; DECOUT MACRO
|
||
CALL HEXPRN
|
||
|
||
ENDM
|
||
|
||
HEXOUT ADDR
|
||
|
||
ENDM
|
||
|
||
;
|
||
|
||
;
|
||
|
||
;*******************************;
|
||
|
||
; SYSTEM EQUATES ;
|
||
|
||
;************DER SPECIFIED
|
||
|
||
; IF REGS OMITTED RESTORE H,D AND B
|
||
|
||
;
|
||
|
||
RESTORE MACRO R1,R2,R3,R4
|
||
|
||
IF NOT NUL R1&R2&R3&R4
|
||
|
||
IRP R,<<R1>,<R
|
||
|
||
;
|
||
|
||
; NUMBER ASSUMED IN A IF NO ARGUMENT
|
||
|
||
;
|
||
|
||
HEXOUT MACRO ADDR
|
||
|
||
LOCAL OUTCHR,HEXEND
|
||
|
||
JP HEXEND
|
||
|
||
HEXPRN: SAVE PSW
|
||
|
||
Rof Godbout FDC
|
||
|
||
SKIPORT EQU GODBAS+1 ; Port # to skip if Disk 1 FDC
|
||
|
||
ENDIF
|
||
|
||
|
||
|
||
BDOS EQU 5 ; jump to BDOS
|
||
|
||
BIOS EQU 0 ; jo if version 1
|
||
|
||
OR A
|
||
|
||
JP NZ,V2X ; otherwise, use 2.x style params
|
||
|
||
LD HL,(BDOS+1) ; get vers 1 style params
|
||
|
||
LD L,3CH
|
||
|
||
E
|
||
|
||
DB 'Drive'
|
||
|
||
DB ' '+EOL
|
||
|
||
LD A,'A' ; Get ASCII bias
|
||
|
||
ADD A,H ; Add to drive #
|
||
|
||
LD E,A ; Print drive letter
|
||
|
||
CALLlocated
|
||
|
||
INC DE ; Inc group counter
|
||
|
||
NOBIT: DEC C ; Dec bit counter
|
||
|
||
JP NZ,NXBIT
|
||
|
||
INC HL ; Index next byte
|
||
|
||
DEC B
|
||
|
||
*****************;
|
||
|
||
;
|
||
|
||
ORG 100H
|
||
|
||
;
|
||
|
||
START: LD HL,0 ; Save stack pointer
|
||
|
||
ADD HL,SP
|
||
|
||
LD (OLDSP),HL
|
||
|
||
LD SP,FINIS+64
|
||
|
||
L ; (double precision)
|
||
|
||
LD H,(HL)
|
||
|
||
LD L,A
|
||
|
||
LD (MAXALL),HL
|
||
|
||
INC HL
|
||
|
||
LD B,3 ; map size is (MAXALL+1)/8
|
||
|
||
V2SH: LD A,H
|
||
ump to BIOS dmb 1-jun-82
|
||
|
||
CRLF EQU 0A0DH ; CR LF sequence
|
||
|
||
CRLFE EQU 8A0DH ; CR LF with EOL
|
||
|
||
EOL EQU 80H ; End of line
|
||
|
||
T
|
||
LD A,(HL) ; get block shift factor
|
||
|
||
LD (BLKSHF),A
|
||
|
||
INC HL
|
||
|
||
INC HL
|
||
|
||
LD L,(HL) ; get max. block number
|
||
|
||
LD H,0
|
||
|
||
LD TCHR
|
||
|
||
CALL TYPE ; and colon
|
||
|
||
DB ':',' '+EOL
|
||
|
||
POP HL ; Restore drive #
|
||
|
||
PUSH HL
|
||
|
||
;Print K already allocated
|
||
|
||
LD E,H JP NZ,NXBYTE
|
||
|
||
CALL SHF16
|
||
|
||
PUSH HL
|
||
|
||
CALL BINDEC
|
||
|
||
CALL TYPE
|
||
|
||
DB 'K bytes in',' '+EOL
|
||
|
||
;Print number of files
|
||
|
||
LD DE, CALL TYPE ; Type initial CRLF
|
||
|
||
DB TAB,TAB,'*** System Survey (June 82) ***'
|
||
|
||
DW CRLF,CRLFE
|
||
|
||
;DISK SURVEY
|
||
|
||
LD HL,8 ; In
|
||
OR A ; do 16 bit right shift
|
||
|
||
RRA
|
||
|
||
LD H,A
|
||
|
||
LD A,L
|
||
|
||
RRA
|
||
|
||
LD L,A
|
||
|
||
DEC B ; 3 times
|
||
|
||
JP NZ,V2SH
|
||
|
||
LD B,L
|
||
|
||
LDAB EQU 'I'-40H ; Tab character
|
||
|
||
ESC EQU 1BH ; Escape character
|
||
|
||
TABS EQU 9 ; Tab columns
|
||
|
||
|
||
|
||
consoleOutputCmd EQU 02h
|
||
|
||
re (MAXALL),HL
|
||
|
||
LD B,32 ; assume 32 bytes in block map
|
||
|
||
JP GETALC ; continue
|
||
|
||
V2X: LD A,'?' ; Use wild user #
|
||
|
||
LD (FCB),
|
||
|
||
LD C,selectDiskCmd ; Log drive
|
||
|
||
CALL BDOS
|
||
|
||
LD C,getADDRALLOCCmd ; Index allocation vect
|
||
|
||
CALL BDOS
|
||
|
||
LD L,A ; Put inFCB ; Fake file cont block
|
||
|
||
LD C,searchForFirstCmd ; Search for 1st file
|
||
|
||
CALL BDOS
|
||
|
||
LD HL,0 ; File counter
|
||
|
||
LOOK: CP 2it drive counter
|
||
|
||
LD C,returnLoginVectorCmd ; Get login vector
|
||
|
||
PUSH HL
|
||
|
||
CALL BDOS
|
||
|
||
POP HL
|
||
|
||
ROTBIT: RRA ; RAR login A,(MAXALL) ; allow for leftover bits if any
|
||
|
||
AND 3
|
||
|
||
JP Z ,GETALC
|
||
|
||
INC B
|
||
|
||
GETALC: POP HL
|
||
|
||
LD DE,0 ; Init group counterturnVersionNumberCmd EQU 0Ch
|
||
|
||
selectDiskCmd EQU 0Eh
|
||
|
||
searchForFirstCmd EQU 11h
|
||
|
||
searchForNextCmd EQU 12h
|
||
|
||
returnLoginVectorA ; in filename search
|
||
|
||
LD C,getADDRDiskParmsCmd ; Get 2.x parameter block
|
||
|
||
CALL BDOS
|
||
|
||
INC HL
|
||
|
||
INC HL
|
||
|
||
LD A,(HL) ; G decent regs
|
||
|
||
LD H,B
|
||
|
||
PUSH HL ; save for later
|
||
|
||
LD C,returnVersionNumberCmd ; get version #
|
||
|
||
CALL BDOS
|
||
|
||
LD A,L ; zer55 ; Failure
|
||
|
||
JP Z ,PFILE
|
||
|
||
ADD A,A ; File offset times 2
|
||
|
||
ADD A,A ; 4
|
||
|
||
ADD A,A ; 8
|
||
|
||
ADD A,A ; 16
|
||
|
||
ADD A,A ; 32bit to C
|
||
|
||
JP NC,NOTLOG ; Drive not logged
|
||
|
||
PUSH AF ; Save login
|
||
|
||
PUSH HL ; and counter
|
||
|
||
;Print drive letter
|
||
|
||
CALL TYP
|
||
|
||
NXBYTE: LD C,8 ; Bit counter for byte
|
||
|
||
LD A,(HL) ; Get map byte
|
||
|
||
NXBIT: RRA ; Rotate to C
|
||
|
||
JP NC,NOBIT ; No group alCmd EQU 18h
|
||
|
||
getADDRALLOCCmd EQU 1Bh
|
||
|
||
getADDRDiskParmsCmd EQU 1Fh
|
||
|
||
|
||
|
||
;***********************;
|
||
|
||
; MAIN PROGRAM ;
|
||
|
||
;******et and save ablock shift factor
|
||
|
||
LD (BLKSHF),A
|
||
|
||
INC HL
|
||
|
||
INC HL
|
||
|
||
INC HL
|
||
|
||
LD A,(HL) ; Get maximum block number
|
||
|
||
INC H
|
||
|
||
ADD A,80H ; Make sure it's not a deleted file
|
||
|
||
LD E,A
|
||
|
||
LD D,0
|
||
|
||
LD A,(DE)
|
||
|
||
CP 0E5H
|
||
|
||
JP Z ,LOOK1
|
||
|
||
INC HL ; Bump B (HL) ; Check for good write
|
||
|
||
LD (HL),B ; Restore orignl data
|
||
|
||
JP NZ,NOTMEM ; Wasn't good write
|
||
|
||
INXI RAM ; Bump memor
|
||
DB ' ' ; dmb 31-May-82
|
||
|
||
DB 'T'+EOL
|
||
|
||
LD HL,RAM
|
||
|
||
LD (HL),LOW 1023 ; Init RAM counter
|
||
|
||
INC HL
|
||
|
||
LD (HL),HIGH 1023
|
||
|
||
LD
|
||
NOMEM: CALL TYPE
|
||
|
||
DB ' '+EOL
|
||
|
||
NEXTK: POP HL
|
||
|
||
POP BC
|
||
|
||
DEC C ; Decrement K counter
|
||
|
||
JP NZ,BEGANA
|
||
|
||
CALL TYPE
|
||
|
||
DW CRsubtract
|
||
|
||
CALL BINDEC ; K remaining
|
||
|
||
CALL TYPE
|
||
|
||
DB 'K bytes remaining'
|
||
|
||
DW CRLFE
|
||
|
||
;Set up to print next drive
|
||
|
||
POP HP NZ,NOTRAM ; No
|
||
|
||
DEC H ; drop H to make compares right
|
||
|
||
LD A,(BDOS+2) ; Is it under BDOS ?
|
||
|
||
CP H
|
||
|
||
JP C ,NOTTPA ; No
|
||
|
||
file counter
|
||
|
||
LOOK1: LD DE,FCB ; Restore FCB
|
||
|
||
LD C,searchForNextCmd ; Look for addtl files
|
||
|
||
PUSH HL ; Save file counter
|
||
|
||
y counter
|
||
|
||
JP NEXT ; To next byte
|
||
|
||
NOTMEM: LD (RAMF),A ; Not considered RAM
|
||
|
||
LD A,0FFH ; Is it empty space?
|
||
|
||
SUB B
|
||
|
||
J B,4 ; Clear ROM, EMP
|
||
|
||
CLREG: INC HL
|
||
|
||
LD (HL),0
|
||
|
||
DEC B
|
||
|
||
JP NZ,CLREG
|
||
|
||
LD HL,1024 ; Init memory pointer
|
||
|
||
LD C,63 ; KLF
|
||
|
||
DB 'T=TPA',TAB,'C=CPM',TAB,'B=BIOS or unassigned'
|
||
|
||
DB TAB,'R=ROM or bad'
|
||
|
||
DW CRLFE
|
||
|
||
;
|
||
|
||
; contents of first page
|
||
|
||
CL ; Restore bit counter
|
||
|
||
POP AF ; and bitmap byte
|
||
|
||
NOTLOG: INC H ; Bump drive counter
|
||
|
||
DEC L ; Dec bit counter
|
||
|
||
JP NZ CALL TYPE ; Yes, it's TPA
|
||
|
||
DB 'T'+EOL
|
||
|
||
JP NEXTK
|
||
|
||
NOTTPA: LD A,(bios+2) ; is it under bios ?
|
||
|
||
CP H
|
||
|
||
JP C,NBDOS
|
||
|
||
CALL
|
||
CALL BDOS
|
||
|
||
POP HL
|
||
|
||
JP LOOK
|
||
|
||
PFILE: CALL BINDEC ; Print # of files
|
||
|
||
CALL TYPE
|
||
|
||
DB ' files with',' '+EOL
|
||
|
||
;Print K reP NZ,NOTEMP ; Inc ROM, set flag
|
||
|
||
LD A,(EMPF) ; Any non empty space
|
||
|
||
AND A ; before here?
|
||
|
||
JP Z ,NEXT
|
||
|
||
JP NOTEM ; To ne to be checked
|
||
|
||
;Start of analysis loop
|
||
|
||
BEGANA: LD DE,1024 ; Byte counter
|
||
|
||
XOR A ; Clear flag bytes
|
||
|
||
LD (RAMF),A
|
||
|
||
LD ALL type
|
||
|
||
DB 'BIOS at',' '+EOL
|
||
|
||
HEXOUT BIOS+2
|
||
|
||
HEXOUT BIOS+1
|
||
|
||
CALL TYPE
|
||
|
||
DB TAB,'iobyte',' '+EOL
|
||
|
||
HEXOUT BIOS+3
|
||
|
||
C,ROTBIT
|
||
|
||
;MEMORY SURVEY
|
||
|
||
;Create header
|
||
|
||
MSURV: CALL TYPE
|
||
|
||
DW CRLF
|
||
|
||
DB 'Memory map:'
|
||
|
||
DW CRLF
|
||
|
||
DB '0',TAB,'8',TAB,'16 type ; yes, it's BDOS
|
||
|
||
DB 'C'+eol
|
||
|
||
JP nextk
|
||
|
||
nbdos: CALL TYPE ; Assume it's BIOS
|
||
|
||
DB 'B'+EOL
|
||
|
||
JP NEXTK
|
||
|
||
;
|
||
|
||
NOTRAM:maining
|
||
|
||
LD HL,(MAXALL) ; Get number of blocks
|
||
|
||
EX DE,HL
|
||
|
||
INC DE ; Inc for actual value
|
||
|
||
CALL SHF16
|
||
|
||
EX DE,HL
|
||
|
||
POP xt byte
|
||
|
||
NOTEMP: LD (EMPF),A ; Set no empty flag
|
||
|
||
NOTEM: INXI ROM
|
||
|
||
NEXT: INC HL ; Index next byte
|
||
|
||
DEC DE ; Decrement K c(EMPF),A
|
||
|
||
ANALP: LD A,(HL) ; Get test byte and
|
||
|
||
LD B,A ; store for later
|
||
|
||
CPL
|
||
|
||
LD (HL),A ; Put invertd tst byte
|
||
|
||
SUALL TYPE
|
||
|
||
DB TAB,'drive',' '+EOL
|
||
|
||
HEXOUT BIOS+4
|
||
|
||
CALL TYPE
|
||
|
||
DB TAB,'BDOS at',' '+EOL
|
||
|
||
HEXOUT BDOS+2
|
||
|
||
HEXOUT BDOS+1
|
||
|
||
',TAB,'24',TAB,'32'
|
||
|
||
DB TAB,'40',TAB,'48',TAB,'56',TAB,'64'
|
||
|
||
DW CRLF
|
||
|
||
REPT 8
|
||
|
||
DB '|',TAB
|
||
|
||
ENDM
|
||
|
||
DB '|'
|
||
|
||
DW CRLF
|
||
|
||
LD A,(EMPF) ; Is it empty?
|
||
|
||
AND A
|
||
|
||
JP Z ,NOMEM ; Yes, no memory
|
||
|
||
CALL TYPE ; No, must be ROM
|
||
|
||
DB 'R'+EOL
|
||
|
||
JP NEXTK
|
||
HL
|
||
|
||
LD A,H ; Ones comp & move
|
||
|
||
CPL
|
||
|
||
LD H,A
|
||
|
||
LD A,L
|
||
|
||
CPL
|
||
|
||
LD L,A
|
||
|
||
INC HL ; Twos complement
|
||
|
||
ADD HL,DE ; and ounter
|
||
|
||
XOR A
|
||
|
||
OR D
|
||
|
||
OR E
|
||
|
||
JP NZ,ANALP ; K counter not 0
|
||
|
||
PUSH BC
|
||
|
||
PUSH HL
|
||
|
||
LD A,(RAMF) ; Is it RAM?
|
||
|
||
AND A
|
||
|
||
J
|
||
CALL TYPE
|
||
|
||
DW CRLF,CRLFE
|
||
|
||
;
|
||
|
||
;MEMORY SYNOPSIS
|
||
|
||
LD HL,(RAM)
|
||
|
||
PUSH HL ; Save RAM
|
||
|
||
CALL BINDEC ; Type RAM
|
||
|
||
CALL TYPOCRLF: LD A,D ; Get port #
|
||
|
||
PUSH DE
|
||
|
||
PUSH HL
|
||
|
||
HEXOUT
|
||
|
||
POP HL
|
||
|
||
POP DE
|
||
|
||
INC HL ; count another one found
|
||
|
||
CALL typ
|
||
|
||
IF SKIP ; Single port mask
|
||
|
||
CP SKIPORT
|
||
|
||
JP Z ,ISPORT ; Print mask port
|
||
|
||
ENDIF
|
||
|
||
LD B,A ; save port #
|
||
|
||
LD (INPORTives block size)
|
||
|
||
CP 3 ; Is it 1K (std)?
|
||
|
||
JP NZ,NOT3
|
||
|
||
LD L,E ; Yes, use present #
|
||
|
||
ZH: LD H,0
|
||
|
||
RET
|
||
|
||
;
|
||
|
||
NOT3: CP 2 ',TAB+EOL
|
||
|
||
POP HL ; Restore RAM+ROM
|
||
|
||
CALL BINDEC
|
||
|
||
CALL TYPE
|
||
|
||
DB ' Total Active Bytes'
|
||
|
||
DW CRLF,CRLF
|
||
|
||
DB EOL
|
||
LD H; Get type data
|
||
|
||
LD D,A ; Save for later
|
||
|
||
AND 7FH ; Mask ASCII
|
||
|
||
LD E,A
|
||
|
||
PUSH HL
|
||
|
||
PUSH DE
|
||
|
||
CALL TCHR
|
||
|
||
POP DE
|
||
|
||
PE
|
||
|
||
DB ' Bytes RAM',TAB,TAB+EOL
|
||
|
||
LD HL,(ROM)
|
||
|
||
PUSH HL
|
||
|
||
CALL BINDEC ; Type ROM
|
||
|
||
CALL TYPE
|
||
|
||
DB ' Bytes ROM',TAB,TAB+EOe
|
||
|
||
DB ' '+eol
|
||
|
||
NEXTPT: INC D ; Bump port counter
|
||
|
||
JP NZ,PORTLP ; Not done
|
||
|
||
CALL TYPE ; Done
|
||
|
||
DW CRLFE
|
||
|
||
CALL BINDEC
|
||
+1),A
|
||
|
||
INPORT: IN A,(0) ; Modifiable code
|
||
|
||
; by trial and error, inactive port could return FF or echo port #
|
||
|
||
CP 0FFH
|
||
|
||
J ; Is it minifloppy?
|
||
|
||
JP NZ,NOT2
|
||
|
||
LD A,E ; Yes, divide by 2
|
||
|
||
RRCA
|
||
|
||
AND 7FH
|
||
|
||
LD L,A
|
||
|
||
JP ZH
|
||
|
||
NOT2: SUB 3 ; Must beL,(OLDSP) ; UM: don't test I/O ports on Z80SIM
|
||
LD SP,HL
|
||
RET
|
||
;PORT SURVEY
|
||
|
||
DB 'Active I/O ports',':'+EOL
|
||
|
||
LD HL,1000H ; OP HL
|
||
|
||
INC HL
|
||
|
||
LD A,EOL ; End of line bit
|
||
|
||
AND D
|
||
|
||
JP P ,TYPELP ; Not done
|
||
|
||
POP DE
|
||
|
||
EX (SP),HL ; Get return addressL
|
||
|
||
LD HL,(BDOS+1)
|
||
|
||
CALL BINDEC
|
||
|
||
CALL TYPE
|
||
|
||
DB ' Bytes in TPA'
|
||
|
||
DW CRLFE
|
||
|
||
POP DE ; Get RAM
|
||
|
||
POP HL ; Get RAM
|
||
|
||
A
|
||
CALL TYPE ; Type Active Ports
|
||
|
||
DB ' Ports active'
|
||
|
||
DW CRLFE
|
||
|
||
CCP: LD HL,(OLDSP)
|
||
|
||
LD SP,HL
|
||
|
||
RET
|
||
|
||
|
||
|
||
;*************P Z ,NEXTPT
|
||
|
||
CP B
|
||
|
||
JP Z,NEXTPT
|
||
|
||
ISPORT: LD A,D ; got a live one, probably
|
||
|
||
AND 0f0h ; is port in same group as last ?
|
||
|
||
something
|
||
|
||
LD B,A ; larger like double
|
||
|
||
EX DE,HL ; sided or double dens
|
||
|
||
BITSHF: ADD HL,HL ; 16 bit 2^(B-1)
|
||
|
||
DEC B
|
||
|
||
DELAY SO MESSAGE OUTPUT
|
||
|
||
PDLY: DEC HL ; DOESN'T GIVE A FALSE READING
|
||
|
||
LD A,H ; ON CONSOLE STATUS PORT
|
||
|
||
OR L
|
||
|
||
JP NZ,PDLY
|
||
|
||
RET
|
||
|
||
|
||
|
||
;Types a single character on console
|
||
|
||
TCHR: LD C,consoleOutputCmd
|
||
|
||
JP BDOS
|
||
|
||
|
||
|
||
;Checks sectors per block and mDD HL,DE ; Add 'em
|
||
|
||
PUSH HL ; and save result
|
||
|
||
LD DE,0 ; Subtract from this
|
||
|
||
LD A,H ; Complement 16 bits
|
||
|
||
CPL
|
||
|
||
LD**********;
|
||
|
||
; SUBROUTINES ;
|
||
|
||
;***********************;
|
||
|
||
;Binary to decimal conversion
|
||
|
||
BINDEC: DECOUT ; From LIB
|
||
|
||
RET
|
||
|
||
CP E
|
||
|
||
JP Z,NOCRLF
|
||
|
||
CALL type ; no, start a new line
|
||
|
||
DW crlfe
|
||
|
||
LD A,D ; save for next time
|
||
|
||
AND 0f0h
|
||
|
||
LD E,A
|
||
|
||
N JP NZ,BITSHF
|
||
|
||
RET
|
||
|
||
|
||
|
||
;***********************;
|
||
|
||
; DATA STORAGE ;
|
||
|
||
;***********************;
|
||
|
||
FCB: DB 0,'???????????',0,
|
||
|
||
LD HL,0 ; Init active port counter
|
||
|
||
LD D,0 ; Init port counter
|
||
|
||
LD E,0ffh ; init port group variable
|
||
|
||
PORTLP: LD A,Dultiplies or divides block size
|
||
|
||
;Enter with data in D. Result returned in H,L
|
||
|
||
;
|
||
|
||
SHF16: LD A,(BLKSHF) ; Get shift factor (g H,A
|
||
|
||
LD A,L
|
||
|
||
CPL
|
||
|
||
LD L,A ; 2s comp bias in D
|
||
|
||
ADD HL,DE ; Subtract
|
||
|
||
CALL BINDEC
|
||
|
||
CALL TYPE
|
||
|
||
DB ' Bytes Empty
|
||
|
||
|
||
;Types a string of text terminated with bit 7 high
|
||
|
||
TYPE: EX (SP),HL ; Get string address
|
||
|
||
PUSH DE
|
||
|
||
TYPELP: LD A,(HL) 0,0 ; File control block
|
||
|
||
DS 17 ; Extra FCB workspace
|
||
|
||
OLDSP: DS 2 ; Old stack pointer
|
||
|
||
RAM: DS 2 ; RAM counter
|
||
|
||
ROM:rs 9,10,11,12
|
||
DEFB 21,2,8,14 ;sectors 13,14,15,16
|
||
DEFB 20,26,6,12 ;sectors 17,18,19,20
|
||
DEFB 18,24,4,10 ;sectors 21,22,23,24
|
||
0000H
|
||
DEFW DIRBF,DPBLK
|
||
DEFW CHK00,ALL00
|
||
; disk parameter header for disk 01
|
||
DEFW TRANS,0000H
|
||
DEFW 0000H,0000H
|
||
DEFW DIRBF,DP block for harddisk
|
||
;
|
||
HDBLK: DEFW 128 ;sectors per track
|
||
DEFB 4 ;block shift factor
|
||
DEFB 15 ;block mask
|
||
DEFB cter out
|
||
JP LIST ;list character out
|
||
JP PUNCH ;punch character out
|
||
JP READER ;reader character out
|
||
JP HOME ;move head toHDTRA: DEFB 1,2,3,4,5,6,7,8,9,10
|
||
DEFB 11,12,13,14,15,16,17,18,19,20
|
||
DEFB 21,22,23,24,25,26,27,28,29,30
|
||
DEFB 31,32,33,34,35,36 DS 2 ; ROM counter
|
||
|
||
RAMF: DS 1 ; RAM good flag
|
||
|
||
EMPF: DS 1 ; Empty so far flag
|
||
|
||
BLKSHF: DS 1 ; block shift factor
|
||
|
||
DEFB 16,22 ;sectors 25,26
|
||
;
|
||
; disk parameter block, common to all IBM 8" disks
|
||
;
|
||
DPBLK: DEFW 26 ;sectors per track
|
||
DEFB 3 ;BLK
|
||
DEFW CHK01,ALL01
|
||
; disk parameter header for disk 02
|
||
DEFW TRANS,0000H
|
||
DEFW 0000H,0000H
|
||
DEFW DIRBF,DPBLK
|
||
DEFW CHK02,ALL00 ;extent mask
|
||
DEFW 2039 ;disk size-1
|
||
DEFW 1023 ;directory max
|
||
DEFB 255 ;alloc 0
|
||
DEFB 255 ;alloc 1
|
||
DEFW home position
|
||
JP SELDSK ;select disk
|
||
JP SETTRK ;set track number
|
||
JP SETSEC ;set sector number
|
||
JP SETDMA ;set dma addres,37,38,39,40
|
||
DEFB 41,42,43,44,45,46,47,48,49,50
|
||
DEFB 51,52,53,54,55,56,57,58,59,60
|
||
DEFB 61,62,63,64,65,66,67,68,69,70
|
||
DEFB 7MAXALL: DS 2 ; maximum block number
|
||
|
||
FINIS EQU $ ; End of program
|
||
|
||
|
||
|
||
END
|
||
|
||
block shift factor
|
||
DEFB 7 ;block mask
|
||
DEFB 0 ;extent mask
|
||
DEFW 242 ;disk size-1
|
||
DEFW 63 ;directory max
|
||
DEFB 192 ;alloc2
|
||
; disk parameter header for disk 03
|
||
DEFW TRANS,0000H
|
||
DEFW 0000H,0000H
|
||
DEFW DIRBF,DPBLK
|
||
DEFW CHK03,ALL03
|
||
;
|
||
; sector transla 0 ;check size
|
||
DEFW 0 ;track offset
|
||
;
|
||
; signon message
|
||
;
|
||
SIGNON: DEFM '64K CP/M Vers. 2.2 (CBIOS V1.1 for Z80SIM, '
|
||
DEFM s
|
||
JP READ ;read disk
|
||
JP WRITE ;write disk
|
||
JP LISTST ;return list status
|
||
JP SECTRAN ;sector translate
|
||
;
|
||
; fixed data tabl1,72,73,74,75,76,77,78,79,80
|
||
DEFB 81,82,83,84,85,86,87,88,89,90
|
||
DEFB 91,92,93,94,95,96,97,98,99,100
|
||
DEFB 101,102,103,104,105,0e6h,063h,05ch,001h
|
||
db 06bh,06bh,051h,0f4h
|
||
db 01ch,06ch,061h,062h
|
||
db 085h,065h,030h,0d8h
|
||
db 0f2h,062h,000h,04eh
|
||
db 06c 0
|
||
DEFB 0 ;alloc 1
|
||
DEFW 16 ;check size
|
||
DEFW 2 ;track offset
|
||
;
|
||
; fixed data tables for 4MB harddisk
|
||
;
|
||
; disk parameter headte vector for the IBM 8" disks
|
||
;
|
||
TRANS: DEFB 1,7,13,19 ;sectors 1,2,3,4
|
||
DEFB 25,5,11,17 ;sectors 5,6,7,8
|
||
DEFB 23,3,9,15 ;secto'Copyright 1988-2006 by Udo Munk)'
|
||
DEFB 13,10,0
|
||
;
|
||
; end of fixed tables
|
||
;
|
||
; individual subroutines to perform each function
|
||
; ses for four-drive standard
|
||
; IBM-compatible 8" disks
|
||
;
|
||
; disk parameter header for disk 00
|
||
DPBASE: DEFW TRANS,0000H
|
||
DEFW 0000H,106,107,108,109,110
|
||
DEFB 111,112,113,114,115,116,117,118,119,120
|
||
DEFB 121,122,123,124,125,126,127,128
|
||
;
|
||
; disk parameter;cold start
|
||
WBOOTE: JP WBOOT ;warm start
|
||
JP CONST ;console status
|
||
JP CONIN ;console character in
|
||
JP CONOUT ;console charaer
|
||
HDBASE: DEFW HDTRA,0000H
|
||
DEFW 0000H,0000H
|
||
DEFW DIRBF,HDBLK
|
||
DEFW CHKHD,ALLHD
|
||
;
|
||
; sector translate vector for the hardisk
|
||
;
|
||
implest case is to just perform parameter initialization
|
||
;
|
||
BOOT: LD SP,80H ;use space below buffer for stack
|
||
LD HL,SIGNON ;pto load, check for track change
|
||
INC D
|
||
LD A,D ;sector=27?, if so, change tracks
|
||
CP 27
|
||
JP C,LOAD1 ;carry generated if sectorall
|
||
CALL SETDMA ;set dma address from b,c
|
||
; drive set to 0, track set, sector set, dma address set
|
||
CALL READ
|
||
CP 00H ;any er0 instruction set exerciser
|
||
; Copyright (C) 1994 Frank D. Cringle
|
||
;
|
||
; This program is free software; you can redistribute ithe next sector to read
|
||
; note that we begin by reading track 0, sector 2 since sector 1
|
||
; contains the cold start loader, which title 'Z80/8080 instruction set exerciser'
|
||
.z80
|
||
|
||
genz80 equ 1 ; 0 = undefined status bits taken into account
|
||
; 1 = underint message
|
||
BOOTL: LD A,(HL)
|
||
OR A
|
||
JP Z,BOOTC
|
||
LD C,A
|
||
CALL CONOUT
|
||
INC HL
|
||
JP BOOTL
|
||
BOOTC: XOR A ;zero in the accum
|
||
LD (I<27
|
||
; end of current track, go to next track
|
||
LD D,1 ;begin with first sector of next track
|
||
INC C ;track=track+1
|
||
; save regisrors?
|
||
JP NZ,WBOOT ;retry the entire boot if an error occurs
|
||
; no error, move to next sector
|
||
POP HL ;recall dma address
|
||
LD DE and/or
|
||
; modify it under the terms of the GNU General Public License
|
||
; as published by the Free Software Foundation; either vis skipped in a warm start
|
||
LD HL,CCP ;base of cp/m (initial load point)
|
||
LOAD1: ;load one more sector
|
||
PUSH BC ;save sectorfined status bits NOT taken into account
|
||
isZ80 equ 1 ; 0 = code runs on 8080, only 8080 instructions are tested
|
||
; implieOBYTE),A ;clear the iobyte
|
||
LD (CDISK),A ;select disk zero
|
||
JP GOCPM ;initialize and go to cp/m
|
||
;
|
||
; simplest case is to read thter state, and change tracks
|
||
CALL SETTRK ;track address set from register c
|
||
JP LOAD1 ;for another sector
|
||
; end of load opera,128 ;dma=dma+128
|
||
ADD HL,DE ;new dma address is in h,l
|
||
POP DE ;recall sector address
|
||
POP BC ;recall number of sectors remersion 2
|
||
; of the License, or (at your option) any later version.
|
||
;
|
||
; This program is distributed in the hope that it will be count, current track
|
||
PUSH DE ;save next sector to read
|
||
PUSH HL ;save dma address
|
||
LD C,D ;get sector address to register cs genz80 = 1
|
||
; 1 = code requires Z80, Z80 instructions are tested
|
||
; on SIMH, the CPU is automatically set
|
||
trace equ 0 ;e disk until all sectors loaded
|
||
;
|
||
WBOOT: LD SP,80H ;use space below buffer for stack
|
||
LD C,0 ;select disk 0
|
||
CALL SELDSK
|
||
CALtion, set parameters and go to cp/m
|
||
GOCPM:
|
||
LD A,0C3H ;c3 is a jmp instruction
|
||
LD (0),A ;for jmp to wboot
|
||
LD HL,WBOOTE ;wbooaining, and current trk
|
||
DEC B ;sectors=sectors-1
|
||
JP Z,GOCPM ;transfer to cp/m if all have been loaded
|
||
; more sectors remain useful,
|
||
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOS
|
||
CALL SETSEC ;set sector address from register c
|
||
POP BC ;recall dma address to b,c
|
||
PUSH BC ;replace on stack for later rec 0 = no output of state information on console
|
||
; 1 = output state information on console (can be huge!)
|
||
|
||
; zexlax.z80 - Z8L HOME ;go to track 00
|
||
;
|
||
LD B,NSECTS ;b counts # of sectors to load
|
||
LD C,0 ;c has the current track number
|
||
LD D,2 ;d has tt entry point
|
||
LD (1),HL ;set address field for jmp at 0
|
||
;
|
||
LD (5),A ;for jmp to bdos
|
||
LD HL,BDOS ;bdos entry point
|
||
LD (6),HE. See the
|
||
; GNU General Public License for more details.
|
||
;
|
||
; You should have received a copy of the GNU General Public Licee next 2
|
||
; vectors. Each 1 bit in the increment vector specifies a bit to be
|
||
; cycled in the form of a binary counter. For iincement vector,
|
||
; the shift vector,
|
||
; the expected crc,
|
||
; a short descriptive message.
|
||
;
|
||
; The flag mask byte is used to ped a reference implementation (or
|
||
; real system) is available, a failing test case can be isolated by
|
||
; hand using a binary sesters iy,ix,hl,de,bc,af,sp
|
||
; for a total of 16 bytes.
|
||
|
||
; The program tests instructions (or groups of similar instructions)
|
||
1 bits in it.
|
||
|
||
; The total number of test cases is the product of those caused by the
|
||
; counter and shift vectors and can eanse
|
||
; along with this program; if not, write to the Free Software
|
||
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||
nstance, if the byte
|
||
; corresponding to the accumulator is set to 0ffh in the increment
|
||
; vector, the test will be repeated forevent undefined flag bits from
|
||
; influencing the results. Documented flags are as per Mostek Z80
|
||
; Technical Manual.
|
||
;
|
||
; Tarch of the test space.
|
||
|
||
sz80: db 'Switched to Z80 processor.',cr,lf,'$'
|
||
s8080: db 'Switched to 8080 processor.',cr,lf,'$'
|
||
|
||
; by cycling through a sequence of machine states, executing the test
|
||
; instruction for each one and running a 32-bit crc over sily become unweildy. Each
|
||
; individual test case can take a few milliseconds to execute, due to
|
||
; the overhead of test setup
|
||
|
||
aseg
|
||
org 100h
|
||
cr equ 13
|
||
lf equ 10
|
||
printst equ 9
|
||
conout equ 2
|
||
bdosO equ 5
|
||
wboot equ 0
|
||
simh equ 0feh
|
||
set8080 equ 20
|
||
r all 256 values of the
|
||
; accumulator. Note that 1 bits don't have to be contiguous. The
|
||
; number of test cases 'caused' by he next three parts of the descriptor are 20 byte vectors
|
||
; corresponding to a 4 byte instruction and a 16 byte machine state.
|
||
sw8080: ld a,set8080
|
||
ld de,s8080
|
||
jp dosw
|
||
swz80: ld a,setz80
|
||
ld de,sz80
|
||
dosw: out (simh),a
|
||
ld (nsw),a
|
||
ld c,printst
|
||
the resulting
|
||
; machine states. At the end of the sequence the crc is compared to
|
||
; an expected value that was found empirica and crc calculation, so test design is a
|
||
; compromise between coverage and execution time.
|
||
|
||
; This program is designed to de
|
||
setz80 equ 19
|
||
|
||
jp start
|
||
|
||
; machine state before test (needs to be at predictably constant address)
|
||
msbt: ds 14
|
||
spbt: ds the increment vector is equal to
|
||
; 2^(number of 1 bits). The shift vector is similar, but specifies a
|
||
; set of bits in the te
|
||
; The first part is the base case, which is the first test case of
|
||
; the sequence. This base is then modified according to th jp bdos
|
||
|
||
start: xor a
|
||
ld (erfnd),a ; reset error flag
|
||
ld (nsw),a ; = 0: does not need switch, <> 0: needs switch
|
||
dec ally on a real Z80.
|
||
|
||
; A test case is defined by a descriptor which consists of:
|
||
; a flag mask byte,
|
||
; the base case,
|
||
; the tect differences between
|
||
; implementations and is not ideal for diagnosing the causes of any
|
||
; discrepancies. However, provid2
|
||
|
||
; For the purposes of this test program, the machine state consists of:
|
||
; a 2 byte memory operand, followed by
|
||
; the regist case that are to be successively inverted.
|
||
; Thus the shift vector 'causes' a number of test cases equal to the
|
||
; number of ; parity even shows that we are running on an 8080
|
||
if isz80
|
||
jp po,start1 ; correct CPU detected
|
||
call swz80
|
||
e ;(16 cycles)
|
||
dw ld167 ;(16 cycles)
|
||
dw ld168 ;(64 cycles)
|
||
dw ld16im ;(64 cycles)
|
||
dw ld16ix ;(32 cycles)
|
||
dw ld8bd dw incde ;(1536 cycles)
|
||
dw ince ;(3072 cycles)
|
||
dw inch ;(3072 cycles)
|
||
dw inchl ;(1536 cycles)
|
||
dw incix ;(1536 cycl cycles)
|
||
dw incm ;(3072 cycles)
|
||
dw incsp ;(1536 cycles)
|
||
dw ld162 ;(16 cycles)
|
||
dw ld166 ;(16 cycles)
|
||
dw ld16im ;(6isZ80
|
||
dw adc16 ;(38,912 cycles)
|
||
dw add16 ;(19,456 cycles)
|
||
dw add16x ;(19,456 cycles)
|
||
dw add16y ;(19,456 cycles)
|
||
dw dw srzx ;(1792 cycles)
|
||
dw st8ix1 ;(1024 cycles)
|
||
dw st8ix2 ;(256 cycles)
|
||
dw st8ix3 ;(64 cycles)
|
||
dw stabd ;(96 cyclelse
|
||
jp pe,start1
|
||
call sw8080
|
||
endif
|
||
start1: ld hl,(bdosO+1)
|
||
ld sp,hl
|
||
ld de,msg1
|
||
ld c,printst
|
||
call bdos
|
||
|
||
ld;(44 cycles)
|
||
dw ld8im ;(64 cycles)
|
||
dw ld8imx ;(32 cycles)
|
||
dw ld8ix1 ;(512 cycles)
|
||
dw ld8ix2 ;(256 cycles)
|
||
dw ld8ixes)
|
||
dw inciy ;(1536 cycles)
|
||
dw incl ;(3072 cycles)
|
||
dw incm ;(3072 cycles)
|
||
dw incsp ;(1536 cycles)
|
||
dw incx ;(6144 4 cycles)
|
||
dw ld8bd ;(44 cycles)
|
||
dw ld8im ;(64 cycles)
|
||
dw ld8rr ;(3456 cycles)
|
||
dw lda ;(44 cycles)
|
||
dw rot8080 ;(61 alu8i ;(28,672 cycles)
|
||
dw alu8r ;(753,664 cycles)
|
||
; dw alu8rx ;(376,832 cycles)
|
||
dw alu8x ;(229,376 cycles)
|
||
dw bitx s)
|
||
else
|
||
dw add16 ;(19,456 cycles)
|
||
dw alu8i ;(28,672 cycles)
|
||
dw alu8r ;(753,664 cycles)
|
||
dw daa ;(65,536 cycles hl,tests ; first test case
|
||
loop: ld a,(hl) ; end of list ?
|
||
inc hl
|
||
or (hl)
|
||
jp z,done
|
||
dec hl
|
||
call stt
|
||
jp loop
|
||
|
||
do3 ;(128 cycles)
|
||
; dw ld8ixy ;(32 cycles)
|
||
dw ld8rr ;(3456 cycles)
|
||
; dw ld8rrx ;(6912 cycles)
|
||
dw lda ;(44 cycles)
|
||
dw cycles)
|
||
; dw incxh ;(3072 cycles)
|
||
; dw incxl ;(3072 cycles)
|
||
; dw incyh ;(3072 cycles)
|
||
; dw incyl ;(3072 cycles)
|
||
dw ld144 cycles)
|
||
dw stabd ;(96 cycles)
|
||
endif
|
||
dw 0
|
||
|
||
tstr macro insn,memop,iy,ix,hl,de,bc,flags,acc,sp
|
||
local lab
|
||
lab: d;(2048 cycles)
|
||
dw bitz80 ;(49,152 cycles)
|
||
dw cpd1 ;(6144 cycles)
|
||
dw cpi1 ;(6144 cycles)
|
||
dw daa ;(65,536 cycles)
|
||
dw)
|
||
dw inca ;(3072 cycles)
|
||
dw incb ;(3072 cycles)
|
||
dw incbc ;(1536 cycles)
|
||
dw incc ;(3072 cycles)
|
||
dw incd ;(3072 cycne: ld a,(erfnd)
|
||
or a
|
||
ld de,allok
|
||
jp z,noerr
|
||
ld de,erfndt
|
||
noerr: ld c,printst
|
||
call bdos
|
||
ld a,(nsw)
|
||
or a
|
||
jp z,wbldd1 ;(44 cycles)
|
||
dw ldd2 ;(44 cycles)
|
||
dw ldi1 ;(44 cycles)
|
||
dw ldi2 ;(44 cycles)
|
||
dw neg ;(16,384 cycles)
|
||
dw rld 61 ;(32 cycles)
|
||
dw ld162 ;(16 cycles)
|
||
dw ld163 ;(16 cycles)
|
||
dw ld164 ;(32 cycles)
|
||
dw ld165 ;(64 cycles)
|
||
dw ld166 b insn
|
||
ds lab+4-$,0
|
||
dw memop,iy,ix,hl,de,bc
|
||
db flags
|
||
db acc
|
||
dw sp
|
||
if $-lab ne 20
|
||
error 'missing parameter'
|
||
inca ;(3072 cycles)
|
||
dw incb ;(3072 cycles)
|
||
dw incbc ;(1536 cycles)
|
||
dw incc ;(3072 cycles)
|
||
dw incd ;(3072 cycles)
|
||
les)
|
||
dw incde ;(1536 cycles)
|
||
dw ince ;(3072 cycles)
|
||
dw inch ;(3072 cycles)
|
||
dw inchl ;(1536 cycles)
|
||
dw incl ;(3072oot
|
||
if isz80
|
||
call sw8080
|
||
else
|
||
call swz80
|
||
endif
|
||
jp wboot ; warm boot
|
||
|
||
tests:
|
||
if ;(7168 cycles)
|
||
dw rot8080 ;(6144 cycles)
|
||
; dw rotxy ;(416 cycles)
|
||
; dw rotz80 ;(6784 cycles)
|
||
dw srz80 ;(7936 cycles)
|
||
endif
|
||
endm
|
||
|
||
tmsg macro m
|
||
local lab
|
||
lab: db m
|
||
if $ ge lab+30
|
||
error 'message too long'
|
||
else
|
||
ds lab+30fh,092h,01eh,071eah
|
||
tstr <0,030h>,0,0f821h,0,0,0,0,0,0,0 ; (512 cycles)
|
||
tstr 0,0,-1,0,0,-1,-1,0d7h,0,-1 ; (38 cycles)
|
||
edd hl,<bc,de,hl,sp>'
|
||
|
||
; add ix,<bc,de,ix,sp> (19,456 cycles)
|
||
add16x: db flgmask ; flag mask
|
||
tstr <0ddh,9>,0ddach,0c294h,06 handlers
|
||
;
|
||
; console status, return 0ffh if character ready, 00h if not
|
||
;
|
||
CONST: IN A,(CONSTA) ;get console status
|
||
RET
|
||
;
|
||
; concycles)
|
||
tstr 0,0,0,0,-1,-1,-1,0d7h,0,-1 ; (38 cycles)
|
||
expcrc <0d4h,08ah,0d5h,019h>,<0f3h,090h,089h,0a0h>,<0,0,0,0> ; expectlgmask ; flag mask
|
||
tstr 080h,0c53eh,0573ah,04c4dh,msbt,0e309h,0a666h,0d0h,03bh,0adbbh
|
||
tstr 03fh,0,0,0,0,0,0,0,-1,0 ; (16,0-$,'.'
|
||
endif
|
||
db '$'
|
||
endm
|
||
|
||
if isz80 eq 0
|
||
flgmask equ 0d7h
|
||
expcrc macro crc1,crc2,crc3
|
||
db crc3
|
||
endm
|
||
xpcrc <039h,0c8h,058h,09bh>,<05fh,0c8h,028h,0e9h>,<0,0,0,0> ; expected crc
|
||
tmsg 'add iy,<bc,de,iy,sp>'
|
||
|
||
; aluop a,nn (28,67235bh,033d3h,06a76h,0fa20h,094h,068h,036f5h
|
||
tstr <0,030h>,0,0,0f821h,0,0,0,0,0,0 ; (512 cycles)
|
||
tstr 0,0,0,-1,0,-1,-1,0d7h,0sole character into register a
|
||
;
|
||
CONIN: IN A,(CONDAT) ;get character from console
|
||
RET
|
||
;
|
||
; console character output from registeed crc
|
||
tmsg '<adc,sbc> hl,<bc,de,hl,sp>'
|
||
|
||
; add hl,<bc,de,hl,sp> (19,456 cycles)
|
||
add16: db flgmask ; flag mask
|
||
tstr 9,0c384 cycles)
|
||
tstr 0,0ffh,0,0,0,-1,-1,0d7h,0,0 ; (46 cycles)
|
||
expcrc <006h,0c7h,0aah,08eh>,<0feh,043h,0b0h,016h>,<0b8h,05bh,0e else
|
||
if genz80
|
||
flgmask equ 0d7h
|
||
expcrc macro crc1,crc2
|
||
db crc2
|
||
endm
|
||
else
|
||
flgmask equ 0ffh
|
||
expcrc macro cycles)
|
||
alu8i: db flgmask ; flag mask
|
||
tstr 0c6h,09140h,07e3ch,07a67h,0df6dh,05b61h,00b29h,010h,066h,085b2h
|
||
tstr 038h,0,0,,-1 ; (38 cycles)
|
||
expcrc <0b1h,0dfh,08eh,0c0h>,<0c3h,059h,0f7h,0a2h>,<0,0,0,0> ; expected crc
|
||
tmsg 'add ix,<bc,de,ix,sp>'
|
||
r c
|
||
;
|
||
CONOUT: LD A,C ;get to accumulator
|
||
OUT (CONDAT),A ;send character to console
|
||
RET
|
||
;
|
||
; list character from register c
|
||
;
|
||
L4a5h,0c4c7h,0d226h,0a050h,058eah,08566h,0c6h,0deh,09bc9h
|
||
tstr 030h,0,0,0,0f821h,0,0,0,0,0 ; (512 cycles)
|
||
tstr 0,0,0,0,-1,-1L ;address field of jump at 5 to bdos
|
||
;
|
||
LD BC,80H ;default dma address is 80h
|
||
CALL SETDMA
|
||
;
|
||
EI ;enable the interrupt systcrc1
|
||
db crc1
|
||
endm
|
||
endif
|
||
endif
|
||
|
||
|
||
; <adc,sbc> hl,<bc,de,hl,sp> (38,912 cycles)
|
||
adc16: db flgmask ; flag mas0,0,0,0,0,-1,0 ; (2048 cycles)
|
||
tstr <0,-1>,0,0,0,0,0,0,0d7h,0,0 ; (14 cycles)
|
||
expcrc <051h,0c1h,09ch,02eh>,<048h,079h,093
|
||
; add iy,<bc,de,iy,sp> (19,456 cycles)
|
||
add16y: db flgmask ; flag mask
|
||
tstr <0fdh,9>,0c7c2h,0f407h,051c1h,03e96h,00bf4h,051IST: LD A,C ;character to register a
|
||
OUT (PRTDAT),A
|
||
RET
|
||
;
|
||
; return list status (0 if not ready, 0xff if ready)
|
||
;
|
||
LISTST: IN A,-1,0d7h,0,-1 ; (38 cycles)
|
||
expcrc <0d9h,0a4h,0cah,005h>,<011h,065h,0fch,090h>,<026h,015h,08bh,0ebh> ; expected crc
|
||
tmsg 'aem
|
||
LD A,(CDISK) ;get current disk number
|
||
LD C,A ;send to the ccp
|
||
JP CCP ;go to cp/m for further processing
|
||
;
|
||
;
|
||
; simple i/ok
|
||
tstr <0edh,042h>,0832ch,04f88h,0f22bh,0b339h,07e1fh,01563h,0d3h,089h,0465eh
|
||
tstr <0,038h>,0,0,0,0f821h,0,0,0,0,0 ; (1024 h,060h>,<03fh,092h,0a2h,073h> ; expected crc
|
||
tmsg 'aluop a,nn'
|
||
|
||
; aluop a,<b,c,d,e,h,l,(hl),a> (753,664 cycles)
|
||
alu8r: db f,(PRTSTA)
|
||
RET
|
||
;
|
||
; punch character from register c
|
||
;
|
||
PUNCH: LD A,C ;character to register a
|
||
OUT (AUXDAT),A
|
||
RET
|
||
;
|
||
; read chara,1 ;write command -> A
|
||
;
|
||
; enter here from read and write to perform the actual i/o
|
||
; operation. return a 00h in register a ifate the sector given by BC using the
|
||
; translate table given by DE
|
||
;
|
||
SECTRAN:
|
||
EX DE,HL ;HL=.trans
|
||
ADD HL,BC ;HL=.trans(secto;check vector harddisk
|
||
;
|
||
ENDDAT EQU $ ;end of data area
|
||
DATSIZ EQU $-BEGDAT ;size of data area
|
||
END ;of BIOS
|
||
arameter header address
|
||
OUT (FDCD),A ;selekt disk drive
|
||
LD L,A ;L=disk number 0,1,2,3
|
||
ADD HL,HL ;*2
|
||
ADD HL,HL ;*4
|
||
ADD HLust be available,
|
||
; however, between "begdat" and "enddat").
|
||
;
|
||
; scratch ram area for BDOS use
|
||
;
|
||
BEGDAT EQU $ ;beginning of datcter into register a from reader device
|
||
;
|
||
READER: IN A,(AUXDAT)
|
||
RET
|
||
;
|
||
;
|
||
; i/o drivers for the disk follow
|
||
;
|
||
; move to the track the operation completes
|
||
; properly, and 01h if an error occurs during the read or write
|
||
;
|
||
; in this case, we have saved the disr)
|
||
LD L,(HL) ;L = trans(sector)
|
||
LD H,0 ;HL= trans(sector)
|
||
RET ;with value in HL
|
||
;
|
||
; set dma address given by registers b ,HL ;*8
|
||
ADD HL,HL ;*16 (size of each header)
|
||
LD DE,DPBASE
|
||
ADD HL,DE ;HL=.dpbase(diskno*16)
|
||
RET
|
||
SELHD: CP 8 ;select the ha area
|
||
DIRBF: DEFS 128 ;scratch directory area
|
||
ALL00: DEFS 31 ;allocation vector 0
|
||
ALL01: DEFS 31 ;allocation vector 1
|
||
ALL02: 00 position of current drive
|
||
; translate this call into a settrk call with parameter 00
|
||
;
|
||
HOME: LD C,0 ;select track 0
|
||
JP SETk number in 'diskno' (0-3)
|
||
; the track number in 'track' (0-76)
|
||
; the sector number in 'sector' (1-26)
|
||
; the dma address iand c
|
||
;
|
||
SETDMA: LD A,C ;low order address
|
||
OUT (DMAL),A
|
||
LD A,B ;high order address
|
||
OUT (DMAH),A ;in dma
|
||
RET
|
||
;
|
||
; perform rea arddisk?
|
||
RET NZ ;no, error
|
||
OUT (FDCD),A ;select disk drive
|
||
LD HL,HDBASE ;HL=hdbase for harddisk
|
||
RET
|
||
;
|
||
; set track given by DEFS 31 ;allocation vector 2
|
||
ALL03: DEFS 31 ;allocation vector 3
|
||
ALLHD: DEFS 255 ;allocation vector harddisk
|
||
CHK00: DEFS 16 TRK ;we will move to 00 on first read/write
|
||
;
|
||
; select disk given by register C
|
||
;
|
||
SELDSK: LD HL,0000H ;error return code
|
||
LD A,n 'dmaad' (0-65535)
|
||
;
|
||
WAITIO: OUT (FDCOP),A ;start i/o operation
|
||
IN A,(FDCST) ;status of i/o operation -> A
|
||
RET
|
||
;
|
||
; the remaind operation
|
||
;
|
||
READ: XOR A ;read command -> A
|
||
JP WAITIO ;to perform the actual i/o
|
||
;
|
||
; perform a write operation
|
||
;
|
||
WRITE: LD A register c
|
||
;
|
||
SETTRK: LD A,C
|
||
OUT (FDCT),A
|
||
RET
|
||
;
|
||
; set sector given by register c
|
||
;
|
||
SETSEC: LD A,C
|
||
OUT (FDCS),A
|
||
RET
|
||
;
|
||
; transl ;check vector 0
|
||
CHK01: DEFS 16 ;check vector 1
|
||
CHK02: DEFS 16 ;check vector 2
|
||
CHK03: DEFS 16 ;check vector 3
|
||
CHKHD: DEFS 0 C
|
||
CP 4 ;must be between 0 and 3
|
||
JR NC,SELHD ;no carry if 4,5,...
|
||
; disk number is in the proper range
|
||
; compute proper disk pder of the CBIOS is reserved uninitialized
|
||
; data area, and does not need to be a part of the
|
||
; system memory image (the space m; CBIOS for Z80-Simulator
|
||
;
|
||
; Copyright (C) 1988-2006 by Udo Munk
|
||
;
|
||
MSIZE EQU 64 ;cp/m version memory size in kilobytes
|
||
;
|
||
header for disk 00
|
||
DPBASE: DEFW TRANS,0000H
|
||
DEFW 0000H,0000H
|
||
DEFW DIRBF,DPBLK
|
||
DEFW CHK00,ALL00
|
||
; disk parameter header character in
|
||
JP CONOUT ;console character out
|
||
JP LIST ;list character out
|
||
JP PUNCH ;punch character out
|
||
JP READER ;r00H
|
||
DEFW 0000H,0000H
|
||
DEFW DIRBF,HDBLK
|
||
DEFW CHKHD,ALLHD
|
||
;
|
||
; sector translate vector for the hardisk
|
||
;
|
||
HDTRA: DEFB 1,2,3 data port
|
||
FDCD EQU 10 ;fdc-port: # of drive
|
||
FDCT EQU 11 ;fdc-port: # of track
|
||
FDCS EQU 12 ;fdc-port: # of sector
|
||
FDCOP E15,16
|
||
DEFB 20,26,6,12 ;sectors 17,18,19,20
|
||
DEFB 18,24,4,10 ;sectors 21,22,23,24
|
||
DEFB 16,22 ;sectors 25,26
|
||
;
|
||
; disk para
|
||
; "bias" is address offset from 3400H for memory systems
|
||
; than 16K (referred to as "b" throughout the text).
|
||
;
|
||
BIAS EQU (MSfor disk 01
|
||
DEFW TRANS,0000H
|
||
DEFW 0000H,0000H
|
||
DEFW DIRBF,DPBLK
|
||
DEFW CHK01,ALL01
|
||
; disk parameter header for disk 02
|
||
Deader character out
|
||
JP HOME ;move head to home position
|
||
JP SELDSK ;select disk
|
||
JP SETTRK ;set track number
|
||
JP SETSEC ,4,5,6,7,8,9,10
|
||
DEFB 11,12,13,14,15,16,17,18,19,20
|
||
DEFB 21,22,23,24,25,26,27,28,29,30
|
||
DEFB 31,32,33,34,35,36,37,38,39,40
|
||
QU 13 ;fdc-port: command
|
||
FDCST EQU 14 ;fdc-port: status
|
||
DMAL EQU 15 ;dma-port: dma address low
|
||
DMAH EQU 16 ;dma-port: dmameter block, common to all IBM 8" disks
|
||
;
|
||
DPBLK: DEFW 26 ;sectors per track
|
||
DEFB 3 ;block shift factor
|
||
DEFB 7 ;block mIZE-20)*1024
|
||
CCP EQU 3400H+BIAS ;base of ccp
|
||
BDOS EQU CCP+806H ;base of bdos
|
||
BIOS EQU CCP+1600H ;base of bios
|
||
CDISK EQU 0004EFW TRANS,0000H
|
||
DEFW 0000H,0000H
|
||
DEFW DIRBF,DPBLK
|
||
DEFW CHK02,ALL02
|
||
; disk parameter header for disk 03
|
||
DEFW TRANS,0000H ;set sector number
|
||
JP SETDMA ;set dma address
|
||
JP READ ;read disk
|
||
JP WRITE ;write disk
|
||
JP LISTST ;return list status DEFB 41,42,43,44,45,46,47,48,49,50
|
||
DEFB 51,52,53,54,55,56,57,58,59,60
|
||
DEFB 61,62,63,64,65,66,67,68,69,70
|
||
DEFB 71,72,73,74 address high
|
||
;
|
||
ORG BIOS ;origin of this program
|
||
NSECTS EQU (BIOS-CCP)/128 ;warm start sector count
|
||
;
|
||
; jump vector for iask
|
||
DEFB 0 ;extent mask
|
||
DEFW 242 ;disk size-1
|
||
DEFW 63 ;directory max
|
||
DEFB 192 ;alloc 0
|
||
DEFB 0 ;alloc 1
|
||
DEFW 16 H ;current disk number 0=A,...,15=P
|
||
IOBYTE EQU 0003H ;intel i/o byte
|
||
;
|
||
; I/O ports
|
||
;
|
||
CONSTA EQU 0 ;console status port
|
||
|
||
DEFW 0000H,0000H
|
||
DEFW DIRBF,DPBLK
|
||
DEFW CHK03,ALL03
|
||
;
|
||
; sector translate vector for the IBM 8" disks
|
||
;
|
||
TRANS: DEFB 1,7
|
||
JP SECTRAN ;sector translate
|
||
;
|
||
; fixed data tables for four-drive standard
|
||
; IBM-compatible 8" disks
|
||
;
|
||
; disk parameter,75,76,77,78,79,80
|
||
DEFB 81,82,83,84,85,86,87,88,89,90
|
||
DEFB 91,92,93,94,95,96,97,98,99,100
|
||
DEFB 101,102,103,104,105,106,107ndividual subroutines
|
||
;
|
||
JP BOOT ;cold start
|
||
WBOOTE: JP WBOOT ;warm start
|
||
JP CONST ;console status
|
||
JP CONIN ;console ;check size
|
||
DEFW 2 ;track offset
|
||
;
|
||
; fixed data tables for 4MB harddisk
|
||
;
|
||
; disk parameter header
|
||
HDBASE: DEFW HDTRA,00CONDAT EQU 1 ;console data port
|
||
PRTSTA EQU 2 ;printer status port
|
||
PRTDAT EQU 3 ;printer data port
|
||
AUXDAT EQU 5 ;auxiliary,13,19 ;sectors 1,2,3,4
|
||
DEFB 25,5,11,17 ;sectors 5,6,7,8
|
||
DEFB 23,3,9,15 ;sectors 9,10,11,12
|
||
DEFB 21,2,8,14 ;sectors 13,14,,108,109,110
|
||
DEFB 111,112,113,114,115,116,117,118,119,120
|
||
DEFB 121,122,123,124,125,126,127,128
|
||
;
|
||
; disk parameter bl address
|
||
LD C,D ;get sector address to register c
|
||
CALL SETSEC ;set sector address from register c
|
||
POP BC ;recall dma ad C,0 ;select disk 0
|
||
CALL SELDSK
|
||
CALL HOME ;go to track 00
|
||
;
|
||
LD B,NSECTS ;b counts # of sectors to load
|
||
LD C,0 ;c has A,0C3H ;c3 is a jmp instruction
|
||
LD (0),A ;for jmp to wboot
|
||
LD HL,WBOOTE ;wboot entry point
|
||
LD (1),HL ;set address fiel each function
|
||
; simplest case is to just perform parameter initialization
|
||
;
|
||
BOOT: LD SP,80H ;use space below buffer for sPM ;transfer to cp/m if all have been loaded
|
||
; more sectors remain to load, check for track change
|
||
INC D
|
||
LD A,D ;sector=2ock for harddisk
|
||
;
|
||
HDBLK: DEFW 128 ;sectors per track
|
||
DEFB 4 ;block shift factor
|
||
DEFB 15 ;block mask
|
||
DEFB dress to b,c
|
||
PUSH BC ;replace on stack for later recall
|
||
CALL SETDMA ;set dma address from b,c
|
||
; drive set to 0, track set the current track number
|
||
LD D,2 ;d has the next sector to read
|
||
; note that we begin by reading track 0, sector 2 since sectd for jmp at 0
|
||
;
|
||
LD (5),A ;for jmp to bdos
|
||
LD HL,BDOS ;bdos entry point
|
||
LD (6),HL ;address field of jump at 5 to bdos
|
||
tack
|
||
LD HL,SIGNON ;print message
|
||
BOOTL: LD A,(HL)
|
||
OR A
|
||
JP Z,BOOTC
|
||
LD C,A
|
||
CALL CONOUT
|
||
INC HL
|
||
JP BOOTL
|
||
BOOTC: XO7?, if so, change tracks
|
||
CP 27
|
||
JP C,LOAD1 ;carry generated if sector<27
|
||
; end of current track, go to next track
|
||
LD D,1 0 ;extent mask
|
||
DEFW 2039 ;disk size-1
|
||
DEFW 1023 ;directory max
|
||
DEFB 255 ;alloc 0
|
||
DEFB 255 ;alloc 1
|
||
, sector set, dma address set
|
||
CALL READ
|
||
CP 00H ;any errors?
|
||
JP NZ,WBOOT ;retry the entire boot if an error occurs
|
||
; no eor 1
|
||
; contains the cold start loader, which is skipped in a warm start
|
||
LD HL,CCP ;base of cp/m (initial load point)
|
||
LOAD1:
|
||
;
|
||
LD BC,80H ;default dma address is 80h
|
||
CALL SETDMA
|
||
;
|
||
EI ;enable the interrupt system
|
||
LD A,(CDISK) ;get current disR A ;zero in the accum
|
||
LD (IOBYTE),A ;clear the iobyte
|
||
LD (CDISK),A ;select disk zero
|
||
JP GOCPM ;initialize and go to cp/ ;begin with first sector of next track
|
||
INC C ;track=track+1
|
||
; save register state, and change tracks
|
||
CALL SETTRK ;track DEFW 0 ;check size
|
||
DEFW 0 ;track offset
|
||
;
|
||
; signon message
|
||
;
|
||
SIGNON: DEFM '64K CP/M Vers. 2.2 (CBIOS V1.1 for Z80Srror, move to next sector
|
||
POP HL ;recall dma address
|
||
LD DE,128 ;dma=dma+128
|
||
ADD HL,DE ;new dma address is in h,l
|
||
POP ;load one more sector
|
||
PUSH BC ;save sector count, current track
|
||
PUSH DE ;save next sector to read
|
||
PUSH HL ;save dmak number
|
||
LD C,A ;send to the ccp
|
||
JP CCP ;go to cp/m for further processing
|
||
;
|
||
;
|
||
; simple i/o handlers
|
||
;
|
||
; console statm
|
||
;
|
||
; simplest case is to read the disk until all sectors loaded
|
||
;
|
||
WBOOT: LD SP,80H ;use space below buffer for stack
|
||
LDaddress set from register c
|
||
JP LOAD1 ;for another sector
|
||
; end of load operation, set parameters and go to cp/m
|
||
GOCPM:
|
||
LDIM, '
|
||
DEFM 'Copyright 1988-2006 by Udo Munk)'
|
||
DEFB 13,10,0
|
||
;
|
||
; end of fixed tables
|
||
;
|
||
; individual subroutines to performDE ;recall sector address
|
||
POP BC ;recall number of sectors remaining, and current trk
|
||
DEC B ;sectors=sectors-1
|
||
JP Z,GOCus, return 0ffh if character ready, 00h if not
|
||
;
|
||
CONST: IN A,(CONSTA) ;get console status
|
||
RET
|
||
;
|
||
; console character into rr c
|
||
;
|
||
SETSEC: LD A,C
|
||
OUT (FDCS),A
|
||
RET
|
||
;
|
||
; translate the sector given by BC using the
|
||
; translate table given by DE
|
||
;
|
||
nge
|
||
; compute proper disk parameter header address
|
||
OUT (FDCD),A ;selekt disk drive
|
||
LD L,A ;L=disk number 0,1,2,3
|
||
ADD HL,nitialized
|
||
; data area, and does not need to be a part of the
|
||
; system memory image (the space must be available,
|
||
; however, d character into register a from reader device
|
||
;
|
||
READER: IN A,(AUXDAT)
|
||
RET
|
||
;
|
||
;
|
||
; i/o drivers for the disk follow
|
||
;
|
||
; moead and write to perform the actual i/o
|
||
; operation. return a 00h in register a if the operation completes
|
||
; properly, and 01egister a
|
||
;
|
||
CONIN: IN A,(CONDAT) ;get character from console
|
||
RET
|
||
;
|
||
; console character output from register c
|
||
;
|
||
CONOUT: SECTRAN:
|
||
EX DE,HL ;HL=.trans
|
||
ADD HL,BC ;HL=.trans(sector)
|
||
LD L,(HL) ;L = trans(sector)
|
||
LD H,0 ;HL= trans(sector)
|
||
RHL ;*2
|
||
ADD HL,HL ;*4
|
||
ADD HL,HL ;*8
|
||
ADD HL,HL ;*16 (size of each header)
|
||
LD DE,DPBASE
|
||
ADD HL,DE ;HL=.dpbase(disknobetween "begdat" and "enddat").
|
||
;
|
||
; scratch ram area for BDOS use
|
||
;
|
||
BEGDAT EQU $ ;beginning of data area
|
||
DIRBF: DEFS 128 ve to the track 00 position of current drive
|
||
; translate this call into a settrk call with parameter 00
|
||
;
|
||
HOME: LD C,0 ;seleh if an error occurs during the read or write
|
||
;
|
||
; in this case, we have saved the disk number in 'diskno' (0-3)
|
||
; the trackLD A,C ;get to accumulator
|
||
OUT (CONDAT),A ;send character to console
|
||
RET
|
||
;
|
||
; list character from register c
|
||
;
|
||
LIST: LD ET ;with value in HL
|
||
;
|
||
; set dma address given by registers b and c
|
||
;
|
||
SETDMA: LD A,C ;low order address
|
||
OUT (DMAL),A
|
||
*16)
|
||
RET
|
||
SELHD: CP 8 ;select the harddisk?
|
||
RET NZ ;no, error
|
||
OUT (FDCD),A ;select disk drive
|
||
LD HL,HDBASE ;HL=hdbase ;scratch directory area
|
||
ALL00: DEFS 31 ;allocation vector 0
|
||
ALL01: DEFS 31 ;allocation vector 1
|
||
ALL02: DEFS 31 ;allocationct track 0
|
||
JP SETTRK ;we will move to 00 on first read/write
|
||
;
|
||
; select disk given by register C
|
||
;
|
||
SELDSK: LD HL,0000H ;e number in 'track' (0-76)
|
||
; the sector number in 'sector' (1-26)
|
||
; the dma address in 'dmaad' (0-65535)
|
||
;
|
||
WAITIO: OUT (FA,C ;character to register a
|
||
OUT (PRTDAT),A
|
||
RET
|
||
;
|
||
; return list status (0 if not ready, 0xff if ready)
|
||
;
|
||
LISTST: IN A,(LD A,B ;high order address
|
||
OUT (DMAH),A ;in dma
|
||
RET
|
||
;
|
||
; perform read operation
|
||
;
|
||
READ: XOR A ;read command -> A
|
||
JP Wfor harddisk
|
||
RET
|
||
;
|
||
; set track given by register c
|
||
;
|
||
SETTRK: LD A,C
|
||
OUT (FDCT),A
|
||
RET
|
||
;
|
||
; set sector given by registe vector 2
|
||
ALL03: DEFS 31 ;allocation vector 3
|
||
ALLHD: DEFS 255 ;allocation vector harddisk
|
||
CHK00: DEFS 16 ;check vector 0
|
||
rror return code
|
||
LD A,C
|
||
CP 4 ;must be between 0 and 3
|
||
JR NC,SELHD ;no carry if 4,5,...
|
||
; disk number is in the proper raDCOP),A ;start i/o operation
|
||
IN A,(FDCST) ;status of i/o operation -> A
|
||
RET
|
||
;
|
||
; the remainder of the CBIOS is reserved uniPRTSTA)
|
||
RET
|
||
;
|
||
; punch character from register c
|
||
;
|
||
PUNCH: LD A,C ;character to register a
|
||
OUT (AUXDAT),A
|
||
RET
|
||
;
|
||
; reaAITIO ;to perform the actual i/o
|
||
;
|
||
; perform a write operation
|
||
;
|
||
WRITE: LD A,1 ;write command -> A
|
||
;
|
||
; enter here from rCHK01: DEFS 16 ;check vector 1
|
||
CHK02: DEFS 16 ;check vector 2
|
||
CHK03: DEFS 16 ;check vector 3
|
||
CHKHD: DEFS 0 ;check vector CR EQU 0DH ;CARRIAGE RETURN
|
||
000A = LF EQU 0AH ;LINE FEED
|
||
0010 = STACKSIZE EQU 16 ;SIZE OF LOCAL STACKP EQU 900H ;LOAD POINT FOR SYSTEM DURING LOAD/STORE
|
||
0005 = BDOS EQU 5H ;DOS ENTRY POINT
|
||
0000 = BOOT EQU 0 ;JRANSIENT PROGRAM AREA
|
||
LOADP EQU 900H ;LOAD POINT FOR SYSTEM DURING LOAD/STORE
|
||
BDOS EQU 5H ;DOS ENTRY POINT
|
||
BOOT EQU 0 ;JMP TO NSECTS EQU 26 ;NO. OF SECTORS PER TRACK
|
||
0002 = NTRKS EQU 2 ;NO. OF OPERATING SYSTEM TRACKS
|
||
0004 = NDISK TITLE 'SYSGEN - SYSTEM GENERATION PROGRAM 8/79'
|
||
; SYSTEM GENERATION PROGRAM, VERSION FOR Z80SIM
|
||
VERS EQU 20 ;X.X
|
||
;
|
||
; COPYRIharddisk
|
||
;
|
||
ENDDAT EQU $ ;end of data area
|
||
DATSIZ EQU $-BEGDAT ;size of data area
|
||
END ;of BIOS
|
||
|
||
;
|
||
0001 = WBOOT EQU 1 ;ADDRESS OF WARM BOOT (OTHER PATCH ENTRY
|
||
; POINTS ARE COMPUTxsub
|
||
b:
|
||
a:z80asm boot/h
|
||
a:z80asm bios/h
|
||
a:
|
||
ddt movcpm.com
|
||
s234
|
||
0
|
||
0
|
||
0
|
||
.
|
||
s2cb
|
||
0
|
||
0
|
||
0
|
||
.
|
||
i64 *
|
||
g
|
||
save 34 b:cpm64.co 'BOOT' TO REBOOT SYSTEM
|
||
CONI EQU 1 ;CONSOLE INPUT FUNCTION
|
||
CONO EQU 2 ;CONSOLE OUTPUT FUNCTION
|
||
SELF EQU 14 ;SELECT DISK
|
||
OPES EQU 4 ;NUMBER OF DISK DRIVES
|
||
0080 = SECSIZ EQU 128 ;SIZE OF EACH SECTOR
|
||
0003 = LOG2SEC EQU 3 ;LOG 2 SECSIZGHT (C) DIGITAL RESEARCH
|
||
; 1976, 1977, 1978, 1979
|
||
;
|
||
NSECTS EQU 26 ;NO. OF SECTORS PER TRACK
|
||
NTRKS EQU 2 ;NO. OF OPExsub
|
||
b:
|
||
a:z80asm boot/h
|
||
a:z80asm bios/h
|
||
a:
|
||
ddt movcpm.com
|
||
s234
|
||
0
|
||
0
|
||
0
|
||
.
|
||
s2cb
|
||
0
|
||
0
|
||
0
|
||
.
|
||
i64 *
|
||
g
|
||
save 34 b:cpm64.coED RELATIVE TO WBOOT)
|
||
0018 = SELDSK EQU 24 ;WBOOT+24 FOR DISK SELECT
|
||
001B = SETTRK EQU 27 ;WBOOT+27 FOR SET m
|
||
b:
|
||
a:ddt cpm64.com
|
||
iboot.hex
|
||
r900
|
||
ibios.hex
|
||
r2580
|
||
g0
|
||
a:
|
||
save 34 b:cpm64.com
|
||
sysgen b:cpm64.com
|
||
NF EQU 15 ;DISK OPEN FUNCTION
|
||
DREADF EQU 20 ;DISK READ FUNCTION
|
||
;
|
||
MAXTRY EQU 10 ;MAXIMUM NUMBER OF RETRIES ON EACH READ/WRITE
|
||
0006 = SKEW EQU 6 ;SECTOR SKEW FACTOR
|
||
;
|
||
005C = FCB EQU 005CH ;DEFAULT FCB LOCATION
|
||
007C RATING SYSTEM TRACKS
|
||
NDISKS EQU 4 ;NUMBER OF DISK DRIVES
|
||
SECSIZ EQU 128 ;SIZE OF EACH SECTOR
|
||
LOG2SEC EQU 3 ;LOG 2 SECSIZ
|
||
SKEm
|
||
b:
|
||
a:ddt cpm64.com
|
||
iboot.hex
|
||
r900
|
||
ibios.hex
|
||
r2580
|
||
g0
|
||
a:
|
||
save 34 cpm64.com
|
||
sysgen cpm64.com
|
||
TRACK FUNCTION
|
||
001E = SETSEC EQU 30 ;WBOOT+30 FOR SET SECTOR FUNCTION
|
||
0021 = SETDMA EQU 33 ;WBOOT+33 FOR SET0 ;DISK READ FUNCTION
|
||
;
|
||
000A = MAXTRY EQU 10 ;MAXIMUM NUMBER OF RETRIES ON EACH READ/WRITE
|
||
000D =
|
||
CR EQU 0DH ;CARRIAGE RETURN
|
||
LF EQU 0AH ;LINE FEED
|
||
STACKSIZE EQU 16 ;SIZE OF LOCAL STACK
|
||
;
|
||
WBOOT EQU 1 ;ADDRESS OF WARM BOO= FCBCR EQU FCB+32 ;CURRENT RECORD LOCATION
|
||
0100 = TPA EQU 0100H ;TRANSIENT PROGRAM AREA
|
||
0900 = LOADW EQU 6 ;SECTOR SKEW FACTOR
|
||
;
|
||
FCB EQU 005CH ;DEFAULT FCB LOCATION
|
||
FCBCR EQU FCB+32 ;CURRENT RECORD LOCATION
|
||
TPA EQU 0100H ;T ; COPYRIGHT (C) DIGITAL RESEARCH
|
||
; 1976, 1977, 1978, 1979
|
||
;
|
||
001A = DMA ADDRESS
|
||
0024 = READF EQU 36 ;WBOOT+36 FOR READ FUNCTION
|
||
0027 = WRITF EQU 39 ;WBOOT+39 FOR WRITE FUNCTIOxsub
|
||
b:
|
||
a:z80asm boot/h
|
||
a:z80asm bios/h
|
||
a:
|
||
ddt movcpm.com
|
||
s234
|
||
0
|
||
0
|
||
0
|
||
q
|
||
s2cb
|
||
0
|
||
0
|
||
0
|
||
q
|
||
i64 *
|
||
g
|
||
save 34 b:cpm64.coOVE.
|
||
;
|
||
OST: DB NTRKS ;OPERATING SYSTEM TRACKS
|
||
SPT: DB NSECTS ;SECTORS PER TRACK (CAN BE PATCHED)
|
||
TRAN: ;BASE OF TRANSLATE 27 FOR SET TRACK FUNCTION
|
||
SETSEC EQU 30 ;WBOOT+30 FOR SET SECTOR FUNCTION
|
||
SETDMA EQU 33 ;WBOOT+33 FOR SET DMA ADDRESS
|
||
READF ERET
|
||
;
|
||
CRMSG: ;PRINT MESSAGE ADDRESSED BY H,L TIL ZERO
|
||
;WITH LEADING CRLF
|
||
PUSH H! CALL CRLF! POP H ;DROP THRU TO OUTMSG0
|
||
O <00> ﾗ w<>s<inc,dec> b...................$<24> 力ｫDﾉ阪耄､<>IM* !<21> ﾗ LOG2SEC ;LOG 2 OF SECTOR SIZE
|
||
DAD H
|
||
ENDM
|
||
RET ;WITH HL = SECTOR * SECTOR SIZE
|
||
;
|
||
GETCHAR:
|
||
; READ CONSOLE CHARACTER TO REm
|
||
b:
|
||
a:ddt cpm64.com
|
||
iboot.hex
|
||
r900
|
||
ibios.hex
|
||
r2580
|
||
g0
|
||
a:
|
||
sysgen
|
||
TABLE
|
||
TRELT SET 1 ;FIRST/NEXT TRAN ELEMENT
|
||
TRBASE SET 1 ;BASE FOR WRAPAROUND
|
||
REPT NSECTS ;ONCE FOR EACH SECTOR ON A TRACK
|
||
QU 36 ;WBOOT+36 FOR READ FUNCTION
|
||
WRITF EQU 39 ;WBOOT+39 FOR WRITE FUNCTION
|
||
;
|
||
ORG TPA ;TRANSIENT PROGRAM AREA
|
||
JMP START
|
||
UTMSG:
|
||
MOV A,M! ORA A! RZ
|
||
; MESSAGE NOT YET COMPLETED
|
||
PUSH H! CALL PUTCHAR! POP H! INX H
|
||
JMP OUTMSG
|
||
;
|
||
SEL:
|
||
; SELECT DI ﾒｮ;<3B><inc,dec> bc..................$<24> 荷5 [<05>'<27>ﾒ<>` <00> ﾗ <1A>ｧ<inc,dec> c................GISTER A
|
||
MVI C,CONI! CALL BDOS!
|
||
; CONVERT TO UPPER CASE BEFORE RETURN
|
||
CPI 'A' OR 20H ! RC ;RETURN IF BELOW LOWER CASE A
|
||
CA:XSUB $ 64 * $OM $*
|
||
save 34 cpm64.com
|
||
DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
TRELT SET TRELT+SKEW
|
||
IF TRELT GT NSECTS
|
||
TRBASE SET TRBASE+1
|
||
TRELT SET TRBASE
|
||
ENDIF
|
||
DB 'COPYRIGHT (C) 1978, DIGITAL RESEARCH '
|
||
;
|
||
; TRANSLATE TABLE - SECTOR NUMBERS ARE TRANSLATED
|
||
; HERE TO DECREASE THE SYSGEN SK GIVEN BY REGISTER A
|
||
MOV C,A! LHLD WBOOT! LXI D,SELDSK! DAD D! PCHL
|
||
;
|
||
TRK: ;SET UP TRACK
|
||
LHLD WBOOT ;ADDRESS OF BOOT ENT...$<24> 槇ｺ_琇 侘8ｼﾞC\ｽ <00> ﾗ ﾑFｿQ<inc,dec> d...................$<24> .4 ﾉ(ﾊ
|
||
g<EFBFBD>.:程T<E7A88B> PI ('Z' OR 20H) + 1
|
||
RNC ;RETURN IF ABOVE LOWER CASE Z
|
||
ANI 5FH! RET
|
||
;
|
||
PUTCHAR:
|
||
; WRITE CHARACTER FROM A TO CONSOLE
|
||
MOV E -､-cpi<r>........................$<24>' A!<21> ` Y･[酵<>持) ﾗ<> m-ﾒ<daa,cpl,scf,ccf>.......... ENDM
|
||
;
|
||
; NOW LEAVE SPACE FOR EXTENSIONS TO TRANSLATE TABLE
|
||
IF NSECTS LT 64
|
||
REPT 64-NSECTS
|
||
DB 0
|
||
ENDM
|
||
;
|
||
;
|
||
;
|
||
;
|
||
; UTTIME FOR MISSED SECTORS
|
||
; WHEN SLOW CONTROLLERS ARE INVOLVED. TRANSLATION TAKES
|
||
; PLACE ACCORDING TO THE "SKEW" FACTOR SET ABRY
|
||
LXI D,SETTRK ;OFFSET FOR SETTRK ENTRY
|
||
DAD D
|
||
PCHL ;GONE TO SETTRK
|
||
;
|
||
SEC: ;SET UP SECTOR NUMBER
|
||
LHLD WBOOT
|
||
LXI D,ST (OTHER PATCH ENTRY
|
||
; POINTS ARE COMPUTED RELATIVE TO WBOOT)
|
||
SELDSK EQU 24 ;WBOOT+24 FOR DISK SELECT
|
||
SETTRK EQU 27 ;WBOOT+,A! MVI C,CONO! CALL BDOS! RET
|
||
;
|
||
CRLF: ;SEND CARRIAGE RETURN, LINE FEED
|
||
MVI A,CR
|
||
CALL PUTCHAR
|
||
MVI A,LF
|
||
CALL PUTCHAR
|
||
...$<24>< ﾟJﾘﾕ伜+寛ｧCDZ0ﾐ <00> ﾗ <00><> <inc,dec> a...................$<24> #ﾖ-Caz≧Z<E289A7> <1E>ｻ<EFBFBD> ILITY SUBROUTINES
|
||
MULTSEC:
|
||
;MULTIPLY THE SECTOR NUMBER IN A BY THE SECTOR SIZE
|
||
MOV L,A! MVI H,0 ;SECTOR NUMBER IN HL
|
||
REPTETSEC
|
||
DAD D
|
||
PCHL
|
||
;
|
||
DMA: ;SET DMA ADDRESS TO VALUE OF B,C
|
||
LHLD WBOOT
|
||
LXI D,SETDMA
|
||
DAD D
|
||
PCHL
|
||
;
|
||
READ: ;PERFORM REALL DMA ;DMA ADDRESS SET FROM B,C
|
||
; DMA ADDRESS SET, CLEAR RETRY COUNT
|
||
XRA A
|
||
STA RETRY ;SET TO ZERO RETRIES
|
||
;
|
||
TRYSEC: ;TRY TO OR FROM CURRENT DMA ADDR
|
||
LXI H,SECTOR
|
||
MOV E,M ;SECTOR NUMBER
|
||
MVI D,0 ;TO DE
|
||
LXI H,TRAN
|
||
MOV B,M ;TRAN(0) IN B
|
||
DADP TO GET SYSTEM MESSAGE IF BLANK
|
||
LXI D,FCB ;TRY TO OPEN IT
|
||
CALL OPEN ;
|
||
INR A ;255 BECOMES 00
|
||
JNZ RDOK ;OK TO READ IF NOTCK
|
||
LXI H,TRACK
|
||
INR M ;TRACK = TRACK + 1
|
||
LDA OST ;NUMBER OF OPERATING SYSTEM TRACKS
|
||
CMP M ;= TRACK NUMBER ?
|
||
JZ ENDRW ;E; ERROR, RETRY OPERATION
|
||
JMP TRYSEC
|
||
;
|
||
; END OF TRACK
|
||
ENDTRK:
|
||
LDA SPT ;SECTORS PER TRACK
|
||
CALL MULTSEC ;*SECSIZ
|
||
XCHG ;D OPERATION
|
||
LHLD WBOOT
|
||
LXI D,READF
|
||
DAD D
|
||
PCHL
|
||
;
|
||
WRITE: ;PERFORM WRITE OPERATON
|
||
LHLD WBOOT
|
||
LXI D,WRITF
|
||
DAD D
|
||
PC TO READ OR WRITE CURRENT SECTOR
|
||
LDA RETRY
|
||
CPI MAXTRY ;TOO MANY RETRIES?
|
||
JC TRYOK
|
||
;
|
||
; PAST MAXTRIES, MESSAGE AND IGNORE
|
||
D ;SECTOR TRANSLATED
|
||
MOV C,M ;VALUE TO C READY FOR SELECT
|
||
PUSH B ;SAVE TRAN(0),TRAN(SECTOR)
|
||
CALL SEC ;SET UP SECTOR NUMBE 255
|
||
;
|
||
; FILE NOT PRESENT, ERROR AND REBOOT
|
||
;
|
||
LXI H,NOFILE
|
||
CALL CRMSG
|
||
JMP REBOOT
|
||
;
|
||
; FILE PRESENT
|
||
; READ TO LOAD PND OF READ OR WRITE
|
||
;
|
||
; OTHERWISE NOTDONE, GO TO NEXT TRACK
|
||
MOV C,M ;TRACK NUMBER
|
||
CALL TRK ;TO SET TRACK
|
||
MVI A,-1 ;COUNTTO DE
|
||
LHLD DMADDR ;BASE DMA FOR THIS TRACK
|
||
DAD D ;+SPT*SECSIZ
|
||
SHLD DMADDR ;READY FOR NEXT TRACK
|
||
JMP RWTRK ;FOR ANOTHER THL
|
||
;
|
||
DREAD: ;DISK READ FUNCTION
|
||
MVI C,DREADF
|
||
JMP BDOS
|
||
;
|
||
OPEN: ;FILE OPEN FUNCTION
|
||
MVI C,OPENF ! JMP BDOS
|
||
;
|
||
GETPUT:
|
||
|
||
LXI H,ERRMSG
|
||
CALL OUTMSG
|
||
CALL GETCHAR
|
||
CPI CR
|
||
JNZ REBOOT
|
||
;
|
||
; TYPED A CR, OK TO IGNORE
|
||
CALL CRLF
|
||
JMP RWSEC
|
||
;
|
||
TRYR
|
||
POP B ;RECALL TRAN(0),TRAN(SECTOR)
|
||
MOV A,C ;TRAN(SECTOR)
|
||
SUB B ;-TRAN(0)
|
||
CALL MULTSEC ;*SECTOR SIZE
|
||
XCHG ;TO DE
|
||
LOINT
|
||
;
|
||
RDOK:
|
||
XRA A
|
||
STA FCBCR ;CURRENT RECORD = 0
|
||
;
|
||
; PRE-READ AREA FROM TPA TO LOADP
|
||
;
|
||
MVI C,(LOADP-TPA)/SECSIZ
|
||
; PRS 0, 1, 2, . . . 25
|
||
STA SECTOR ;SECTOR INCREMENTED BEFORE READ OR WRITE
|
||
;
|
||
RWSEC: ;READ OR WRITE SECTOR
|
||
LDA SPT ;SECTORS PERACK
|
||
;
|
||
ENDRW: ;END OF READ OR WRITE, RETURN TO CALLER
|
||
RET
|
||
;
|
||
;
|
||
START:
|
||
;
|
||
LXI SP,STACK ;SET LOCAL STACK POINTER
|
||
LXI H,S; GET OR PUT CP/M (RW=0 FOR READ, 1 FOR WRITE)
|
||
; DISK IS ALREADY SELECTED
|
||
;
|
||
LXI H,LOADP ;LOAD POINT IN RAM FOR CP/M DURING SOK:
|
||
; OK TO TRY READ OR WRITE
|
||
INR A
|
||
STA RETRY ;RETRY=RETRY+1
|
||
LDA RW ;READ OR WRITE?
|
||
ORA A
|
||
JZ TRYREAD
|
||
;
|
||
; MUST BE WRHLD DMADDR ;BASE DMA ADDRESS FOR THIS TRACK
|
||
DAD D ;+(TRAN(SECTOR)-TRAN(0))*SECSIZ
|
||
MOV B,H
|
||
MOV C,L ;TO BC FOR SEC CALL
|
||
CAE-READ FILE
|
||
PRERD:
|
||
PUSH B ;SAVE COUNT
|
||
LXI D,FCB ;INPUT FILE CONTROL COUNT
|
||
CALL DREAD ;ASSUME SET TO DEFAULT BUFFER
|
||
POP R TRACK
|
||
LXI H,SECTOR
|
||
INR M ;TO NEXT SECTOR
|
||
CMP M ;A=26 AND M=0 1 2...25 (USUALLY)
|
||
JZ ENDTRK ;
|
||
;
|
||
; READ OR WRITE SECTORIGNON
|
||
CALL OUTMSG
|
||
;
|
||
; CHECK FOR DEFAULT FILE LOAD INSTEAD OF GET
|
||
;
|
||
LDA FCB+1 ;BLANK IF NO FILE
|
||
CPI ' '
|
||
JZ GETSYS ;SKIYSGEN
|
||
SHLD DMADDR
|
||
;
|
||
; CLEAR TRACK TO 00
|
||
MVI A,-1 ;START WITH TRACK EQUAL -1
|
||
STA TRACK
|
||
;
|
||
RWTRK: ;READ OR WRITE NEXT TRAITE
|
||
CALL WRITE
|
||
JMP CHKRW ;CHECK FOR ERROR RETURNS
|
||
TRYREAD:
|
||
CALL READ
|
||
CHKRW:
|
||
ORA A
|
||
JZ RWSEC ;ZERO FLAG IF R/W OK
|
||
;
|
||
B ;RESTORE COUNT
|
||
ORA A
|
||
JNZ BADRD ;CANNOT ENCOUNTER END-OF FILE
|
||
DCR C ;COUNT DOWN
|
||
JNZ PRERD ;FOR ANOTHER SECTOR
|
||
;
|
||
; SEC
|
||
JMP PUTSYS ;FOR ANOTHER PUT OPERATION
|
||
;
|
||
REBOOT:
|
||
MVI A,0
|
||
CALL SEL
|
||
CALL CRLF
|
||
JMP BOOT
|
||
BADDISK:
|
||
;BAD DISK NAME
|
||
LXIMSG
|
||
;
|
||
; PUT SYSTEM
|
||
PUTSYS:
|
||
LXI H,ASKPUT
|
||
CALL CRMSG
|
||
CALL GETCHAR
|
||
CPI CR
|
||
JZ REBOOT
|
||
SUI 'A'
|
||
CPI NDISKS
|
||
JC PUTC
|
||
ｳ絃f<EFBFBD>%oﾒ<6F>Rh<52>6ﾌ w塀 G"ｹU&/ﾅｺ;ｾｲｽ (+ｴZ箪ｳjﾂﾗ<EFBE82>ｧｵﾐﾏ1,ﾙ梛[ﾞｮ 嫖ﾂｰ<EFBE82><EFBDB0>&uj｣<6A>m<>
|
||
<EFBFBD> ｩ<>6?rg<> W柄Jやｸz{ｱ+ｮ ｶ8辻寺袗ｾ
|
||
|ﾜ<> ﾛﾟ!<21>Z PUTSYS ;SKIP IF CR ONLY
|
||
;
|
||
SUI 'A' ;NORMALIZE DRIVE NUMBER
|
||
CPI NDISKS ;VALID DRIVE?
|
||
JC GETC ;SKIP TO GETC IF SO
|
||
;
|
||
;N COMPLETE',0
|
||
QDISK: DB 'INVALID DRIVE NAME (USE A, B, C, OR D)',0
|
||
NOFILE: DB 'NO SOURCE FILE ON DISK',0
|
||
BADFILE:
|
||
DB 'SOURCTORS SKIPPED AT BEGINNING OF FILE
|
||
;
|
||
LXI H,LOADP
|
||
RDINP:
|
||
PUSH H
|
||
MOV B,H
|
||
MOV C,L ;READY FOR DMA
|
||
CALL DMA ;DMA ADDRESS S H,QDISK
|
||
CALL CRMSG
|
||
RET
|
||
;
|
||
;
|
||
;
|
||
; DATA AREAS
|
||
; MESSAGES
|
||
SIGNON: DB 'SYSGEN VER '
|
||
DB VERS/10+'0','.',VERS MOD 10+'0'
|
||
;
|
||
; INVALID DRIVE NAME
|
||
CALL BADDISK
|
||
JMP PUTSYS ;TO TRY AGAIN
|
||
;
|
||
PUTC:
|
||
; SET DISK FROM REGISTER C
|
||
ADI 'A'
|
||
STA PDISK ;Mﾒﾔ<EFBE92>磽hﾝｳ<EFBE9D> ﾚハ∪ﾍ<>&[oｰw<EFBDB0>ｷGw<47>Z<>jpf;ﾊ \銃<><E98A83>ｮiak<61>ﾓlﾏE<EFBE8F>
|
||
窗ﾗ
|
||
ﾒ琮サ9ｳﾂｧg&aﾐ`<16>iGM>nwﾛｮﾑjJﾙﾖZﾜ@ﾟ f7ﾘ;<3B>ｼｮSﾞｻ槐Gｲﾏ0ｵ<30>鮨ｽ INVALID DRIVE NUMBER
|
||
CALL BADDISK
|
||
JMP GETSYS ;TO TRY AGAIN
|
||
;
|
||
GETC:
|
||
; SELECT DISK GIVEN BY REGISTER A
|
||
ADI 'A'
|
||
STA GDE FILE INCOMPLETE',0
|
||
;
|
||
; VARIABLES
|
||
SDISK: DS 1 ;SELECTED DISK FOR CURRENT OPERATION
|
||
TRACK: DS 1 ;CURRENT TRACK
|
||
SECTOR: DS 1ET
|
||
LXI D,FCB ;READY FOR READ
|
||
CALL DREAD ;
|
||
POP H ;RECALL DMA ADDRESS
|
||
ORA A ;00 IF READ OK
|
||
JNZ PUTSYS ;ASSUME EOF IF NOTDB 0
|
||
ASKGET: DB 'SOURCE DRIVE NAME (OR RETURN TO SKIP)',0
|
||
GETMSG: DB 'SOURCE ON '
|
||
GDISK: DS 1 ;FILLED IN AT GET FUNCTION
|
||
DBESSAGE SET
|
||
SUI 'A'
|
||
CALL SEL ;SELECT DEST DRIVE
|
||
; PUT SYSTEM, SET RW TO WRITE
|
||
LXI H,PUTMSG
|
||
CALL CRMSG
|
||
CALL GETCHAR
|
||
C<> ﾊｺﾂ慨ｳ<E685A8>0$ｴ｣ｦｺﾐ6ﾍﾗ典ﾞW)#ﾙgｿｳfz.ﾄaJｸ]h*o+閥 ｾ7ﾃ 治Zﾟ-<02><>
|
||
窗ﾗ
|
||
ﾒ琮サ9ｳﾂｧg&aﾐ`<16>iGM>nwﾛｮﾑjJﾙﾖZﾜ@ﾟ f7ﾘ;<3B>ｼｮSﾞｻ槐Gｲﾏ0ｵ<30>鮨ｽISK ;TO SET MESSAGE
|
||
SUI 'A'
|
||
CALL SEL ;TO SELECT THE DRIVE
|
||
; GETSYS, SET RW TO READ AND GET THE SYSTEM
|
||
CALL CRLF
|
||
LXI H ;CURRENT SECTOR
|
||
RW: DS 1 ;READ IF 0, WRITE IF 1
|
||
DMADDR: DS 2 ;CURRENT DMA ADDRESS
|
||
RETRY: DS 1 ;NUMBER OF TRIES ON THIS SECTO.
|
||
; MORE TO READ, CONTINUE
|
||
LXI D,SECSIZ
|
||
DAD D ;HL IS NEW LOAD ADDRESS
|
||
JMP RDINP
|
||
;
|
||
BADRD: ;EOF ENCOUNTERED IN INPUT FILE ', THEN TYPE RETURN',0
|
||
ASKPUT: DB 'DESTINATION DRIVE NAME (OR RETURN TO REBOOT)',0
|
||
PUTMSG: DB 'DESTINATION ON '
|
||
PDISK: DS 1 PI CR
|
||
JNZ REBOOT
|
||
CALL CRLF
|
||
;
|
||
LXI H,RW
|
||
MVI M,1
|
||
CALL GETPUT ;TO PUT SYSTEM BACK ON DISKETTE
|
||
LXI H,DONE
|
||
CALL OUTMSG
|
||
-請 <1D> ｷdjｰ <20>ｹqH╂Aﾞﾚﾔ}mﾝ蓁<EFBE9D>ｵQφ<51>l老dkｨﾀ<EFBDA8>b<EFBFBD>各ﾉ<E59084>\Oclﾙ<6C>=c<>
|
||
<EFBFBD>;n ﾈLi^ﾕ`A茲gqr<葭KﾔGﾒ
|
||
<EFBFBD>･
|
||
ｵk5ｵｨⅲｲ詫ﾛｻﾉﾖｬｼ<EFBFBD>2ﾘl絋ﾟ\uﾜﾖ,GETMSG
|
||
CALL OUTMSG
|
||
CALL GETCHAR
|
||
CPI CR
|
||
JNZ REBOOT
|
||
CALL CRLF
|
||
;
|
||
XRA A
|
||
STA RW
|
||
CALL GETPUT
|
||
LXI H,DONE
|
||
CALL OUTR
|
||
DS STACKSIZE*2
|
||
STACK:
|
||
END
|
||
|
||
|
||
LXI H,BADFILE
|
||
CALL CRMSG
|
||
JMP REBOOT
|
||
;
|
||
;
|
||
GETSYS:
|
||
LXI H,ASKGET ;GET SYSTEM?
|
||
CALL CRMSG
|
||
CALL GETCHAR
|
||
CPI CR
|
||
J;FILLED IN AT PUT FUNCTION
|
||
DB ', THEN TYPE RETURN',0
|
||
ERRMSG: DB 'PERMANENT ERROR, TYPE RETURN TO IGNORE',0
|
||
DONE: DB 'FUNCTIO
|
||
ﾏｫﾑ=Y&ﾙ0ｬQﾞ :ﾈﾗQｿﾐa!ｴ<>Vｳﾄ#ﾏｺ蕗ｸｽ･(ｸ枩<05>ﾆ ﾙｲｱ <0B>$/o|ⅤhLﾁa ｫｶf-=vﾜA<EFBE9C>ﾛq來 ｼ<>*qｱ<71>ｶｵ 涸茹雕ﾔ3xﾉ｢ <00>4<EFBFBD> ｨ若<0E>j
|
||
ｻm=-租if
|
||
tstr <0cbh,040h>,03ef1h,09dfch,07acch,msbt,0be61h,07a86h,050h,024h,01998h
|
||
tstr <0,03fh>,0,0,0,0,0,0,053h,0,0 ; (1024 cyc db 0ffh ; flag mask
|
||
endif
|
||
tstr <0ddh,0cbh,1,046h>,02075h,msbt-1,msbt-1,03cfch,0a79ah,03d74h,051h,027h,0ca14h
|
||
tstr < tstr 027h,02141h,009fah,01d60h,0a559h,08d5bh,09079h,004h,08eh,0299dh
|
||
tstr 018h,0,0,0,0,0,0,0d7h,-1,0 ; (65,536 cycles)
|
||
tst,0,0> ; expected crc
|
||
tmsg 'aluop a,<ixh,ixl,iyh,iyl>'
|
||
|
||
; aluop a,(<ix,iy>+1) (229,376 cycles)
|
||
alu8x: db flgmask ; flag mas0,0 ; (6 cycles)
|
||
expcrc <0dah,057h,0c6h,079h>,<0d2h,012h,0a8h,042h>,<0,0,0,0> ; expected crc
|
||
tmsg 'cpd<r>'
|
||
|
||
; cpi<r> (1)l玲c\kkQ<6B> lab<61>0ﾘ<30> Nl倣･{<7B><08><>ﾄWeｰﾙﾆｷ餘鏡ｸ<E98FA1>ｹ<EFBFBD>bﾝ ﾟﾚ-I胡|<7C>ﾔLeMｲaX:ｵQﾎ｣ｼ tﾔｻ0祀ﾟ･A=ﾘ勉､ﾑﾄmﾓﾖ<EFBE93>Ci駛4nﾙ<6E>g<EFBFBD>ﾚ`ｸﾐD-s3 蟐
|
||
les)
|
||
tstr 0,0ffh,0,0,0,-1,-1,0,-1,0 ; (48 cycles)
|
||
if genz80
|
||
db 07bh,055h,0e6h,0c8h ; expected crc
|
||
else
|
||
db020h,0,0,038h>,0,0,0,0,0,0,053h,0,0 ; (256 cycles)
|
||
tstr 0,0ffh,0,0,0,0,0,0,0,0 ; (8 cycles)
|
||
if genz80
|
||
db 0a8h,0eeh,r 0,0,0,0,0,0,0,0,0,0 ; (1 cycle)
|
||
expcrc <06dh,02dh,0d2h,013h>,<09bh,04bh,0a6h,075h>,<090h,0d1h,064h,07fh> ; expected crc
|
||
k
|
||
tstr <0ddh,086h,1>,090b7h,msbt-1,msbt-1,032fdh,0406eh,0c1dch,045h,06eh,0e5fah
|
||
tstr <020h,038h>,0,1,1,0,0,0,0,-1,0 ; (16,3 (6144 cycles)
|
||
cpi1: db flgmask ; flag mask
|
||
tstr <0edh,0a1h>,04d48h,0af4ah,0906bh,msbt,04e71h,1,093h,06ah,0907ch
|
||
tstr <0,07h,04bh> ; expected crc
|
||
tmsg 'aluop a,<b,c,d,e,h,l,(hl),a>'
|
||
|
||
; aluop a,<ixh,ixl,iyh,iyl> (376,832 cycles)
|
||
alu8rx: db flgmas 05eh,002h,00eh,098h ; expected crc
|
||
endif
|
||
tmsg 'bit n,<b,c,d,e,h,l,(hl),a>'
|
||
|
||
; note that the CRC changes if some of008h,067h ; expected crc
|
||
else
|
||
db 083h,053h,04eh,0e1h ; expected crc
|
||
endif
|
||
tmsg 'bit n,(<ix,iy>+1)'
|
||
|
||
; bitmsg '<daa,cpl,scf,ccf>'
|
||
|
||
; <inc,dec> a (3072 cycles)
|
||
inca: db flgmask ; flag mask
|
||
tstr 03ch,04adfh,0d5d8h,0e598h,08a2bh,084 cycles)
|
||
tstr 0,0ffh,0,0,0,0,0,0d7h,0,0 ; (14 cycles)
|
||
expcrc <0d3h,0f2h,0d7h,04ah>,<0e8h,049h,067h,06eh>,<0,0,0,0> ; expe10h>,0,0,0,0,0,010,0,-1,0 ; (1024 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <02dh,0a4h,02dh,019h>,<006h,0dek ; flag mask
|
||
tstr <0ddh,084h>,0d6f7h,0c76eh,0accfh,02847h,022ddh,0c035h,0c5h,038h,0234bh
|
||
tstr <020h,039h>,0,0,0,0,0,0,0,-1 the code following the test area changes!
|
||
; cpd<r> (1) (6144 cycles)
|
||
cpd1: db flgmask ; flag mask
|
||
tstr <0edh,0a9h>,0c7b6h,t n,<b,c,d,e,h,l,(hl),a> (49,152 cycles)
|
||
bitz80: if genz80
|
||
db 053h ; flag mask
|
||
else
|
||
db 0ffh ; flag mask
|
||
enda7b0h,0431bh,044h,05ah,0d030h
|
||
tstr 001h,0,0,0,0,0,0,0,-1,0 ; (512 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcted crc
|
||
tmsg 'aluop a,(<ix,iy>+1)'
|
||
|
||
; bit n,(<ix,iy>+1) (2048 cycles)
|
||
bitx: if genz80
|
||
db 053h ; flag mask
|
||
else
|
||
h,0b3h,056h>,<0,0,0,0> ; expected crc
|
||
tmsg 'cpi<r>'
|
||
|
||
; <daa,cpl,scf,ccf> (1) (65,536 cycles)
|
||
daa: db flgmask ; flag mask
|
||
,0 ; (8,192 cycles)
|
||
tstr 0,0ffh,0,0,0,-1,-1,0d7h,0,0 ; (46 cycles)
|
||
expcrc <0a8h,086h,0cch,044h>,<0a4h,002h,06dh,05ah>,<0,0072b4h,018f6h,msbt+17,08dbdh,1,0c0h,030h,094a3h
|
||
tstr <0,010h>,0,0,0,0,0,010,0,-1,0 ; (1024 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,crc <081h,0fah,081h,000h>,<0d1h,088h,015h,0a4h>,<037h,0b6h,01dh,0f1h> ; expected crc
|
||
tmsg '<inc,dec> a'
|
||
|
||
; <inc,dec> b (30720,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <0aeh,0c6h,0d4h,02ch>,<0aeh,0c6h,0d4h,02ch>,<0abh,0a9h,064h,0b1h> ; expected crc
|
||
tmcles)
|
||
incd: db flgmask ; flag mask
|
||
tstr 014h,0a0eah,05fbah,065fbh,0981ch,038cch,0debch,043h,05ch,003bdh
|
||
tstr 001h,0,0,0,0,'<inc,dec> hl'
|
||
|
||
; <inc,dec> ix (1536 cycles)
|
||
incix: db flgmask ; flag mask
|
||
tstr <0ddh,023h>,0bc3ch,00d9bh,0e081h,0adfdh,09,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <0d2h,0aeh,03bh,0ech>,<0d2h,0aeh,03bh,0ech>,<0aeh,08fh,0abh,065h> ; expected crc
|
||
h,0,0,0,0,0 ; (512 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <056h,00fh,095h,05eh>,<01ch,0edh,084h,07dh>,<0 cycles)
|
||
incb: db flgmask ; flag mask
|
||
tstr 004h,0d623h,0432dh,07a61h,08180h,05a86h,01e85h,086h,058h,09bbbh
|
||
tstr 001h,0,0,0sg '<inc,dec> de'
|
||
|
||
; <inc,dec> e (3072 cycles)
|
||
ince: db flgmask ; flag mask
|
||
tstr 01ch,0602fh,04c0dh,02402h,0e2f5h,0a0f4h,00ff00h,0,0,0,0 ; (512 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <0d1h,046h,0bfh,051h>,<045h,023h,0deh,010h>a7fh,096e5h,013h,085h,00be2h
|
||
tstr <0,8>,0,0,0f821h,0,0,0,0,0,0 ; (256 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
tmsg '<inc,dec> bc'
|
||
|
||
; <inc,dec> c (3072 cycles)
|
||
incc: db flgmask ; flag mask
|
||
tstr 00ch,0d789h,00935h,0055bh,09f85h,08b2797h,0bbh,07dh,04eh> ; expected crc
|
||
tmsg '<inc,dec> h'
|
||
|
||
; <inc,dec> hl (1536 cycles)
|
||
inchl: db flgmask ; flag mask
|
||
tstr 0,0,0,0ff00h,0,0,0 ; (512 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <077h,0f3h,05ah,073h>,<05fh,068h,022h,06a10ah,013h,032h,05925h
|
||
tstr 001h,0,0,0,0,0ffh,0,0,0,0 ; (512 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <0,<0b9h,078h,0deh,006h> ; expected crc
|
||
tmsg '<inc,dec> d'
|
||
|
||
; <inc,dec> de (1536 cycles)
|
||
incde: db flgmask ; flag mask
|
||
tstexpcrc <0a5h,04dh,0beh,031h>,<0a5h,04dh,0beh,031h>,<0,0,0,0> ; expected crc
|
||
tmsg '<inc,dec> ix'
|
||
|
||
; <inc,dec> iy (1536 cyclesh,0d208h,095h,005h,00660h
|
||
tstr 001h,0,0,0,0,0,0ffh,0,0,0 ; (512 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc23h,0c3f4h,007a5h,01b6dh,04f04h,0e2c2h,0822ah,057h,0e0h,0c3e1h
|
||
tstr 008h,0,0,0,0f821h,0,0,0,0,0 ; (256 cycles)
|
||
tstr 0,0,0,04h>,<028h,063h,050h,047h> ; expected crc
|
||
tmsg '<inc,dec> b'
|
||
|
||
; <inc,dec> bc (1536 cycles)
|
||
incbc: db flgmask ; flag mask
|
||
cah,08ch,06ah,0c2h>,<0e1h,075h,0afh,0cch>,<0b5h,0fbh,083h,0abh> ; expected crc
|
||
tmsg '<inc,dec> e'
|
||
|
||
; <inc,dec> h (3072 cycler 013h,0342eh,0131dh,028c9h,00acah,09967h,03a2eh,092h,0f6h,09d54h
|
||
tstr 008h,0,0,0,0,0f821h,0,0,0,0 ; (256 cycles)
|
||
tstr 0,0,)
|
||
inciy: db flgmask ; flag mask
|
||
tstr <0fdh,023h>,09402h,0637ah,03182h,0c65ah,0b2e9h,0abb4h,016h,0f2h,06d05h
|
||
tstr <0,8>,0,0 <01ah,0f6h,012h,0a7h>,<0c2h,084h,055h,04ch>,<02ah,069h,06eh,04bh> ; expected crc
|
||
tmsg '<inc,dec> c'
|
||
|
||
; <inc,dec> d (3072 cy,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <0fch,00dh,06dh,04ah>,<0fch,00dh,06dh,04ah>,<089h,0b6h,06dh,0c8h> ; expected crc
|
||
tmsg tstr 003h,0cd97h,044abh,08dc9h,0e3e3h,011cch,0e8a4h,002h,049h,02a4dh
|
||
tstr 008h,0,0,0,0,0,0f821h,0,0,0 ; (256 cycles)
|
||
tstr 0s)
|
||
inch: db flgmask ; flag mask
|
||
tstr 024h,01506h,0f2ebh,0e8ddh,0262bh,011a6h,0bc1ah,017h,006h,02818h
|
||
tstr 001h,0,0,0,0ff00f821h,0,0,0,0,0,0,0 ; (256 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <050h,05dh,051h,0a3h>,<050h,05dh,051h,6d4h,03e01h,08358h,015b4h,081h,0deh,04259h
|
||
tstr <0,1>,0,0ff00h,0,0,0,0,0,0,0 ; (512 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ;97h,03bh,09ch> ; expected crc
|
||
tmsg '<inc,dec> sp'
|
||
|
||
; <inc,dec> (<ix,iy>+1) (6144 cycles)
|
||
incx: db flgmask ; flag mask
|
||
tsycles)
|
||
expcrc <036h,0c1h,01eh,075h>,<0fbh,0cbh,0bah,095h>,<0,0,0,0> ; expected crc
|
||
tmsg '<inc,dec> iyl'
|
||
|
||
; ld <bc,de>,(nnn,05ch,01f37h
|
||
tstr 001h,0ffh,0,0,0,0,0,0,0,0 ; (512 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <028h,029h,0mask
|
||
tstr <0ddh,024h>,02836h,09f6fh,09116h,061b9h,082cbh,0e219h,092h,073h,0a98ch
|
||
tstr <0,1>,0ff00h,0,0,0,0,0,0,0,0 ; (512 c0a3h>,<0,0,0,0> ; expected crc
|
||
tmsg '<inc,dec> iy'
|
||
|
||
; <inc,dec> l (3072 cycles)
|
||
incl: db flgmask ; flag mask
|
||
tstr 02ch,0 (6 cycles)
|
||
expcrc <06fh,046h,036h,062h>,<06fh,046h,036h,062h>,<0,0,0,0> ; expected crc
|
||
tmsg '<inc,dec> ixh'
|
||
|
||
; <inc,dec> tr <0ddh,034h,1>,0fa6eh,msbt-1,msbt-1,02c28h,08894h,05057h,016h,033h,0286fh
|
||
tstr <020h,1>,0ffh,0,0,0,0,0,0,0,0 ; (1024 cyclesn) (32 cycles)
|
||
ld161: db flgmask ; flag mask
|
||
tstr <0edh,04bh,low msbt,high msbt>,0f9a8h,0f559h,093a4h,0f5edh,06f96h,0d968h,05eh,0ceh>,<0b8h,03ah,0dch,0efh>,<092h,0ech,0d8h,0d4h> ; expected crc
|
||
tmsg '<inc,dec> (hl)'
|
||
|
||
; <inc,dec> sp (1536 cycles)
|
||
inycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <02dh,096h,06ch,0f3h>,<02dh,096h,06ch,0f3h>,<0,0,0,0> ; expected cr8031h,0a520h,04356h,0b409h,0f4c1h,0dfa2h,0d1h,03ch,03ea2h
|
||
tstr 001h,0,0,0,0ffh,0,0,0,0,0 ; (512 cycles)
|
||
tstr 0,0,0,0,0,0,0,ixl (3072 cycles)
|
||
incxl: db flgmask ; flag mask
|
||
tstr <0ddh,02ch>,04d14h,07460h,076d4h,006e7h,032a2h,0213ch,0d6h,0d7h,099a5h
|
||
)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <00bh,095h,0a8h,0eah>,<020h,058h,014h,070h>,<0,0,0,0> ; expected crc
|
||
t86h,0e6h,04bd8h
|
||
tstr <0,010h>,0,0,0,0,0,0,0,0,0 ; (2 cycles)
|
||
tstr 0,-1,0,0,0,0,0,0,0,0 ; (16 cycles)
|
||
expcrc <04dh,045h,csp: db flgmask ; flag mask
|
||
tstr 033h,0346fh,0d482h,0d169h,0deb6h,0a494h,0f476h,053h,002h,0855bh
|
||
tstr 008h,0,0,0,0,0,0,0,0,c
|
||
tmsg '<inc,dec> iyh'
|
||
|
||
; <inc,dec> iyl (3072 cycles)
|
||
incyl: db flgmask ; flag mask
|
||
tstr <0ddh,02ch>,0d7c6h,062d5h,0a09e0d7h,0,0 ; (6 cycles)
|
||
expcrc <0a0h,0a1h,0b4h,09fh>,<056h,0cdh,006h,0f3h>,<082h,04dh,035h,04dh> ; expected crc
|
||
tmsg '<inc,d
|
||
tstr <0,1>,0,0ffh,0,0,0,0,0,0,0 ; (512 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <002h,07bh,0efh,02ch>,<0msg '<inc,dec> (<ix,iy>+1)'
|
||
|
||
; <inc,dec> ixh (3072 cycles)
|
||
incxh: db flgmask ; flag mask
|
||
tstr <0ddh,024h>,0b838h,0316ch,0c0a9h,0ach>,<04dh,045h,0a9h,0ach>,<0,0,0,0> ; expected crc
|
||
tmsg 'ld <bc,de>,(nnnn)'
|
||
|
||
; ld hl,(nnnn) (16 cycles)
|
||
ld162: db fl0f821h ; (256 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <05dh,0ach,0d5h,027h>,<05dh,0ach,0d5h,027h>,<053h,0h,07039h,03e7eh,09f12h,090h,0d9h,0220fh
|
||
tstr <0,1>,0ffh,0,0,0,0,0,0,0,0 ; (512 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cec> l'
|
||
|
||
; <inc,dec> (hl) (3072 cycles)
|
||
incm: db flgmask ; flag mask
|
||
tstr 034h,0b856h,00c7ch,0e53eh,msbt,0877eh,0da58h,015h02h,07bh,0efh,02ch>,<0,0,0,0> ; expected crc
|
||
tmsg '<inc,dec> ixl'
|
||
|
||
; <inc,dec> iyh (3072 cycles)
|
||
incyh: db flgmask ; flag gmask ; flag mask
|
||
tstr <02ah,low msbt,high msbt>,09863h,07830h,02077h,0b1feh,0b9fah,0abb8h,004h,006h,06015h
|
||
tstr 0,0,0,0,0,,<0eeh,02fh,081h,04eh> ; expected crc
|
||
tmsg 'ld (nnnn),hl'
|
||
|
||
; ld (nnnn),sp (16 cycles)
|
||
ld167: db flgmask ; flag mask
|
||
tstr8f61h,080h,03fh,0c7bfh
|
||
tstr <0,010h>,0,0,0,0,0,0,0,0,0 ; (2 cycles)
|
||
tstr 0,0,0,0,0,-1,-1,0,0,0 ; (32 cycles)
|
||
expcrc <06es)
|
||
ld16ix: db flgmask ; flag mask
|
||
tstr <0ddh,021h>,087e8h,02006h,0bd12h,0b69bh,07253h,0a1e5h,051h,013h,0f1bdh
|
||
tstr 020h,0d sp,(nnnn)'
|
||
|
||
; ld <ix,iy>,(nnnn) (32 cycles)
|
||
ld164: db flgmask ; flag mask
|
||
tstr <0ddh,02ah,low msbt,high msbt>,0ded7h,0a60 ; (32 cycles)
|
||
expcrc <0bah,010h,02ah,06bh>,<0bah,010h,02ah,06bh>,<0,0,0,0> ; expected crc
|
||
tmsg 'ld (nnnn),<ix,iy>'
|
||
|
||
; 0,0,0,0,0 ; (1 cycle)
|
||
tstr 0,-1,0,0,0,0,0,0,0,0 ; (16 cycles)
|
||
expcrc <05fh,097h,024h,087h>,<05fh,097h,024h,087h>,<032h,0 <0edh,073h,low msbt,high msbt>,0c0dch,0d1d6h,0ed5ah,0f356h,0afdah,06ca7h,044h,09fh,03f0ah
|
||
tstr 0,0,0,0,0,0,0,0,0,0 ; (1 cyc4h,01eh,087h,015h>,<064h,01eh,087h,015h>,<0,0,0,0> ; expected crc
|
||
tmsg 'ld (nnnn),<bc,de>'
|
||
|
||
; ld (nnnn),hl (16 cycles)
|
||
ld16,0,0,0,0,0,0,0,0 ; (2 cycles)
|
||
tstr <0,0,0ffh,0ffh>,0,0,0,0,0,0,0,0,0 ; (16 cycles)
|
||
expcrc <022h,07dh,0d5h,025h>,<022h,07dhfah,0f780h,0244ch,087deh,0bcc2h,016h,063h,04c96h
|
||
tstr 020h,0,0,0,0,0,0,0,0,0 ; (2 cycles)
|
||
tstr 0,-1,0,0,0,0,0,0,0,0 ; (1ld <bc,de,hl,sp>,nnnn (64 cycles)
|
||
ld16im: db flgmask ; flag mask
|
||
tstr 1,05c1ch,02d46h,08eb9h,06078h,074b1h,0b30eh,046h,0d1h,c9h,06eh,011h> ; expected crc
|
||
tmsg 'ld hl,(nnnn)'
|
||
|
||
; ld sp,(nnnn) (16 cycles)
|
||
ld163: db flgmask ; flag mask
|
||
tstr <0edh,0le)
|
||
tstr 0,0,0,0,0,0,0,0,0,-1 ; (16 cycles)
|
||
expcrc <016h,058h,05fh,0d7h>,<016h,058h,05fh,0d7h>,<0,0,0,0> ; expected crc
|
||
6: db flgmask ; flag mask
|
||
tstr <022h,low msbt,high msbt>,0d003h,07772h,07f53h,03f72h,064eah,0e180h,010h,02dh,035e9h
|
||
tstr 0,,0d5h,025h>,<0,0,0,0> ; expected crc
|
||
tmsg 'ld <ix,iy>,nnnn'
|
||
|
||
; ld a,<(bc),(de)> (44 cycles)
|
||
ld8bd: db flgmask ; flag mask
|
||
6 cycles)
|
||
expcrc <085h,08bh,0f1h,06dh>,<085h,08bh,0f1h,06dh>,<0,0,0,0> ; expected crc
|
||
tmsg 'ld <ix,iy>,(nnnn)'
|
||
|
||
; ld (nnnn030cch
|
||
tstr 030h,0,0,0,0,0,0,0,0,0 ; (4 cycles)
|
||
tstr <0,0ffh,0ffh>,0,0,0,0,0,0,0,0,0 ; (16 cycles)
|
||
expcrc <0deh,039h,017bh,low msbt,high msbt>,08dfch,057d7h,02161h,0ca18h,0c185h,027dah,083h,01eh,0f460h
|
||
tstr 0,0,0,0,0,0,0,0,0,0 ; (1 cycles)
|
||
ttmsg 'ld (nnnn),sp'
|
||
|
||
; ld (nnnn),<ix,iy> (64 cycles)
|
||
ld168: db flgmask ; flag mask
|
||
tstr <0ddh,022h,low msbt,high msbt>,06c0,0,0,0,0,0,0,0,0 ; (1 cycle)
|
||
tstr 0,0,0,0,-1,0,0,0,0,0 ; (16 cycles)
|
||
expcrc <0a3h,060h,08bh,047h>,<0a3h,060h,08bh,047h>
|
||
tstr 00ah,0b3a8h,01d2ah,07f8eh,042ach,msbt,msbt,0c6h,0b1h,0ef8eh
|
||
tstr 010h,0,0,0,0,0,0,0,0,0 ; (2 cycles)
|
||
tstr 0,0ffh,0,),<bc,de> (64 cycles)
|
||
ld165: db flgmask ; flag mask
|
||
tstr <0edh,043h,low msbt,high msbt>,01f98h,0844dh,0e8ach,0c9edh,0c95dh,09h,069h>,<0deh,039h,019h,069h>,<0d4h,016h,002h,072h> ; expected crc
|
||
tmsg 'ld <bc,de,hl,sp>,nnnn'
|
||
|
||
; ld <ix,iy>,nnnn (32 cyclstr 0,-1,0,0,0,0,0,0,0,0 ; (16 cycles)
|
||
expcrc <07ah,0ceh,0a1h,01bh>,<07ah,0ceh,0a1h,01bh>,<0,0,0,0> ; expected crc
|
||
tmsg 'lc3h,00d91h,06900h,08ef8h,0e3d6h,0c3f7h,0c6h,0d9h,0c2dfh
|
||
tstr 020h,0,0,0,0,0,0,0,0,0 ; (2 cycles)
|
||
tstr 0,0,-1,-1,0,0,0,0,0,0,0,0,0,0d7h,-1,0 ; (22 cycles)
|
||
expcrc <0b0h,081h,089h,035h>,<0b0h,081h,089h,035h>,<026h,09fh,0d4h,028h> ; expected crc
|
||
tms>,0d8b6h,msbt-1,msbt-1,0c612h,0df07h,09cd0h,043h,0a6h,0a0e5h
|
||
tstr 020h,0,1,1,0,0,0,0,0,0 ; (8 cycles)
|
||
tstr 0,-1,0,0,0,0,0,06h,0a8h>,<0,0,0,0> ; expected crc
|
||
tmsg 'ld <b,c,d,e>,(<ix,iy>+1)'
|
||
|
||
; ld <h,l>,(<ix,iy>+1) (256 cycles)
|
||
ld8ix2: db flgmask h,03fh>,0,0,0,0,0,0,0,0,0 ; (128 cycles)
|
||
tstr 0,0ffh,0,0,0,-1,-1,0d7h,-1,0 ; (54 cycles)
|
||
expcrc <047h,08bh,0a3h,06bh>,<0470h,085h,0cd16h
|
||
tstr 020h,0,0,0,0,0,0,0,0,0 ; (2 cycles)
|
||
tstr <0,0,0,-1>,0,0,0,0,0,0,0,-1,0 ; (16 cycles)
|
||
expcrc <026h,0,h,l,a> (3456 cycles)
|
||
ld8rr: db flgmask ; flag mask
|
||
tstr 040h,072a4h,0a024h,061ach,msbt,082c7h,0718fh,097h,08fh,0ef8eh
|
||
tstg 'ld a,<(bc),(de)>'
|
||
|
||
; ld <b,c,d,e,h,l,(hl),a>,nn (64 cycles)
|
||
ld8im: db flgmask ; flag mask
|
||
tstr 6,0c407h,0f49dh,0d13dh,00,0,0 ; (16 cycles)
|
||
expcrc <0a5h,0e9h,0ach,064h>,<0a5h,0e9h,0ach,064h>,<0,0,0,0> ; expected crc
|
||
tmsg 'ld a,(<ix,iy>+1)'
|
||
|
||
; flag mask
|
||
tstr <0ddh,066h,1>,084e0h,msbt-1,msbt-1,09c52h,0a799h,049b6h,093h,000h,0eeadh
|
||
tstr <020h,008h>,0,1,1,0,0,0,0,0,h,08bh,0a3h,06bh>,<0,0,0,0> ; expected crc
|
||
tmsg 'ld <bcdexya>,<bcdexya>'
|
||
|
||
; ld a,(nnnn) / ld (nnnn),a (44 cycles)
|
||
lda: db fdbh,047h,07eh>,<026h,0dbh,047h,07eh>,<0,0,0,0> ; expected crc
|
||
tmsg 'ld (<ix,iy>+1),nn'
|
||
|
||
; ld <b,c,d,e>,(<ix,iy>+1) (512 cyclr 03fh,0,0,0,0,0,0,0,0,0 ; (64 cycles)
|
||
tstr 0,0ffh,0,0,0,-1,-1,0d7h,-1,0 ; (54 cycles)
|
||
expcrc <074h,04bh,001h,018h>,<074h0339h,0de89h,07455h,053h,0c0h,05509h
|
||
tstr 038h,0,0,0,0,0,0,0,0,0 ; (8 cycles)
|
||
tstr 0,0,0,0,0,0,0,0,-1,0 ; (8 cycles)
|
||
e
|
||
; ld <ixh,ixl,iyh,iyl>,nn (32 cycles)
|
||
ld8ixy: db flgmask ; flag mask
|
||
tstr <0ddh,026h>,03c53h,04640h,0e179h,07711h,0c107h,010 ; (16 cycles)
|
||
tstr 0,-1,0,0,0,0,0,0,0,0 ; (16 cycles)
|
||
expcrc <0fah,02ah,04dh,003h>,<0fah,02ah,04dh,003h>,<0,0,0,0> ; exlgmask ; flag mask
|
||
tstr <032h,low msbt,high msbt>,0fd68h,0f4ech,044a0h,0b543h,00653h,0cdbah,0d2h,04fh,01fd8h
|
||
tstr 008h,0,0,es)
|
||
ld8ix1: db flgmask ; flag mask
|
||
tstr <0ddh,046h,1>,0d016h,msbt-1,msbt-1,04260h,07f39h,00404h,097h,04ah,0d085h
|
||
tstr <020,04bh,001h,018h>,<06eh,0ech,0a2h,036h> ; expected crc
|
||
tmsg 'ld <bcdehla>,<bcdehla>'
|
||
|
||
; ld <b,c,d,e,ixy,a>,<b,c,d,e,ixy,a> (6xpcrc <0f1h,0dah,0b5h,056h>,<0f1h,0dah,0b5h,056h>,<0d1h,055h,074h,01bh> ; expected crc
|
||
tmsg 'ld <b,c,d,e,h,l,(hl),a>,nn'
|
||
|
||
; afah,081h,0adh,05d9bh
|
||
tstr <020h,8>,0,0,0,0,0,0,0,0,0 ; (4 cycles)
|
||
tstr 0,0,0,0,0,0,0,0,-1,0 ; (8 cycles)
|
||
expcrc <024h,pected crc
|
||
tmsg 'ld <h,l>,(<ix,iy>+1)'
|
||
|
||
; ld a,(<ix,iy>+1) (128 cycles)
|
||
ld8ix3: db flgmask ; flag mask
|
||
tstr <0ddh,07eh,10,0,0,0,0,0,0 ; (2 cycle)
|
||
tstr 0,0ffh,0,0,0,0,0,0d7h,-1,0 ; (22 cycles)
|
||
expcrc <0c9h,026h,02dh,0e5h>,<0c9h,026h,02dh,0e5hh,018h>,0,1,1,0,0,0,0,0,0 ; (32 cycles)
|
||
tstr 0,-1,0,0,0,0,0,0,0,0 ; (16 cycles)
|
||
expcrc <0cch,011h,006h,0a8h>,<0cch,011h,0912 cycles)
|
||
ld8rrx: db flgmask ; flag mask
|
||
tstr <0ddh,040h>,0bcc5h,msbt,msbt,msbt,02fc2h,098c0h,083h,01fh,03bcdh
|
||
tstr <020ld (<ix,iy>+1),nn (32 cycles)
|
||
ld8imx: db flgmask ; flag mask
|
||
tstr <0ddh,036h,1>,01b45h,msbt-1,msbt-1,0d5c1h,061c7h,0bdc4h,0c0e8h,082h,08bh>,<024h,0e8h,082h,08bh>,<0,0,0,0> ; expected crc
|
||
tmsg 'ld <ixh,ixl,iyh,iyl>,nn'
|
||
|
||
; ld <b,c,d,e,h,l,a>,<b,c,d,e>,<012h,02fh,0d8h,062h> ; expected crc
|
||
tmsg 'ld a,(nnnn) / ld (nnnn),a'
|
||
|
||
; ldd<r> (1) (44 cycles)
|
||
ldd1: db flgmask ; flag cted crc
|
||
tmsg 'neg'
|
||
|
||
; <rld,rrd> (7168 cycles)
|
||
rld: db flgmask ; flag mask
|
||
tstr <0edh,067h>,091cbh,0c48bh,0fa62h,msbt,0e,msbt,2,014h,02dh,0a39fh
|
||
tstr <0,010h>,0,0,0,0,0,0,0,0,0 ; (2 cycles)
|
||
tstr 0,-1,0,0,0,0,0,0d7h,0,0 ; (22 cycles)
|
||
expcrclag mask
|
||
tstr 0cbh,0ccebh,05d4ah,0e007h,msbt,01395h,030eeh,043h,078h,03dadh
|
||
tstr <0,03fh>,0,0,0,0,0,0,080h,0,0 ; (128 cycle,0ddh,03dh,0e1h>,<05ah,090h,07eh,0d4h>,<0,0,0,0> ; expected crc
|
||
tmsg 'ldd<r> (2)'
|
||
|
||
; ldi<r> (1) (44 cycles)
|
||
ldi1: db flgmas05bh,041h,0e3h,034h> ; expected crc
|
||
tmsg '<rlca,rrca,rla,rra>'
|
||
|
||
; shift/rotate (<ix,iy>+1) (416 cycles)
|
||
rotxy: db flgmask mask
|
||
tstr <0edh,0a8h>,09852h,068fah,066a1h,msbt+3,msbt+1,1,0c1h,068h,020b7h
|
||
tstr <0,010h>,0,0,0,0,0,0,0,0,0 ; (2 cycles)
|
||
720h,0b479h,040h,006h,08ae2h
|
||
tstr <0,8>,0ffh,0,0,0,0,0,0,0,0 ; (512 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,-1,0 ; (14 cycles)
|
||
<0e9h,0eah,0d0h,0aeh>,<0ebh,059h,089h,01bh>,<0,0,0,0> ; expected crc
|
||
tmsg 'ldi<r> (2)'
|
||
|
||
; neg (16,384 cycles)
|
||
neg: db flgms)
|
||
tstr 0,0ffh,0,0,0,-1,-1,057h,-1,0 ; (53 cycles)
|
||
expcrc <0a4h,025h,058h,033h>,<0ebh,060h,04dh,058h>,<0,0,0,0> ; expected k ; flag mask
|
||
tstr <0edh,0a0h>,0fe30h,003cdh,06058h,msbt+2,msbt,1,004h,060h,02688h
|
||
tstr <0,010h>,0,0,0,0,0,0,0,0,0 ; (2 cy; flag mask
|
||
tstr <0ddh,0cbh,1,6>,0ddafh,msbt-1,msbt-1,0ff3ch,0dbf6h,094f4h,082h,080h,061d9h
|
||
tstr <020h,0,0,038h>,0,0,0,0,0,0tstr 0,-1,0,0,0,0,0,0d7h,0,0 ; (22 cycles)
|
||
expcrc <094h,0f4h,027h,069h>,<094h,0f4h,027h,069h>,<0,0,0,0> ; expected crc
|
||
tmsexpcrc <0ffh,082h,03eh,077h>,<095h,05bh,0a3h,026h>,<0,0,0,0> ; expected crc
|
||
tmsg '<rrd,rld>'
|
||
|
||
; <rlca,rrca,rla,rra> (6144 cyask ; flag mask
|
||
tstr <0edh,044h>,038a2h,05f6bh,0d934h,057e4h,0d2d6h,04642h,043h,05ah,009cch
|
||
tstr 0,0,0,0,0,0,0,0d7h,-1,0 crc
|
||
tmsg 'shf/rot <b,c,d,e,h,l,(hl),a>'
|
||
|
||
; <set,res> n,<b,c,d,e,h,l,(hl),a> (7936 cycles)
|
||
srz80: db flgmask ; flag mask
|
||
cles)
|
||
tstr 0,-1,0,0,0,0,0,0d7h,0,0 ; (22 cycles)
|
||
expcrc <0f7h,082h,0b0h,0d1h>,<09ah,0bdh,0f6h,0b5h>,<0,0,0,0> ; expected c,080h,0,0 ; (32 cycles)
|
||
tstr 0,0ffh,0,0,0,0,0,057h,0,0 ; (13 cycles)
|
||
expcrc <071h,000h,034h,0cbh>,<071h,03ah,0cdh,081h>,<0,g 'ldd<r> (1)'
|
||
|
||
; ldd<r> (2) (44 cycles)
|
||
ldd2: db flgmask ; flag mask
|
||
tstr <0edh,0a8h>,0f12eh,0eb2ah,0d5bah,msbt+3,msbt+1,cles)
|
||
rot8080: db flgmask ; flag mask
|
||
tstr 7,0cb92h,06d43h,00a90h,0c284h,00c53h,0f50eh,091h,0ebh,040fch
|
||
tstr 018h,0,0,0,0,; (16,384 cycles)
|
||
tstr 0,0,0,0,0,0,0,0,0,0 ; (1 cycle)
|
||
expcrc <0d6h,038h,0ddh,06ah>,<06ah,03ch,03bh,0bdh>,<0,0,0,0> ; expetstr <0cbh,080h>,02cd5h,097abh,039ffh,msbt,0d14bh,06ab2h,053h,027h,0b538h
|
||
tstr <0,07fh>,0,0,0,0,0,0,0,0,0 ; (128 cycles)
|
||
tsrc
|
||
tmsg 'ldi<r> (1)'
|
||
|
||
; ldi<r> (2) (44 cycles)
|
||
ldi2: db flgmask ; flag mask
|
||
tstr <0edh,0a0h>,04aceh,0c26eh,0b188h,msbt+20,0,0> ; expected crc
|
||
tmsg 'shf/rot (<ix,iy>+1)'
|
||
|
||
; shift/rotate <b,c,d,e,h,l,(hl),a> (6784 cycles)
|
||
rotz80: db flgmask ; f2,047h,0ffh,0fbe4h
|
||
tstr <0,010h>,0,0,0,0,0,0,0,0,0 ; (2 cycles)
|
||
tstr 0,-1,0,0,0,0,0,0d7h,0,0 ; (22 cycles)
|
||
expcrc <039h0,0,0,-1,0 ; (1024 cycles)
|
||
tstr 0,0,0,0,0,0,0,0d7h,0,0 ; (6 cycles)
|
||
expcrc <09bh,0a3h,080h,07ch>,<025h,013h,030h,0aeh>,<tr 0,0ffh,0,0,0,-1,-1,0d7h,-1,0 ; (62 cycles)
|
||
expcrc <08bh,057h,0f0h,008h>,<08bh,057h,0f0h,008h>,<0,0,0,0> ; expected crc
|
||
t 2,00c3bh,0b592h,06cffh,0959eh,msbt,msbt+1,0c1h,021h,0bde7h
|
||
tstr 018h,0,0,0,0,0,0,0,0,0 ; (4 cycles)
|
||
tstr 0,-1,0,0,0,0,0,0crc <06ah,01ah,088h,031h>,<06ah,01ah,088h,031h>,<0,0,0,0> ; expected crc
|
||
tmsg 'ld (<ix,iy>+1),<h,l>'
|
||
|
||
; ld (<ix,iy>+1),a (64 call initcrc ; initialise crc
|
||
; test loop
|
||
tlp: ld a,(iut)
|
||
cp 076h ; pragmatically avoid halt intructions
|
||
jp z,tlp2
|
||
anbt-1,msbt-1,0b73ah,0887bh,099eeh,086h,070h,0ca07h
|
||
tstr <020h,003h>,0,1,1,0,0,0,0,0,0 ; (32 cycles)
|
||
tstr 0,0,0,0,0,-1,-1,0,0sk+1),a
|
||
inc hl
|
||
push hl
|
||
ld de,20
|
||
add hl,de ; point to incmask
|
||
ld de,counter
|
||
call initmask
|
||
pop hl
|
||
push hl
|
||
ld demsg '<set,res> n,<bcdehl(hl)a>'
|
||
|
||
; <set,res> n,(<ix,iy>+1) (1792 cycles)
|
||
srzx: db flgmask ; flag mask
|
||
tstr <0ddh,0cbh,1,08,-1,0 ; (24 cycles)
|
||
expcrc <07ah,04ch,011h,04fh>,<07ah,04ch,011h,04fh>,<008h,0d8h,0e7h,03eh> ; expected crc
|
||
tmsg 'ld (<bc, cycles)
|
||
st8ix3: db flgmask ; flag mask
|
||
tstr <0ddh,077h,1>,067afh,msbt-1,msbt-1,04f13h,00644h,0bcd7h,050h,0ach,05fafh
|
||
tstrd 0dfh
|
||
cp 0ddh
|
||
jp nz,tlp1
|
||
ld a,(iut+1)
|
||
cp 076h
|
||
tlp1: call nz,test ; execute the test instruction
|
||
tlp2: call count ; ,0 ; (32 cycles)
|
||
expcrc <004h,062h,06ah,0bfh>,<004h,062h,06ah,0bfh>,<0,0,0,0> ; expected crc
|
||
tmsg 'ld (<ix,iy>+1),<b,c,d,e,20+20
|
||
add hl,de ; point to scanmask
|
||
ld de,shifter
|
||
call initmask
|
||
ld hl,shifter
|
||
ld (hl),1 ; first bit
|
||
pop hl
|
||
push6h>,0fb44h,msbt-1,msbt-1,0ba09h,068beh,032d8h,010h,05eh,0a867h
|
||
tstr <020h,0,0,078h>,0,0,0,0,0,0,0,0,0 ; (128 cycles)
|
||
tstr 0,de>),a'
|
||
|
||
;destination pointer in de, origin pointer in HL, number of bytes in bc
|
||
ldirX macro
|
||
local again
|
||
if isZ80
|
||
020h,0,1,1,0,0,0,0,0,0 ; (8 cycles)
|
||
tstr 0,0,0,0,0,0,0,0,-1,0 ; (8 cycles)
|
||
expcrc <0cch,0beh,05ah,096h>,<0cch,0beh,05ahincrement the counter
|
||
call nz,shift ; shift the scan bit
|
||
pop hl ; pointer to test case
|
||
jp z,tlp3 ; done if shift returne>'
|
||
|
||
; ld (<ix,iy>+1),<h,l> (256 cycles)
|
||
st8ix2: db flgmask ; flag mask
|
||
tstr <0ddh,074h,1>,0b664h,msbt-1,msbt-1,0e8ach,0b5f hl
|
||
ld de,iut ; copy initial instruction under test
|
||
ld bc,4
|
||
ldirX
|
||
ld de,msbt ; copy initial machine state
|
||
ld bc,16
|
||
0ffh,0,0,0,0,0,0d7h,0,0 ;(14 cycles)
|
||
expcrc <0cch,063h,0f9h,08ah>,<0cch,063h,0f9h,08ah>,<0,0,0,0> ; expected crc
|
||
tmsg '<setldir
|
||
else
|
||
again: ld a,(hl)
|
||
ld (de),a
|
||
inc hl
|
||
inc de
|
||
dec c
|
||
jp nz,again
|
||
endif
|
||
endm
|
||
|
||
; start test point,096h>,<0,0,0,0> ; expected crc
|
||
tmsg 'ld (<ix,iy>+1),a'
|
||
|
||
; ld (<bc,de>),a (96 cycles)
|
||
stabd: db flgmask ; flag mask
|
||
tstrd NZ
|
||
ld de,20+20+20
|
||
add hl,de ; point to expected crc
|
||
call cmpcrc
|
||
ld de,okmsg
|
||
jp z,tlpok
|
||
ld a,1 ; set error flag
|
||
5h,0aafeh,012h,010h,09566h
|
||
tstr <020h,001h>,0,1,1,0,0,0,0,0,0 ; (16 cycles)
|
||
tstr 0,0,0,0,-1,0,0,0,0,0 ; (32 cycles)
|
||
exp ldirX
|
||
ld de,20+20+4 ; skip incmask, scanmask and expcrc
|
||
add hl,de
|
||
ex de,hl
|
||
ld c,printst
|
||
call bdos ; show test name
|
||
,res> n,(<ix,iy>+1)'
|
||
|
||
; ld (<ix,iy>+1),<b,c,d,e> (1024 cycles)
|
||
st8ix1: db flgmask ; flag mask
|
||
tstr <0ddh,070h,1>,0270dh,msed to by (hl)
|
||
stt: push hl
|
||
ld a,(hl) ; get pointer to test
|
||
inc hl
|
||
ld h,(hl)
|
||
ld l,a
|
||
ld a,(hl) ; flag mask
|
||
ld (flgm ld (erfnd),a
|
||
ld de,ermsg1
|
||
ld c,printst
|
||
call bdos
|
||
call phex8
|
||
ld de,ermsg2
|
||
ld c,printst
|
||
call bdos
|
||
ld hl,crcval
|
||
a
|
||
rlca
|
||
ld (hl),a
|
||
cp 1
|
||
jp nz,ncb1
|
||
ld hl,(cntbyt)
|
||
inc hl
|
||
ld (cntbyt),hl
|
||
ncb1: ld a,b
|
||
and c
|
||
pop hl
|
||
pop bc
|
||
re shift mask
|
||
ld a,(hl)
|
||
cp 0
|
||
jp z,substr
|
||
ld b,8 ; 8 bits
|
||
sbshf1: rrca
|
||
push af
|
||
ld a,0
|
||
call c,nxtsbit ; get next shi(get byte offset)
|
||
ld l,a
|
||
ld h,0
|
||
ld a,d
|
||
and 7 ; bit offset
|
||
inc a
|
||
ld b,a
|
||
ld a,080h
|
||
imlp3: rlca
|
||
dec b
|
||
jp nz,imlof bytes
|
||
; hl = pointer to base case
|
||
; de = destination
|
||
setup: call subyte
|
||
inc hl
|
||
dec b
|
||
jp nz,setup
|
||
ret
|
||
|
||
subyte: pu
|
||
; initialise counter or shifter
|
||
; de = pointer to work area for counter or shifter
|
||
; hl = pointer to mask
|
||
initmask:
|
||
push dcall phex8
|
||
ld de,crlf
|
||
tlpok: ld c,printst
|
||
call bdos
|
||
pop hl
|
||
inc hl
|
||
inc hl
|
||
ret
|
||
|
||
tlp3: push hl
|
||
ld a,1 ; initialist z
|
||
ld a,1
|
||
ret
|
||
|
||
; get next shifter bit in low bit of a
|
||
shfbit: ds 1
|
||
shfbyt: ds 2
|
||
|
||
nxtsbit: push bc
|
||
push hl
|
||
ld hl,(fter bit if mask bit was set
|
||
xor c ; flip bit if shifter bit was set
|
||
rrca
|
||
ld c,a
|
||
pop af
|
||
dec b
|
||
jp nz,sbshf1
|
||
substr:p3
|
||
pop de
|
||
add hl,de
|
||
ld de,20
|
||
add hl,de
|
||
ld (hl),a
|
||
ret
|
||
|
||
; multi-byte counter
|
||
count: push bc
|
||
push de
|
||
push hl
|
||
lsh bc
|
||
push de
|
||
push hl
|
||
ld c,(hl) ; get base byte
|
||
ld de,20
|
||
add hl,de ; point to incmask
|
||
ld a,(hl)
|
||
cp 0
|
||
jp z,subse
|
||
ex de,hl
|
||
ld bc,20+20
|
||
call clrmem ; clear work area
|
||
ex de,hl
|
||
ld b,20 ; byte counter
|
||
ld c,1 ; first bit
|
||
ld d,0 e count and shift scanners
|
||
ld (cntbit),a
|
||
ld (shfbit),a
|
||
ld hl,counter
|
||
ld (cntbyt),hl
|
||
ld hl,shifter
|
||
ld (shfbyt),hl
|
||
|
||
shfbyt)
|
||
ld b,(hl)
|
||
ld hl,shfbit
|
||
ld a,(hl)
|
||
ld c,a
|
||
rlca
|
||
ld (hl),a
|
||
cp 1
|
||
jp nz,nsb1
|
||
ld hl,(shfbyt)
|
||
inc hl
|
||
ld (s pop hl
|
||
pop de
|
||
ld a,c
|
||
ld (de),a ; mangled byte to destination
|
||
inc de
|
||
pop bc
|
||
ret
|
||
|
||
; get next counter bit in low bid hl,counter ; 20 byte counter starts here
|
||
ld de,20 ; somewhere in here is the stop bit
|
||
ex de,hl
|
||
add hl,de
|
||
ex de,hl
|
||
cnhf
|
||
ld b,8 ; 8 bits
|
||
subclp: rrca
|
||
push af
|
||
ld a,0
|
||
call c,nxtcbit ; get next counter bit if mask bit was set
|
||
xor c ; fl ; bit counter
|
||
imlp: ld e,(hl)
|
||
imlp1: ld a,e
|
||
and c
|
||
jp z,imlp2
|
||
inc d
|
||
imlp2: ld a,c
|
||
rlca
|
||
ld c,a
|
||
cp 1
|
||
jp nz,imlp1
|
||
ld b,4 ; bytes in iut field
|
||
pop hl ; pointer to test case
|
||
push hl
|
||
ld de,iut
|
||
call setup ; setup iut
|
||
ld b,16 ; bytehfbyt),hl
|
||
nsb1: ld a,b
|
||
and c
|
||
pop hl
|
||
pop bc
|
||
ret z
|
||
ld a,1
|
||
ret
|
||
|
||
|
||
; clear memory at hl, bc bytes
|
||
clrmem: push af
|
||
t of a
|
||
cntbit: ds 1
|
||
cntbyt: ds 2
|
||
|
||
nxtcbit: push bc
|
||
push hl
|
||
ld hl,(cntbyt)
|
||
ld b,(hl)
|
||
ld hl,cntbit
|
||
ld a,(hl)
|
||
ld c,tlp: inc (hl)
|
||
ld a,(hl)
|
||
cp 0
|
||
jp z,cntlp1 ; overflow to next byte
|
||
ld b,a
|
||
ld a,(de)
|
||
and b ; test for terminal value
|
||
ip bit if counter bit was set
|
||
rrca
|
||
ld c,a
|
||
pop af
|
||
dec b
|
||
jp nz,subclp
|
||
ld b,8
|
||
subshf: ld de,20
|
||
add hl,de ; point to
|
||
inc hl
|
||
dec b
|
||
jp nz,imlp
|
||
; got number of 1-bits in mask in reg d
|
||
ld a,d
|
||
and 0f8h
|
||
rrca
|
||
rrca
|
||
rrca ; divide by 8 s in machine state
|
||
ld de,msbt
|
||
call setup ; setup machine state
|
||
jp tlp
|
||
|
||
; setup a field of the test case
|
||
; b = number push bc
|
||
push de
|
||
push hl
|
||
ld (hl),0
|
||
ld d,h
|
||
ld e,l
|
||
inc de
|
||
dec bc
|
||
ldirX
|
||
pop hl
|
||
pop de
|
||
pop bc
|
||
pop af
|
||
ret
|
||
|
||
jp z,cntend
|
||
ld (hl),0 ; reset to zero
|
||
cntend: pop bc
|
||
pop de
|
||
pop hl
|
||
ret
|
||
|
||
cntlp1: inc hl
|
||
inc de
|
||
jp cntlp
|
||
|
||
|
||
; mpsav ; save stack pointer
|
||
ld sp,msbt+2 ; point to test-case machine state
|
||
popiy ; and load all regs
|
||
popix
|
||
pop hl
|
||
po push ix
|
||
else
|
||
ld (temphl),hl
|
||
ld hl,0
|
||
push hl
|
||
ld hl,(temphl)
|
||
endif
|
||
endm
|
||
|
||
pushiy macro
|
||
if isz80ds 2 ; saved stack pointer
|
||
if isZ80 eq 0
|
||
temphl: ds 2
|
||
endif
|
||
|
||
; display hex string (pointer in hl, byte count in if isz80
|
||
ld sp,(nn)
|
||
else
|
||
ld (temphl),hl
|
||
ld hl,(nn)
|
||
ld sp,hl
|
||
ld hl,(temphl)
|
||
endif
|
||
endm
|
||
|
||
ldnnsp macro nt
|
||
ld hl,crcval
|
||
tcrc: ld a,(de)
|
||
inc de
|
||
call updcrc ; accumulate crc of this test case
|
||
dec b
|
||
jp nz,tcrc
|
||
if traculti-byte shifter
|
||
shift: push bc
|
||
push de
|
||
push hl
|
||
ld hl,shifter ; 20 byte shift register starts here
|
||
ld de,20 ; somewhep de
|
||
pop bc
|
||
pop af
|
||
ldspnn spbt
|
||
iut: ds 4 ; max 4 byte instruction under test
|
||
ldnnsp spat ; save stack pointer
|
||
ld sp
|
||
push iy
|
||
else
|
||
ld (temphl),hl
|
||
ld hl,0
|
||
push hl
|
||
ld hl,(temphl)
|
||
endif
|
||
endm
|
||
|
||
; test harness
|
||
test b)
|
||
hexstr: ld a,(hl)
|
||
call phex2
|
||
inc hl
|
||
dec b
|
||
jp nz,hexstr
|
||
ret
|
||
|
||
; display hex
|
||
; display the big-endian 32-bit valun
|
||
if isz80
|
||
ld (nn),sp ; save stack pointer
|
||
else
|
||
ld (temphl),hl
|
||
ld hl,0
|
||
add hl,sp
|
||
ld (nn),hl ; save stack pe
|
||
ld e,' '
|
||
ld c,conout
|
||
call bdos
|
||
ld hl,crcval
|
||
call phex8
|
||
ld de,crlf
|
||
ld c,printst
|
||
call bdos
|
||
ld hl,msat
|
||
ld b,1re in here is the stop bit
|
||
ex de,hl
|
||
add hl,de
|
||
ex de,hl
|
||
shflp: ld a,(hl)
|
||
or a
|
||
jp z,shflp1
|
||
ld b,a
|
||
ld a,(de)
|
||
and b,spat
|
||
push af ; save other registers
|
||
push bc
|
||
push de
|
||
push hl
|
||
pushix
|
||
pushiy
|
||
ldspnn spsav ; restore stack pointer
|
||
: push af
|
||
push bc
|
||
push de
|
||
push hl
|
||
if trace
|
||
ld de,crlf
|
||
ld c,printst
|
||
call bdos
|
||
ld hl,iut
|
||
ld b,4
|
||
call hexse pointed to by hl
|
||
phex8: push af
|
||
push bc
|
||
push hl
|
||
ld b,4
|
||
ph8lp: ld a,(hl)
|
||
call phex2
|
||
inc hl
|
||
dec b
|
||
jp nz,ph8lp
|
||
ointer
|
||
ld hl,(temphl)
|
||
endif
|
||
endm
|
||
|
||
popix macro
|
||
if isz80
|
||
pop ix
|
||
else
|
||
pop hl
|
||
endif
|
||
en6
|
||
call hexstr
|
||
ld de,crlf
|
||
ld c,printst
|
||
call bdos
|
||
endif
|
||
pop hl
|
||
pop de
|
||
pop bc
|
||
pop af
|
||
ret
|
||
|
||
; machine stat
|
||
jp nz,shlpe
|
||
ld a,b
|
||
rlca
|
||
cp 1
|
||
jp nz,shflp2
|
||
ld (hl),0
|
||
inc hl
|
||
inc de
|
||
shflp2: ld (hl),a
|
||
xor a ; set Z
|
||
shlpe: p
|
||
ei ; enable interrupts
|
||
ld hl,(msbt) ; copy memory operand
|
||
ld (msat),hl
|
||
ld hl,flgsat ; flags after test
|
||
ld a,(hl)
|
||
fltr
|
||
ld e,' '
|
||
ld c,conout
|
||
call bdos
|
||
ld b,16
|
||
ld hl,msbt
|
||
call hexstr
|
||
endif
|
||
di ; disable interrupts
|
||
ldnnsp spop hl
|
||
pop bc
|
||
pop af
|
||
ret
|
||
|
||
; display byte in a
|
||
phex2: push af
|
||
rrca
|
||
rrca
|
||
rrca
|
||
rrca
|
||
call phex1
|
||
pop af
|
||
; fall dm
|
||
|
||
popiy macro
|
||
if isz80
|
||
pop iy
|
||
else
|
||
pop hl
|
||
endif
|
||
endm
|
||
|
||
pushix macro
|
||
if isz80
|
||
e after test
|
||
msat: ds 14 ; memop,iy,ix,hl,de,bc,af
|
||
spat: ds 2 ; stack pointer after test
|
||
flgsat equ spat-2 ; flags
|
||
|
||
spsav: op hl
|
||
pop de
|
||
pop bc
|
||
ret
|
||
shflp1: inc hl
|
||
inc de
|
||
jp shflp
|
||
|
||
counter: ds 2*20
|
||
shifter: ds 2*20
|
||
|
||
ldspnn macro nn
|
||
gmsk: and 0d7h ; mask-out irrelevant bits (self-modified code!)
|
||
ld (hl),a
|
||
ld b,16 ; total of 16 bytes of state
|
||
ld de,msathrough
|
||
|
||
; display low nibble in a
|
||
phex1: push af
|
||
push bc
|
||
push de
|
||
push hl
|
||
and 0fh
|
||
cp 10
|
||
jp c,ph11
|
||
add a,'a'-'9'rclp
|
||
if 0
|
||
ld hl,crcval
|
||
call phex8
|
||
ld de,crlf
|
||
ld c,printst
|
||
call bdos
|
||
endif
|
||
pop hl
|
||
pop de
|
||
pop bc
|
||
pains next byte, hl points to crc
|
||
; exit: crc updated
|
||
updcrc: push af
|
||
push bc
|
||
push de
|
||
push hl
|
||
push hl
|
||
ld de,3
|
||
add b 04ch,069h,010h,05eh
|
||
db 0d5h,060h,041h,0e4h
|
||
db 0a2h,067h,071h,072h
|
||
db 03ch,003h,0e4h,0d1h
|
||
db 04bh,004h,0d4h,047h
|
||
db 0,lf,'$'
|
||
ermsg1: db ' ERROR **** crc expected:$'
|
||
ermsg2: db ' found:$'
|
||
crlf: db cr,lf,'$'
|
||
erfnd: db 0 ; set to 1 if error f4ch,02bh
|
||
db 07eh,0b1h,07ch,0bdh
|
||
db 0e7h,0b8h,02dh,007h
|
||
db 090h,0bfh,01dh,091h
|
||
db 01dh,0b7h,010h,064h
|
||
db 06ah,0b0h,020h-1
|
||
ph11: add a,'0'
|
||
ld e,a
|
||
ld c,conout
|
||
call bdos
|
||
pop hl
|
||
pop de
|
||
pop bc
|
||
pop af
|
||
ret
|
||
|
||
bdos: push af
|
||
push bc
|
||
puop af
|
||
ret
|
||
|
||
initcrc:push af
|
||
push bc
|
||
push hl
|
||
ld hl,crcval
|
||
ld a,0ffh
|
||
ld b,4
|
||
icrclp: ld (hl),a
|
||
inc hl
|
||
dec b
|
||
jp hl,de ; point to low byte of old crc
|
||
xor (hl) ; xor with new byte
|
||
ld l,a
|
||
ld h,0
|
||
add hl,hl ; use result as index into tabd2h,00dh,085h,0fdh
|
||
db 0a5h,00ah,0b5h,06bh
|
||
db 035h,0b5h,0a8h,0fah
|
||
db 042h,0b2h,098h,06ch
|
||
db 0dbh,0bbh,0c9h,0d6h
|
||
db 0achound
|
||
nsw: db 0
|
||
allok: db 'All tests successful.',cr,lf,'$'
|
||
erfndt: db 'Some failure detected.',cr,lf,'$'
|
||
|
||
; compare crc
|
||
; ,0f2h
|
||
db 0f3h,0b9h,071h,048h
|
||
db 084h,0beh,041h,0deh
|
||
db 01ah,0dah,0d4h,07dh
|
||
db 06dh,0ddh,0e4h,0ebh
|
||
db 0f4h,0d4h,0b5h,05sh de
|
||
push hl
|
||
call bdosO
|
||
pop hl
|
||
pop de
|
||
pop bc
|
||
pop af
|
||
ret
|
||
|
||
if isz80
|
||
msg1: db 'Z80 instruction exerciser',cnz,icrclp
|
||
pop hl
|
||
pop bc
|
||
pop af
|
||
ret
|
||
|
||
crcval: ds 4
|
||
|
||
crctab: db 000h,000h,000h,000h
|
||
db 077h,007h,030h,096h
|
||
db 0eeh,le of 4 byte entries
|
||
add hl,hl
|
||
ex de,hl
|
||
ld hl,crctab
|
||
add hl,de ; point to selected entry in crctab
|
||
ex de,hl
|
||
pop hl
|
||
,0bch,0f9h,040h
|
||
db 032h,0d8h,06ch,0e3h
|
||
db 045h,0dfh,05ch,075h
|
||
db 0dch,0d6h,00dh,0cfh
|
||
db 0abh,0d1h,03dh,059h
|
||
db 026h,0dhl points to value to compare to crcval
|
||
cmpcrc: push bc
|
||
push de
|
||
push hl
|
||
ld de,crcval
|
||
ld b,4
|
||
cclp: ld a,(de)
|
||
cp (hl)
|
||
1h
|
||
db 083h,0d3h,085h,0c7h
|
||
db 013h,06ch,098h,056h
|
||
db 064h,06bh,0a8h,0c0h
|
||
db 0fdh,062h,0f9h,07ah
|
||
db 08ah,065h,0c9h,0ech
|
||
r,lf
|
||
if genz80
|
||
db 'Undefined status bits NOT taken into account'
|
||
else
|
||
db 'Undefined status bits taken into acc00eh,061h,02ch
|
||
db 099h,009h,051h,0bah
|
||
db 007h,06dh,0c4h,019h
|
||
db 070h,06ah,0f4h,08fh
|
||
db 0e9h,063h,0a5h,035h
|
||
db 09eh,064 ld bc,4 ; c = byte count, b = accumulator
|
||
crclp: ld a,(de)
|
||
xor b
|
||
ld b,(hl)
|
||
ld (hl),a
|
||
inc de
|
||
inc hl
|
||
dec c
|
||
jp nz,c9h,030h,0ach
|
||
db 051h,0deh,000h,03ah
|
||
db 0c8h,0d7h,051h,080h
|
||
db 0bfh,0d0h,061h,016h
|
||
db 021h,0b4h,0f4h,0b5h
|
||
db 056h,0b3h,
|
||
jp nz,cce
|
||
inc hl
|
||
inc de
|
||
dec b
|
||
jp nz,cclp
|
||
cce: pop hl
|
||
pop de
|
||
pop bc
|
||
ret
|
||
|
||
; 32-bit crc routine
|
||
; entry: a cont
|
||
db 014h,001h,05ch,04fh
|
||
db 063h,006h,06ch,0d9h
|
||
db 0fah,00fh,03dh,063h
|
||
db 08dh,008h,00dh,0f5h
|
||
db 03bh,06eh,020h,0c8h
|
||
dount'
|
||
endif
|
||
db cr,lf,'$'
|
||
else
|
||
msg1: db '8080 instruction exerciser',cr,lf,'$'
|
||
endif
|
||
okmsg: db ' OK',crh,095h,0a3h
|
||
db 00eh,0dbh,088h,032h
|
||
db 079h,0dch,0b8h,0a4h
|
||
db 0e0h,0d5h,0e9h,01eh
|
||
db 097h,0d2h,0d9h,088h
|
||
db 009h,0b6h,00c4h,023h
|
||
db 0cfh,0bah,095h,099h
|
||
db 0b8h,0bdh,0a5h,00fh
|
||
db 028h,002h,0b8h,09eh
|
||
db 05fh,005h,088h,008h
|
||
db 0c6h,00ch,0d9 05eh,0deh,0f9h,00eh
|
||
db 029h,0d9h,0c9h,098h
|
||
db 0b0h,0d0h,098h,022h
|
||
db 0c7h,0d7h,0a8h,0b4h
|
||
db 059h,0b3h,03dh,017h
|
||
db 020h,0e2h
|
||
db 04ah,0dfh,0a5h,041h
|
||
db 03dh,0d8h,095h,0d7h
|
||
db 0a4h,0d1h,0c4h,06dh
|
||
db 0d3h,0d6h,0f4h,0fbh
|
||
db 043h,069h,0e9h,3fh,0b5h,006h,0ddh
|
||
db 048h,0b2h,036h,04bh
|
||
db 0d8h,00dh,02bh,0dah
|
||
db 0afh,00ah,01bh,04ch
|
||
db 036h,003h,04ah,0f6h
|
||
db 041h0e6h,063h,05ch,001h
|
||
db 06bh,06bh,051h,0f4h
|
||
db 01ch,06ch,061h,062h
|
||
db 085h,065h,030h,0d8h
|
||
db 0f2h,062h,000h,04eh
|
||
db 06c,0d2h
|
||
db 01eh,001h,0f2h,068h
|
||
db 069h,006h,0c2h,0feh
|
||
db 0f7h,062h,057h,05dh
|
||
db 080h,065h,067h,0cbh
|
||
db 019h,06ch,036h,07h,0b2h
|
||
db 0b1h,00bh,0e9h,024h
|
||
db 02fh,06fh,07ch,087h
|
||
db 058h,068h,04ch,011h
|
||
db 0c1h,061h,01dh,0abh
|
||
db 0b6h,066h,02dh,0eh,0b4h,00dh,081h
|
||
db 0b7h,0bdh,05ch,03bh
|
||
db 0c0h,0bah,06ch,0adh
|
||
db 0edh,0b8h,083h,020h
|
||
db 09ah,0bfh,0b3h,0b6h
|
||
db 003h,06ah
|
||
db 034h,06eh,0d9h,0fch
|
||
db 0adh,067h,088h,046h
|
||
db 0dah,060h,0b8h,0d0h
|
||
db 044h,004h,02dh,073h
|
||
db 033h,003h,01dh,0e5,004h,07ah,060h
|
||
db 0dfh,060h,0efh,0c3h
|
||
db 0a8h,067h,0dfh,055h
|
||
db 031h,06eh,08eh,0efh
|
||
db 046h,069h,0beh,079h
|
||
db 0cbh,06h,006h,095h,0edh
|
||
db 01bh,001h,0a5h,07bh
|
||
db 082h,008h,0f4h,0c1h
|
||
db 0f5h,00fh,0c4h,057h
|
||
db 065h,0b0h,0d9h,0c6h
|
||
db 012h,01h
|
||
db 06eh,06bh,006h,0e7h
|
||
db 0feh,0d4h,01bh,076h
|
||
db 089h,0d3h,02bh,0e0h
|
||
db 010h,0dah,07ah,05ah
|
||
db 067h,0ddh,04ah,0cch
|
||
3dh
|
||
db 076h,0dch,041h,090h
|
||
db 001h,0dbh,071h,006h
|
||
db 098h,0d2h,020h,0bch
|
||
db 0efh,0d5h,010h,02ah
|
||
db 071h,0b1h,085h,089h0b6h,0e2h,00ch
|
||
db 074h,0b1h,0d2h,09ah
|
||
db 0eah,0d5h,047h,039h
|
||
db 09dh,0d2h,077h,0afh
|
||
db 004h,0dbh,026h,015h
|
||
db 073h,0dch
|
||
db 0aah,00ah,04ch,05fh
|
||
db 0ddh,00dh,07ch,0c9h
|
||
db 050h,005h,071h,03ch
|
||
db 027h,002h,041h,0aah
|
||
db 0beh,00bh,010h,010h
|
||
1h,0b3h,08ch
|
||
db 0bch,066h,083h,01ah
|
||
db 025h,06fh,0d2h,0a0h
|
||
db 052h,068h,0e2h,036h
|
||
db 0cch,00ch,077h,095h
|
||
db 0bbh,00bh,b7h,0e9h,050h
|
||
db 08bh,0beh,0b8h,0eah
|
||
db 0fch,0b9h,088h,07ch
|
||
db 062h,0ddh,01dh,0dfh
|
||
db 015h,0dah,02dh,049h
|
||
db 08ch,0d3h
|
||
db 0f9h,0b9h,0dfh,06fh
|
||
db 08eh,0beh,0efh,0f9h
|
||
db 017h,0b7h,0beh,043h
|
||
db 060h,0b0h,08eh,0d5h
|
||
db 0d6h,0d6h,0a3h,0e8h
|
||
d
|
||
db 006h,0b6h,0b5h,01fh
|
||
db 09fh,0bfh,0e4h,0a5h
|
||
db 0e8h,0b8h,0d4h,033h
|
||
db 078h,007h,0c9h,0a2h
|
||
db 00fh,000h,0f9h,034h
|
||
h,016h,083h
|
||
db 0e3h,063h,00bh,012h
|
||
db 094h,064h,03bh,084h
|
||
db 00dh,06dh,06ah,03eh
|
||
db 07ah,06ah,05ah,0a8h
|
||
db 0e4h,00eh,0 db 0c9h,00ch,020h,086h
|
||
db 057h,068h,0b5h,025h
|
||
db 020h,06fh,085h,0b3h
|
||
db 0b9h,066h,0d4h,009h
|
||
db 0ceh,061h,0e4h,09fh
|
||
db047h,003h
|
||
db 022h,002h,016h,0b9h
|
||
db 055h,005h,026h,02fh
|
||
db 0c5h,0bah,03bh,0beh
|
||
db 0b2h,0bdh,00bh,028h
|
||
db 02bh,0b4h,05a,07ch,0f3h
|
||
db 0fbh,0d4h,04ch,065h
|
||
db 04dh,0b2h,061h,058h
|
||
db 03ah,0b5h,051h,0ceh
|
||
db 0a3h,0bch,000h,074h
|
||
db 0d4h,0bbh,03b 0a1h,0d1h,093h,07eh
|
||
db 038h,0d8h,0c2h,0c4h
|
||
db 04fh,0dfh,0f2h,052h
|
||
db 0d1h,0bbh,067h,0f1h
|
||
db 0a6h,0bch,057h,067h
|
||
db 0db 096h,009h,0a8h,08eh
|
||
db 0e1h,00eh,098h,018h
|
||
db 07fh,06ah,00dh,0bbh
|
||
db 008h,06dh,03dh,02dh
|
||
db 091h,064h,06ch,097h
|
||
db cfh,00bh
|
||
db 093h,009h,0ffh,09dh
|
||
db 00ah,000h,0aeh,027h
|
||
db 07dh,007h,09eh,0b1h
|
||
db 0f0h,00fh,093h,044h
|
||
db 087h,008h,0a3hh,092h
|
||
db 05ch,0b3h,06ah,004h
|
||
db 0c2h,0d7h,0ffh,0a7h
|
||
db 0b5h,0d0h,0cfh,031h
|
||
db 02ch,0d9h,09eh,08bh
|
||
db 05bh,0deh,0aeh,03h,00ch,08eh,0a1h
|
||
db 05ah,005h,0dfh,01bh
|
||
db 02dh,002h,0efh,08dh
|
||
end
|
||
04ah
|
||
db 0d9h,0d6h,05ah,0dch
|
||
db 040h,0dfh,00bh,066h
|
||
db 037h,0d8h,03bh,0f0h
|
||
db 0a9h,0bch,0aeh,053h
|
||
db 0deh,0bbh,09eh,0c5 ; HERE TO DECREASE THE SYSGEN TIME FOR MISSED SECTORS
|
||
; WHEN SLOW CONTROLLERS ARE INVOLVED. TRANSLATIONh,0beh,016h,0cdh
|
||
db 0f6h,0b9h,026h,05bh
|
||
db 06fh,0b0h,077h,0e1h
|
||
db 018h,0b7h,047h,077h
|
||
db 088h,008h,05ah,0e6h
|
||
db 0ffh,0; (8 cycles)
|
||
|
||
expcrc <0f1h,0dah,0b5h,056h>,<0f1h,0dah,0b5h,056h>,<0d1h,055h,074h,01bh> ; expected crc
|
||
|
||
tmsg 'ld <b,c,d,e,h,l1dh
|
||
db 09bh,064h,0c2h,0b0h
|
||
db 0ech,063h,0f2h,026h
|
||
db 075h,06ah,0a3h,09ch
|
||
db 002h,06dh,093h,00ah
|
||
db 09ch,009h,006h,0a9hmask
|
||
|
||
tstr 00ah,0b3a8h,01d2ah,07f8eh,042ach,msbt,msbt,0c6h,0b1h,0ef8eh
|
||
|
||
tstr 010h,0,0,0,0,0,0,0,0,0 ; (2 cycles)
|
||
|
||
tstr 0h
|
||
db 047h,0b2h,0cfh,07fh
|
||
db 030h,0b5h,0ffh,0e9h
|
||
db 0bdh,0bdh,0f2h,01ch
|
||
db 0cah,0bah,0c2h,08ah
|
||
db 053h,0b3h,093h,030h
|
||
TAKES
|
||
; PLACE ACCORDING TO THE "SKEW" FACTOR SET ABOVE.
|
||
;
|
||
0128 02 OST: DB NTRKS ;OPE0fh,06ah,070h
|
||
db 066h,006h,03bh,0cah
|
||
db 011h,001h,00bh,05ch
|
||
db 08fh,065h,09eh,0ffh
|
||
db 0f8h,062h,0aeh,069h
|
||
db 061h,06bh,(hl),a>,nn'
|
||
|
||
|
||
|
||
; ld (<ix,iy>+1),nn (32 cycles)
|
||
|
||
ld8imx: db flgmask ; flag mask
|
||
|
||
tstr <0ddh,036h,1>,01b45h,msbt-1,msbt-1,0
|
||
db 0ebh,00eh,036h,03fh
|
||
db 072h,007h,067h,085h
|
||
db 005h,000h,057h,013h
|
||
db 095h,0bfh,04ah,082h
|
||
db 0e2h,0b8h,07ah,014h
|
||
,0ffh,0,0,0,0,0,0d7h,-1,0 ; (22 cycles)
|
||
|
||
expcrc <0b0h,081h,089h,035h>,<0b0h,081h,089h,035h>,<026h,09fh,0d4h,028h> ; expected db 024h,0b4h,0a3h,0a6h
|
||
db 0bah,0d0h,036h,005h
|
||
db 0cdh,0d7h,006h,093h
|
||
db 054h,0deh,057h,029h
|
||
db 023h,0d9h,067h,0bfh
|
||
dbRATING SYSTEM TRACKS
|
||
0129 1A SPT: DB NSECTS ;SECTORS PER TRACK (CAN BE PATCHED)
|
||
TRAN: ;BASE OF TRANS,0ffh,0d3h
|
||
db 016h,06ch,0cfh,045h
|
||
db 0a0h,00ah,0e2h,078h
|
||
db 0d7h,00dh,0d2h,0eeh
|
||
db 04eh,004h,083h,054h
|
||
db 039h,003h,0bN
|
||
;
|
||
0100 ORG TPA ;TRANSIENT PROGRAM AREA
|
||
0100 C37402 JMP START
|
||
0103 434F505952 DB 'COPYRIGdb 07bh,0b1h,02bh,0aeh
|
||
db 00ch,0b6h,01bh,038h
|
||
db 092h,0d2h,08eh,09bh
|
||
db 0e5h,0d5h,0beh,00dh
|
||
db 07ch,0dch,0efh,0b7h
|
||
db crc
|
||
|
||
tmsg 'ld a,<(bc),(de)>'
|
||
|
||
|
||
|
||
; ld <b,c,d,e,h,l,(hl),a>,nn (64 cycles)
|
||
|
||
ld8im: db flgmask ; flag mask
|
||
|
||
tstr 6,0c407h,0 0b3h,066h,07ah,02eh
|
||
db 0c4h,061h,04ah,0b8h
|
||
db 05dh,068h,01bh,002h
|
||
db 02ah,06fh,02bh,094h
|
||
db 0b4h,00bh,0beh,037h
|
||
db 0cLATE TABLE
|
||
0001 # TRELT SET 1 ;FIRST/NEXT TRAN ELEMENT
|
||
0001 # TRBASE SET 1 ;BASE FOR WRAPAROUND
|
||
3h,0c2h
|
||
db 0a7h,067h,026h,061h
|
||
db 0d0h,060h,016h,0f7h
|
||
db 049h,069h,047h,04dh
|
||
db 03eh,06eh,077h,0dbh
|
||
db 0aeh,0d1h,06ah,HT (C) 1978, DIGITAL RESEARCH '
|
||
;
|
||
; TRANSLATE TABLE - SECTOR NUMBERS ARE TRANSLATED
|
||
00bh,0dbh,0dfh,021h
|
||
db 086h,0d3h,0d2h,0d4h
|
||
db 0f1h,0d4h,0e2h,042h
|
||
db 068h,0ddh,0b3h,0f8h
|
||
db 01fh,0dah,083h,06eh
|
||
db 081f49dh,0d13dh,00339h,0de89h,07455h,053h,0c0h,05509h
|
||
|
||
tstr 038h,0,0,0,0,0,0,0,0,0 ; (8 cycles)
|
||
|
||
tstr 0,0,0,0,0,0,0,0,-1,0 REPT NSECTS ;ONCE FOR EACH SECTOR ON A TRACK
|
||
DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
CP/M MACRO ASSEM 2.0ERATE FIRST/NEXT SECTOR
|
||
0142+12 DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
0143+18 DB TRELT ;GENERATE FIRST/NEXT S DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
0139+0A DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
013A+10 DB TRELT ;GENE DB 0
|
||
0165+00 DB 0
|
||
0166+00 DB 0
|
||
0167+00 DB 0
|
||
0168+00 DB 0
|
||
0169+00 DB 0
|
||
OR
|
||
012F+02 DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
0130+08 DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
0131+0E +00 DB 0
|
||
0152+00 DB 0
|
||
0153+00 DB 0
|
||
0154+00 DB 0
|
||
0155+00 DB 0
|
||
CP/M MACRO ASSEM #002 SYSGEN - SYSTEM GENERATION PROGRAM 8/79
|
||
|
||
TRELT SET TRELT+SKEW
|
||
IF TRELT GT NSECTS
|
||
ECTOR
|
||
;
|
||
; NOW LEAVE SPACE FOR EXTENSIONS TO TRANSLATE TABLE
|
||
IF NSECTS LT 64
|
||
RATE FIRST/NEXT SECTOR
|
||
013B+16 DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
013C+05 DB TRELT ;GENERATE FIRST/NEXT SE ;
|
||
;
|
||
;
|
||
;
|
||
; UTILITY SUBROUTINES
|
||
DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
0132+14 DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
0133+1A DB TRELT ;GENER2.0 #003 SYSGEN - SYSTEM GENERATION PROGRAM 8/79
|
||
|
||
0156+00 DB 0
|
||
0157+00 DB 0
|
||
0158+00 DB 0
|
||
0159+00 TRBASE SET TRBASE+1
|
||
TRELT SET TRBASE
|
||
ENDIF
|
||
ENDM
|
||
012A+01
|
||
REPT 64-NSECTS
|
||
DB 0
|
||
ENDM
|
||
0144+00 DB 0
|
||
0145+00 DB 0
|
||
0CTOR
|
||
013D+0B DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
013E+11 DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
013F+17 MULTSEC:
|
||
;MULTIPLY THE SECTOR NUMBER IN A BY THE SECTOR SIZE
|
||
016A 6F2600 MOV L,A! MVI H,0 ;SECTOR NUMBATE FIRST/NEXT SECTOR
|
||
0134+03 DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
0135+09 DB TRELT ;GENERATE FIRST/NEXT SEC DB 0
|
||
015A+00 DB 0
|
||
015B+00 DB 0
|
||
015C+00 DB 0
|
||
015D+00 DB 0
|
||
015E+00 DB 0 DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
012B+07 DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
012C+0D DB TRELT ;GENERA146+00 DB 0
|
||
0147+00 DB 0
|
||
0148+00 DB 0
|
||
0149+00 DB 0
|
||
014A+00 DB 0
|
||
014B+00 DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
0140+06 DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
0141+0C DB TRELT ;GENER IN HL
|
||
REPT LOG2SEC ;LOG 2 OF SECTOR SIZE
|
||
DAD H
|
||
ENDM
|
||
016D+29 DTOR
|
||
0136+0F DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
0137+15 DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
0138+04
|
||
015F+00 DB 0
|
||
0160+00 DB 0
|
||
0161+00 DB 0
|
||
0162+00 DB 0
|
||
0163+00 DB 0
|
||
0164+00 TE FIRST/NEXT SECTOR
|
||
012D+13 DB TRELT ;GENERATE FIRST/NEXT SECTOR
|
||
012E+19 DB TRELT ;GENERATE FIRST/NEXT SECT DB 0
|
||
014C+00 DB 0
|
||
014D+00 DB 0
|
||
014E+00 DB 0
|
||
014F+00 DB 0
|
||
0150+00 DB 0
|
||
0151AD H
|
||
016E+29 DAD H
|
||
016F+29 DAD H
|
||
0170 C9 RET ;WITH HL = SECTOR * SECTOR SIZE
|
||
;
|
||
PCHL ;GONE TO SETTRK
|
||
;
|
||
SEC: ;SET UP SECTOR NUMBER
|
||
01B3 2A0100 LHLD WBOOT
|
||
01B6 111E00 MOV A,M! ORA A! RZ
|
||
; MESSAGE NOT YET COMPLETED
|
||
0199 E5CD7F01E1 PUSH H! CALL PUTCHAR! POP H! INX H
|
||
019FINT IN RAM FOR CP/M DURING SYSGEN
|
||
01E0 22A604 SHLD DMADDR
|
||
CP/M MACRO ASSEM 2.0 #005 SYSGEN - SYSTEM GENERATION PROGRAM 8! RET
|
||
;
|
||
CRLF: ;SEND CARRIAGE RETURN, LINE FEED
|
||
0186 3E0D MVI A,CR
|
||
0188 CD7F01 CAT
|
||
01CE 112700 LXI D,WRITF
|
||
01D1 19 DAD D
|
||
01D2 E9 PCHL
|
||
;
|
||
DREAD: ;DISK GETCHAR:
|
||
; READ CONSOLE CHARACTER TO REGISTER A
|
||
0171 0E01CD0500 MVI C,CONI! CALL BDOS!
|
||
LXI D,SETSEC
|
||
01B9 19 DAD D
|
||
01BA E9 PCHL
|
||
;
|
||
DMA: ;SET DMA ADDRESS TO VA C39601 JMP OUTMSG
|
||
;
|
||
SEL:
|
||
; SELECT DISK GIVEN BY REGISTER A
|
||
01A2 4F2A01/79
|
||
|
||
;
|
||
; CLEAR TRACK TO 00
|
||
01E3 3EFF MVI A,-1 ;START WITH TRACK EQUAL -1
|
||
01E5 32A304LL PUTCHAR
|
||
018B 3E0A MVI A,LF
|
||
018D CD7F01 CALL PUTCHAR
|
||
0190 C9 RET
|
||
;
|
||
CP/M MACRO ASSEMREAD FUNCTION
|
||
01D3 0E14 MVI C,DREADF
|
||
01D5 C30500 JMP BDOS
|
||
;
|
||
OPEN: ;FILE OPEN FUN ; CONVERT TO UPPER CASE BEFORE RETURN
|
||
0176 FE61D8 CPI 'A' OR 20H ! RC ;RETURN IF BELOW LOWER CASE A
|
||
0179 FE7B LUE OF B,C
|
||
01BB 2A0100 LHLD WBOOT
|
||
01BE 112100 LXI D,SETDMA
|
||
01C1 19 DAD D
|
||
01C2 E9 PCHL
|
||
0011 MOV C,A! LHLD WBOOT! LXI D,SELDSK! DAD D! PCHL
|
||
;
|
||
TRK: ;SET UP TRACK
|
||
01AB 2A0100 LHL STA TRACK
|
||
;
|
||
RWTRK: ;READ OR WRITE NEXT TRACK
|
||
01E8 21A304 LXI H,TRACK
|
||
01EB 34 2.0 #004 SYSGEN - SYSTEM GENERATION PROGRAM 8/79
|
||
|
||
CRMSG: ;PRINT MESSAGE ADDRESSED BY H,L TIL ZERO
|
||
CTION
|
||
01D8 0E0FC30500 MVI C,OPENF ! JMP BDOS
|
||
;
|
||
GETPUT:
|
||
; GET OR PUT CP/M (R CPI ('Z' OR 20H) + 1
|
||
017B D0 RNC ;RETURN IF ABOVE LOWER CASE Z
|
||
017C E65FC9 ANI 5FH! RET
|
||
; ;
|
||
READ: ;PERFORM READ OPERATION
|
||
01C3 2A0100 LHLD WBOOT
|
||
01C6 112400 LXI D,READF
|
||
01C9 19 D WBOOT ;ADDRESS OF BOOT ENTRY
|
||
01AE 111B00 LXI D,SETTRK ;OFFSET FOR SETTRK ENTRY
|
||
01B1 19 DAD D
|
||
01B2 E9 INR M ;TRACK = TRACK + 1
|
||
01EC 3A2801 LDA OST ;NUMBER OF OPERATING SYSTEM TRACKS
|
||
01EF BE CMP M ;= TRACK NUMBE ;WITH LEADING CRLF
|
||
0191 E5CD8601E1 PUSH H! CALL CRLF! POP H ;DROP THRU TO OUTMSG0
|
||
OUTMSG:
|
||
0196 7EB7C8W=0 FOR READ, 1 FOR WRITE)
|
||
; DISK IS ALREADY SELECTED
|
||
;
|
||
01DD 210009 LXI H,LOADP ;LOAD PO
|
||
PUTCHAR:
|
||
; WRITE CHARACTER FROM A TO CONSOLE
|
||
017F 5F0E02CD05 MOV E,A! MVI C,CONO! CALL BDOS DAD D
|
||
01CA E9 PCHL
|
||
;
|
||
WRITE: ;PERFORM WRITE OPERATON
|
||
01CB 2A0100 LHLD WBOOR ?
|
||
01F0 CA7302 JZ ENDRW ;END OF READ OR WRITE
|
||
;
|
||
; OTHERWISE NOTDONE, GO TO NEXT TRACK
|
||
93
|
||
:1002400003CD8601C3FC013C32A8043AA504B7CA19
|
||
:100250005802CDCB01C35B02CDC301B7CAFC01C3B9
|
||
:100260002B023A2901CD6A01EB2AA6041DCD7F013E0ACD7F0197
|
||
:10019000C9E5CD8601E17EB7C8E5CD7F01E123C386
|
||
:1001A00096014F2A010011180019E92A0100111BBC
|
||
:1001B0000019E92A0230 DA4702 JC TRYOK
|
||
;
|
||
; PAST MAXTRIES, MESSAGE AND IGNORE
|
||
0233 211404 LXI H,ERRMSG
|
||
D OR WRITE SECTOR TO OR FROM CURRENT DMA ADDR
|
||
0207 21A404 LXI H,SECTOR
|
||
020A 5E MOV E,M ;SECTOR NUMBER
|
||
020B 160LHLD DMADDR ;BASE DMA ADDRESS FOR THIS TRACK
|
||
0221 19 DAD D ;+(TRAN(SECTOR)-TRAN(0))*SECSIZ
|
||
0222 44 MOV B,H
|
||
01F3 4E MOV C,M ;TRACK NUMBER
|
||
01F4 CDAB01 CALL TRK ;TO SET TRACK
|
||
01F7 3EFF MVI A,-1 ;COUNTS 0, 1, 2, . . 0 MVI D,0 ;TO DE
|
||
020D 212A01 LXI H,TRAN
|
||
0210 46 MOV B,M ;TRAN(0) IN B
|
||
0211 19 DAD D ;SECTOR TRAN0100111E0019E92A0100112184
|
||
:1001C0000019E92A010011240019E92A0100112768
|
||
:1001D0000019E90E14C305000E0FC3050021000924
|
||
:1001E0002
|
||
CP/M MACRO ASSEM 2.0 #006 SYSGEN - SYSTEM GENERATION PROGRAM 8/79
|
||
|
||
0236 CD9601 CALL OUTMSG
|
||
0239 CD7101 CALL GETCHA:10010000C37402434F505952494748542028432949
|
||
:1001100020313937382C204449474954414C20522A
|
||
:100120004553454152434820021A01070D131 0223 4D MOV C,L ;TO BC FOR SEC CALL
|
||
0224 CDBB01 CALL DMA ;DMA ADDRESS SET FROM B,C
|
||
; DMA ADDRESS. 25
|
||
01F9 32A404 STA SECTOR ;SECTOR INCREMENTED BEFORE READ OR WRITE
|
||
;
|
||
RWSEC: ;READ OR WSLATED
|
||
0212 4E MOV C,M ;VALUE TO C READY FOR SELECT
|
||
0213 C5 PUSH B ;SAVE TRAN(0),TRAN(SECTOR)
|
||
0214 CDB301 2A6043EFF32A30421A304343A2801BE10
|
||
:1001F000CA73024ECDAB013EFF32A4043A2901215D
|
||
:10020000A40434BECA620221A4045E1600212A019D
|
||
:10R
|
||
023C FE0D CPI CR
|
||
023E C25F03 JNZ REBOOT
|
||
;
|
||
; TYPED A CR, OK TO IGNORE
|
||
0241 CD90255
|
||
:10013000080E141A03090F15040A1016050B1117DF
|
||
:10014000060C121800000000000000000000000073
|
||
:100150000000000000000000000000 SET, CLEAR RETRY COUNT
|
||
0227 AF XRA A
|
||
0228 32A804 STA RETRY ;SET TO ZERO RETRIES
|
||
;
|
||
RITE SECTOR
|
||
01FC 3A2901 LDA SPT ;SECTORS PER TRACK
|
||
01FF 21A404 LXI H,SECTOR
|
||
0202 34 INR M ;TO NEXT SECTOR
|
||
CALL SEC ;SET UP SECTOR NUMBER
|
||
0217 C1 POP B ;RECALL TRAN(0),TRAN(SECTOR)
|
||
0218 79 MOV A,C ;TRAN(SECTOR)
|
||
02100046194EC5CDB301C17990CD6A01EB2AA62E
|
||
:100220000419444DCDBB01AF32A8043AA804FE0A1C
|
||
:10023000DA4702211404CD9601CD7101FE0DC25F8601 CALL CRLF
|
||
0244 C3FC01 JMP RWSEC
|
||
;
|
||
TRYOK:
|
||
; OK TO TRY READ OR W00000000009F
|
||
:10016000000000000000000000006F26002929297F
|
||
:10017000C90E01CD0500FE61D8FE7BD0E65FC95FE8
|
||
:100180000E02CD0500C93E0 TRYSEC: ;TRY TO READ OR WRITE CURRENT SECTOR
|
||
022B 3AA804 LDA RETRY
|
||
022E FE0A CPI MAXTRY ;TOO MANY RETRIES?
|
||
|
||
0203 BE CMP M ;A=26 AND M=0 1 2...25 (USUALLY)
|
||
0204 CA6202 JZ ENDTRK ;
|
||
;
|
||
; REA
|
||
0219 90 SUB B ;-TRAN(0)
|
||
021A CD6A01 CALL MULTSEC ;*SECTOR SIZE
|
||
021D EB XCHG ;TO DE
|
||
021E 2AA604 RITE
|
||
0247 3C INR A
|
||
0248 32A804 STA RETRY ;RETRY=RETRY+1
|
||
024B 3AA504 LDA RW ;READ OR WRITE?
|
||
024E B7 JNZ RDOK ;OK TO READ IF NOT 255
|
||
;
|
||
; FILE NOT PRESENT, ERROR AND REBOOT
|
||
;
|
||
02TACK POINTER
|
||
0277 217103 LXI H,SIGNON
|
||
027A CD9601 CALL OUTMSG
|
||
;
|
||
; CHECK FOR DEFAUL MOV B,H
|
||
02B3 4D MOV C,L ;READY FOR DMA
|
||
02B4 CDBB01 CALL DMA ;DMA ADDRESS SET
|
||
02B7 115C00 LXI D,FCB ;READYT ;SECTORS PER TRACK
|
||
0265 CD6A01 CALL MULTSEC ;*SECSIZ
|
||
0268 EB XCHG ;TO DE
|
||
0269 2AA604 LHLD DMADDR ;BASE UNT
|
||
029F 115C00 LXI D,FCB ;INPUT FILE CONTROL COUNT
|
||
02A2 CDD301 CALL DREAD ;ASSUME SET TO DEFAULT BUFFER
|
||
02A5 C1 ORA A
|
||
024F CA5802 JZ TRYREAD
|
||
;
|
||
; MUST BE WRITE
|
||
0252 CDCB01 CALL WRITE
|
||
0255 C38F 217404 LXI H,NOFILE
|
||
0292 CD9101 CALL CRMSG
|
||
0295 C35F03 JMP REBOOT
|
||
;
|
||
; FILE T FILE LOAD INSTEAD OF GET
|
||
;
|
||
027D 3A5D00 LDA FCB+1 ;BLANK IF NO FILE
|
||
0280 FE20 CPI ' '
|
||
0282 CAD FOR READ
|
||
02BA CDD301 CALL DREAD ;
|
||
02BD E1 POP H ;RECALL DMA ADDRESS
|
||
02BE B7 ORA A ;00 IF READ OK
|
||
02DMA FOR THIS TRACK
|
||
026C 19 DAD D ;+SPT*SECSIZ
|
||
026D 22A604 SHLD DMADDR ;READY FOR NEXT TRACK
|
||
0270 C3E801 JM POP B ;RESTORE COUNT
|
||
02A6 B7 ORA A
|
||
02A7 C2C902 JNZ BADRD ;CANNOT ENCOUNTER END-OF FILE
|
||
02AA 0D 5B02 JMP CHKRW ;CHECK FOR ERROR RETURNS
|
||
TRYREAD:
|
||
0258 CDC301 CALL READ
|
||
CHKRW:
|
||
025BPRESENT
|
||
; READ TO LOAD POINT
|
||
;
|
||
RDOK:
|
||
0298 AF XRA A
|
||
0299 327C00 202 JZ GETSYS ;SKIP TO GET SYSTEM MESSAGE IF BLANK
|
||
0285 115C00 LXI D,FCB ;TRY TO OPEN IT
|
||
0288 CDD801 CALL OPEN ;BF C21803 JNZ PUTSYS ;ASSUME EOF IF NOT.
|
||
; MORE TO READ, CONTINUE
|
||
02C2 118000 LXI D,SECSIZ
|
||
02C5 19 P RWTRK ;FOR ANOTHER TRACK
|
||
;
|
||
ENDRW: ;END OF READ OR WRITE, RETURN TO CALLER
|
||
0273 C9 DCR C ;COUNT DOWN
|
||
02AB C29E02 JNZ PRERD ;FOR ANOTHER SECTOR
|
||
;
|
||
; SECTORS SKIPPED AT BEGIN B7 ORA A
|
||
025C CAFC01 JZ RWSEC ;ZERO FLAG IF R/W OK
|
||
;
|
||
; ERROR, RETRY OPERATION
|
||
STA FCBCR ;CURRENT RECORD = 0
|
||
;
|
||
; PRE-READ AREA FROM TPA TO LOADP
|
||
;
|
||
029
|
||
CP/M MACRO ASSEM 2.0 #007 SYSGEN - SYSTEM GENERATION PROGRAM 8/79
|
||
|
||
028B 3C INR A ;255 BECOMES 00
|
||
028C C29802 DAD D ;HL IS NEW LOAD ADDRESS
|
||
02C6 C3B102 JMP RDINP
|
||
;
|
||
BADRD: ;EOF ENCOUNTERED INRET
|
||
;
|
||
;
|
||
START:
|
||
;
|
||
0274 31C904 LXI SP,STACK ;SET LOCAL SNING OF FILE
|
||
;
|
||
02AE 210009 LXI H,LOADP
|
||
RDINP:
|
||
02B1 E5 PUSH H
|
||
02B2 44 025F C32B02 JMP TRYSEC
|
||
;
|
||
; END OF TRACK
|
||
ENDTRK:
|
||
0262 3A2901 LDA SPC 0E10 MVI C,(LOADP-TPA)/SECSIZ
|
||
; PRE-READ FILE
|
||
PRERD:
|
||
029E C5 PUSH B ;SAVE CO INPUT FILE
|
||
|
||
02C9 218B04 LXI H,BADFILE
|
||
02CC CD9101 CALL CRMSG
|
||
02CF C35F03 JMP REBOOT
|
||
D641CDA201CD860121A603CD960142
|
||
:10030000CD7101FE0DC25F03CD8601AF32A504CDD4
|
||
:10031000DD01213B04CD960121C403CD9101CD71B6
|
||
:10032 CPI CR
|
||
0305 C25F03 JNZ REBOOT
|
||
0308 CD8601 CALL CRLF
|
||
;
|
||
030B AF XRA A
|
||
030C 32A504 SYS ;TO TRY AGAIN
|
||
;
|
||
PUTC:
|
||
; SET DISK FROM REGISTER C
|
||
0333 C641 ADI 'AUMBER
|
||
02E7 CD6A03 CALL BADDISK
|
||
02EA C3D202 JMP GETSYS ;TO TRY AGAIN
|
||
;
|
||
GETC:
|
||
STA RW
|
||
030F CDDD01 CALL GETPUT
|
||
0312 213B04 LXI H,DONE
|
||
0315 CD9601 CALL OUTMSG
|
||
;
|
||
;
|
||
;
|
||
GETSYS:
|
||
CP/M MACRO ASSEM 2.0 #008 SYSGEN - SYSTEM GENERATION PROGRAM 8/79
|
||
|
||
0200001FE0DCA5F03D641FE04DA3303CD6A0332
|
||
:10033000C31803C641320004D641CDA20121F10306
|
||
:10034000CD9101CD7101FE0DC25F03CD860121A5C6
|
||
922A60421
|
||
:10027000C3E801C931C904217103CD96013A5D007B
|
||
:10028000FE20CAD202115C00CDD8013CC2980221E6
|
||
:100290007404CD9101C35F03AF'
|
||
0335 320004 STA PDISK ;MESSAGE SET
|
||
0338 D641 SUI 'A'
|
||
033A CDA201 CALL SEL ;SELECT DEST DRIVE
|
||
CP/M MACRO ; SELECT DISK GIVEN BY REGISTER A
|
||
02ED C641 ADI 'A'
|
||
02EF 32B003 STA GDISK ;TO SET MESSAGE
|
||
02F2 D641 ; PUT SYSTEM
|
||
PUTSYS:
|
||
0318 21C403 LXI H,ASKPUT
|
||
031B CD9101 CALL CRMSG
|
||
031E CD7101 CALLD2 218003 LXI H,ASKGET ;GET SYSTEM?
|
||
02D5 CD9101 CALL CRMSG
|
||
02D8 CD7101 CALL GETCHAR
|
||
02DB FE0D CPI CR
|
||
0
|
||
:10035000043601CDDD01213B04CD9601C318033ED7
|
||
:1003600000CDA201CD8601C30000214D04CD910135
|
||
:10037000C953595347454E2056455220322E327C000E10C51111
|
||
:1002A0005C00CDD301C1B7C2C9020DC29E022100BC
|
||
:1002B00009E5444DCDBB01115C00CDD301E1B7C2CE
|
||
:1002C00018031180001ASSEM 2.0 #009 SYSGEN - SYSTEM GENERATION PROGRAM 8/79
|
||
|
||
; PUT SYSTEM, SET RW TO WRITE
|
||
033D 21F103 LXI H,P SUI 'A'
|
||
02F4 CDA201 CALL SEL ;TO SELECT THE DRIVE
|
||
; GETSYS, SET RW TO READ AND GET THE SYSTEM
|
||
0 GETCHAR
|
||
0321 FE0D CPI CR
|
||
0323 CA5F03 JZ REBOOT
|
||
0326 D641 SUI 'A'
|
||
0328 FE04 CPI NDISKS
|
||
032A DA332DD CA1803 JZ PUTSYS ;SKIP IF CR ONLY
|
||
;
|
||
02E0 D641 SUI 'A' ;NORMALIZE DRIVE NUMBER
|
||
02E2 FE04 30001E
|
||
:10038000534F55524345204452495645204E414D06
|
||
:100390004520284F522052455455524E20544F204C
|
||
:1003A000534B49502900534F555249C3B102218B04CD9101C321
|
||
:1002D0005F03218003CD9101CD7101FE0DCA18038A
|
||
:1002E000D641FE04DAED02CD6A03C3D202C6413222
|
||
:1002F000B003UTMSG
|
||
0340 CD9101 CALL CRMSG
|
||
0343 CD7101 CALL GETCHAR
|
||
0346 FE0D CPI CR
|
||
0348 C25F03 JNZ REBOOT
|
||
034B C2F7 CD8601 CALL CRLF
|
||
02FA 21A603 LXI H,GETMSG
|
||
02FD CD9601 CALL OUTMSG
|
||
0300 CD7101 CALL GETCHAR
|
||
0303 FE0D03 JC PUTC
|
||
;
|
||
; INVALID DRIVE NAME
|
||
032D CD6A03 CALL BADDISK
|
||
0330 C31803 JMP PUT CPI NDISKS ;VALID DRIVE?
|
||
02E4 DAED02 JC GETC ;SKIP TO GETC IF SO
|
||
;
|
||
; INVALID DRIVE N345204F4E203F
|
||
:1003B1002C205448454E20545950452052455455FF
|
||
:1003C100524E0044455354494E4154494F4E2044E6
|
||
:1003D10052495645204E41D8601 CALL CRLF
|
||
;
|
||
034E 21A504 LXI H,RW
|
||
0351 3601 MVI M,1
|
||
0353 CDDD01 CALL GETPUT ;TO PUARIABLES
|
||
0462 SDISK: DS 1 ;SELECTED DISK FOR CURRENT OPERATION
|
||
0463 TRACK: DS 1 ;CURRENT TRACK
|
||
0464 54E20545950452052455455AE
|
||
:10041100524E005045524D414E454E542045525288
|
||
:100421004F522C20545950452052455455524E207C
|
||
:1004310054E IF 1
|
||
04A6 DMADDR: DS 2 ;CURRENT DMA ADDRESS
|
||
04A8 RETRY: DS 1 ;NUMBER OF TRIES ON THIS SECTOR
|
||
04A9 A AREAS
|
||
; MESSAGES
|
||
0371 5359534745SIGNON: DB 'SYSGEN VER '
|
||
037C 322E30 DB VERS/10+'0','.',VERS MOD 10+'ETURN TO IGNORE',0
|
||
043B 46554E4354DONE: DB 'FUNCTION COMPLETE',0
|
||
044D 494E56414CQDISK: DB 'INVALID DRIVE NAME (USE A, B, C, T SYSTEM BACK ON DISKETTE
|
||
0356 213B04 LXI H,DONE
|
||
0359 CD9601 CALL OUTMSG
|
||
035C C31803 JMP PUTSYS ;FOR ANOTHER P SECTOR: DS 1 ;CURRENT SECTOR
|
||
0465 RW: DS 1 ;READ IF 0, WRITE IF 1
|
||
0466 DMADDR: DS 2 ;CURRENT DMA4F2049474E4F52450046554E4354496B
|
||
:100441004F4E20434F4D504C45544500494E564167
|
||
:100451004C4944204452495645204E414D4520289F
|
||
:100 DS STACKSIZE*2
|
||
CP/M MACRO ASSEM 2.0 #010 SYSGEN - SYSTEM GENERATION PROGRAM 8/79
|
||
|
||
STACK:
|
||
B04C9 0'
|
||
037F 00 DB 0
|
||
0380 534F555243ASKGET: DB 'SOURCE DRIVE NAME (OR RETURN TO SKIP)',0
|
||
03A6 534F555243GETMSG: DB 'SOUOR D)',0
|
||
0474 4E4F20534FNOFILE: DB 'NO SOURCE FILE ON DISK',0
|
||
BADFILE:
|
||
048B 534F555243 DB 'SOURCE FILE INCOUT OPERATION
|
||
;
|
||
REBOOT:
|
||
035F 3E00 MVI A,0
|
||
0361 CDA201 CALL SEL
|
||
0364 CD8601 ADDRESS
|
||
0468 RETRY: DS 1 ;NUMBER OF TRIES ON THIS SECTOR
|
||
0469 DS STACKSIZE*2
|
||
STACK:
|
||
4610055534520412C20422C20432C204F522013
|
||
:100471004429004E4F20534F555243452046494C85
|
||
:1004810045204F4E204449534B00534F555243454 END
|
||
RCE ON '
|
||
03B0 GDISK: DS 1 ;FILLED IN AT GET FUNCTION
|
||
03B1 2C20544845 DB ', THEN TYPE RETURN',0
|
||
03C4 4445535449ASMPLETE',0
|
||
;
|
||
; VARIABLES
|
||
04A2 SDISK: DS 1 ;SELECTED DISK FOR CURRENT OPERATION
|
||
04CALL CRLF
|
||
0367 C30000 JMP BOOT
|
||
BADDISK:
|
||
;BAD DISK NAME
|
||
036A 214D04 LXI H,QDISK
|
||
KPUT: DB 'DESTINATION DRIVE NAME (OR RETURN TO REBOOT)',0
|
||
03F1 4445535449PUTMSG: DB 'DESTINATION ON '
|
||
0400 PDISK: D
|
||
:100491002046494C4520494E434F4D504C4554450B
|
||
:0104A100005A
|
||
:0000000000
|
||
02ah
|
||
|
||
db 071h,0b1h,085h,089h
|
||
|
||
db 006h,0b6h,0b5h,01fh
|
||
|
||
db 09fh,0bfh,0e4h,0a5h
|
||
|
||
db 0e8h,0b8h,0d4h,033h
|
||
|
||
db 078h,007h,0c94D4520284F5220524505
|
||
:1003E1005455524E20544F205245424F4F542900EC
|
||
:0F03F10044455354494E4154494F4E204F4E20DE
|
||
:100401002C2054484A3 TRACK: DS 1 ;CURRENT TRACK
|
||
04A4 SECTOR: DS 1 ;CURRENT SECTOR
|
||
04A5 RW: DS 1 ;READ IF 0, WRIT036D CD9101 CALL CRMSG
|
||
0370 C9 RET
|
||
;
|
||
;
|
||
;
|
||
; DATDS 1 ;FILLED IN AT PUT FUNCTION
|
||
0401 2C20544845 DB ', THEN TYPE RETURN',0
|
||
0414 5045524D41ERRMSG: DB 'PERMANENT ERROR, TYPE Rh,0a2h
|
||
|
||
db 00fh,000h,0f9h,034h
|
||
|
||
db 096h,009h,0a8h,08eh
|
||
|
||
db 0e1h,00eh,098h,018h
|
||
|
||
db 07fh,06ah,00dh,0bbh
|
||
|
||
db 008h,06dh,0EAD
|
||
022B TRYSEC 0014 VERS 0001 WBOOT 01CB WRITE 0027 WRITF
|
||
0004 NDISKS
|
||
0474 NOFILE 001A NSECTS 0002 NTRKS 01D8 OPEN 000F OPENF
|
||
0128 OST 0196 OUTMSG 0400 PDISK 029E PRERD 017F PUTCHAR
|
||
0
|
||
db 0bbh,00bh,047h,003h
|
||
|
||
db 022h,002h,016h,0b9h
|
||
|
||
db 055h,005h,026h,02fh
|
||
|
||
db 0c5h,0bah,03bh,0beh
|
||
|
||
db 0b2h,0bdh,00bh,028hh,0b5h,051h,0ceh
|
||
|
||
db 0a3h,0bch,000h,074h
|
||
|
||
db 0d4h,0bbh,030h,0e2h
|
||
|
||
db 04ah,0dfh,0a5h,041h
|
||
|
||
db 03dh,0d8h,095h,0d7h
|
||
|
||
db 0h,0d1h,093h,07eh
|
||
|
||
db 038h,0d8h,0c2h,0c4h
|
||
|
||
db 04fh,0dfh,0f2h,052h
|
||
|
||
db 0d1h,0bbh,067h,0f1h
|
||
|
||
db 0a6h,0bch,057h,067h
|
||
|
||
db 03dh,02dh
|
||
|
||
db 091h,064h,06ch,097h
|
||
|
||
db 0e6h,063h,05ch,001h
|
||
|
||
db 06bh,06bh,051h,0f4h
|
||
|
||
db 01ch,06ch,061h,062h
|
||
|
||
db 085h,065hffh,09dh
|
||
|
||
db 00ah,000h,0aeh,027h
|
||
|
||
db 07dh,007h,09eh,0b1h
|
||
|
||
db 0f0h,00fh,093h,044h
|
||
|
||
db 087h,008h,0a3h,0d2h
|
||
|
||
db 01eh,001h333 PUTC 03F1 PUTMSG 0318 PUTSYS 044D QDISK 02B1 RDINP
|
||
0298 RDOK 0024 READF 01C3 READ 035F REBOOT 04A8 RETRY
|
||
04A5 RW 01FC RWS
|
||
|
||
db 02bh,0b4h,05ah,092h
|
||
|
||
db 05ch,0b3h,06ah,004h
|
||
|
||
db 0c2h,0d7h,0ffh,0a7h
|
||
|
||
db 0b5h,0d0h,0cfh,031h
|
||
|
||
db 02ch,0d9h,09eh,080380 ASKGET 03C4 ASKPUT 036A BADDISK 048B BADFILE 02C9 BADRD
|
||
0005 BDOS 0000 BOOT 025B CHKRW 0001 CONI 0002 CONO
|
||
000D CR 0186 3fh,0b5h,006h,0ddh
|
||
|
||
db 048h,0b2h,036h,04bh
|
||
|
||
db 0d8h,00dh,02bh,0dah
|
||
|
||
db 0afh,00ah,01bh,04ch
|
||
|
||
db 036h,003h,04ah,0f6h
|
||
|
||
db,030h,0d8h
|
||
|
||
db 0f2h,062h,000h,04eh
|
||
|
||
db 06ch,006h,095h,0edh
|
||
|
||
db 01bh,001h,0a5h,07bh
|
||
|
||
db 082h,008h,0f4h,0c1h
|
||
|
||
db 0f5h,00,0f2h,068h
|
||
|
||
db 069h,006h,0c2h,0feh
|
||
|
||
db 0f7h,062h,057h,05dh
|
||
|
||
db 080h,065h,067h,0cbh
|
||
|
||
db 019h,06ch,036h,071h
|
||
|
||
db 06eh,06EC 01E8 RWTRK 04A2 SDISK 01B3 SEC
|
||
0080 SECSIZ 04A4 SECTOR 0018 SELDSK 000E SELF 01A2 SEL
|
||
0021 SETDMA 001E SETSEC 001B SETTRK 0bh
|
||
|
||
db 05bh,0deh,0aeh,01dh
|
||
|
||
db 09bh,064h,0c2h,0b0h
|
||
|
||
db 0ech,063h,0f2h,026h
|
||
|
||
db 075h,06ah,0a3h,09ch
|
||
|
||
db 002h,06dh,093h,CRLF 0191 CRMSG 01BB DMA 04A6 DMADDR
|
||
043B DONE 0014 DREADF 01D3 DREAD 0273 ENDRW 0262 ENDTRK
|
||
0414 ERRMSG 005C FCB 007C FCBCR 0 041h,004h,07ah,060h
|
||
|
||
db 0dfh,060h,0efh,0c3h
|
||
|
||
db 0a8h,067h,0dfh,055h
|
||
|
||
db 031h,06eh,08eh,0efh
|
||
|
||
db 046h,069h,0beh,079h
|
||
|
||
fh,0c4h,057h
|
||
|
||
db 065h,0b0h,0d9h,0c6h
|
||
|
||
db 012h,0b7h,0e9h,050h
|
||
|
||
db 08bh,0beh,0b8h,0eah
|
||
|
||
db 0fch,0b9h,088h,07ch
|
||
|
||
db 062h,bh,006h,0e7h
|
||
|
||
db 0feh,0d4h,01bh,076h
|
||
|
||
db 089h,0d3h,02bh,0e0h
|
||
|
||
db 010h,0dah,07ah,05ah
|
||
|
||
db 067h,0ddh,04ah,0cch
|
||
|
||
db 0f9h,371 SIGNON 0006 SKEW
|
||
0129 SPT 04C9 STACK 0010 STACKSIZE 0274 START 0100 TPA
|
||
04A3 TRACK 012A TRAN 01AB TRK 0247 TRYOK 0258 TRYR00ah
|
||
|
||
db 09ch,009h,006h,0a9h
|
||
|
||
db 0ebh,00eh,036h,03fh
|
||
|
||
db 072h,007h,067h,085h
|
||
|
||
db 005h,000h,057h,013h
|
||
|
||
db 095h,0bfh,04a3B0 GDISK 02ED GETC
|
||
0171 GETCHAR 03A6 GETMSG 01DD GETPUT 02D2 GETSYS 000A LF
|
||
0900 LOADP 0003 LOG2SEC 000A MAXTRY 016A MULTSEC db 0cbh,061h,0b3h,08ch
|
||
|
||
db 0bch,066h,083h,01ah
|
||
|
||
db 025h,06fh,0d2h,0a0h
|
||
|
||
db 052h,068h,0e2h,036h
|
||
|
||
db 0cch,00ch,077h,095h
|
||
|
||
0ddh,01dh,0dfh
|
||
|
||
db 015h,0dah,02dh,049h
|
||
|
||
db 08ch,0d3h,07ch,0f3h
|
||
|
||
db 0fbh,0d4h,04ch,065h
|
||
|
||
db 04dh,0b2h,061h,058h
|
||
|
||
db 03a0b9h,0dfh,06fh
|
||
|
||
db 08eh,0beh,0efh,0f9h
|
||
|
||
db 017h,0b7h,0beh,043h
|
||
|
||
db 060h,0b0h,08eh,0d5h
|
||
|
||
db 0d6h,0d6h,0a3h,0e8h
|
||
|
||
db 0a1h,082h
|
||
|
||
db 0e2h,0b8h,07ah,014h
|
||
|
||
db 07bh,0b1h,02bh,0aeh
|
||
|
||
db 00ch,0b6h,01bh,038h
|
||
|
||
db 092h,0d2h,08eh,09bh
|
||
|
||
db 0e5h,0d5h,0ﾆL <00><> ｸ餐iX* !Hx f修ﾂp<04>#[2隊[4<>a<>#ｦ yna僮ﾀEｴ Y｣ﾐ<EFBDA3><EFBE90> [ｲ i8ﾃ $` ﾘ& ﾕ0`<11>QW`<14>V÷s` <1D>㌔ <20> VA
|
||
db 0cdh,0d7h,006h,093h
|
||
|
||
db 054h,0deh,057h,029h
|
||
|
||
db 023h,0d9h,067h,0bfh
|
||
|
||
db 0b3h,066h,07ah,02eh
|
||
|
||
db 0c4h,061h,04ah,0b8h ｡ﾜ3<>'AｸX( OﾃI艚+界ﾂ疳ｸ\. <0B>疳ｸ\$)ｲﾈ ﾄ|<7C>ｳ@0 <09><>=園ﾈ ~ L <03> <03><><EFBFBD> <1F> <01>訶<18>'AｸX<1 bh,00dh,0d2h,0eeh
|
||
|
||
db 04eh,004h,083h,054h
|
||
|
||
db 039h,003h,0b3h,0c2h
|
||
|
||
db 0a7h,067h,026h,061h
|
||
|
||
db 0d0h,060h,016h,0f7h
|
||
|
||
db 0g<01>\. <0B>疳ｸ\$kｱ "<?ﾏFﾖ<46>ｶ)<05> ﾋ$(<28> <01> <1F> 5ﾀ <20>0M⑳yﾀ@a債疳ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k<> beh,00dh
|
||
|
||
db 07ch,0dch,0efh,0b7h
|
||
|
||
db 00bh,0dbh,0dfh,021h
|
||
|
||
db 086h,0d3h,0d2h,0d4h
|
||
|
||
db 0f1h,0d4h,0e2h,042h
|
||
|
||
db 068h,0ddh｣`)<29>
|
||
ﾑｷ`,<2C> 操軈8<E8BB88>Vﾁ<>`A<>Q<>`D<>V＝3`M<>；`P<>VA…`Y<>ﾑ『`\<5C>V％`e<>早ｧ`h kｻH@ ｱ<06>'巌C葺|<7C>
|
||
ｴﾑ%<25>0 p
|
||
|
||
db 05dh,068h,01bh,002h
|
||
|
||
db 02ah,06fh,02bh,094h
|
||
|
||
db 0b4h,00bh,0beh,037h
|
||
|
||
db 0c3h,00ch,08eh,0a1h
|
||
|
||
db 05ah,005h,0dfh,01ﾃ ｰﾊ,4
|
||
っA<EFBFBD>ﾘ)Gﾂ疳ｸ\$kｻU ﾙ雫9=<3D>@
|
||
<EFBFBD> 0
|
||
4<EFBFBD> <00> <01> 5ﾀ H$ｨ!ﾎA睚|. <0B>疳ｸ\. <0B>疳ｸ\. <0B>疳49h,069h,047h,04dh
|
||
|
||
db 03eh,06eh,077h,0dbh
|
||
|
||
db 0aeh,0d1h,06ah,04ah
|
||
|
||
db 0d9h,0d6h,05ah,0dch
|
||
|
||
db 040h,0dfh,00bh,066h
|
||
|
||
db <00>:+的0%ﾆfS4kｵh<EFBDB5> <01> <03> <03><><EFBFBD>ｵﾀ <03>ｰ M⑳yﾀ@a Bﾃｰﾈ,2<>
|
||
ﾃ`ｰPh6
|
||
E<EFBFBD><11>\$kｷP ﾝｬncｳﾕбCtD5`1Gｱ,0b3h,0f8h
|
||
|
||
db 01fh,0dah,083h,06eh
|
||
|
||
db 081h,0beh,016h,0cdh
|
||
|
||
db 0f6h,0b9h,026h,05bh
|
||
|
||
db 06fh,0b0h,077h,0e1h
|
||
|
||
db 018h,0b !| <0F><><EFBFBD><EFBFBD>ｵﾀ<0F>ﾍ 臼 &Cｰ訝1巡チｰxb1<62> <0C>a<EFBFBD>ﾘ,9<>ﾂ疳ｸ\$k<> 譜ﾇb 哘ｨｰfBｱ嵶蛮ﾀ !| bh
|
||
|
||
db 02dh,002h,0efh,08dh
|
||
|
||
end
|
||
|
||
ｸ\$kｻT 哽W墺 0 ﾄ<> $ﾍGﾄ <00> <01> 5ﾀ ｼｳ+ﾎ黛ﾈ|. <0B>疳ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k佳 B<><04>･<>)m 037h,0d8h,03bh,0f0h
|
||
|
||
db 0a9h,0bch,0aeh,053h
|
||
|
||
db 0deh,0bbh,09eh,0c5h
|
||
|
||
db 047h,0b2h,0cfh,07fh
|
||
|
||
db 030h,0b5h,0ffh,0e9h
|
||
|
||
r <01> <03> <03><><EFBFBD>ｵﾀ <02>m-M⑳yﾀ@a
|
||
'ァｰﾒx6
|
||
'邸ｰﾒy6<0F>疳ｸ\$kｷPﾀﾝ /ﾑ尊ﾜ`閃ﾏｧ(p <01> 7h,047h,077h
|
||
|
||
db 088h,008h,05ah,0e6h
|
||
|
||
db 0ffh,00fh,06ah,070h
|
||
|
||
db 066h,006h,03bh,0cah
|
||
|
||
db 011h,001h,00bh,05ch
|
||
|
||
db 08fh, <0F><><EFBFBD><EFBFBD>ｵﾀ<0F>Dﾊ鵫L<><01>ﾘ, 恵ﾃ!嚢h6 g<01>\. <0B>疳ｸ\$kｷA ｱｺ蚤ﾌm1叮ﾔ }%
|
||
Qｰ ` <00> ?ﾟ<> <03><><EFBFBD>ｵﾀ<0F> ｲ<><EFBDB2>ﾖ<EFBFBD> ﾎ% ﾀ <19> S;哢<>3A畔 :ﾄ｡ﾀﾀ@p9ﾌfS厠ﾞrABB吁ﾒt1<74> ｦAﾐﾞ ﾀ與1儂g3yﾈ\
|
||
ﾁ@安ﾃ-Gﾁ0<EFBE81>ﾓ <0C>!瀾%<25>=+yHﾉﾑH` ]<5D> l岬:<3A> <0C>ｰﾆp6 f30ｰﾆc3<0F>疳ｸ\. <0B>疳ｸ\$k<> |蛮jｦ ｢ｴRﾁN!<21> C db 0bdh,0bdh,0f2h,01ch
|
||
|
||
db 0cah,0bah,0c2h,08ah
|
||
|
||
db 053h,0b3h,093h,030h
|
||
|
||
db 024h,0b4h,0a3h,0a6h
|
||
|
||
db 0bah,0d0h,036h,005h
|
||
|
||
<03> 5ﾀ <03>暖7M⑳yﾀ@a
|
||
<07>ﾀｰﾒy
|
||
ﾆ"叢ｸ\. <0B>疳ｸ\$)ｷY`1ﾔ@ /ﾁ稱Nt 妊瓰P L <03> 065h,09eh,0ffh
|
||
|
||
db 0f8h,062h,0aeh,069h
|
||
|
||
db 061h,06bh,0ffh,0d3h
|
||
|
||
db 016h,06ch,0cfh,045h
|
||
|
||
db 0a0h,00ah,0e2h,078h
|
||
|
||
db 0d7L<>､<>, 恵ﾃ!嚢i< g<01>\. <0B>疳ｸ\$kｿA <09>z0J)a<>(､π｣<CF80> ` ﾀ <00> <03><><EFBFBD>ｵﾀ<0F>}<7D>(t廊<74>､<>, 恵ﾃ!嚢i<<3C> <01> 5ﾀ ER
|
||
&<26>ｰﾈe1巡pｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k<> 混-!楼H
|
||
ｴ<>!<21> ｴﾘ <07> 1巡特<>\. <0B>疳ｸ\. <0B>疳ｸ\$kｷE P啻:5ﾎp2<70><ｵ夛Tﾈ <0F> 5ﾀ <08>
|
||
&<26>ｰﾈe1巡特ｰ\. <0B>疳ｸ\. <0B> ﾅ R譜`淵陲oｴG<EFBDB4>!<21> <00> 5ﾀ Y<>y<>
|
||
&<26>ｰﾈe1巡ﾁpｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k<> Yp|悛0 <09>XmK <00>ｿﾟ<EFBDBF> <02> *5<> <0C>Aｸﾜn7
|
||
EεI濆i<遵ﾂ疳ｸ\. <0B>疳ｸ\$k@ pｸFｮQﾇ<51>ﾄ<>Y霜,ﾁﾀ <1F> ?ﾀ 5ﾀ <03>ｯf
|
||
&<26>ｰﾈe1巡Qpｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k<> *<2A>7]ｱ2<EFBDB1>"^ﾀﾁ <00> <0C>丗X(7哉瓸ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$kｷE@0 ]ｼⅩ 菽#yﾂ^景b` <03><> <16>6<EFBFBD> <0C>皃<>,4曩ﾂﾁAｸﾜn7
|
||
E 5ﾀ |ﾐ"2
|
||
&<26>ｰﾈe1巡!pｸ\. <0B>疳ｸ\. <0B>疳ｸ\$kﾀ ]圻"2Qｮ70"､t <00>$ﾑP ﾀ 5ﾀ I\;v
|
||
&繞ﾂ疳ｸ\$kｷD ﾘPoO<6F>+<2B> -q$刺ﾅH <1F> 5ﾀ ｵ,ly<6C>
|
||
&<26>ｰﾈe1巡橡<>\. <0B>疳ｸ\. <0B>疳ｸ\$kｷE ｮﾕ1'<27>パ<> ?ﾀ 5ﾀ 炙ﾜw<EFBE9C>
|
||
&<26>ｰﾈe1巡アｰR. <0B>疳ｸ\. <0B>疳ｸ\$k限 ｼhＫZ+f<>HvzﾀEｴ( xr4<> <0C>瘉ﾆ,2E<>`ｰ誄
|
||
ﾆ縡ｸ\. <0B>疳ｸ\$kｷD ｡掠ｵｱL蒟P韮kﾗ<6B> <0F> 淫ﾕ<12> <0C>皃<>,4曩ﾂ 5ﾀ qﾚ<71>><3E>
|
||
&<26>ｰﾈe1巡｝ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k安 ﾑ<>佞`B{ ﾄ*Aﾜ !| 5ﾀ ﾂ疳ｸ\. <0B>疳ｸ\$kｻH`0
|
||
`>MB+ ﾖIu誕G<E8AA95><07>8 <03><><EFBFBD> <01><<3C>
|
||
<EFBFBD> <0C>Aｸﾜn7
|
||
Eε傾d2遵ﾂ疳ｸ\. <0B>疳ｸ\$k<>`ｰﾈe1巡#ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k<> %ｮ5迷ｨT<EFBDA8>i%@ｦ 0 <0F> 5ﾀ U&
|
||
&<26>ｰﾈe1巡1pｸ\. <0B>疳ｸ刀<EFBDB8>O､ <20> ?ﾀ 5ﾀ 嵂ｺJ<EFBDBA>
|
||
&<26>ｰﾈe1巡橡ｰ\. <0B>疳ｸ\. <0B>疳ｸ\$kｻI`0
|
||
｡<EFBFBD>zｩnﾗｪXﾞhl｡慙９ !| 5ﾀ uXﾕ<13>
|
||
&<26>ｰﾈe1巡3ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$kｷFｹ<> "｜QW(<05><> ?ﾀ ﾃqｸﾜn <0B>疳ｸ\. <0B>疳ｸ\$k<> ｡f*｣場ﾂ ｱ<>(輾@ <03> 5ﾟ<35> ﾁ<02><1A> <0C>ｰx(1ﾅ"ﾁA戚) <0B>疳ｸ\. <0B>疳<EFBFBD>m%
|
||
&<26>ｰﾈe1巡チｸ\. <0B>疳ｸ\. <0B>疳ｸ\$kｷD` <00><><06>\ﾕi<EFBE95>4薔ﾐｮ X <00> 5ﾀ 爆ｾ<18>
|
||
&<26>ｰﾈe1巡涜ｸ\
|
||
<EFBFBD>r;煩<>!諟ﾈp<C280>ｮ捉 <0F> 限<>#<23> <0C>Aｸﾜn7
|
||
E<EFBFBD>`ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$kｻN`0 qﾖh慢･g嬖^ｧ6爍<> \. <0B>疳ｸ\$k<> ｩ@ｺ/ｾﾌ｡ﾄﾃ0pｼoﾋ巾 <1F> 5ﾀ Fﾞ
|
||
&<26>ｰﾈe1巡Apｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k<> ｸh <03><> 4勧V <0C>瘉ﾆ,2GﾂﾁAｸﾜn7
|
||
Eﾂ疳ｸ\. <0B>疳ｸ\$k橿`<01>00< ﾄ蜍駻ｸU<EFBDB8> ﾁS <03><> 5ﾀ ｰ8
|
||
&<26>ｰﾈe1巡≪､<E289AA>,4曩ﾂｱ愛\. <0B>疳ｸ\$kｷD 疳lｵﾀ<11>ｴ
|
||
<EFBFBD>[ﾅ<> <07> 5ﾀ ｼ<>61
|
||
&<26>ｰﾈeｸ\$k÷ <1D>zZ#<23>%ｼU:ﾘ 暢<> <1F> ﾅｴｵ+ <0C>瘉Xc<05>a<EFBFBD>Xl
|
||
|
||
ﾁHｰﾂ>債疳ｸ\$kｷFﾀ6 ,ｫ ﾂ. <0B>疳ｸ\. <0B>疳ｸ\$kｿD` (z1<7A><31>%ｦ3･dｴU<EFBDB4>@Sh ﾀ 5ﾀ @ｺQQ<51>
|
||
&<26>ｰﾈe1巡栃ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k <0F>Xｰ_k<5F> <0C>Aｸﾜn7
|
||
E<EFBFBD>3ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$kｷD@0 ﾘ<>
|
||
/гYﾆ<59>ｱ<EFBFBD>-<2D> ｲE <0C>Q<EFBFBD>2. $槐D<E6A790> _ 5ﾀ ｹ菰
|
||
&<26>ｰﾈe1巡C(ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k<> ｼﾀ
|
||
& эWﾑ@
|
||
P<EFBFBD>BRﾈ }.$C<> <0C>AｰX(7哉瓸ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$kｻO`0 <0B>ﾗ+魯!<21>ぼ<13>ﾃﾆ<07> <03><> 髴｡
|
||
ﾄ^ｰ｡fh <07> <1F> 匕G? <0C>@<40>xO#畊ﾄR,7<1B>疳ｸ\. <0B>疳ｸ\$kｷHﾀ Y<> &<10>%ﾉHV0 ﾀ ﾄtﾍ@慙ayﾈﾞt
|
||
<07>ﾀｰﾒy
|
||
ﾆ"叢ｸ\. <0B>疳ｸ\$kｲﾀ ｭ労.⌒ 0
|
||
T&<26>ﾏ
|
||
ﾑ<EFBFBD> ~ <03> <03><><EFBFBD>捕<7F> ｬﾀM, ﾍayﾈﾞt. <0B>疳ｸ\. <0B>疳ｸ\$kｻT 8馬a" P ｩ<> <03><> 5ﾀ ｬｲ<EFBDAC>
|
||
<EFBFBD> <0C>睚| <0C>"疳ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k<> ｮQR8F<10>ﾃ<EFBFBD>x <1C> ｰ乍ﾁR8#!㊤ <0B>ﾈ Y/V+Uﾊ6 ｡0[ｵ`疉ｰ^,稔ｬ( 3T睇X( <00>聚<>ﾎ r{<7B>ﾂd`V 8zs>瑩yｼL =9翊8<E7BF8A> ｰ拌ﾆ<E68B8C>" ﾀ 0 ^ﾀL ﾃ<>ﾘ~ <03> <03><><EFBFBD>ｵﾟ<EFBDB5> ｣5<EFBDA3> <0C>瘉ﾆd2<64>&<11>xb1<62> ｧλл. <0B>疳ｸ\$k劇`｡槢z(<08>5ｩL ｺfｴ駕<E9A795> <1F> 1|ZK <0C>@<40>xO#畊ﾄR,0球ﾂ疳ｸ\. <0B>疳ｸ\$k <00>短ｿﾍ我ｨ ｰD.u鐐 <03><> <1F> 陂' <03><> 0"T <0C>瘉Xc<05><>P<4<><05>ﾈ<EFBFBD>1球ﾂ疳ｸ\$kｷLﾀ<03> %$稙Nｶ$､ﾀ
|
||
ﾗp <03><> Bﾃｰﾈ,2<>
|
||
ﾃ`ｰPh6
|
||
E<EFBFBD><11>\$kｲﾐ TXｫKｿﾇ 0 -｢ｲ5ﾄ繞ｨ <00> <03> <03><><EFBFBD>ｵﾟ<EFBDB5> ,ｮ<>fS<66>ｰ臚9巡畫<>c2MﾁA<EFBE81>ﾘ)0晶H <02>k/<2F>.BｻY､B#ﾋLﾀH ]<5D> ｨx;^寥ｦqpｸ\. <0B>疳ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$kｻL<EFBDBB> -"誼檗0∃yZ N<>+Uﾊ!$③!@ｬ2<EFBDAC> 淆P\:G
|
||
(A0靼 ﾁhｸY"0<> bｵ\｢<13>" :ﾃ.ｳ<>妊妥J :xｿ,!<21>l <11><> Eに<11>b<62> <03> 5ﾟ<35> $L-r<> <0C>ｰPn7債<> ｼ@l2縡ｸﾜ)Eﾂ疳ｸ\$kｻU I0<49>4(Lﾀ` 0M q <00> <0C>@<40>c ｣瓸ｰﾂ. <0B>疳ｸ\. <0B>疳ｸ\$r氛fcy<63>ﾔ緯｡<10> 2$Ⅵｫ繞ﾊ !<13>垪N!ﾑｰﾂ<>ｬC<EFBDAC> ﾚｰﾀ ﾚｰ<08> 郵8ﾍ ⊿｣ <20>b 價ﾛ卆<EFBE9B>nｰ<6E> 鏥M<01> <0C>癶Xl ﾃI濆i<遵cHｸ\. <0B>疳ｸ\$kｷOﾀﾙｰ !&0 ｾﾐNﾔﾎU <03><> 編ｬ2 <0C><03>疳ｸ\$kｷY`1<11> 編<>ﾘ ﾆu@ < <03> 5ﾀ 0ﾆ<30>fS<66>ｰ臚9巡畫<>xi<
|
||
'択ｬb) <0B>疳ｸ\$kｷN 4N #ﾎ$P ?ﾀ 5ﾟ<35> Tｶ｣G# ｰ舁2<0F>疳ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$k<> I砲6､HFLz､]oﾂ ` ﾕ閑rｼﾝｧ7炙b ｿ\-ﾗ <0B>ﾁxｻOa ;No<4E>霰<EFBFBD> zｱZｮV<EFBDAE>栁v槧<76>ﾘｨ;｢ﾀt<EFBE80>k畋ﾁ <03><> 5ﾀ Q<>'4<> <0C>睚| E"疳ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$kｻU ｹ<>*uｮ國` ﾟ珣ﾘ <03><> 5ﾀ ｡ｱﾒﾈ:<3A>;1!ﾖk<EFBE96>8ﾄ\,ｧHl"< Yｯ0<EFBDAF>& e8c<>ﾉ ｦβ潭4z f<>ﾁｨx f修ﾂ0}<7D>W｡瀾%<25>=8Db6K培ﾃ<>$pBI<0E>ﾁ ﾄ:"B ﾀG <0B>"ｱｳBaﾀ0@" ｳBaﾆｰP<4<><05>ﾈ<EFBFBD>1球ﾂ疳ｸ\. <0B>疳ｸ\$kｷDﾀ Lx@# \!ｸ <1D>
|
||
Uｩｲ閠 <1F> 岱<><E5B2B1> <0C>皃<>Oﾁa､<61>O&ﾁ<>･ｹ<EFBDA5>琪｡<E790AA> vP <03><><EFBFBD> ﾄj_<6A> <0C>@<40>xO#畊ﾄR, <18>1a森e <0B>疳ｸ\$kｷN鼠 *ﾇCﾕj<EFBE95>U<04>dｨ <01> 5ﾀ <00>&0WFﾃЧr9ﾌ"ﾃ族ﾂ,9 <1C>#疳ｸ\. <0B>疳ｸ\$kｷY`2ｽｺ #ﾇ鋻ｶ<E98BBB> <20>
|
||
<EFBFBD> <03> 恐:!#ﾃA6h(>a7Π<16>篷 ﾌﾐﾐxFa?Ξ劉ﾊ 劭<><E58AAD>
|
||
ﾂ∪,<17>%<25>γ<>y糢bｵ\ｮ`{<7B>ﾚ伉v0ﾀｾ3G｡<47> EんdｽXｭW+4
|
||
pｴX/Ii ~j <0C>睚| <0C>"疳ｸ\. <0B>疳ｸ\. <0B>疳ｸ\$kｻT ﾁ<><01> P <08>0 <03><> 5ﾀ iz<69><7A> <0C>睚| E"疳ｸ\D6ﾍ`VL8ﾉbｵ\､煦P ?? ｡鑵 ｽGﾀ瘉8ｩ奈 Vｰ8B ﾉ<> e`@=<3D>> 7ﾁﾅH<橢ｰ<>!ﾇ D<> ｰY 雁<03> |8~'∃<> <08> <03>18xPｸX,Åﾜn <0B>疳ｸ\$k<> 蝉$P+ 0 <04>8･ﾑ韈x<E99F88> <03> <03><><EFBFBD>ｵﾟ<EFBDB5> ﾐ<> <0C>瘉ﾆd2<64>
|
||
<EFBFBD><11>xb1<62> ｦヂл. <0B>疳ｸ\$kｷH x <0F> ｨ4<EFBDA8><18> <0C>@<40>xO#畊ﾄR, <05><>\. <0B>疳ｸ\$kｷN<EFBDB7>ｼﾎ !2y ﾗ^岐<> hp0Mﾇ3｡ﾈ鹹:M趁避e9ﾍ'3)ﾈ
|
||
*寥<>1､ﾜe2gC ﾐ黌<18>'C<>廾*<0E>Y妃 4寰<34><01>c7扨ﾇ@h(H ﾉ`ﾐP拭 "矧D<E79FA7>T*
|
||
<EFBFBD>3糟@e< ｦ3｡畔: ﾆ<>ｸﾈ7F2000CC5B7CE1CDAA85E8E521597DE5CD567EC9CDAA850CC2107FDC597FC3A47ECD905F
|
||
:207F400085F1E521597DE521EE7DE5F5C3107FB7CD597FCD9085Cu6da, <1D>7据麕Qｧ Fﾔ<46>)8 *]`皺<>3｡@<40>ｸM*ｿ% 廳σP<CF83>ｫ°`ﾘ<>$ﾒG&ﾜｭU<EFBDAD>4<EFBFBD>wｭﾁmｶ<6D> ﾓi5 -GﾐﾝYｾ惕ｹｾ 3^ﾋ<>1lﾞｰ;ｸC r9ﾝ-9游<39>ﾀﾌ ｲ<> Yq ﾃe Switched to Z80 processor.
|
||
$Switched to 8080 processor.
|
||
$>0ﾃ[>ﾓ<>2ﾁ ﾃ= ｯ2ﾀ 2ﾁ =龝ﾍV* <00>I ﾍ= !"d6%ﾜﾆ2<EFBE86>ﾖk(ｽ<03> <09>
|
||
e6 F 8ﾘJｻC`)<29>z0^<5E><>!\ﾊｰlｱ<6C>wIAｾ\:沂尿<E6B282>ﾝｷﾂｭ｡i%ﾓ><ﾟmBa爆ｲ0<EFBDB2>KR<4B>9Fｼ 恭ヨ悲R触ｭ┃]HﾑbZmg｣<67>it嚀<74>ﾋ<EFBFBD>g17E1C347803A5E94C34380F1F1F13A5C9417C34780F13AFD
|
||
:208040005E942F17C34780C38786AFCDD380E608CA5580362BEBCDDC7DEBF26780362DC5D4
|
||
::AB@ Ｍ6<0E>厰<EFBFBD> 9扠f3)ﾌ詛:<3A>ﾀﾐP凄o6僖c ､ﾘu9DC)ﾐﾊc:Lもh(HﾅjｹB$`<60>_0ﾁ<C280>L
|
||
ﾂ}∪- %<25>jｹ\｡ 2ｮ7園銭ｬBJ<0F>n T若15<>#; compile an assembler program
|
||
|
||
A:M80 =$1/M
|
||
|
||
A:L80 $1,$1/N/E
|
||
|
||
ERA $1.REL
|
||
|
||
eO?ﾟ%q､ﾂkｴﾂﾆﾆy@
|
||
q 獰萄<E78DB0>A<> 5<> NgZ ｳﾜ段#敵ﾆ羹m\ﾑ5<12>-bﾓpﾟ刎增ﾛﾁRｼWﾛﾋｴ<EFBE8B>軸g淅 W詹zｽyKｦ(ｦｳI<EFBDB3>畿冲ﾐYｭp2Lｨﾞ+灰m<E781B0>:<3A>ff=ｮ~#ｶﾊ<EFBDB6>+ﾍLﾃ<>:ﾀ ｷﾂ ﾊ<>ﾚ ﾍ= :ﾁ ｷﾊ ﾍNﾃ ,<02><02>Lｬ ﾌ,<05><05>Lｬ lﾌ,<08><08>L ｬ
|
||
l
|
||
ﾌ
|
||
, <0B> <0B> L ,<0E><0E>Lｬ lﾌ,<11><11>Lｬ D妲ﾃ@<40>愴`0<>T
|
||
&ﾛ<>ﾓ<EFBFBD>$<24>8<><04>"
|
||
ｩ| ﾁｮhZ吋<06>*ﾍrfjYﾆ"|ｼﾞ|ュ-褒a`ﾐL倆uBﾐｲｳ <1E>ﾋ@jnｽ.ﾘ ｣bｵﾚｸA<EFBDB8>K<>ﾘｶq<0E>段ﾔﾕ#惨ｭ#ｺｼﾛ20806000E5CD5B7CE1C1B42336303A577C57173A547CDAF881CAF081FE04D2DC8001000054
|
||
:20808000CDDB8421317C460E203A577C5FE620CAA08078B90E2ｸZ,<17>%<25>r<EFBFBD>ﾁ<EFBFBD><EFBE81> ;安ｬ!烋ﾂﾁxｲ@ 瀲<>ﾜ0<> 抽<>mbNｧ｢=ﾒcR拘ﾆDｪ<44> ﾛD <0C>-ﾅﾂ詑ﾕt∫<74>&ﾊ ｶ&
|
||
ﾏﾋ糢ﾎｸ<16> <0B>D:ｷ
|
||
Kﾉ貉8<E8B289>銀 x4ﾚj MCC9D5788947C5E57ED630F5CDAA85F2C47F2A5A9411CDD8
|
||
:207FA0000CCDFB7CD2C07F545D29291929F14F097CB7FABE7F225A94E1C1D1C3A47E79F592
|
||
:2 <0B>R犲h
|
||
<EFBFBD><EFBFBD>Qh _
|
||
ﾘ`ﾄr╋o<><6F>'z6p <00>ｿ% 廳σP<CF83>ｫ°`ﾘ<>$ﾒG&ﾜｭU<EFBDAD>4<EFBFBD>wｭﾁmｶ<6D> ﾓi5 -GﾐﾝYｾ惕ｹｾ 3^ﾋ<>1lﾞｰ;ｸC r9ﾝ-9游<39>ﾀﾌ ｲ<> Yq lﾌ,<14><14>Lｬ lﾌ,<17><17>Lｬ lﾌ,<1A><1A> ﾗ鍈 ,ヨO+<2B>9ｳ ~cﾓ運F 8 !<21> <00><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ﾗ <00><><EFBFBD>旺<adc,sbc> hl,<bc,deNmﾀｲ
|
||
ﾆc<05><>ﾚm5洲｢ﾒ｡ﾈgぴ`簾t W ﾏ<>t<EFBFBD><74>I<>煥H<y
|
||
f<13>b+猶S;,2l Mﾆｰ3暼ﾔ
|
||
搗-1[ ﾚ=醐ﾒS1<53>o嶝ﾋ轆<EFBE8B>.ｷ_ﾌ sUｬﾖQｺ-咥pﾘa1 褜C2A0807BE604C2A0804143
|
||
:2080A00071CD9085CAC080FE45CAC080FE44CAC080FE30CAA080FE2CCAA080FE2EC2C3806D
|
||
:2080C0002B36307BE610CACC8ｭﾗ#ｭ靫Z捻m4+ &lL傑ｵC炻|梠FVKｰ(.ﾌ`cce<63> 佯<>kﾔvn2 <09>【ｪ` ｹFs科xr4I`F｡ ､
|
||
BｿT<EFBFBD>･ｩｬjｵT><3E>$ﾁｱｶｻdｵ赴ﾇﾉ dﾘ68ﾈｭ<EFBE88>ﾕｸﾖｳﾕm馘Lﾙ+
|
||
-<2D>07FC000CD977C37D2E07F017494110024CD4A7DF2DD7FCD8B7DF1CDF37FC3B87FCDA77C4A
|
||
:207FE000CD267DCDCA7DF1CD5B7DCDA77CCDE07CC3B87FCD647DFE21CA507FFE64CAF97EFE44C2107FB7CD597FCD9085F3
|
||
:207F0000CDBB85CD9085DAFE7F14C2107FAF935FE57B905FF4687FFC787FC2147FE1F1E5EC
|
||
:20,hl,sp>....$ﾗ ･ﾄﾇﾄ&ﾒP<EFBE92>鷙f<E9B799>ﾞﾉ<EFBE9E>0 !<21> <00><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ﾗ <00><>e<>add hl,<bc,de,hl,sp>..........$ﾗﾝ ｬﾝ板[cﾓ3vj 哿h<E593BF>選｢ｻ3ｼTﾋﾂｹ恠ｵ7I !ｱ-ｰ
|
||
ｶ歩<EFBDB6>ﾙ0l%=<3D> Cﾑ∪`wｰﾕv<>bnG;ﾈﾆ報蝟aY｣<17>hJoi(
|
||
F<EFBFBD>ﾙ<> ;･W`ｲ8 D .J<>Q0ｽ桓 ｯ訪ﾐX<EFBE90>Vｴ-$給3P<11>ｩﾖｭxﾄXﾙO"ﾋm蚪02B36247BE604C02B70C932577C21317C3620C9CD647DEBEF
|
||
:2080E0002A5694E52A5894E5EBF5AF322F7CF1F5CD878106450E00E57EB8CA2881FE3AD274
|
||
髏ﾗ(<28><17>XBｴz-Jﾋ6 込ｺJｦW ﾕ(<P\'金T@!<21> lｬ<6C> ｷH真o>!ﾋＡEＢｪﾖﾆah<61>ﾜ ､ -ｳ<>0ﾒ/ 伃ｨ箜B｢@ﾋeｨ}>ｿr)] <0B>ﾌ<EFBFBD>dｨ≒ﾈﾑ, T#<23> 菎`<60>jｮﾁﾑ襍CD5B7DC1D1C33E7D7BFE78
|
||
:208000000AD20D800707830786D6305FFA1E7FC3037FB7C34780F1E5215C94CDAA85E2276B
|
||
:20802000803A6694C3288079AE6 0 !<21> <00><> <00><><EFBFBD><EFBFBD>ﾗ <00><>ﾃY<EFBE83>add ix,<bc,de,ix,sp>..........$ﾗ<> ﾂﾇ<07>Q<EFBFBD>><3E> Q<> 麭 0 !<21> <00><> ﾗ 疼ｯﾌ<inc,dec> e...................$ﾗ$ <15>ﾝ<EFBFBD>+&ｦｼ( <00> ﾗ 奓}<inc,dec> h........<2E> <00> ﾗ _h"d<inc,dec> b...................$ﾗ 力ｫDﾉ阪耄､<>IM* !<21> ﾗ 鉧ｺ<E989A7><inc,dec> iyl.................$ﾗ彅ｨ<><EFBDA8>楠<EFBFBD>ohﾙ<68>ﾘK <00><> MEｩｬld <bc,de>,(nnnn).............$Sﾋ@ <00>><3E>ﾌzaｾ<61>P$<24> ? S <00> <00><><EFBFBD><EFBFBD> <00> {U貶bit n,<b,c,d,e,h,l,(hl),a>....$ﾗ愰 ｶﾇｴr<EFBDB4>ｽ<> ﾀ0｣<30> !<21> ﾗ ]ｬﾕ'<inc,dec> sp..................$ﾗﾝ4 n<>(,蝿WP3o( <00> <00><><EFBFBD><EFBFBD>ﾗ <00><>_ﾈ(饌dd iy,<bc,de,iy,sp>..........$ﾗﾆ @<40><~gzmﾟa[) fｲ<66>8 <00> <00> ﾗ Hy伝aluop a,nn....................$ﾗ# <00>･mOﾂ<4F>*８珮ﾃ !<21> ﾗ <00>
|
||
mJ<inc,dec> hl..................$ﾗﾝ# <ｼ<>
|
||
≒<EFBFBD>ｭ壼<EFBFBD><13> ﾗ ﾒｮ;<3B><inc,dec> bc..................$ﾗ 荷5 [<05>'<27>ﾒ<>` <00> ﾗ ﾂФL<inc,dec> c...................$ﾗ* c<>0xw <20>ｱ彧ｸｫ` <00><> _<>$㌫d hl,(nnnn)..................$ﾗ垬<01>ﾗWa!ﾊ<>ﾚ'<27> `<60>
|
||
<00> ﾗ ﾒｨBcpd<r>........................$ﾗ悅 HMJｯk<EFBDAF>qN 屠|<7C>
|
||
<00> ﾗ Xp<inc,dec> (<ix,iy>+1).........$ﾗﾝ$ 8ｸl1ﾔﾆ>XΧ∇YB <00> ﾗ oF6b<inc,dec> ixh.................$ﾗ >ﾅ:WML 綰ｦﾐ;ｻｭ? <00> <00> <00><><EFBFBD><EFBFBD>ﾗ <00>Cｰaluop a,<b,c,d,e,h,l,(hl),a>..$ﾗﾝ<EFBE97> <00>nﾇﾏｬG(ﾝ"5ﾀﾅ8K !<21> ﾗ ･Mｾ1<inc,dec> ix..................$ﾗ<># 配c<E9858D>1Zﾆ魎ｴｫ<16>m !<21> ...........$ﾗ 槇ｺ_琇 侘8ｼﾞC\ｽ <00> ﾗ E#ﾞ<inc,dec> d...................$ﾗ .4 ﾉ(ﾊ
|
||
g<EFBFBD>.:程T<E7A88B> <00><> zﾎ｡ld sp,(nnnn)..................$ﾗﾝ*ﾗﾞ孖<E5AD96>$ﾞ<>ｼc豊 <00><> ﾗ ﾞｳVcpi<r>........................$ﾗ' A!<21> ` Y･[酵<>持) ﾗ<> 姙ｦu<daa,cpl,scf,ccf>.............$ﾗﾝ, M`tﾔv<EFBE94>｢2<!ﾖﾗ･<EFBE97> <00> ﾗ {<7B>,<inc,dec> ixl.................$ﾗﾝ$ 6(o<>損aﾋ<61>竰s<E7ABB0># 9 <00> <00> <00><><EFBFBD><EFBFBD>ﾗ ､mZaluop a,<ixh,ixl,iyh,iyl>.....$ﾗﾝ<EFBE97> ｷ<><01>2n@ﾜﾁEn栁 8 <00> <00> ﾗ P]Q｣<inc,dec> iy..................$ﾗ, 1 ･VC ｴﾁ<EFBDB4>ﾟﾑ<｢> <00> ﾗ Vﾍ<06><inc,dec> l........<2E> !<21> ﾗ ｮﾆﾔ,<inc,dec> de..................$ﾗ /`
|
||
L$<24><>
|
||
｡2%Y <00> <00><>ld <ix,iy>,(nnnn).............$ﾗ銈<01> M┏竟ﾉ]ﾉa準?ｿﾇ <00><><EFBFBD><EFBFBD> d <1E>ld (nnnn),<bc,de>.............$ﾗ< ﾟJﾘﾕ伜+寛ｧCDZ0ﾐ <00> ﾗ ﾑ<>､<inc,dec> a...................$ﾗ #ﾖ-Caz≧Z<E289A7> <1E>ｻｩ <00> ﾗ -僕<><inc,dec> iyh.................$ﾗﾝ, ﾆﾗﾕb棧9p~>汾ﾙ" <00> ﾗ 鍼gnaluop a,(<ix,iy>+1)...........$SﾝﾋFu <01><圦t=Q'ﾊ 8 S <00> ｨ<>gbit n,(<ix,iy>+1).............$ﾗ4 Vｸ| ><3E>~Ⅴﾚ\7 <00> ﾗ ｸ:ﾜ<><inc,dec> (hl)................$ﾗ3 o4ぶiﾑｶﾞ筈v<E7AD88>[...........$ﾗ" ﾐrwSr?鹽<E9B9BD>-<2D>5 <00><> ｣`季ld (nnnn),hl..................$ﾗ﨎ﾜﾀﾖﾑZ侔<5A>ｯｧlD<6C>
|
||
& <00><> ﾗ 埒<>ldi<r> (1)....................$ﾗ恝 ﾎJnﾂ鯵 -泪 <00><> >,nn.......$ﾗ@ ､r$<24>ｬaﾇｏq酪趣? <00> <00><><EFBFBD><EFBFBD>ﾗ<EFBFBD> tKld <bcdehla>,<bcdehla>........$ﾗﾝ@ ﾅｼﾂ/ﾀ<> ﾍｽ <00><> <00> zLOld (<bc,de>),a................$蛬#fo~2ﾔ #<23> I ﾍｸ 砒( q ﾍｸ !q 6砒ｱ 擎 <00> <00>ｵVld <b,c,d,e,h,l,(hl),a>,nn....$ﾗﾝ6 Eﾁﾕﾇaﾄｽﾀ<EFBDBD>ﾍ <00> <00> &ﾛG~ld (<ix,iy>+1),nn..l,(hl),a>..$ﾗﾋ ﾕ,ｫ<>9KﾑｲjS'8ｵ <00> <00><><EFBFBD><EFBFBD>ﾗ<EFBFBD> 妓<><set,res> n,<bcdehl(hl)a>.....$ﾗﾝﾋ<01><> ｺｾhﾘ2^g? <00><>X_ﾗld (nnnn),sp..................$ﾗﾝ"ﾃl<EFBE83>
|
||
i<>ﾖ胱ﾃﾆﾙﾟﾂ <00><><EFBFBD><EFBFBD> ﾗ <00><>ldi<r> (2)....................$ﾗ蓜 ｢8k_4ﾙ膰ﾖﾒBFCZﾌ ﾗ<> j<;ｽneg................; ? <00> <00><><EFBFBD><EFBFBD>ﾗ<EFBFBD> G競kld <bcdexya>,<bcdexya>........$ﾗ2 h<><68><EFBFBD>DCｵSｺﾍﾒOﾘ <00> 擎, <19> ﾍ= ﾍ2 :ｱ <1D>vﾊｨ赱<>ﾝﾂ･:ｲ <1D>vﾄ<76> ﾍ<> ﾄ 睫<>< ﾍ<> <11> ﾊ<>>2ﾀ <11> ﾍ= ﾍ ｵ ﾍ= !F ﾍ ｽ ﾍ= <1E>##ﾉ<>>2_ 2<> !I "` !q "<22> ...........$ﾗﾝF ﾐ`B9憂<> <00><> ﾌｨld <b,c,d,e>,(<ix,iy>+1)......$ﾗﾝf 焙R恙ｧｶI<EFBDB6> ｭｨ x <00> ﾗ ﾌc<EFBE8C><set,res> n,(<ix,iy>+1).......$ﾗﾝp
|
||
':ｷ{稲刎pﾊ ｺ*kld (nnnn),<ix,iy>.............$ﾗ \F-ｹ支`ｱtｳFﾑﾌ00 <00><> ﾞ9ild <bc,de,hl,sp>,nn...........$ﾗ刕 ﾋ窓ﾄb<EFBE84> 轌ｴ@竓 <00> ﾗ<> 票｣&<rrd,rld>.....................$ﾗ 塚Cm<43>
|
||
<EFBFBD>S <0E><> ﾗ<> ﾉ&-虱d a,(nnnn) / ld (nnnn),a.....$ﾗ愷 R傅h｡f ﾁhｷ <00><> ﾗ 簸'ildd<r> (1).........砒ｱ ﾍ ﾍ ﾃ<>ﾍ #ﾂ ﾉﾅﾕ薇 ~<7E> ﾊ= <0F>> ﾜb ｩO<>ﾂ, ~<7E> ﾊX <0F>> ﾜ<> ｩO<>ﾂI 瞋yﾁﾉ ﾅ<>*` F!_ ~Ow<>ﾂ{ *` #"` x｡眞ﾈ<E79C9E> <00><> <00>*Mld <h,l>,(<ix,iy>+1)..........$ﾗﾝ~ ｶﾘﾆﾟﾐ廚ｦ蝣 <00><> <00><><EFBFBD><EFBFBD> bjｿld (<ix,iy>+1),<b,c,d,e>......$ﾗﾝt dｶｬ頷ｵ<E9A0B7>ｪf<> <00><> j<1A>1ld (<ix,iy>+1),<h,lnn.........$ﾗﾝ! 閾 ｽ峺Sr蝪Qｽ<> <00><> "}ﾕ%ld <ix,iy>,nnnn...............$ﾗ
|
||
ｨｳ* <1D>ｬBﾆｱ察 <00> ﾗ %0ｮ<rlca,rrca,rla,rra>...........$ﾗﾝﾋｯﾝ<<3C><><EFBFBD><EFBFBD>ﾙa 8 <00> ...........$ﾗ愷 .<2E>*<2A>ﾕ G<>蕘 <00><> ﾗ Z厨ﾔldd<r> (2)....................$ﾗ恝 0<>ﾍX` `<60>>ﾉ ﾅ<>*<2A> F!<21> ~Ow<>ﾂ<> *<2A> #"<22> x｡眞ﾈ>ﾉ<>ﾕ<EFBFBD>6 T] 擎瞋ﾁ<E79E8B>ﾕ<EFBFBD>( ﾍｧ <1C> ^{｡ﾊﾎ yO<>ﾂﾈ #ﾂﾇ z蹂o& z<><G>ﾂ<> ﾑ wﾉﾅﾕ<EFBE85>!I ･鬯dld a,(<ix,iy>+1)..............$ﾗﾝ& S<@Fy<46>wﾁ<><1A>嫋 <00> $閧詰d <ixh,ixl,iyh,iyl>..........$ﾗﾝw ｯgODﾗｼPｬｯ_ <00> ﾌｾZ僕d (<ix,iy>+1),a..............$ﾗ ; 跳<>l桾ﾁ!鉐 <00> ﾗ<> ｰ♂5ld a,<(bc),(de)>..............$ﾗ ﾄ暉=ﾑ9迦UtSﾀ U8 W q:ﾍ《hf/rot (<ix,iy>+1)...........$ﾗﾋ <00>J]<07><01><13>0Cxｭ= ? <00> <00><><EFBFBD><EFBFBD>W<EFBFBD> <00>MXshf/rot <b,c,d,e,h, <00><19>4~<7E> ﾊ G<1A>ﾊ 6 ﾁﾑ睨#ﾃ ﾅﾕ<EFBE85>!q <00><19>ｷﾊD G<1A>ﾂ@ x<07>ﾂ> 6 #wｯ瞋ﾁﾉ#ﾃ( 1638FE5C5E521260009CD
|
||
:208F6000C38788E1D1C1C9C57E1223130B78B1C2688FC1C9F1D5C5F5444DCDD08FCA7790D3
|
||
:208F8000CDC58F21B1000919F17<31><37>
|
||
ｮ'}楹<>泥<>｣ﾒ <01>iﾂ<><EFBE82>W]egﾋl6qnk<06>ﾔv箇+<2B>ﾚzZgﾝJﾌ<4A>ﾟo疾<6F>ｷｾC`ｰ遮ﾖﾖ｣陦ﾑ冬8ﾘﾂﾄOﾟ<4F>ﾑｻg<EFBDBB>ｼWg?ｵﾝHｲ6Kﾘ
|
||
+ﾚｯ
|
||
L6J<>z`ﾟ`<60>ｨg15CCB391CAB590FE08C25260
|
||
:209140009105CAB590CDB0913E20CDB0913E08C3DC90FE18C25C913E23C3E390FE12C275D8
|
||
:2091600091C5D5E53600CDAD|ｽ邵-請 <1D> ｷdjｰ <20>ｹqH╂Aﾞﾚﾔ}mﾝ蓁<EFBE9D>ｵQφ<51>l老dkｨﾀ<EFBDA8>b<EFBFBD>各ﾉ<E59084>\Oclﾙ<6C>=c<>
|
||
<EFBFBD>;n ﾈLi^ﾕ`A茲gqr<葭KﾔGﾒ
|
||
<EFBFBD>･
|
||
ｵk5ｵｨⅲｲ詫ﾛｻﾉﾖｬｼ<EFBFBD>2ﾘl絋ﾟ20906000E1C93E36013E34013E3F013E3D013E3A013E37013E35013E32013E33013E40019F
|
||
:209080003E43013E05CDF66D6F2600C3B86AE5D5C521000022E <00>ﾕ褫﨎<E8A4AB> 1<01>矍矣ﾑﾁ<EFBE91>{ 﨎<> 1<> <1D>ﾕ袿<EFBE95>褊{<7B> <1D>*"<22> !<21> ~贐w<11> !F ﾍ
|
||
ﾂﾞ 瞋ﾁ<E79E8B> ~ﾍ7F521280009563600FE0DCA9D8FC6E07ACE0077F1C1D198
|
||
:208FA000E1C9D5CDCE8FCA7790CDC58F21B10009197EB7D1E1C1C921A900C3C08F21B00004
|
||
:2ﾟU1n趣Fiｾyﾋaｳ絃f<E7B583>%oﾒ<6F>Rh<52>6ﾌ w塀 G"ｹU&/ﾅｺ;ｾｲｽ (+ｴZ箪ｳjﾂﾗ<EFBE82>ｧｵﾐﾏ1,ﾙ梛[ﾞｮ 嫖ﾂｰ<EFBE82><EFBDB0>&uj｣<6A>m<>
|
||
<EFBFBD> ｩ<>6?rg<> W柄Jやｸz{ｱ+ｮ ｶ8辻寺袗9121A66ECDC591E1D1C1C3F790FE20DAF790783C3E07CA85C2
|
||
:209180009179712304CDB091D60AC2F7903E0DCDB091CDDB91B7CA9291FE0DCAF790C3FAA7
|
||
\uﾜﾖ
|
||
ﾏｫﾑ=Y&ﾙ0ｬQﾞ :ﾈﾗQｿﾐa!ｴ<>Vｳﾄ#ﾏｺ蕗ｸｽ･(ｸ枩<05>ﾆ ﾙｲｱ <0B>$/o|ⅤhLﾁa ｫｶf-=vﾜA<EFBE9C>ﾛq來 ｼ<>*qｱ<71>ｶｵ 涸茹雕ﾔ3xﾉ｢ <00>4<EFBFBD> ｨ若<0E>j
|
||
ｻm36921A66E22A66FCDA490E6
|
||
:2090A000C1D1E1C93A5F6EE602C2B590CD1B7C3FA0C3B59070CDDB91C3E9903AAC91B73EE2
|
||
:2090C0005C32AC91C2CF9005C #ﾂ<> ﾉ<><EFBE89>~ﾍ #ﾂ
|
||
眞<><E79C9E>ﾍ# <1E>ﾅﾕ褂<0F>
|
||
ﾚ0 ﾆ'ﾆ0_ﾍ= 瞋ﾁ<E79E8B><EFBE81>ﾕ袁 瞋ﾁ<E79E8B>Z80 instruction exerciser
|
||
Undefined status bits NOT ta08FC000095E2356C91321B00009732372C9444DCDBD8FD5CDB78FEBD1CD5090C9C5D57D4F
|
||
:208FE000CD168DCA6590FE01CAF08FFE03C26290606922E36921ｾ
|
||
|ﾜ<> ﾛﾟ!<21>ﾒﾔ<EFBE92>磽hﾝｳ<EFBE9D> ﾚハ∪ﾍ<>&[oｰw<EFBDB0>ｷGw<47>Z<>jpf;ﾊ \銃<><E98A83>ｮiak<61>ﾓlﾏE<EFBE8F>
|
||
窗ﾗ
|
||
ﾒ琮サ9ｳﾂｧg&aﾐ`<16>iGM>nwﾛｮﾑjJﾙﾖZﾜ@ﾟ f7ﾘ;<3B>ｼｮSﾞｻ
|
||
:2091A000903A5F6EE601CCAD91AF77C900C3E26DC37792F53E5ECDB091F1F5F640CDB09191
|
||
:2091C000CDAD91F1C97EA7C8FE0AC2D491F53E0DCDB091F1C=-租l玲c\kkQ<6B> lab<61>0ﾘ<30> Nl倣･{<7B><08><>ﾄWeｰﾙﾆｷ餘鏡ｸ<E98FA1>ｹ<EFBFBD>bﾝ ﾟﾚ-I胡|<7C>ﾔLeMｲaX:ｵQﾎ｣ｼ tﾔｻ0祀ﾟ･A=ﾘ勉､ﾑﾄmﾓﾖ<EFBE93>Ci駛4nﾙ<6E>g<EFBFBD>ﾚ`ｸﾐD-s3AB490CDB09104052BCAE3907ECDB091C3F790052BCDB091FE
|
||
:2090E000C2F790CDB091CDAD9121A66E0601F5AF32AC91F1C3FA90CDDB914FFE7FCABB9067
|
||
ken into account
|
||
$ OK
|
||
$ ERROR **** crc expected:$ found:$
|
||
$ All tests successful.
|
||
$Some failure detected.
|
||
$ﾅﾕ<EFBE85>F ｾﾂ 009022EC69D1C1C32D90D4
|
||
:20900000CDA589D0CDF66D213E00C3B86ACDEC6D7CB2C2AD6A2CCA27902D3AE969B7CA6598
|
||
:2090200090E52AEA69E3C92105槐Gｲﾏ0ｵ<30>鮨ｽ<E9AEA8> ﾊｺﾂ慨ｳ<E685A8>0$ｴ｣ｦｺﾐ6ﾍﾗ典ﾞW)#ﾙgｿｳfz.ﾄaJｸ]h*o+閥 ｾ7ﾃ 治Zﾟ-<02><>
|
||
窗ﾗ
|
||
ﾒ琮サ9ｳﾂｧg&aﾐ`<16>iGM>nwﾛｮﾑjJﾙﾖZﾜ@ﾟ f7ﾘ;<3B>ｼｮSﾞｻDB09123C3C591CD0569E67F85
|
||
:2091E000C9C37CE52A0B6AFE0DCAFA91F5237E2B3CCAF9913D96DC8B92F1F5FE0DCC6292B5
|
||
:20920000FE08CC6592FE20D 蟐
|
||
L_ﾝ
|
||
|ﾉPq<'Aｪｾ ﾉ <20>hｵ% o<>ｹfﾔ ﾎa茵^ﾞ<>)ﾙﾉ于ﾐ<E4BA8E>"ﾇﾗｨｴYｳ=.ｴ
|
||
<EFBFBD>ｽ\;ﾀｺlｭ昤<EFBDAD> 堊ｳｶｶ<> tｱﾒ夛ﾕG9旆wｯﾛ&sﾜ<16>c 播;<3B>
|
||
mj>zjZｨ<5A>ﾏ <0B> :209100003AAC91B7CA10913E5CCDB091AF32AC9179FE07CA7A91FE03CCB39137C8FE0DCAB8
|
||
:20912000A191FE09CA7A91FE0AC2349105CAB59004C37A91FE#ﾂ<> 瞋ﾁﾉ<EFBE81>ﾕ裹 ｮo& ))<29>!J <19> ｨFw#
|
||
ﾂ# 瞋ﾁ<E79E8B><EFBE81><EFBFBD>!F ><3E>w#ﾂ< 眞<> w0矢a,<2C> Qｺmﾄpj<70>馗･5枦淵ﾛ<>2yﾜｸ､獨<EFBDA4> 淋ﾙ<E6B78B> ｶL+~ｱ6922EC69C5D57BCD337AE5662425CA4B90D5E5214490E530
|
||
:209040002AEC69E9E1D11213C33690E1D1C1C9007C92C07D93C9E521000022E369E1C9F156
|
||
:A0B92342B7E233CCA3A923DC25E92F1FE09CA6992E1CD0E694D
|
||
:20922000FE0AC0F5C53A136A470405CA3792AFC5CD0E69C1C32A92C1F1C93AE869A7C25358597C
|
||
:2094C00098CD6E95216094CD9798CA2D953A5D94B7CA0A9E3A67942F3C473A66944FCDAA52
|
||
:2094E0009B34CD0E982196937141118F93216094CD660000C5F53E01322D7CF1EB01FF006068CC4D7EEB7EFE26CA00006E
|
||
:20940000FE2DF5CAA47EFE2BCAA47E2BCD1B75DA8B7FFE2ECA317FFE65CAB67EFE45C2E00000AF
|
||
:2096A0000000007F000000000000808260DEF933F30435817ACFD1F71772317F7BCFD1F7B6
|
||
:2096C00017723180C06821A2DA0F4982CD9798CA04CD2993E1C95E235623E521569B
|
||
:2093200094CD2693E1C9CD29931A7713231A7713231A7713231A771323C9237EFE20CA3A38
|
||
:2093400093FE09CA3A93C370233DC2C295EBE9215694C3E495E1228E93CDB695CDA595CD919527
|
||
:2095E0002A8E93E9CD9798CAC19D3A5D94B7CAC19D2166944E2346CDAA9BCD0E9871
|
||
:20924000923C32E869E52AE56922E19121959222E569E1F1FE09CA6992CD1569E1C92AFF58
|
||
:2092600069E93601C935C034C93E20CDE3917E3DE607C269971A993FDA0495118F93216094CDA2
|
||
:209500005997AFDA12043A5C943C3D1FFA2B97172156940E07CDCA97218F93CDC89778B73B
|
||
:20952000C2EA94215D0D3
|
||
:209420007EE5CDA57EFE6CCACE7EFE4CCACE7EFE71CACE7EFE51E1CADF7E3A547CFE08CA43
|
||
:20944000F97E3E00C3F97E7EFE25CA3E7FFE23CA4F7FFA9E79EE804F326694C3E296CD9798CAE0
|
||
:2096E0000A9E3A5D94B7CA6E9590D2F4962F3CF5CD6E95F1FE39D20A9EF53A66944FCDB957
|
||
:209700009C47AF39856FD024C9A7C8C5471A77132305C25093C1C97BADC07AACC915
|
||
:20936000CDCA7D212A85CDC47DCDE07CCD907CC30D7ECD447D3A7B7DB7F5E67F320E7E3A130628
|
||
:20960000071A13B7D5CA21960E08C51F47DC5397CD519878C10DC20A96D105C20196C38C26
|
||
:2096200097215C94CD2D98C31996B26AF6F4A2300992E1C9E52A0B6AE5210E6A22D8
|
||
:209280000B6ACDE391E1220B6AE1C93E0DCDE3913E0AC3E3913E0DCD15693E0ACD15692A98
|
||
:2092A000E191E9C50103009435C2EA94C36E96CDDE7189215C944E2346CDB99CAE2B36B8F5FC56
|
||
:209540006395215C943EB890CD2598F1FC3F97AF3255943A5694F5CD8C97CD0A9EC17E21CA507FFE64CAF97EFE44C210CD
|
||
:209460007FB7CD597FCDBB7E360023D601D26894C9CD97981167941AB7CAA394CD0A9E1BDA
|
||
:209480001A4FCAA894225F94F1216694CD25983A5F94325594782160941156940E07B7F2739764
|
||
:20972000CD5C97D22B97EB34CD51983A5594B7FC3F97215E947EE6802B2BAE77C3E2
|
||
:20938000157EFE90D20000CD917D3A187EB7C22E7EF1EBC3337EF1EBF2397E7C2F677D2F77
|
||
:2093A0006FC34D7E211D7EE53A237EFE90D2567ECD917D7F5465C242D7B35D81C26821A2DA0F23
|
||
:2096400049812E9B6BC1910A06800000000000000081E5CD8B95E1CDDA9DCD6298C368962A
|
||
:20966000E5CD8B95C3AE92C501070009EB0947CDC792A0C1E1CAC2927E23666FC3B7
|
||
:2092C000C4922323D1E3C9CDD1923E04D80FC80FC91AA7C2DE927EA7C82B7E173FC97EA7A8F0BE
|
||
:209560002F3CC92156947E35B723CA6695C911569421609406084E1A777912132305C27696
|
||
:2095800095C30A9E115694EBC39A98215694C3979821129EE5215C94AE79F8132306081A96C2A0941B2B05C29394C1C9CF
|
||
:2094A0001FA9C9CD0A9E3FC9C3129EE5CD8B95E1CDDA9DCD6298C3C194E5CD8B95E1CD0A9E2156
|
||
:209740005694060734C02305C2449734CA6E962B3680C92160941156940E07AF1A8E12130C
|
||
:20976000230DC25C97C9AF0E071A9E1213230DC2EBD122F27D3E0232547CC901804C
|
||
:2093C00090110000CD4A7DC0616AC34C7E0000000000002084CDCCCCCCCCCC4C7DCD847C3D
|
||
:2093E000CDAA7CF6AF01E1CD5998216094C3E495CDDE7117215D940EFF71237EE680F67F2B2B93
|
||
:209680007706062B7105C28396C30A9E000000000000008015444E6E83F9227E000F
|
||
:2092E000C2E992F6011B1A17C91B2B1AAE1A132317F8D2F692EB1A96C01B2B0DF2F692AF87
|
||
:20930000C9EB260029292911E80B19C95E235623E5215A916094C3AE98CD4C99214C99E3E92130
|
||
:2095A0006794C3A895215D943E04D1462B4E2BC53DC2AB95EBE9216094C3BF952156943E54
|
||
:2095C00004D1C17126997C9CD6997D28C97131A2F12215594A5
|
||
:209780000608AF4F799E772305C28497AF473A5C94B7C2B5972155940E0856777A230DC2EC
|
||
:2097A0009A9778C1D1C3589BEBCDCE9CEB7EF523CDDA9DF1C1D13DC8D5C5F5E578B1CD559BE19A
|
||
:209A4000CDFB9DE5CD579AE1C3319ACD449CC3549ACDFB9DCA0A9E3A5D94B47EB7C82B3E80AE77C30A9E0100815159C3C4
|
||
:20996000E39DF1FA759CC30A9E3A5D94FE88D2A099FE68DA9899CDCE9CCDCA9BC681C1D191
|
||
:20998000CAA0D82F3CC978B1CA0A9E21129EE5CD0A9E792FC8215C94AE7EF0CD1F9C1FA9C92399
|
||
:209C20007EB8C02B7EB9C02B7EBAC02B7E93C0E1E1C94C550600582921C3B498CDE7
|
||
:20988000AE98CDB99C21599446235E2356234EC3A19DCDB4987DC911609406087E12132368
|
||
:2098A00005C29C98B7472B2B4EC879C3129E119B783C3DFA459B7B175F7A17577817472979172A
|
||
:209B40004F9FEBE3E91F4847E1C3A19DCD449CC3559BCDFB9DCAE69DCD0A9EC8CDAA9B79F6
|
||
:209B6000D608FEC0C28D97C3C19D05215594CDC897B7F2AD9778B7CA2B97215D9468
|
||
:2097C0008677D2C19DC32B970E087E1777230DC2CA97C9E5CD8B95E1CDDA9DCD67CAE39D90D2CC
|
||
:209A6000679A2F3CCD959CFE19D20A9EF5CDB99C67F1E5CD4E9EF1B7215A94F2999A7E8301
|
||
:209A80005F237E8A57237E894FD2A19D233099F5CD959CCDB99A21A999CD269AC11100004AC35C9B0100815159C3E39D7C
|
||
:2099A000CD0A9EFAC19DC3909D077C885974E0972677C41D1E7A5E50637C1A9080225D94DC8199
|
||
:209C40009CC3E39CEBCDCE9CEBCD329CC1D1CD959CC9EB7AB3CA759C7AB742FC799C7CA88A
|
||
:209C6000477CB5C87CB7EBFC799CC5CD5694C39A98215A94CDDA9D3E90B8CAEB9841
|
||
:2098C000D2C998CDDE7114068FCD039ECDF998CDF19DEBC8EB215E943680CDC69C673E9896
|
||
:2098E00090CD0E00C50E082B46C52B46C52B46C5770100006068E37CB7CAA29B1F6779E3D286C3
|
||
:209B80009B193A5A94891F4F7C1F677D1F6F781F47E32D7CC27A9BE1E37298C3E92F
|
||
:2097E00097E5CD8B95E1CD5998216094C3DC96E5CD8B95E1CDDA9DCD6298C30598E5CD8BBC
|
||
:2098000095E1CD5998CD6E95216094C3CC967934CA909D2E01CD649EC3A19DAF90477E9B5F23EE
|
||
:209AA0007E9A57237E994FDC819CC3E39CCD449CC3B69ACDFB9DCA0A9E3E80A94FC3579A72
|
||
:209AC000CFE757E187263
|
||
:2099C000318000000081CDE39DE2D099CDDE718A3E80325D94A8F521ED99CD269AF1CDCED9
|
||
:2099E0009C6F179F67CD329CC1D1C3579A091A9EF1B7FC799CEBC9CDDE7189AF4F935F799A57BF
|
||
:209C8000C9215E947E2F77AF6F90477D9B5F7D9A577D994FC9CDCE9CCDE69DC1D1C97CB5A9
|
||
:209CA04E9E7C17D4879CEBC93E80A9B2B3C2C398616BC9CDDA9DC8F5FC4C99CDCAEA
|
||
:209900009BF1FA4C99C30A9ECDFB9DCA5A99F5CD0A9ECA6299E1CDCE9CF22A9DB7C2759BD1C346
|
||
:209BA000E39CE1456C614FC3749B215D947E80471FA878F2C29BC680CAC09D77CDB99C77B0
|
||
:209BC0002BC9B7E1FA909DC3C19DCDF1926694215C941195930100077E12711B2BCC
|
||
:2098200005C21B98C971E5D608DA3C98E1E51100084E73592B15C23198C32798C60957AFE8
|
||
:20984000E115CD449CC3C99ACDFB9DCA759CCD0A9EC8AF9047CDAA9BEB224394EB793245944605
|
||
:209AE000AF6FCD8C9CCD959C21000044E52A5A943A5C9419894FD2069B11D8EE9482A9AA7D847D99BF867BE528878A71C0
|
||
:209A0000C0876E951487B21EA086AD7A0285099D8D83EBCDCE9CD5CDF19DCD589BE1CD2621
|
||
:209A20009A00C8EB7CB5C8444D2100003E1029EB29EBD2B49C093DC2AC9CC9215C947E07371FA9
|
||
:209CC000773F1F2323777907371F4F1FAEC92A5A94E3E52A5C94E3E9E9C5D5CDCD1F
|
||
:209920009BD1C1F5CD049CE17C1FCDE69DC1D1D23699214C99E5CC4799CDCE9CCDC699C1DE
|
||
:20994000D1CD589BC369993E7FA14FC9215D9D78FE987BD2E69D215E943680CDC69C7767FAE8C0
|
||
:209BE0009B7AB3C2E79B0D1B3E9890CD4E9E7C17D4B39D06007BF53E98325D94CDE39CF1AF
|
||
:209C0008E51E087E1F772B1DC24698C33F98215C941601C34398CD329CC36298CDBE
|
||
:20986000DA9D0604AF215694772305C26898C30A9ECD79987DC9CDAE98CD82985D94EB34EBD188
|
||
:209B0000CA909DC31E9BD1CD2E9B672E00E52A43943A459419894FD17A8BD1D2079BCD2ED6
|
||
:209B20009B672EFFE52A5A943A5C94C3141E3225C94E1E322B5
|
||
:209CE0005A94C9616A5358CD2A9D1415CAC19D4A535C45215D9496D2C19D2F3C77C3A19D59
|
||
:209D00000600213D947EB7C21D9D78D#^#Vzｳ>睫a <1F>>0ﾍｳ&x ﾁ蠻ﾕGxｧﾊｬ%綽#V#耻O<><4F>"ﾚﾋ/yﾍk+耋F(6<01>#r#ﾑs#r#袁ﾍ&<26>酊｡%ﾂk%ﾃｼ%<25><>>ﾂｾ%ﾂｼ%ﾑﾑs#r<><11>w+ｧﾉ>ﾍa ﾃﾌ/ﾍa.瞿ﾍ.<2E><>*ｶ>(ﾍ<>}倒壗v'! "(!("*ﾍ<> *ｸ"ｺﾑﾁﾉ*ｼ}倒梦ﾚ<E6A2A6>'"ｼ<16>6 # xｱﾂ<EFBDB1>'瞋ﾁﾉ*ｬ<16> "ｬ<16>>ﾚa :ｰ<16>ﾈ袗ﾅ<E8A297>y砒|ｵﾊｽ' ﾍﾐz+ﾃｯ'*ｮ<16>yﾁﾑ睨ﾍr,ﾘ蘊T}｣_|｢ｳﾂ<EFBDB3>))ﾒﾛ)<29><><10>ﾉ<EFBFBD>ﾉﾍ.<2E>衫ﾍ&ﾃﾋ">4ﾍW*ﾃﾒ/yﾕ=ﾂ*ﾍ<> ﾍ/ﾉ#~+<2B>ﾂ)*x<> *x<>Gﾉﾍ<EFBE89> >ﾍk+x<>ﾊ8*ﾍ<> >ﾃk+x豼G<E8B1BC> ﾊF*>ﾃk+x<>ﾈ#~+E0009DE1C9CD039EEB225A94EB6069225C94C92A5A94EB2A5C94444DC95E2356234E65
|
||
:209E000023462378B7C879C3129E3A5D94B7C83A5C94179FB737C0C##~ >ﾒﾘ'> ﾍｳ&ﾑs#r<01> <1A>+袁.<2E>>2 ﾍ(<28>#w+<2B>>3ﾍｳ&s#r<11><19>+ｧﾉﾍｳ&xDM<44>"/(瞶ﾚ*(ﾑs#r#ﾃ (!<21> ﾃC(>2ｨﾉﾍｷ&ﾃ@(ﾍｳ&ﾍ(ﾃ<>&ﾅﾕ~#<23>638C2129D47C9C640471608CD889DC3029DFA289D15
|
||
:209D2000CD759D04B7F21D9D78C906007CB7C2579DB5C23E9DB2C2479DB3C2509DC9656A09
|
||
:209D4衞<34>%ﾍ2.ﾘ#6+<2B>>1ﾍｳ&s#r<11>>w+ﾍa.篷ﾍ<E7AFB7>)ﾘﾍa.籀>#<23>Vﾕ<>>ﾃ<>(ﾍﾍ&<26><>F(<28><>F(<28>桄ﾈ'<27>睫O&<26>鑅3%<25>ﾊ`&<26>
|
||
ﾊ`&<26>ﾊ
|
||
&<26>面ﾄ%<25><>?ﾘ<>｡ﾘ<EFBDA1>ｸﾚA#ﾃﾃ<EFBE83> ﾃ$ｧﾂ
|
||
$]Tx<><01>2 $<24>(#6~+ｧﾉ <00><19>ｷﾊ%<11>ﾍ5HﾂA$袁.<2E>眥%ﾍa.瞿袁<E79EBF>"ﾚﾎ/<2F>ﾀ>ﾃk+>X ﾍｳ&s#r+ﾃ<>&ﾕW№!x*ﾍ<>^#V#~<7E>ﾃｬ*3 < E N !3> ﾃｬ*!<> ﾃｬ*!W> ﾃｬ*!`> ﾃｬ*!i> ﾃｬ*ﾅﾕ<EFBE85> ﾍ?'蠣ﾍ<E8A0A3>瞋ﾁｯﾉﾅﾕ襄ﾖ !T+ﾍ<>Fﾍ601C97C2F477D2F4F1E
|
||
:209E2000032100003E11F5B7C3359EF5E509D2349EF1373EE17B175F7A17577D176F7C1730
|
||
:209E400067F13DC22B9E7CB71F677<37>Z(#~+ ﾒZ(~<7E>+<2B> ﾍｳ&s#r<11><19>+ｧﾑﾁﾉｯ2ｵ(x㍉ ﾆOﾍｷ&ﾃ<>(ｯ2ｵ(x㍉ ﾆOﾍｳ&<19>9<EFBFBD>w#w+xｧﾊｭ(ﾑ+r+s=ﾂ､(ﾁ<11><19>> #w+ｧﾀﾃ<EFBE80>&~<7E>7ﾀﾕ<EFBE80> ^#V00053580608C3579DEB1100000610C3579D636811000006187CB7FA6C9D7B175F7A2F
|
||
:209D600017577D176F7C176704C3589D223894EB22369478C9E52136"$ﾍ<>"ﾘ<>a.籘]&<26><>7ﾉﾍ#yﾍｿ*ﾃ.ﾍﾍ&<26>Xﾈ<58>つ{&ﾍﾍ&<26>佇>ﾃa *ﾍ6#~ｧﾂ<EFBDA7>&ﾅﾕ<EFBE85>3 ﾍﾚ&<26>#r<>ﾁ>#+<2B>6 #6 #6 #6@="ﾍ#w睨ｧﾃｸ&7<> ﾍ?'ﾁ<>##ﾒﾈ&4##p#ﾉ#<23><>! 9"ﾀ$砒 <09>ｧ<>$蕫ｾﾊv$ﾁ<>+~#ﾍ<>#ﾃP$+<2B>G<>O>#ﾍｳ&ﾁ裹`iGﾃｭ$<24>*ﾀ$<24><1A> ﾊ｢$ﾍ.<2E>衫ﾍ&ﾍ<>"<22>"ﾀ$瞽ﾌ/襦ﾊﾆ$#~+<2B>ﾂﾆ$<24>!"<22><> <13> ﾍk+.ﾍ*x2j+ｧ<>*<2A>袁(ﾃ+#N+袁.ﾍ*ﾚN+x<>ﾂ +#~+ｹﾚ+耋k+翕 +yﾍk+<2B> ﾍ(<28><>! ~#fo#~<7E>#w:j+<2B>ﾊ,+6~+<2B>ﾂ;+~<7E>
|
||
ﾂ;+6 <0C>ﾂH+~<7E>ﾂH+6 ﾍ､/ﾃPD1F6FC90600D608DA5D9E435A510E00C3509EC6096FB1
|
||
:209E6000AF2DC8791F4F7A1F577B1F5F781F47C3609E5A94EB2A5C94444DC95E2356234E3A
|
||
:000<30><30><EFBFBD>(<1A>ﾊ<>(! ~瞋ｧﾉ瞋7ﾉﾍ.ﾖ遘ﾀﾍﾍ&ｯﾉﾍ.<2E>淙<EFBFBD>數~<7E>7ﾀﾕ<EFBE80>! ~#fo~<7E>桄 )<29><>7ﾂ )#~+<2B>ﾖ~<7E>ﾉw}D#wx#ﾉﾍa.酲<>ﾍﾚ&<26><>ﾃ!)袗!ﾘ<>9<EFBFBD>*ｲ?ﾑ<>941E08B77E177723DA
|
||
:209D80001DC27C9DE1C91604CD759D15C2889DC911A99DD5CDDE711311FFFF4A215D94712C
|
||
:209DA000C978215D94B7FCB39D4623ﾍ.<2E>淙<EFBFBD>2b <20>ﾕ*ｺ<16>*ｶ<16> "ｶ|嬬<>&ﾂ }瀞 瞋ﾉ+++<11>:ｧｧﾀ蛬<EFBE80>?ﾊ '<27>4ﾊ '<27>`ﾊ ':,<12>Xﾊﾎ/~2, ﾍ?'<27>**s#r<>"*##ﾑs#r:ｨｧﾈﾃﾒ/ﾅﾕ*ｺ}双|枠"ｺ<16>s#r#ﾑ袁ﾍ&<26>簗<EFBFBD>$<24>醋<EFBFBD>$ﾍ<> ﾃﾍ/ﾂ<>$ﾍ<> ﾃﾍ/ﾊ"%ﾕ袁<EFBE95>*<2A>s#r#ﾑｧ<>"%ﾍ<> ﾃﾍ/!]<11><14> >#ﾍｳ&<26>ﾑﾁq#p!<21>w+ｧﾉ<EFBDA7> ~ｧﾊF%袁a.矣ﾚﾎ/~⑧<>O+矣瞋ﾁﾉ @ PPPPPP <20> X#ｾﾊ<EFBDBE>+<2B>ﾌ<>+ﾕﾅ<EFBE95><EFBE85>ﾌ<>++<2B>ﾍ(<28>ﾑw#w+ｧﾉﾍ<EFBE89> ﾉ*R#~6 +ｧﾂｴ+ﾕ<><01> ﾍﾚ&<26>6#s#r<>> 6###s#r#6@"R=#w<11>ｯﾉﾅﾕ00001FF
|
||
ﾐ>ﾃa :ｸﾖﾂc)2ｪ>2ｸ:ｸ <00>ﾊo) ﾅﾍLﾊ<4C>)<29>)<29><EFBFBD><C280>:ｸ<12>ﾊﾉ)<29>!ｯﾍuLﾍ<4C> ﾒ<>)ﾍ閃!､)袁bM眞ﾃ<E79C9E>)ﾁ*ｩ蛉<>ﾊｸ)ﾍｳMﾍ<4D>ﾃﾄ)ﾍ⑭!ｯﾍ8Lﾍ⑬皎ﾂ<E79A8E>)<29>@<40>7EE680A94FC3E39D1CC014C00CC00E8034C0C3949DD3
|
||
:209DC000E1AF676F225A94225C94C9E5CDF19DE173237223712370C3039ECDFB9DE5CDE681
|
||
:209D<39>*ｶ>(ﾍ<>}倒壗v'! "(!("*ﾍ<> *ｸ"ｺﾑﾁﾉ*ｼ}倒梦ﾚ<E6A2A6>'"ｼ<16>6 # xｱﾂ<EFBDB1>'瞋ﾁﾉ*ｬ<16> "ｬ<16>>ﾚa :ｰ<16>ﾈ袗ﾅ<E8A297>y砒|ｵﾊｽ' ﾍﾐz+ﾃｯ'*ｮ<16>yﾁﾑ睨ﾍr,ﾘ<>:ｸGｩ<12>ﾂﾜ+･!<,####~#ｸﾂﾟ+F#N#~#fo蛬#foｴﾊ,袗 ﾑﾅﾕ ﾍCHﾑﾁ眥<EFBE81>+##ﾑﾑﾁ~ﾉ眷ﾕ >＾ｯﾍ3)ﾑﾁ<EFBE91>6<EFBFBD>#p#6 ####蠣ﾍ<E8A0A3>ﾍS)<29>+w瞋ﾁ~ﾉ<02><04>ﾝ~<7E> ﾀ<>! N#F#
|
||
<EFBFBD>ﾂ}25! F+N<>+p+q<01> ﾍ
|
||
1<EFBFBD>#r<01> ﾉ~<7E>
|
||
ﾊ<EFBFBD>2<EFBFBD> ﾀ2<EFBE80>2ﾅ<32> ^#V#~#fo<1A>7ﾌ<37>(ﾚ<>2"<22>2! N#F#~#foﾍ<6F>(ﾚ<>2"<22>2<EFBFBD><32>! q#pﾕ!<21>!>*/ﾄ⑩<EFBE84>#r+s++ﾃ0*/>ﾉ <00>ﾍｦ0ﾑ! ~#fo~<7E>ﾘ<>ﾐ~<7E>Zﾌｫ9 衄' ﾍｳ& <00> <09>>ﾍ<>ﾑ>ﾍ<><11>ﾉ! N#F*<2A>9~#foｴﾈ##^#V<1A>Xﾀ<58>! ~#fo"1<>+ " H" ﾃ16 " H" ﾃty " H H" ﾃﾅﾊ "=====ﾘ<>=w<>2ﾂ_. ~#fo<66>肄ﾍﾍ&眄~#翳<>!y.ﾍH~ﾍa 睨<><01><01>X[<01><01><01><01><01> ﾍﾍ&<26><>#~+<2B>ﾉ>ｯ<>>2e ﾍ.ﾖ<>> 2e ﾁﾀﾍﾍ&|ｵﾂｽ.ｸﾈ<EFBDB8>!T~#<23>ﾎ.~#foﾃﾁ H" ﾃ+0 " H" ﾃns " H H H" ﾃﾆﾋ "===========<3D><01> <00>!_,ﾍH~睨 ﾍ<>.ﾘﾈ>ﾃa <1F> ﾅﾍﾂ"ﾁﾚn-:ｪｧﾊ<EFBDA7>,ﾍ､/ﾍ<>*ﾍ､/>ﾍｿ*ﾍ.袁ﾍ&<26>醋v,<2C>萍ｪ,<2C>篦w-`i)9^#V! ~ｧﾌ<EFBDA7>)yｾﾂ~-#~#fo##A:ｰ ﾚﾃ<>:cﾏ<c<01> <00>!<21> ﾍ3r! "<22>*<2A>|/g}/o"<22><11>! cﾍｰv! "<22>! "<22>! "<22>! "!ｸ "! "! "! " !cﾍｰv!炻ﾍｰv!<21>ﾍｰv+~+ngｵﾈ##^#V<><56>4ﾀ#####~ｹﾀ#~ｸﾀ*<2A>9w#w#~#fo>ｳ殆 ｦq#pﾉ> ﾃ1>ﾃ1><02>*d02e0耋&1<>2e0ﾉ~<7E>ﾚq1ﾅﾕ袁<EFBE95>9ﾍ<39>9ﾊ>1ﾍ&1ﾃ21<32> ﾍL1xｧﾂ?1ﾑﾁﾉ:=================== ====================== =========H==============" ﾃ
|
||
" .栁.##~ｻ#~#ﾂﾁ.ｺﾂﾁ.<11>ｯﾉﾃ<EFBE89>+ﾍ.<2E>酊<EFBFBD>*ﾍﾍ&ﾍﾂ"ﾘ<>ﾉﾍ<EFBE89>"ﾘ<>ﾈﾍ<EFBE88> ﾉ > 2ｫq<>"<22>/y2｢/2｣/⑯ﾍﾚ&<26>#s#r++<2B>+++ ~貘睫5/ 繃|<13>xｱﾊ]/! ^#Vz｣<=====H==========H================== ========H=====================" ﾃ ! " & H -耋､/xｹ>ﾄｿ*<2A>
|
||
ﾊ<EFBFBD>,^#V#<23>F(ﾍ､/> ﾍｿ*<2A>ﾎ,砒#~ﾍU,o& "ｩ>2ｸﾍﾋ+ﾍF(ﾍ､/> ﾍｿ*皎ﾉ"3-x⑧<78>O>$ﾍｳ&H"<22>-ﾑs#r#
|
||
|
||
ﾂ(- H <00> <09><>+V+^<5E>F(<28>s#r#!臙ﾍｰv!ﾔbﾍｰv! "T!<21><>"V! "X!<21><>"Z! "\! "^! "`! "b! "d! "fﾃﾕﾚ 35 ﾃ<><10> 1000,5 ﾃ%* " e0=ﾊe1<65>1ﾍq1ﾍ<31>4ﾍﾇ1ﾍ2ﾃ<32>2ﾃN2ﾍq1ﾍ<31>4ﾃ<34>2ﾕ蛬<EFBE95>ﾒ<>1ﾆ<01>ﾂｾ1 ^#V<1A><>>ﾊｾ1>ﾃｾ1ﾍﾘ9<EFBE98><39>1>ﾃｾ1#~<7E>ﾊ<>1<EFBFBD>ﾊ<>1####^#V<1A>ﾒｾ1>瞋<>###w睨~<7E>ﾘ<>2 H" ﾃKP " H" ﾃ｣ｨ "* g ﾌ<>/zｳﾌ<EFBDB3>/ﾍ唏ﾄ<E5948F>/DMﾑ!｢/5眥5/xｱﾊ<EFBDB1>/<2F><11>~ﾍU,! ﾜ<>/=ﾂw/DMﾍ<4D>'<27><>+r+s<>:｣/O ﾃ<>ﾍ<> ! ﾉﾍ<EFBE89> ﾉ ﾕ<>*<2A>s#r#ﾕ"<22>ｵﾚ瞋#~+ﾐﾍ<EFBE90> <05>*<2A>++"<22>睨矣<E79DA8> H | |" ﾃsx " H Easy Street" ﾃｶｻ " ﾑ
|
||
|
||
ﾂ=-ﾑﾕﾍU,w*<2A>-<11>ﾑw+ﾍ､/<2F>ﾉ痒ﾖOﾘﾃn-ﾍ<> ﾃn-ﾍ<> ﾃn- *ｶ<16>*ｼ}点|啗ﾒ<E59597>- ﾍ\Hﾍ7I Bytes Free
|
||
緩ﾍ<EFBFBD>.ﾘﾊﾋ-:ｱ諤ﾀ:g ｧﾀﾍ.<2E>淙>ﾃa ~ V $" ﾃhm " H" ﾃｫｰ " Hﾊ<48>9ﾅ袁ﾘ9G ﾚB2 N#^#V#~#fo
|
||
ﾄ<EFBFBD>(ﾚB2<42><32>(ﾚ<>1眞Fﾍ6Fﾉx<EFBE89> ﾊB2縷羸ﾂB2Oﾕ<4F>! ~#foﾍ<6F>(ﾚA2"J2<4A>"L2<4C>~<7E>#F!E2w#p+ﾍ6ﾁ<36>! s#r`iﾁFﾉ矣ﾁﾉ 鞏ﾄ H *" ﾃ<> "===============================================================================" ﾃ 矣ﾉﾑﾉ! 9"<22>/!<21>/"h ﾍ0ﾍ<30>1<03>*ｸ"ｺ! "("ｧ"h !("*ｯ2,ﾉ ﾍ?'"/!(~#foｴﾊ_0"<22>9##蛬#fo袁<6F>9ﾍ<39>9ﾊ90ﾍ
|
||
1ﾍ1ﾍ1ﾃ'0痿ﾖYﾊA0=ﾌf0ﾍ
|
||
8<EFBFBD>:ｰ<16> H H" ﾃ<> " =========H==========H========= =======================" ﾃ>ﾜa :ｱ諤ﾂ<E8ABA4>-###^#V<>*<2A>{布慥<E5B883>-ﾍ<> <03>"<22>ﾑ>?ﾃW*袁ﾒ/ﾑ>?ﾃW*:b ｧ*c ﾀﾍｾ2b "c ﾉﾕ*<2A><12>*<2A>ﾍ5Hﾌ +V+^"<22><12>ﾉﾍﾍ&<26><>D.<2E>桄J.ﾍ<> ﾉﾍF(ﾃN.ﾍﾈ' H" ﾃ<><11> " =========H==================================================" ﾃ " 45 ﾃ 750,8 ﾃdi " $" ﾃｸｽ " H $$$$$ H" ﾃ " "==========H=== H" ﾃ "============== | H" ﾃ\!a! " n ^ H" ﾃｴ!ｹ! "* ﾃﾔﾙ " | H" ﾃ(- " H | & |" ﾃq v " s ======================H============================== ===========" ﾃ<> <1F> " t & H" ﾃ " H |V =H==============H" ﾃu z " H H H" ﾃﾍ ﾒ " H" ﾃ[` " Long Island | g * | * H" ﾃｳｸ "============================== ^^^ H *" ﾃ "" "===================================================================== . . H" ﾃ<19> "====H===================== ====== ================ ====================== " & H" ﾃﾅ ﾊ " H" ﾃ " | H H V| H" ﾃdi "====H======================= ========================= ====================== " ﾃrw " H" ﾃ<17> " H" H & H H" ﾃ% * " ============== ==== = ====== =================================================" ﾃｼﾁ 35 ﾃﾈﾍ 900,5 ﾃ " V V ==========" ﾃ"" 36 ﾃ!"&" 800,5 ﾃo"t" " V V" ﾃx"}" "" ﾃﾀ"ﾅ" " ﾃ<><19> " H" ﾃｳｸ " H |" ﾃ " H | . . H" ﾃl q " T ==================H=================H===================H=======" ﾃｼ ﾁ " o ﾃﾔﾙ " H & | . . H" ﾃ,1 "========================== ====== == = ==== =====H===== H" ﾃ} <1E> " G ^^^ ^^^^^ ^^^^ ^^^^ ^^^ ^^^ $" ﾃﾍ V $" ﾃm r " $$$" ﾃﾅ ﾊ " g H H H | H" ﾃ## "=====H=====--======H========================== ===--- H" ﾃ_d "========================= ======== ============== ==================H== " ﾃｳｸ " H H" ﾃ !! " w ================= ===================H== " ﾃ<18> " H" ﾒ " h |" ﾃ " " o | H -====H===========" ﾃ[#`# " H H |&& H" ﾃ｣#ｨ# " H H H" ﾃﾓ)ﾘ) " H H . H" ﾃ!*&* "===H==============-----------========= * * *H *H" ﾃ
|
||
(( "======================================================================= ﾃ1.6. " HHH HHH" ﾃp.u. " H >mmmmmmmm ﾃｾ.ﾃ. " H=====H ==============" ﾃﾛ%<25>% " H & H" ﾃ#&(& " H H H" ﾃ<>,<2C>, " H & H ================== H" ﾃ<>#<23># " H H tunnel H H" ﾃ?$D$ " H ===H==== H" ﾃo*t* " H H H" ﾃﾁ*ﾆ* " H ========" ﾃ(( 35 ﾃ ($( 750,7 ﾃ2(7( " $" ﾃy(~( " H V" ﾃ<>(<28>( "========== ==================== H" ﾃ// " H |===== \ / V | H" ﾃk&p& "====---==== H | H" ﾃｳ&ｸ& "| | & H" ﾃ<>,<2C>, " ==========-------------------------=======----------===================" ﾃ<>,<2C>, "" ﾃK-P- "^^^* =======---===----=================H= H H" ﾃ<>$<24>$ " H | vision H =====H==============" ﾃ+
|
||
+ " H H H" ﾃﾟ(<28>( " HHHHHHHHHHHHH .HHHHHHHHHHHHHH H g" ﾃ7)<) " & =====H==========" ﾃd/i/ " H \/ H" ﾃｲ/ｷ/ " H ================---===---=================== H" ﾃ '' "| === | H ^^^^^^^^^^^^^^^^^^^^^^^^^* *^^^^^^^^^^*Point of No Return*^^^^" ﾃ｣-ｨ- "============================================== H H" ﾃ<>$<24>$ " H =========---& -----============H H H" ﾃ;%@% " H H H" ﾃI+N+ " H &..^^^.....^..^ . ^^ H==--------- H" ﾃ<>+<2B>+ " H ============================H & V H ==H==========" ﾃ<>)<29>) " H | $ H" ﾃ 00 " H H | H H" H g" ﾃa'f' "| $ | H ===H=======" ﾃｲ'ｷ' "|* $$$ *| * =================================" ﾃｬ-ｱ- 37 ﾃｸ-ｽ- 700,6 ﾃ.. " Bug City HHHHHHHH V" H | H H" ﾃ<>%<25>% " H H=========----===----================ H H" ﾃ<>+<2B>+ " H === === === H ---------=================H======" ﾃE,J, " H ﾃN0S0 " H ====H======= g |&H H H" ﾃ<>0｡0 " H H ===============================H===========H===== & H" ﾃ
|
||
77 " H H H | & H | [] |_| | & . H" ﾃ5 5 "===========H | |_| | H === ﾍﾔo ! ﾍ<02>! ﾍI<EFBE8D>/g}/o|ｵﾂP;! ﾍﾉ<EFBE8D>!喘ﾍщﾍｿq!cﾍgpﾍｿq!cﾍgpﾍｿq!zbﾍgpﾍｿq!Sbﾍgpﾍ針! ﾍﾉ<EFBE8D>ｿq!cﾍgpﾍｿq!-bﾍgp!#bﾍ)i#! ﾍ"vﾍｴs"&# H" ﾃ<>2<EFBFBD>2 " H========== ===== = ============" ﾃ33 " }i{ | $ ^ &" ﾃq9v9 " |^^^^^^^^^^^^^^ $ ^ ======" ﾃﾉ9ﾎ9 "* ========H ======" ﾃ<>0<EFBFBD>0 " H H &| H H" ﾃD1I1 " H && H" ﾃ]7b7 " H H H | &&&&& H" ﾃｰ7ｵ7 " H ===================H" ﾃk5p5 " V H ============= H====== H" ﾃｾ5ﾃ5 " H *&ﾍTv(ﾍｰv ! ﾍ<02>#! ﾍ"vﾍｴs"&# *&ﾍTv+ﾍｰv ! ﾍ<02>#! ﾍ"vﾍｴs"&# *&ﾍTv.ﾍｰv ! ﾍ<02>#! ﾍ"vﾍｴs"&# H" ﾃg3l3 "* H *" ﾃｿ3ﾄ3 "================== . & ^ H*^ ^ ^ ^^^^^^^^^^^^" ﾃ!:&: "================================================ H &| H H }{ =====H====" ﾃ<>1<EFBFBD>1 "===H===& H =====================H H H H | =============H" ﾃ<>78 " =====------================= H | $ $" ﾃ H & H" ﾃ66 " H H | *&ﾍTv1ﾍｰv ! ﾍ<02>#! ﾍ"vﾍｴs"&# *&ﾍTv4ﾍｰv ! ﾍ<02>#! ﾍ"vﾍｴs"&# *&ﾍTv7ﾍｰv ! ﾍ<02>#! ﾍ"v:ﾍｰv# !=============================================================" ﾃﾈ3ﾍ3 32 ﾃﾒ3ﾗ3 0,6 ﾃ"4'4 " =Gang Land= ===============================" ﾃ*:9c -1 : o& " !ﾑbﾍｰv*" ! ﾃe: *!n& ﾍ学 ﾍCr ﾍｰv*!#"!*!<0F>* zｬ|偰:}倒<>ﾒH:ﾍh<EFBE8D> H" ﾃ<>1<EFBFBD>1 " H H H H" ﾃ:2?2 " H O8T8 " | H | $$$ $$$" ﾃ<>8･8 "====------=== | | H" ﾃd6i6 " H H ^^^&&^^^ & ^ ^^^ H H | =============H" ﾃｷ6ｼ6 " H======H ====== ﾍTv=ﾍｰv# ! ﾍTvﾍﾆr"@# ! ﾍTvﾍﾆr"B# ! ﾍTvﾍｴs"D ! ﾍ<02>#! ﾍ"vFﾍｰvF! ﾍ7vF<0F>! ﾍ"vﾑﾍCrFﾍｰv! ﾃ= * V ." ﾃr4w4 " == _ == ." ﾃﾅ4ﾊ4 " g!ﾍbﾍ煙 ﾀb! ﾍｱ<EFBE8D>! ﾍｬo#! ﾍﾔo ! ﾍ<02>! ﾍI<EFBE8D>/g}/o|ｵﾂn;! ﾍﾉ<EFBE8D>!ﾀbﾍщﾍｿq!cﾍgpﾍｿq!cﾍgpﾍｿq!ｨbﾍgp!ﾍbﾍ煙 喘! ﾍｱ<EFBE8D>! ﾍｬo#! H & H" ﾃ<>2<EFBFBD>2 " ======H=== ======= H <> & H | $$$$$ $$$$$" ﾃ<>8<EFBFBD>8 " | = | ============= ============" ﾃ0959 " ! ﾍ<02>#! ﾍ"vﾍｴs"&*&|ｵﾂC=*!)<11><11><>s#r*!ﾍcx ﾖ bﾍ縋ﾃ|=# bkﾍTvﾍﾆr<EFBE86>*!)<11>ﾑs#r*!ﾍcx ﾖ# <00>*&ﾍTv<54>ﾍ縋*!#pﾍｿq!ソﾍgpﾍｿq!Q\ﾍgpﾍｿq!cﾍgpﾍｿq!\ﾍgpﾍｿq!cﾍgpﾍｿq!<21>ﾍgpﾍｿq!cﾍgpﾍｿq!ﾟ[ﾍgpﾍｿq!cﾍgpﾍｿq!ｸ[ﾍCp !<21> ﾍ
|
||
<EFBFBD>fﾍｰv!
|
||
ﾍ学<EFBE8D>!fﾍ講ﾛCﾃ<43>>*ﾍ8_ﾍCp!( "Y! "[[!Yﾍ@dﾍｿq!#_ﾍCp0 *ﾍ学ﾍCp! ﾍnﾍ輹&c!Z範捏ﾍｾu"cﾍ哿"]*<2A>"_ﾍｧX! "[! "Y[!Yﾍ@dﾍｿq!_ﾍCp!aﾍRc*a|ｵﾂV*!)<11>^#Vﾕ<56> |ｵﾊ5H*!#"!*!<0F>*ｩzｬ|<7C>.H}倒<>ﾒ HﾃzH*ｧ)<29>ｪ^#Vﾕ*!)"<22>hﾑs#r<>ﾀ^#Vﾕ*<2A>~ﾑs#r*<2A>#"<22>*!)<11> s#r*<2A>"ｫpﾍｿq!cﾍgpﾍｿq!cﾍgpﾍｿq!p`ﾍgpﾍｿq!Q`ﾍgpﾍｿq!8`ﾍgpﾍｿq!cﾍgpﾍｿq!cﾍgpﾍｿq!(`ﾍgpﾍｿq!`ﾍgpﾍｿq!<21>ﾍgpﾍｿq!ﾝ_ﾍgpﾍｿq!ﾋ_ﾍgp!( "Y! "[[!Yﾍ<>*<2A><0F>s#r<>ﾀ<19>*!<0F>s#r*<2A>#"<22>*<2A><0F>*<2A>zｬ|<7C>/F}倒<>ﾒ窪*!#"!*!<0F>*<2A>zｬ|ⅡF}倒<>ﾒ9E*w#"w! ﾃnF*!)
|
||
s#r*!#"!*!ｯ<>|ﾚ~F)ﾚ\"!*!<11>|ﾚ<>=)ﾚ<><! ﾍﾉ<EFBE8D>ｿq!4ﾍCp.!+ﾍ<>!1ﾍ dB@!Dﾍ3d:! bﾍ講ﾗ=! ﾍ学Iﾍｰvﾃ<76>=I!bﾍｰv=! bﾍ講<EFBE8D>=*<2A>"Lﾃ<>=*<2A>"L !
|
||
bx #"ﾃ<>*<2A>"_*R"i! "k*T"! "m!d "o*P"q*"s! "uﾍnt! "w!yﾍt*y |ｵﾂゥ! "q*s##"s*s<11>|ﾚwD)ﾚD! "sB*]+"]*]|<7C>Bｵﾂ<EFBDB5>! ﾍnﾍ2u c-Bc!訖ﾍｰvﾃ6Bc!ﾔ^ﾍｰvﾍｹX*a|ｵﾊｰA! "[! "Y[!Yﾍ@d*aﾍ学fﾍｰvf!ﾐ^ﾍnuf<0F>!ﾌ^ﾍnuﾑ|ｲg}ｳo|ｵﾊ<EFBDB5>*"ｭ! ﾃqL!ｯﾍRc*ｯﾍ学ｱﾍｰv*ｯ|ｵﾊRI*ｯ<11>|ｵﾂｸHﾍsYﾃRI*ｯ<11><>|ｵﾊ<EFBDB5>>ｱ! ﾍ置ﾞHF!ｱﾍ+s"<22>ﾃRI*<2A>|ｵﾊ<EFBDB5>*<2A>"<22>ﾃRI*<2A>ﾍcxQ <00>*<2A>)ｬ@dﾍｿq!ｾ_ﾍCp!<21>ﾍCp!( "Y!
|
||
"[[!Yﾍ@dﾍｿq!ｱ_ﾍCp!(ﾍCp!( "Y! "[[!Yﾍ@dﾍｿq!ｩ_ﾍCpF! ﾍ"vﾍCp!拈ﾍCpF ! ﾍTvﾍCpﾍｿq!狙ﾍCpFF*<2A>"<22>! ﾃｯF*!ﾍcx｢ <00>
|
||
s#r<>ｪ s#r*!#"!*!<0F>*<2A>zｬ|愑F}倒<>ﾒ孝*<2A>"<22>*<2A>"<22>*<2A>"<22>*<2A>"<22>*<2A>"<22>"<22>! "<22>! "<22>*"<22>! ﾃGﾍ+s"!*!|<7C>>ｵﾖ?殀o"N*!|ｵﾂ)>! "PﾃC> *!<19> !<21> ﾍTvﾍ<76>ﾍ<EFBFBD>"P !bﾍ+s"!*!|<7C>Z>ｵﾖ?殀o<E6AE80>*N|ｲg}ｳo"N*!|ｵﾂ|>* "Rﾃ<>> *ﾃAD*w<0F>*qzｬz哿D{布<>ﾚｪD*q#"q*u##"uﾃAD*u<0F>*y}登|喩"y*y"{!}ﾍt!ﾍt*sﾍ<> EﾝD<EFBE9D>EE*}ﾍcx ﾍ縢ﾍ輹cﾍ哿"}ﾃ E*}ﾍ檜 "}Bﾍｿq!ｿ^ﾍCpﾍ針f!ｻ^ﾍnuf<0F>!ｷ^ﾍnuﾑ|ｲg}ｳo|ｵﾂ Df!ｳ^ﾍnuf<0F>!ｯ^ﾍnuﾑ|ｲg}ｳo|ｵﾂ<EFBDB5>:f!ｫ^ﾍnuf<0F>!ｧ^ﾍnuﾑ|ｲg}ｳo|ｵﾂ Cf!｣^ﾍnuf<0F>!歐ﾍnuﾑ|ｲ^#V<>|ｵﾖ殀o"<22><0F><11>|ﾚI)?殀o<E6AE80>*<2A><0F>|ｲg}ｳo|ｵﾂRI*<2A>"<22>! "<22>*｡<11><>|ﾚII)ﾒRI! "｡*ｴ)<11>^#Vﾕ<56> |ｵﾊmL*ｴ)<29>h^#V<>"ｶ<0F>~^#V ! ﾍTvﾍCp!ЮﾍCpF ! ﾍTvﾍCp!
|
||
"[[!Yﾍ@dﾍｿq!f_ﾍCp!( "Y! "[[!Yﾍ@dﾍｿq!X_ﾍCp! ﾃ=A*[#"[[!Yﾍ@dﾍｿq0 *!ﾍ学ﾍCp!S_*!)<11><11><>s#r*!#"!*!<0F>*<2A>zｬ|<7C>&G}倒<>ﾒ G! "<22>"｡*"｣*{"y! "･<11>!･ﾍ@dﾍｿq!ｱ[ﾍCp!iﾍ}cﾍｿq!､[ﾍCp!kﾍ}cﾍｿq!房ﾍCp!ﾍ}cﾍｿq!8!<19> !<21> ﾍTvﾍ<76>ﾍ<EFBFBD>"R !<21>ﾍ+s"!*!|<7C>ｭ>ｵﾖ?殀o<E6AE80>*N|ｲg}ｳo"N*!|ｵﾂﾏ>! "Tﾃ<>> *!<19> !<21> ﾍTvﾍ<76>ﾍv.cﾍ<63>"Tﾍｿq!7ﾍCp! ﾍEwVﾃ E*}ﾍ縢ﾍ輹cﾍ哿"}ﾃ E! "}! "<22>ﾍｿq!7ﾍCp*<2A>"<22>! ﾃ7F!#ﾍ-tﾍｿq!#ﾍgp! ﾃjE*!ﾍcxQ <00>*<2A>)
|
||
s#r*<2A>#"<22>*<2A>ｯ<>|ﾚzE)ﾚNE!#g}ｳo|ｵﾂ鮏ﾃﾕAﾍｿq!7ﾍCpﾍｿq!cﾍgpﾍｿq!\^ﾍgpﾍｿq!^ﾍgpﾍｿq!^ﾍgpﾍｿq!cﾍgpﾍｿq!ﾂ]ﾍgpﾍｿq!]ﾍgpﾍｿq!@]ﾍgpﾍｿq!)]ﾍgpﾍｿq!cﾍgpﾍｿq!<21>ﾍgpﾍｿq!ﾃ\ﾍg<EFBE8D>"ｸ*ｶ"ｺ*ｸ"ｼ*ｸﾍcxQ <00>*ｶ)
|
||
^#Vﾕ<56><11>|ｵﾂﾚI*ｴ)<11><11><>s#r*<2A>+"<22>ｸ!ｶﾍ@dﾍｿq!w[ﾍCpﾃmL*ｸﾍcxQ <00>*ｶ)
|
||
^#Vﾕ<56><11>|ｵﾂLJ! ﾍnﾍCp*!)<11>^#Vﾕ<56>)ﾚ9A*!)<11>裔ﾍ}cﾍｿq!L_ﾍCp*!ﾍcx ﾖﾍCp*!#"!*!<11>|ﾚMA)ﾚﾝ@*|<7C><>ｵﾊ<EFBDB5>*[##"[[!Yﾍ@dﾍｿq!=_ﾍCp!ﾍ}cﾍｿq!_ﾍCp!< "･<11>!･ﾍ@dﾍｿq!<21>ﾍCp!yﾍ}cﾍｿq!8_ﾍCpﾍｧXc!{[ﾍｰvﾍｹX*<2A><0F>*zｬz撝G{布<>ﾒzH! ﾍnﾍﾑw<EFBE91>*<2A>ﾍ縢ﾍ咊<EFBE8D>!Z範捏ﾍｾu*cﾍ哿"ｧ*"ｩ! ﾃHﾍｰvﾍｿq!VﾍCpﾍｿq!ﾒaﾍgpﾍｿq!VﾍCpﾍｿq!病ﾍgpﾍｿq!VﾍCpﾍｿq!^aﾍgpﾍｿq!VﾍCpﾍｿq!&aﾍgpﾍｿq!VﾍCpﾍｿq!<21>ﾍgpﾍｿq!VﾍCpﾍｿq!ﾂ`ﾍgpﾍｿq!VﾍCpﾍｿq!秦ﾍgﾍｪs"<22>! ﾃF#*<2A><0F>! ﾍTvﾍ+s+"<22>*<2A>|ｵﾂｷE*<2A>"<22>*!"<22>*<2A> |ｵﾂﾉE! "<22>*!ﾍcxQ <00>*<2A>)
|
||
<19>*<2A><0F>s#r*<2A><11>|ｵﾂF*<2A>#"<22>*<2A>)<29>ｪﾍ輹c!Z範捏ﾍ哿"ｾ*ｾ#ﾍ<> J;J巷*ｴ)<11>蘓#V<>)^^#V疽#rﾃ巷*ｴ)<11> s#rﾃ巷*ｸﾍcxQ <00>*ｶ)ｬ^#V<>|ｵﾖ殀o"<22><0F><11>|ﾚxJ)?殀o<E6AE80>*<2A>殀o"<22><0F><11><>|ｵﾖ殀o<E6AE80>*<2A><0F>|ｲg}ｳo|ｵﾂｦPﾃｵP! "<22>*<2A>"<22>ﾃｾP*<2A>"<22>"<22><11>!<21>ﾍ@dﾍｿq*<2A>ﾍcxQ <00>*<2A>)
|
||
^#V<>#<23>! ﾍTvﾍCpｸ!ｶﾍ@dﾍｿq*｡#<23>#rﾄ!ｶﾍ@dﾍｿq!cﾍCp*｡)T^#V*ｶ"ｶ*ｸﾍcxQ <00>*ｶ)
|
||
^#Vﾕ砒<11>|ｵﾆ<EFBDB5>殀o"<22><0F><11><>|ｵﾆ<EFBDB5>殀o<E6AE80>*<2A><0F>|｢g}｣o|ｵﾂｾP*<2A>"ｶﾃｾP*<2A>"｡*｡<11><>|ﾚUﾍｿq!鎧ﾍgpﾃPU*<05>|ﾚ U)ﾚ+Uﾍｿq!tZﾍgpﾃPU*<11>|ﾚ8U)ﾚGUﾍｿq!ZZﾍgpﾃPUﾍｿq!3Zﾍgpﾍｿq!cﾍgpﾍｿq! ZﾍCpﾍｧX!cﾍ`n!fﾍハf! ﾍ"vfﾍｰL}倒<>ﾒ粂ﾍUXﾍ
|
||
sﾍ哿"!*｣+"｣*｣|<7C>ｨLｵﾂﾙL*y+"yﾍ?X*y|ｵﾊﾝR*y<11>|ﾚﾇL)ﾒﾓLﾍｿq!IﾍCp*"｣*<2A>"ｶ*<2A>"ｸ*<2A>|ｵﾂ<EFBDB5>*｡"ﾂ*<2A>"｡*ｸﾍcxQq*!<0F>! ﾍTvﾍCpﾍ~X*!#"!*!<0F>*ﾎzｬ|<7C>,S}倒<>ﾒ<><11>!<21>ﾍ@dﾍｿq!IﾍCp*<2A>ﾍcxQ <00>*<2A>)
|
||
^#V<>#<23>! ﾍTvﾍCp*"ﾐ! ﾃ甦*!)<11>^#Vﾕ<56><11>|ｲg}ｳo|ｵﾂ;J*ｴ)<11>^#V<><56>･J･JKK*ｸ#"ｸ*ｸﾍcxQ <00>*ｶ)
|
||
^#V<>|ｵﾖ殀o"<22><0F><11>|ﾚﾘJ)?殀o<E6AE80>*<2A><0F>|ｲg}ｳo|ｵﾂ訪! ﾍnﾍ柧!Z範捏ﾍｾu! ﾍTvﾍCp*ｶ"<22>*ｸ"<22>*ｸﾍcxQ <00>*ｶ)
|
||
^#V<>"ﾆ*ﾆ<11>|ｵﾂeQ*<0F>*y"ﾍﾜW*ｸﾍcxQ <00>*ｶ)
|
||
s#rﾃﾌQ*ﾆ<11><>|ｵﾊQR*ﾆ<11>|ｵﾊﾝR*ﾆﾚO)ﾒO! "｡*｡)T^#V*ｶ"ｶ*ｸ#"ﾀﾍFW*ﾀﾍcxQ <00>*ｶ)
|
||
^#V<>ｵﾂdO*ﾀ#"ﾀ*ﾀ<0F>*<2A>zｬ|褜O}倒<>ﾚdOﾍFW*ｫ|ｵﾊoOﾍﾜW*<2A>ﾍ<>薫薫徹徹０v!fﾍｪs|ｵﾂ俵*<2A>"ｫﾃ@V*<2A><11>|ｵﾊV*<2A>"ﾒ! ﾃ<>*ﾔ)<29><11>^#V<>"<22><0F><11><19>*<2A><0F>s#r*ﾔﾍcx <00>ﾙ"<22><0F>ﾖ<19>*<2A>ﾍ縋*ﾔ+"ﾔ*ﾔ<0F>*ﾒzｬz<EFBDAC>U{布<> <00>*ｶ)
|
||
^#V<>ｵﾂ^M*ｸﾍcxQ <00>*ｶ)ｬ^#V<>|ｵﾖ殀o"<22><0F><11>|ﾚ@M)?殀o<E6AE80>*<2A><0F>|ｲg}ｳo|ｵﾊ^M! "｡ﾃﾜM*｡#ﾍ<>ｾPpMﾜMCNCN*ｸ+"ｸ*ｸﾍcxQ <00> |ｵﾊﾝS*!)<29>~"<22><0F>h<19>*<2A><0F>ﾍ@dﾍｿq*!)<29>~^#V<>cxQ "<22><0F>h^#V*<2A>)
|
||
^#V<>#<23>! ﾍTvﾍCp*!#"!*!<0F>*ﾐzｬ|氿S}倒<>ﾒrS*i+"icﾍ哿<EFBE8D>*ｴ)<11>ﾑs#rﾃ階*ｴ)<11>^#V<>)T^#V*ｶ"ｶ*ｸﾍcxQ <00>*ｶ)
|
||
^#V<>|ｵﾖ殀o"<22><0F><11>|ﾚ\K)?殀o<E6AE80>*<2A><0F>|ｲg}ｳo|ｵﾂ訪*ｴ)<11>蘓#V<>)<11>|ｵﾂﾌQ! ﾍnﾍ輹c!Z範捏ﾍ哿"ﾈ*ﾈ#ﾍ<>ﾌQｮQﾀQ*<2A>)^^#V<>"<22>ﾃﾌQ*<2A>"<22>! "<22>*"ﾊ! ﾃ6R*!)<11>^#Vﾕ<56> |ｵﾊ2R*!)<29>h^#V*<2A>}ｫo０*ｸ+"ｸﾃ徹*ｸ#"ｸ*ｸﾍcxQ <00>*ｶ)
|
||
^#V<>#ﾍ<>?P?P躇?P<>?PｿOﾃ?P*<2A>"<22>"<22>! "｡*<2A><11><>|ﾚﾛO)ﾚ膂! "<22>ﾃｾP*<2A>"ｶ*<2A>"ｸﾃRP*<2A>"ｶ*<2A>"ﾒｭU*<2A>)<11><19>*<0F>s#r*<2A>ﾍcx ﾖfﾍ縋ﾃ@V*<2A>#"<22>*<2A><11>|ﾚ=V)ﾚT*ｫ|/g}/o|ｵﾂ<EFBDB5>>ﾍｿq!cﾍgpﾍｿq!cﾍgpﾍｿq!cﾍgpﾍｿq!cﾍgpﾍｿq!cﾍgpﾍｿq!*ｶ)
|
||
^#Vﾕ砒<11>|ﾚ儁)?殀o"<22><0F><11><>|ｵﾖ殀o<E6AE80>*<2A><0F>|ｲg}ｳo|ｵﾂｾP*<2A>"ｸ*｡<0F>*ﾂ}ｫo|ｪｵﾊｾP*ﾂ"｡ﾃ^M*ｸ#"ｸ*ｸﾍcxQ <00>*ｶ)
|
||
^#V<>|ｵﾖ殀*i|<7C> TｵﾂﾓF*<2A>"ｫ! ﾃ-V*<2A>)<11>^#V*zｬ|<7C>0T}倒<>ﾚ)V*N|/g}/o|ｵﾂQTc!H[ﾍｰvﾍｹXﾃ@V*<2A>"ｫﾍｿq!7ﾍgpﾍｿq!cﾍgpﾍｿq!cﾍgpﾍｿq!cﾍgpﾍｿq!^^#V疽#r*ｺ"ｶ*ｼ"ｸｼ!ｺﾍ@dﾍｿq*ｼﾍcxQ <00>*ｺ)
|
||
^#V<>#<23>! ﾍTvﾍCpｸ!ｶﾍ@dﾍｿq!s[ﾍCp*ｴ)<29>h<19>*ｶ<0F>s#r<>~<19>*ｸ<0F>s#r*ｶ<0F>*<2A>}|ｪｵﾖ殀o"<22><0F>~^#V*<2A>}ｫo|ｪｵﾖ殀o<E6AE80>*<2A><0F>|｢g}｣o|ｵﾂﾝR*!#"!*!<0F>*ﾊzｬ|ⅠR}倒<>ﾒﾘQﾃｺGﾍｿq!IﾍCp*y|<7C>ﾓRｵﾊﾓR*y"ﾌ! ﾃｻR*y+"y*#"ｸ*｡|ｵﾖ殀o<E6AE80>*｡<11><>|ｵﾖ殀oﾑ|ｲg}ｳo|ｵﾂRP*｡)^^#V<>"｡*｡"<22>ﾃｾP*<2A>+"<22>*<2A>|<7C>RPｵﾂｾP*<2A>|/g}/o|ｵﾂｵP*ｸﾍcxQ <00>*ｶ)ｬ^#Vﾕ砒<11><>|ｵﾖZﾍgp!ﾍbﾍ煙 ﾀb! ﾍｱ<EFBE8D>! ﾍｬo#! ﾍﾔo! ﾃW*!ﾍcx <00>ﾖﾍｪsﾍ学<EFBE8D>*!)<11>^#V<>ﾍsﾑﾍCr"<22><0F>ﾖ<19>*<2A><0F>ﾍCrfﾍｰv#!fﾍ睦 *! ﾍ謖*o"<22>砒<11><>|ｵﾖ殀o<E6AE80>*<2A><0F>|ｲg}ｳo"<22><0F><11>|ﾚ+N)?殀o<E6AE80>*<2A><0F>|ｲg}ｳo|ｵﾂｾPﾃｽM*ｸ#"ﾄ*ﾄﾍcxQ <00>*ｶ)
|
||
^#Vﾕ<56><11><>|ｵﾂ年*ﾄﾍcxQ <00>*ｶ)
|
||
scﾍgpﾍｿq!cﾍgpﾍｿq! [ﾍgpﾍｿq!cﾍgp*w<>ﾚｬT)ﾚｻTﾍｿq!<21>ﾍgpﾃPU*;<3B>ﾚﾈT)ﾚﾗTﾍｿq!ﾍZﾍgpﾃPU*<17>ﾚ腟)ﾚ<>ﾍｿq!ｮZﾍgpﾃPU* <0B>|ﾚ U)ｫo|ｪｵﾖ殀o<E6AE80>*ｸ<0F>*<2A>}ｫo|ｪｵﾖ殀oﾑ|｢g}｣o|ｵﾂﾝR*<2A>|/g}/o|ｵﾂmL*ｸ+"ﾀﾍｫW*ﾀﾍcxQ <00>*ｶ)
|
||
^#V<>ｵﾂmL*ﾀ+"ﾀ*ﾀ)ﾚmLﾍｫW*ｴ#"ｴ*ｴ<0F>*ｭzｬ|劜ﾍﾜWﾍ?X! "･<11>!･ﾍ@d*!}<7D>o|<7C> g|ｵﾂｫRﾍ~XﾃｷRc!j[ﾍｰvﾍﾂX*!#"!*!<0F>*ﾌzｬ|昕R}倒<>ﾒrR*k#"kﾃJDﾍｿq!IﾍCp!ﾍｪs"ﾎ! ﾃS<11>!<21>ﾍ@dﾍｿ!#"!*!<11>|ﾚW)ﾚｫV! ﾍﾉ<EFBE8D>!ﾍbﾍ煙 ﾀb! ﾍｱ<EFBE8D>! ﾍｬo#! ﾍﾔo! ﾍﾉ<EFBE8D><EFBE89>>*"ﾖ! ﾃ淡*<2A>)h^#V*ｶ}ｫo|ｪｵﾂ燦*<2A>)~^#V*ﾀ}ｫo|ｪｵﾂ燦<EFBE82>typing SPACE. But beware of the falling rocks called Der rocks.>ﾅ]You control Lad by typing the direction buttons and jumpingt ready! 擬Bonus time 兌 Score
|
||
ｧ[ Levelｴ[Lads$ｻ[Type RETURN to return to main menu: 禺Good luck Lad.!<21>Type an ESCapOREbPRO MEN bPRO LEVEL b bY #b&bLADCONF#0bLinking to configuration program...$VbLadder configuration program missing }bUna･<11>!･ﾍ@dc!觝ﾍｰvﾍｿq!cﾍCp !<21> ﾍ
|
||
<EFBFBD>fﾍｰv! ﾍ学<EFBE8D>!fﾍ置<EFBE8D>>!
|
||
ﾍ学<EFBE8D>!fﾍ講拑<11>!･ﾍ@dﾍｿq!cﾍｪsﾍEwﾍCpﾉﾍ針餾Type RETURN to continue Ladder
|
||
`L = Change level of difficulty
|
||
+`P = Play game;`Los Angeles, Ca 90024 T`10970 Ashton Ave. Suite 312 s`(c) 1982, 198*##"*<2A>"ｫ*<2A>#"<22>*<2A><0F>*ﾖzｬ|孖W}倒<>ﾒRWﾉ*ｶ<0F>*<2A>}ｫo|ｪｵﾊｼWﾉ*ﾀ<0F>*<2A>}ｫo|ｪｵﾊﾍWﾉ*##"*<2A>"ｫﾉ!$ "･<11>!･ﾍ@d!ﾍ}cﾍｿq!IﾍCp*<0F>*o by^treasures and riches.> ^dark corridors never before seen by human eyes and find hidden@_^You are a Lad trapped in a maze. e to pause the game.:\Remember, there is more than one way to skin a cat. (Chum)/T\that are left when you have finished the levble to link to LADCONF.COM 拊LADCONF.COMｫbLadder not configured
|
||
ﾃbLADDER.DATﾐbR ﾔb
|
||
ﾗbpbdqPbdbPpo-_軛gpbqp <0B> -=$|VH*^.& <0B>bg-=: ZZUpdating high scores..."ZEnter your name: $6ZYou really don't deserve this but...]ZNot bad for a young LadwZAmazing! 3 Yahoo Software/伝LLLLLLLL aaa aa ddd dd ddd dd eeee rr/ﾅ`LL aa aa dd dd dd dd ee rr/<2F>LL zｬz<EFBDAC> X{布<>ﾒXﾉ*m#"m*mﾍcxd "o*i#"i! "･<11>!･ﾍ@d!iﾍ}cﾉ!G "･<11>!･ﾍ@d!yﾍ}cﾉ*}"ﾘ! ﾃeX*ﾚ#"ﾚ*ﾚ<0F>*ﾘzｬ|偰X}倒<>ﾒaXﾉ* Your mission is to explore the｢^lｦ^Lｪ^iｮ^Iｲ^cｶ^Cｺ^pｾ^P
|
||
ﾂ^Exiting...ﾏ^eﾓ^Eﾗ^You eat quiche! 饋Come on, we don't have el.=<3D>statues (shown as &). You will receive the bonus time points.ﾆ\Extra points are awarded for touching the gold2<64>A new Lad$|VH*^.& c c1.30 c @<40> PC<50> z<> <00>｣p=
|
||
ﾗ#zﾍ針 (c)1982 Yahoo Software<72> <1E>ﾍ <00>aﾚfc<66>{ﾒfcﾖ 痍#ｯwﾉ<77> ﾍ |ｷﾊxc=痍#wﾉ^#V You rate!!校Looks like we have a Lad-Der here ｱZYeah! Now you are a Lad-Wiz! ﾐZWow! You are now a Lad-Guru! <1C>You are a true La aa aa dd dd dd dd eeeeee rr5)aLL aa aa dd dd dd dd ee ee rr rr4aaLL aaaa ddddd dd"ﾜ! ﾃ珊*ﾚ#"ﾚ*ﾚ<0F>*ﾜzｬ|奝X}倒<>ﾒ街ﾉ!ﾞﾍRc*ﾞ|ｵﾂｶXﾉﾃｧX! "<22>ﾃﾈX! "<22>ﾍ4Y*<2A>"<22>! ﾃ<>!aﾍRc*a|ｵﾂYﾍ~X*<2A>#"<22>*<2A><0F>*<2A>zｬ|<7C> Y}倒啾ll day! _Enter one of the above: &_Difficulty level: ;_00 @_Last Score: O_00 V_) [_High Scoresi_Jump = Space Stop = O will be awarded for every 10,000 points.,]bonus time runs out.<C]You must find and grasp the treasure (shown as $) BEFORE the@<40>"馗瀋ｯ2鐵 ogﾕ<67>*馗|諤ﾑﾂｩc "馗ﾃ縦ﾕﾅ>0ｱ_:鐵ｷﾂﾁc{<7B>0ﾂﾁc ﾃﾆc><3E>2鐵ﾍ ﾁﾑﾂ皇*馗]>0ｳ_ﾍ ﾉ<><18><><EFBFBD> ﾕ~2HeｷﾊdG#^#V!Iew#d-Master!!!:[ YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! YAHOO! K[YOU CHEATED!!! You don't rate.m[Hooka!v[oz[*
|
||
~[Geddd eeee rrrrrrr:和LL dd dd tm"ﾕaLL dd dd 俉PRO SCﾒﾗX*_|ｵﾊY! "<22>ﾃY*<2A>"<22><11>!･ﾍ@dﾍｿq!cﾍｪsﾍEwﾍCpﾉ*L|/g}/o|ｵﾊCYﾉ*_|ｵﾊTY! "<22>ﾃZY*<2A>"<22>! "･<11>!･ﾍ@dﾍｿq!cﾍCpﾉｱ!Zﾍｰv! "ther
|
||
㍉ Right = 農 Left = <09>_ Down = ｬ_Up =
|
||
ｴ_Terminal:
|
||
ﾁ_Version : ﾎ_E = Exit Ladder濱I = Instructions<14>C = Configureﾂ<>痿2HfｷﾈG#^#V!Ifw#ﾂdﾉ~2HgｷﾈG#^#V!Igw#ﾂ*dﾉ~2Hh2Ih
|
||
2Jhﾉ~G:Ih2LhG:Jh2Kh:Heｷﾊ`d!IeGﾍ濺:Hh<48>ﾊ硬<EFBE8A>ﾊ<><EFBE8A>ﾊ{d:Khﾍ鹽ﾃ電:Lhﾍ黠ﾍ|
|
||
STOﾐﾍYmﾃ針ﾍ穃*虔鳬..
|
||
. ........ﾍｶz<EFBDB6>*<2A>|ｵﾂ曜:<3A>ｧﾂ k*靖|ｵﾊ kﾕﾍ虱<EFBE8D>*
|
||
s#rﾑ*
|
||
{w#6 <00>"<22>*ﾘi<EFBE98>*靖>2<>魃<ﾃ檀ｯﾃ檀= ﾖ#DM* <00> <00>"ﾎx* |##"ﾌxﾃj>ﾃ2栄2敬* ^#V<>"撹<>##^#V<>"紘 ﾍ 2宿ｷ!ﾊﾝh!!""辛!j" j6#6P><3E>2j>2j><3E>2jﾉﾅﾕ袁韻 !<21> ﾍ fﾍ`B!
|
||
ﾍZB<5A>!fﾍ<>=ﾛCﾃ<43>>*ﾍ #"ﾃ<>*<2A>"_*R"i! "k*T"! "m!d "o*P"q*"s! "uﾍ ! "w!yﾍ *y |ｵﾂcﾍK;ﾍW;!-bﾍ];!#bﾍ #! ﾍ ﾍ "&# *&ﾍ (ﾍ_: ! ﾍ
|
||
;#! ﾍu;ﾍx;"&# *&ﾍ<>;+ﾍ<>; ! ﾍ<>;#! ﾍ<>;ﾍ｢;"&# *& m~<7E>#~壗m+^#V#<23>##ﾃ<>###ﾃ<>痞ｵﾊ(m~#foﾁﾉ!<21><>0mﾁﾉﾍ|
|
||
Internal Error - No Line Number
|
||
甘&i*~#ｶﾊﾄmﾍ| at line<6E>ﾍ虱ﾍwmﾃ穃<EFBE83>><04>ｫm<dﾃ電:Khﾍ;eﾃ電:Lhﾍ;e:Hfｷﾊ｡dG!Ifﾍ濺:Hh<48>ﾊﾎd<EFBE8E>ﾊﾅd<EFBE85>ﾊｼd:Lhﾍ鹽ﾃﾔd:Khﾍ鹽ﾃﾔd:Lhﾍ;eﾃﾔd:Khﾍ;e:HgｷﾈG!Igﾃ濺~ﾍ;e#ﾂ濺ﾉ_ !<21>|諤ﾂ e <0C><>ﾍ穃ﾍ|Error -<2D>!-k~<ﾊ&k=ｻﾊ&k#~ｧ#<23> kﾃk#ﾍ!|ﾃ核Syntax Error in DATﾁRETURN without GOSUﾂ
|
||
Type Mismatc<74>Out of Dat<61>Illegal Functihｷﾃ"iﾅﾕ袁敬ﾃ"iﾅ<02>ﾃiﾅ<05>ﾕ襄<EFBE95>_ﾍ <00>ﾑﾁﾉﾃ ﾍ<>ﾍﾀ蝦=i!&<26>6C#6O#6M!\ >!ﾍk<EFBE8D> <1D>!\ > ﾍL届ﾁ<E5B18A>号ﾍ \ ﾍ <ﾊt<EFBE8A>! 9%. 淑>AﾍL<EFBE8D>. <00>喫ｷﾊ㏍D! "q*s##"s*s<11>|ﾚwD)ﾚD! "sﾃAD*wﾍ<>}ﾅﾕ袁彩e<E5BDA9>ﾂb<EFBE82>!ｩ ~#fo"ｨo!ｲ "ｪo瞋ﾁﾉﾍ<EFBE89>|ｷﾂｭj袗<6A>*ｨo}登|喩ﾚw<EFBE9A>"ｨo*ｪo<EFBDAA>"ｪo睿,{#s#r++ﾍｱ;.ﾍｷ; ! ﾍﾀ;#! ﾍﾉ;ﾍﾌ;"&# *&ﾍﾛ;1ﾍ<>; ! ﾍ<>;#! ﾍ<>;ﾍ<>;"&# *&ﾍ<4ﾍ < ! ﾍ<#! ﾍ <ﾍ <"&# *&ﾍ/ﾚ仁ﾍ､m<EFBDA4>ﾂzm<7A>ｫm<ﾚ仁ﾆ0ﾍw掴､m<EFBDA4>ﾒ稽ﾉ}点|啗ﾉ!ｺmﾍG冬#fo<66>><3E>ﾉ<EFBFBD><EFBE89><EFBFBD><EFBFBD><18>ﾘﾍ| at address<73>矼|ﾍ r}ﾍ r肄ﾃ穃>
|
||
ﾍw<EFBFBD>>
|
||
ﾃw貞! 9"ﾐi睨ﾑ*ﾐi<EFBE90><69> >0ｱOxｷﾂey<65>0ﾊe<06>ﾍ;e !<21>|諤ﾂ%e <0C>exｷﾂ/eyｷﾊ5e>0ｱﾍ;e>0ｳﾃ;e袗ﾅ_ﾍ ﾁﾑ睨*:9c -1 : o& " !ﾑbﾍ<62>*" ! ﾃe: *!n& ﾍ ﾍ on Cal<61>Overflo<6C>Out of Memor<6F> Subscript Out of Rang<6E> Division By Zer<65>Out of String Spac<61>String Formula Too Comple<6C>RESUME witiotﾃ|i! ﾉ #& ﾕ ﾕ<>ﾍ \ ﾍ ﾑｷﾀ! > ｼﾂ / ﾍ ﾃ *OUT OF MEMORY*
|
||
$ｵﾖ?殀o<E6AE80>*N|ｲg}ｳo"N*!|ｵﾂﾏ>! "Tﾃ<>> *!<19> ﾑs<EFBE91>ﾍ<EFBFBD>ﾍppﾃQqﾍ<71>ﾍ{pﾃQqﾍ<71>ﾍ<EFBFBD>ﾃQqﾍ<71>ﾍFpﾃQqﾍ<71>ﾍppﾃnqﾍ<71>ﾍ{pﾃnqﾍ<71>ﾍ<EFBFBD>ﾃnqﾍ<71>ﾍﾘpﾃ|qﾍ<71>ﾍppﾃ!qﾍ<71>ﾍ{pﾃ!qﾍ<71>ﾍ<EFBFBD>ﾃ!qﾍ<71>ﾍﾘpﾃ!qﾅﾕ<EFBE85>Z<>ﾃ叢ﾅﾕ<EFBE85>V<7ﾍ5< ! ﾍ><#! ﾍG<:ﾍ_<# ! ﾍY<=ﾍw<# ! ﾍ<><ﾍ "@# ! ﾍ<><ﾍ<><"B# ! ﾍｧ<ﾍJ<"D ! ﾍh<#! ﾍq<Fﾍ<>< ﾅﾕ<EFBE85>)ﾚPn|ｵ*ﾚi<EFBE9A>*ﾜiﾊ7n袗<6E>)<29>)ﾜ]n<>)ﾁ <09>)ﾜ]nﾁ ﾜ]n ﾜ]n"ﾜi<EFBE9C>"ﾚi<EFBE9A> K<>!"]範纜瞋ﾁﾉ]ﾃ7n<37>! ﾍn睨 ﾉﾍ縷2_n#耻~#^#V<>
|
||
|<7C>++ﾍｬzﾑﾍ諮ﾚ）:ｦ ﾍ::*!#"!*!<0F>* zｬ|偰:}倒<>ﾒH:ﾍ !ﾍbﾍ ﾀb! ﾍ ! ﾍ #! ﾍ ! ﾍ ! ﾍ |/g}/o|ｵﾂn;! ﾍ !ﾀbﾍ ﾍ !cﾍ ﾍﾈ:!cﾍﾎ:ﾍhout Erro<72>2Field Overflo<6C>3Internal Erro<72>4Bad File Numbe<62>5File Not Foun<75>6Bad File Mod<6F>7File Already Ope<70>9Disk I/O Erro<72>:File Alre!<21> ﾍ<>>ﾍ<>>ﾍ .cﾍ<63>>"T! 9"ﾘi*<10>*
|
||
ｷﾊ,j<>! <19>6 #}ｻﾂ,j|ｺﾂ,j6 !ﾞi6 #zｳﾂ?j*|ｵﾊ`j>
|
||
ｭj6ﾃ#s#r#=ﾂUj>ﾛ2ﾒi>ﾓ2ﾕi>ﾉ2ﾔi2ﾗi"ﾚi!&i"虔ﾍｫhﾃﾆ<EFBE83>ﾃ叢"Z版ﾕ<E78988>ﾃ嗔H~#
|
||
ﾂ恥x2T|:jｧﾂHqﾍqﾂﾇpﾍJﾍ頚< ﾍ<>~ｧﾊﾃpﾍ繿#ﾃｷp瞋ﾁﾉﾍJ~ｧﾊﾃp<EFBE83> ﾄ繿#ﾃﾊp>2T|:jｧﾅﾕ蠶HqF#~#fox ﾍqﾌ<71>ﾍqﾊq~#F! ﾍ F<0F>! ﾍﾑ<ﾑﾍY:Fﾍﾗ<! ﾃ= *! ﾍﾈ<#! ﾍ<><ﾍｼ<"&*&|ｵﾂC=*!)<11>[[[[ BASLIB #500203 5.2 - OWNED BY MICROSOFT, 1979 nｷﾉﾍ<EFBE89>ﾅﾕ<EFBE85>*緤|ｵﾂ｢n!ｦnﾍ頚ﾍ孵ﾑﾍｳv<EFBDB3>ﾁﾉ*<2A>i颪ﾍyC!ソﾍCﾍ<43>!Q\ﾍ<>ﾍ気!cﾍ舛ﾍ任!\ﾍ咾ﾍ戮!cﾍ｣CﾍｦC!<21>ﾍｬCﾍｯC!cﾍｵCﾍｸC!ﾟ[ﾍｾCﾍﾁC!cﾍﾇCﾍﾊC!ｸ[ﾍﾑ:!ｨbﾍﾗ:!ﾍbﾍ<62>: 喘! ﾍ<>:! ﾍ<>:#! ﾍ<>: ! ﾍｨ:! ﾍｮ:|/g}/o|ｵﾂP;! ﾍｿ:!喘ﾍﾅ:ﾍﾚ:!cﾍ<63>:ﾍ*;!cﾍ0;ﾍ3;!zbﾍ9;ﾍ<;!SbﾍB;ﾍ ! ﾍ!;ﾍE;!ady Exist<73>=Disk Ful<75>>Input Past En<45>?Bad Record Numbe<62>Bad File Nam蕕Too Many File<6C>Unprintable Erro<72> ﾅ! 9N#F* ﾕ~<7E>#~來m~+ｶﾊﾍ繿ﾃ侊ﾍq瞋ﾁﾃｬzﾍqﾈ>"ﾃ繿ﾅG:
|
||
jｧxﾁﾉﾍqﾊ拠<EFBE8A>* j+~<ﾊDq=ﾊDq###~<7E>ﾂDq<44>*j翹眦拠<E79CA6>!ﾃp<EFBE83>*j鱧* j~<7E>=ﾖﾒXq/<ﾍ<>ﾈ<EFBFBD>wq<77>=ﾃdqﾍ|qﾀ:jｷﾀ> ﾃ繿ﾍqﾈw瞋ﾉﾍ<EFBE89>ﾃｭjﾍ<6A>|ｧﾂｭj<EFBDAD>! 9>ﾍ孵<EFBE8D><E5ADB5>ﾕ^#V#耋<>ﾍｿw<EFBDBF>肭ﾉﾍ<EFBE89>ﾅﾕﾍR慯ﾁﾉﾍ<EFBE89>ﾕ<EFBFBD>ｴwﾑﾉ<EFBE91>ﾕ^#V肭ﾃｦw耻^#袁<01>Z範)乍ﾑ翹ﾕﾅ袁2憮ﾁﾑﾉﾍ<EFBE89>ﾕﾅﾍxﾁﾑﾉﾍ<EFBE89>ﾕﾅﾍxﾃ盃>ﾃ盃>ﾃ盃>ﾃ盃>袁{x矼ﾊ｣u~#fo翹##翹耻ﾅﾍ 顛#V#褄ﾍ<E8A484>ﾍQ壯ﾁﾑ翹耻ﾅﾃｭu耻ﾅ^#袁禿ｳu耻ﾅﾍ 顛#V#褄ﾍ<E8A484>ﾍR帋ﾁﾑ翹耻ﾅﾃﾖu耻ﾅ^#袁禿ﾜu耻ﾅﾍ顛+6 +6 ﾉﾒx<EFBE92>xr椥ﾈ<E6A4A5>ﾍw提#=ﾂ|ﾉ耋!|翹~<7E>ﾍw沈#ﾀﾃ!|Pﾍ<50>*ｶ"<22>*ｸ"<22>*ｸﾍﾎPQ <00>*ｶ)
|
||
^#V<>"ﾆ*ﾆ<11>ｪ<EFBFBD>||*Z媒/o|/g#"Z培蕫ｵﾀﾍｭ|ﾍ2愿||!\梅4瞋ﾁ
|
||
ﾂisｯ2*sﾑ眞ﾍｬz<EFBDAC>ｬz**s& ﾉﾅﾕ袁ﾚ敍ﾊ帋ﾑﾁﾉ~<7E>ｬz<EFBDAC>& ﾉ~ｧﾊｭjﾕ#^#V++ﾑ<>ｬz<EFBDAC>& ﾉI*>"ﾋs!ﾋsﾃﾟs>ﾃﾟs>ﾍ<>ﾃ孵ﾍ<E5ADB5>ﾅﾕ袁ｳtﾍ榎Z<>>ﾃ$tﾍ<74>ﾅﾕ袁zxｼﾂz DMﾃﾈy~# ﾂzﾃﾈyYP+++<2B>"ﾊx6@###{廟z弩+r+sﾑﾉｷﾊhz<68>*ﾐx|ｵﾂFzﾍ<7A>ﾃｧj<EFBDA7>袁<EFBFBD>x綽#V+<2B>"ﾐx碵<78>#s#r++<2B>+r+s##<23>!oztzﾉ ﾕ<>*|{布<>* >,ﾍ繿<EFBE8D>ﾉ袗ﾅW* j#^
|
||
ﾌｫq ﾊ･q+<2B>=ｻﾚ･qﾍ拠 zﾁﾑ皎ﾉ<E79A8E> <1E>ﾖﾚｽq<EFBDBD>ﾆ_<>ｯq<EFBDAF><71>!j" j! "緤ｯ2jﾍﾕq睨! j~6 #wﾉ痿!<21>ﾍ
|
||
rNﾊ<EFBFBD><0E>ﾍ<EFBFBD>i& ﾃｸj<05><05> <0B>ﾁﾑﾉ!nﾍQ塹ﾊ崚ｴ<E5B49A>!<21>mﾍﾜ模1陛y俯耻^#V#耋<>ﾍ;x<>肭ﾉﾍ<EFBE89>ﾕ<EFBFBD>;xﾑﾉﾍ<EFBE89>ﾅﾕzｳﾊUx|ｵﾊUx|ｷ<><EFBDB7>R憮<52>y罹ﾑﾁﾉ<EFBE81>ﾕ^#V肭ﾃ#x<>ﾕ^#V#耋sx<73>肭ﾉﾕﾅﾍ棡ﾁﾑﾉﾅﾕ襄#V#褄ﾍ<E8A484>ﾍ苺眞ﾑ翹耻ﾅﾃ<EFBE85>u耻ﾅ^#袁禿vﾍ<76>|ｧﾂｭjﾅBK ﾍ\vPYﾁﾉﾍ<EFBE89>|ｧﾂｭjﾅBK
|
||
編Mv
|
||
oｯ_ ﾃ0vﾍ<76>zｴﾂｭjﾅﾕzｳﾊdv
|
||
ｻﾒjv_匿ﾒpvo
|
||
ダ
|
||
ﾎ W}<7D>孵ﾑ胛wﾉｯ2]繁ﾍｪ<EFBE8D>坥|ﾍｘﾍｭ|ﾉ*Z範ｭ|ﾃ2慙ｪ<E68599><EFBDAA>|ﾍb<EFBE8D>>>ﾃR~~ｷﾈﾍi#ﾃｲ|ﾃiK|!`氾ﾐ|><3E>!`<60>V<>2ﾗ|ｯ<1A>#
|
||
ﾂﾖ|ﾉ!`氾ﾜ<E6B0BE>!`範ｷ}ﾍt<EFBE8D>> ﾈ>ﾚ<>><3E>ｧﾉ|賃}鴇tﾍu~ﾍﾒtﾍ<74>|V<>>ﾃ$tﾍ<74>ﾅﾕ袁ｳtﾍ蕓Z<>>砒ﾍL乍ﾑﾁﾉﾍ<EFBE89>ﾅﾕ袁ｼt~,<2C>"ﾂAt#"<22> ~ｧﾊXtｸﾊXt# ﾂDtﾍ<74>ﾃｭj<EFBDAD>"ﾂ^t#ﾍﾒt痒ﾍ孵ﾑﾍｳv<EFBDB3>ﾁﾉﾕ<EFBE89>*^#V#{ｲﾂt!<21>"|<7C>?ﾒ額}倒墫ﾉ蠻<0E>~# ｧﾂ諏yﾁ睨ﾅﾕG袁3z繆<7A>L乍ﾑﾁﾉﾍuzﾐﾍ,{ﾃv{ﾅﾕ<EFBE85>*|<7C>* |<7C>Z凸ﾛzﾍｯ{ﾊﾕzﾍ,{袁v{<7B>###ﾃｼz瞋ﾁﾉﾍ{ﾍ| during G.C.
|
||
甘&iﾍ{ﾍ|
|
||
甘& ﾅG~#ｸﾊrｧ#ﾂ r++ｴﾁﾉ<EFBE81> ﾍ%r<>ﾆ0<EFBE86>:ﾚ0rﾆﾃw竹ｷﾂｭj}<7D>ﾚｭj!jwﾉﾍ<EFBE89><1A>ｭjﾕ袗ﾍ3z耋dr矼ﾍdrﾍｬzﾑ睿ｬz<EFBDAC>蛬#<23>#fo<66>ﾍL畷睨目睦ﾅﾕ褄#N#GNｧﾊｧxyｧﾊｧx#~#fo<66>#foｾﾂｰx#ﾊｦx
|
||
ﾂ堀
|
||
yｰﾊｰxyﾖ<.ﾚｺx)ﾊｺx)<29>瞋ﾁ<E79E8B>ｬz<EFBDAC>ｬz<EFBDAC> |ｵﾖ湟xﾕx<EFBE95>x瞻xgﾞxo痊ﾂ艀*輾"黜*喆<>x<0F>o<EFBFBD>ｵ<EFBFBD>P<EFBFBD> ﾅﾍｬzDM睨耻ﾍ <0C>:]肌ﾊ要<EFBE8A>2]<5D>#ﾑ耙ﾃｪj:]斐ｧﾊｪv<EFBDAA>2]<5D>#耙ﾃｪjﾍ<6A>ﾅﾍuzﾔ咩<EFBE94>#ｶ#ｶ++ﾄ,{ﾕ>ﾍL<EFBE8D>+V+^+<2B>ｷﾊ炯+r+s睿v{ﾁﾉ眞ﾉﾍ<EFBE89>ﾕ<EFBFBD>ｳvﾑﾉ~#ﾕ^#V<>ﾃ孵!ｯﾃ<EFBDAF>v>2ﾉ+ﾉ!m~ﾃ苺ﾍ}ﾍｹ<EFBE8D>+6ｸ!\<5C>>ｸ析%弍2U繁!i~ﾃﾆ<EFBE83>!e~ﾃ苺!`氾苺~ダ#~蓋#~碓ﾉﾍ榲T<E6A6B2>!.<2E>Q塹慊R}ｯﾉ<EFBDAF><ﾀﾖﾉ睨o& ﾍｭ|ﾃ2罹*Z斐<5A>*\斐褄ﾉﾍ<EFBE89><EFBE8D>"Z覗i"\罷ﾉ!ﾟi<EFBE9F>"疂瞋>2<>ﾉﾍnt翡ﾕN#F#<23>*ﾟi~=ﾊｮt}掃來ｮtﾍ舩ﾃ冲瞋ﾁ翹ﾍｼtﾍ|~ﾃﾒt:<3A>ｧﾌnt*ﾟiﾍ;冬=ﾀﾍ<EFBE80>ﾃｰjﾍ;冬<>,ﾂ炙#"ﾟiﾉｧﾂ<EFBDA7>*疂"ﾟi+V+^<5E>"疂ﾉﾍ<EFBE89>ﾃｶjﾍ<6A>~<ﾊｭiﾍ|
|
||
Internal Error - String Space Corrup<75>#ﾅN#F<>*ﾌxy富憇q{*ﾎxy富慥q{瞰++藾i+V+^睿Z督<5A>##ﾑ6 +6 +~6 >@ｯﾁﾉ<EFBE81>++ﾁﾉﾕ<EFBE89>*ﾐx<EFBE90>"ﾐxsfiﾍｽr<EFBDBD>#N#fi<66>L乍ﾑﾁﾃｬzﾅﾕ<EFBE85>芳Oﾒ､rG #~#fo<66>#~#foxﾍL土ﾍｽr瞋ﾁﾃｬzﾖﾘ6 #ﾃｽr~<7E>ﾚｭj<EFBDAD>#~#fo~#fo耋ｬz睨ﾕZ<>>ﾃ<>ﾕV<>>襄=ｾﾒs#~#fo<66>ﾍL乍ﾍｬzﾕ_ !ﾉx4ﾂy5*ﾊx"ﾊx~#N#F#<23>Oy<4F>)y
|
||
ﾍG禿yy度墺4y ﾃy<>+++6@#y努#x嗹瞋ﾁ+++6 ###ﾉ!ﾉx~6 <00>ﾚ`yﾍuyﾃyﾍｿy*ﾊx#~<7E>#~墺yﾍ<79>ﾃ､jﾕ! <00> *ﾌx"<22>|ｧﾂ:w+})ﾑﾕ<EFBE91># ｹﾒ6w<36>~#fo<66> 肭:<3A>ｧﾂ)w<><77>! 9"ﾘi!ﾞi4ﾉ <09>痿<EFBFBD>G<EFBFBD>#蠹ｭjﾍ<6A>ﾕ <00>hwﾑﾉ~ｧﾊｭj<EFBDAD>#~#fon& 耋ｬz睿<7A>ﾕ<EFBFBD>ｴﾂж}ﾕﾍ3z~肭ﾖﾚ『s#ﾃwZ膿#V#N#F#ﾉ!i~ﾃR嶇<52>x<EFBFBD><78>ﾒ譚!^<5E>6ﾍﾆ忤g><3E>ﾍN<EFBE8D> ﾉﾃ
|
||
<EFBFBD>ﾃｻ}<7D>:T|Gw#ﾂｻ}ﾉｶ}ﾃﾐ}!`<60>ｷ}ﾕZ範ｪ<E7AF84>V繁ﾍｪ<EFBE8D>ｮ}*Z培ｵﾈ|淆<ﾉﾍｪ<EFBE8D>*Z枇<5A>
|
||
~ﾍﾊ}!*<2A>ﾄjﾅﾕ裹ﾍ3z縷<7A>#~#fo<66>袁L<E8A281>6 <00>+ﾍ水ﾍu~ﾍ<>|睿ｬz瞋ﾁﾃｬz>ﾃHu>ﾃHu>ﾃHu>ﾃHu>ﾃHu>耻^#V#<23>!Z氾｣<E6B0BE>>ﾃpu>ﾃpu>ﾃpu>ﾃpu>ﾃpu>ﾍ{x! ﾈ+ﾉ>ﾃ盃>#r+ﾑﾉﾕﾅﾍｿyﾁ*ﾊx#~狙#~聾ﾒ毬ﾍ<E6AFAC>ﾃｳjr+s##6"ﾎx###ﾑﾉ<EFBE91>!ﾐx~#foｴﾊﾃ{ﾍZ督ｳ{<7B><<3C>*ﾌx"ﾊx<EFBE8A>*ﾎx}登|喩<>6@#s#r#6"ﾎx* |<7C>*|"ﾐx}ﾆw> <00>#w##ﾍZ督葈+ﾑﾉ矣眦ｭjｯ2]繁ﾅﾕ袁ｿy*ﾊx#V#N X!逗"]範纜瞋ﾁﾉﾅ ﾍ4sﾁﾉxｧﾂｭjﾅｱﾊ?s ﾕ蠣<2*sF<73>腿鋭接鋭<E68EA5>#~#foyﾍG二O <0C>#~#foxｧﾊ行ﾅﾕ<EFBE85>ｾﾂ}s#ﾂls<6C><73>行!*sﾊx~#^#V#<23>ｼy﨏yﾍG酉 ﾕﾃＺ縹ｵﾂｧy砒ﾃＺ<13>++~ダw#~蓋w#<23>ﾃＺﾑﾑﾉﾕﾍuy*ﾌxDM~#^#V#<23>z<>yﾃﾈy+zｾﾄﾟz+{ｾﾄﾟz##ｯ{z<03>#q#p<>ｧﾊﾈyyｽﾂ}ﾍ烟ﾍ酢ﾃ
|
||
~ﾍD}:\塙<>2\<5C>:]<5D>脊㊥ﾍ挿:]塙ﾂ.~<7E>ﾃ3~<7E><>9~|/g}/oﾃM~!㊥<>:]<5D>脊V~ﾍ挿<EFBE8D>"Z<>>2T|ﾉ<> ﾍJ}ﾀajﾃL~ <20>ﾌﾌﾌﾌﾌL}ﾍлﾍｪ|<7C>r<>#<23>=ﾂc<EFBE82><63>!V範q}ﾃ氛ﾅ袁D}>ﾍ挿ﾍt}眞ｯ<>?ﾍ/<2F><>ﾕﾍ}<7D>/{棒#z杆#y朧++ﾒｳ<EFBE92>2}#ﾍt}<7D>p#<23>ﾚ･<EFBE9A>>ﾃ痲ﾕ<11>>ﾍ/<2F><><EFBFBD>#Fﾅ#肭*Z<>/}登|喩ﾒ<E596A9>"塚ゃﾁﾍJ+6%ﾉｶﾊﾍJ}<7D><>ﾍｮ}ﾄ}<7D>ﾁ愠で_x駐<78>ο<07>C┻ﾄ ┻ﾄ/<2F>ﾃ<14>yｷﾄv<76>ﾌけﾅ<E38191>x昀っ{醒_Ｙ﨔ｒ迩<EFBD92>ﾅﾍ<07>福ﾍ<EFA89B>yﾍ3Оｯ駐ﾍ<E9A790>ﾅGOﾍC<EFBE8D>ｱ ~<7E><EFBFBD>号!) ﾕ衫 河欠ﾑ碵ﾌ 蚊ﾃV税~#ﾂ!加ﾉﾅ<EFBE89>*緤~<7E>ﾊ｢<EFBE8A>( ~ｷﾊK<EFBE8A>+~#5飽 ~ｷ眞ﾉ+~ｷﾊW河]可-<2D>7眞>ﾉ*緤ﾕT]% N#F+q#p##<23>#6
|
||
ﾂu河秤:ﾍﾛ<EFBE8D>!1|F :W|_<> ﾊ<>xｹ*ﾂ<>{<7B>ﾂ<>Aqﾍ水ﾊﾀ<EFBE80>Eﾊﾀ<EFBE80>Dﾊﾀ<EFBE80>0ﾊ<30><EFBFBD>,ﾊ<><EFBFBD>.ﾂﾃ+60{<7B>ﾊﾌ+6${<7B>ﾀ+pﾉ2W|!1|6 ﾉﾍd}<7D>*V泌*X泌<58>ｯ2/|<7C>ﾍ〟E 蛬ｸﾊ(<28>:ﾒ ﾍ<>ﾅﾕ}ﾍ彩e<E5BDA9>ﾊb<EFBE8A>!' ~ｷﾊх
|
||
<EFBFBD>ﾊх#~ｷﾂy<EFBE82>`iﾍ`加ﾃZ<EFBE83>>飽 ﾅ<>>2-|<7C><01> `hﾌM~<7E><>&ﾊﾅ<EFBE8A>-<2D>､~<7E>+ﾊ､~+ﾍ水ﾚ<E6B0B4><EFBFBD>.ﾊ1<31>eﾊｶ~<7E>Eﾂ烝袁水<E8A281>lﾊﾎ~<7E>Lﾊﾎ~<7E>qﾊﾎ~<7E>Q睫ﾟ~:T|<7C>ﾊ<>> ﾃ<>~<7E>%ﾊ><>#ﾊO<4F>!ﾊP<50>dﾊ<64><EFBE8A>DﾂｷﾍYﾍ水Z飯疳#<23>=ﾂ痲ﾍ/жﾑﾉ <00>｢<><EFBDA2>1ｩ_cｲ<63><EFBDB2>ｿﾉｶ ｿﾉｶ ﾆ､~<7E> @z<10> <00>rN ･ﾔ<EFBDA5> 钁H <00> T ﾊ<>; 磆 迄 @B ﾂ<06>*U|<7C>=<3D>ケﾃ ょﾕﾍ慾ﾑｯﾊ <1C> ﾍｮ}7ﾄ}<7D>ﾁ<EFBFBD>ｷ<EFBFBD>vOz<4F><04>欷＾匂ﾅ<E58C82><EFBFBD><γ<><CEB3>JΡ/<<<3C> ﾍC<EFBE8D><43>ο/<2F><>mο}~<7E>.ﾄ厭"U|<7C>tャ崇ﾅﾍﾏ<EFBE8D>ﾑﾃ ぷｯ<E381B7>hﾍZ弦> ﾂ拷>痍+wｷﾑﾉﾅﾕ<EFBE85>!( <19>ﾍ 瞋ﾁﾉﾍ+華<>7?ﾀﾅ<EFBE80>*緤' 6 #6 7眞ﾉ蛬ｷﾊ}染#^#fk_<6B>ﾚﾝ丑#~ <1D>:ﾊ瘟+ + @ ﾊ}笥ﾖ@ﾚ}<7D>ﾒ}<7D> <1D> # <1D>2樫<32>.ﾂ<08>0ﾚ<08> #~ｷﾂ<EFBDB7>>DｸG<EFBDB8> ﾂ<><EFBE82>ﾑ<EFBFBD>"V覗i"X罷ﾁﾑﾉﾅ #~<7E>+ﾊo<EFBE8A>-ﾊF<EFBE8A>0Ox㊦〟G<E3809F>ﾒo<EFBE92>#~ｷﾂ-～ﾁx<EFBE81>Eﾂd【<64> 瞑<18>>2/|ﾃt－<74>瞑<18>\<5C>眦‰ﾁﾑ<EFBE81>"V覗i"X<>#~ﾖﾖ殀oﾑﾁﾉPY!' ﾅｯwﾍ秤:蘇ﾍZ<EFBE8D><5A>ﾊ<EFBE8A>=ﾊz<EFBE8A>=ﾂｸ<EFBE82>ｯﾍ ﾃk<EFBE83><ﾊ醒!% ^#Vr+sﾉﾍ<EFBE89>}ｧﾊﾁ固ﾕ<E59BBA>! "@<40>蛩ﾍ彩
|
||
闇
|
||
PYﾕ<>ﾂ<03>!勀裹`i>ﾃ\<5C>!' ~ｷﾍｻ<EFBE8D>水ﾚ<E6B0B4>ﾂｯ点蛔神<E89B94><EFBFBD>ﾂ碵衫[|睿ｪ<E79DBF><EFBDAA>!Y}袁V~ﾉﾍｪ<EFBE8D> ﾂﾜYﾃ､~ﾍ水<EFBE8D>!Y}<7D>!蕓襄ﾃｷﾍYﾍ水ﾃ袗ﾅ<E8A297>榎<EFBFBD><E6A68E>|ﾁﾑ睨ﾈ<E79DA8>ｪ<EFBFBD>芫}<7D>&}<7D>=ﾉﾕ襄ﾍｪ<EFBE8D>茴<EFBFBD>' '<27>d
|
||
#~<7E>:ﾐ<> ﾊ水<EFBE8A> ﾊ水<EFBE8A>
|
||
ﾊ水<EFBFBD>0?<=ﾉ:T|<7C>ﾒｷ<EFBE92>ｷ7ﾉﾖｷﾉ<15>-ﾈ<14>+ﾈ+ﾉﾍ水ﾍM<EFBE8D>Oﾊﾖ<EFBE8A>Hﾊﾖ<EFBE8A>+ﾍ竇ﾚ<E7AB87><EFBE9A>M~<7E><>H#ﾊ<17><>ﾍ<EFBFBD>ﾃｪjﾅM<EFBE85>! ﾍ<03>ﾚ<01>堆ｪ<E5A086>｡<EFBFBD>:]<5D>待｡<E5BE85><12>!`範ｷ}ﾍ,}<7D>
|
||
<EFBFBD><EFBFBD>ﾍﾓοｪ<EFBFBD>ｶ<EFBFBD>C<><11>ﾍJ}ﾃｼ<EFBE83><1A>諫<EFBFBD><E8ABAB>ﾍi<69>､<EFBFBD>ﾍx<78>ﾓ<EFBFBD>ｷﾑﾉﾍｪ<EFBE8D>蜒t<><11>#ﾍJ}ﾃ<>"<22>諫碪ﾇ<E7A2AA>ｷﾈ=60#ﾃ<>ﾂ <00>ﾍ/<2F> 艦 寄7<E5AF84><37>#ﾂ<>ｯ2)<29>磆ﾍｬz<EFBDAC>z<EFBFBD> ﾊ}<7D>ﾚ}席> ﾃ <1E>ﾊ<12>> ﾂ7甘艦<>ﾅﾕ褄ﾍﾀ<EFBE8D>号ﾍ <1D>ﾍ <ﾊt<EFBE8A>!
|
||
<EFBFBD> <1D>> ﾍL乍袁ﾀ<E8A281>: <1D>!
|
||
<EFBFBD>ﾂヰ <1D>ﾍ<>ﾑﾍt}#<23>袱 Wﾍ}<7D> <03>:/|ｷ<>‰づｬ‰<EFBDAC>ｰ<EFBFBD>ｺﾒｰ<EFBE92><G>ﾖ磆ﾍ <1C>60ﾌ厭ﾍC<EFBE8D>+~<7E>0ﾊｿ<EFBE8A>.ﾄ厭<EFBE84><E58EAD><EFBFBD>ｪ<EFBFBD>>"舜#<23>6+<2B><>6-/</ﾖ
|
||
ﾒ艨ﾆ:#p#w#6 <00>!1|ﾉ#ﾅ<>zﾒrて順ﾑﾍ秤ﾍ ﾁﾍｴ冴ﾑﾁﾉﾍ<EFBE89>ﾅﾕ}ﾍ彩e<E5BDA9>!& ﾂ+<2B>!ｮ ~+ngﾑﾁﾉﾍ<EFBE89>ﾅﾕ}ﾍ彩e<E5BDA9>! n& ﾑﾁﾉ碵襄*緤~<7E>ﾊ_<EFBE8A>ﾊt杖ﾕﾅDM<44>' ~<7E>衫欠<E8A1AB>4N #<23>V<EFBFBD>
|
||
pﾊ鞍炳<EFBFBD> }<7D>}<7D>ﾑ<ﾉﾕx烏ﾅ蛬ﾖ0<EFBE96>ｪ<EFBFBD>ﾄ*Z<>ﾍ ﾍ礰ﾒﾀT])))<29> |ｷ悊"Z批ﾁﾑﾃ､~y<>慾7ﾒ<37>t<> $ﾍJ}<7D>ﾍ急<EFBE8D><E680A5>ﾃｸﾍｧ|ﾍ&}ﾍﾊ}<7D>[}ﾍｧ|ﾍ烟ﾃｸﾍd}ﾍ[}ﾁﾑﾃ>}{<7B>ｧﾁﾉﾖ0?ﾐ<>ﾐ)ﾘ)ﾘ)ﾘｵoﾃ<03>M<EFBFBD>! ﾍ)<29>ﾚ'<27>息ﾁﾉﾍM<EFBE8D>0?ﾐ<>
|
||
ﾚ?<3F>?ﾐ<>ﾐﾆ
|
||
)ﾘ)ﾘ)ﾘ)ﾘｵoﾃ)<29>aﾘ<61>{ﾐﾖ ﾉ蕓ﾅﾍｪ<EFBE8D>:]<5D>逝:\塙<><> ﾃ>}<7D>:-|2.|<7C>ｯ2-|<7C>60#=ﾃ<>{<7B><G<ﾖﾒ <0C>O:W|襦ﾀOﾉ<05>0<EFBFBD>"U|6.#60ﾂ%<25>#Hﾉﾂ;<3B>6."U|#Hﾉ
|
||
ﾀ6,#ﾉﾕﾍｪ<EFBE8D>嫡ﾅ袁ﾊ}!*<2A>ﾄ}ﾍ烟ｯﾍ }眞:<3A>>
|
||
ﾍ/<2F><>ﾕ/砒>槝ﾍ|ﾒl<EFBE92>>赦ﾍ|<7C>p <ﾂn<EFBE82>
|
||
<EFBFBD> 瞋ﾁﾉﾕﾅ*>㍻ｷﾊb<EFBE8A>#N#F++ﾍｬz
|
||
赱<02>Oﾊﾋ<EFBE8A><01>Iﾊﾋ<EFBE8A><03>Rﾂb<EFBE82>*@<40>ｵﾂﾋ<EFBE82>! "@<40>ﾕ}ﾑ_ﾕﾍ債ﾞ艦ｴ砿ﾍ債q績z眷ﾕﾍﾀ禾ﾁﾅ<EFBE81>
|
||
ﾍ<EFBFBD><EFBFBD>"緤<># <1D>> ﾍL ﾚ<0F>ﾍ<14>zﾖ<05>οﾛкｷﾌ}=<3D><>ﾍム睫'Ｑ#6 !0|#:U|葡ﾈ~<7E> ﾊ,<2C>*ﾊ,<2C>+襄@でﾍ水<EFBE8D>-ﾈ<>+ﾈ<>$ﾈﾁ<EFBE88>0ﾂj<EFBE82>#ﾍ水ﾒj<EFBE92>++w<>`っﾃ-んﾊjゃ6%ﾉ<> ﾚμ獅2<>諫 <09>ﾑw睨+s#r#6#6矼DM<44>:宿ｷﾊｫ<EFBE8A>!" s#r#6 ﾃ<>!
|
||
{zVｺﾊ闊ﾕ<E9978A>ﾅ号ﾍ ﾑﾕﾍ ﾑ碵wﾕﾕﾍ ﾑ<ﾂ謌ﾍ <ﾊ醒ﾑ!! {<7B>w<7F>:O盛ﾂ<E79B9B>囲`蚊ﾉ!!
|
||
ﾒ
|
||
<07><07>0_<30> ﾃｷﾃG<47>!\範ｪ<E7AF84>':f氾(yｮ眦G:^氾C<43><C280>:\<5C>ﾃG<47>:^<5E>/ﾃGﾃ㊥ｯﾍﾓ<EFBE93>ﾊU6+<2B>ﾜ}<7D>g6-ﾅ袁[|眞ｴ#60:W|W:T|ﾚ<>ﾊ<EFBFBD><EFBE8A>ﾒﾜ ﾉﾍ<EFBE89>ﾃｪjﾍ<6A>ﾃｪj <00>6 6 ﾑﾕﾍ秤砒~<7E>ﾂ*琴ﾍ ﾑﾍ <ﾊ静?<3F>ﾍ <ﾂ?錦ﾕ<1A>ﾂt<EFBE82>ﾃ 錦ﾕ!% ｯw#w#w#w痿<77>ﾊ[<5B>ﾀﾍ]暇) p#
|
||
ﾂa極袗ﾅﾍﾁ<EFBFBD>ﾍ <00>
|
||
ﾍ <00>ﾍ 惣q#ﾍｰ替
|
||
ﾂ<EFBFBD>>
|
||
ﾍｰ堆ﾛ孫ﾊ酎<EFBFBD>
|
||
ﾊ<EFBFBD>ﾃ﨎:_n<5F>ﾌｭ賊wﾉ ﾃ穃ﾃw禎>^ﾍｰ拓<EFBDB0>@ﾍｰ堆ｭ拓ﾉ~ｧﾈ<EFBDA7>
|
||
ﾂﾔ託>
|
||
ﾍｰ拓ﾍｰ<EFBFBD>#ﾃﾅ堆i<>ﾉﾃ|<7C>* j<>
|
||
ﾊ咜<EFBFBD>#~+<ﾊ<>=勿拠<E58BBF><E68BA0>
|
||
ﾌb掴ﾅ<EFBFBD>!ｱ <19><>!( V6 <00>
|
||
ﾊ搶ﾆ炳ﾎ w<>ﾑ睨ﾕﾍﾎ礁w析ﾅ<E69E90>!ｱ ~ｷﾑ眞ﾉ!ｩ ﾃﾀ<EFBE83>!ｰ ^#Vﾉ!ｰ s#rﾉDMﾍｽ衝ﾍｷ壌ﾑﾍP惜ﾅﾕ}ﾍ彩e<E5BDA9>ﾊ<><EFBE8A>ﾂb秦i"緤! <00>"<22>ﾑﾁﾃ-<2D>ｷﾕﾊ!<21>ﾅ GﾜS力Q<E58A9B>ﾁ
|
||
ﾂ
|
||
毛ﾂ姪圏!\範-佚夢j<E5A4A2>｢0 TeﾂBﾗｳ]<5D>h!｢ﾚI<>.嫐ﾁ<E5AB90>
|
||
∝ﾍ虚睿ﾚ斛b佚h門ﾍ虚睿Y<E79DBF>!`氾苺ﾍﾞq!]<5D><0E>q#~諤<>+++<2B>*G㎏#r!ｹ DM眦､<E79CA6>ｹ *@<40> DMﾍ<4D>ﾑs#r#<23> 6 # xｱﾂｧ冴ﾑﾁﾉﾅﾕ<EFBE85> !<21>T]~#foｴﾊe靭ｼﾂｿ酵ｽﾂｿ降#~+<2B>*<2A><>"<22>s#r瞋ﾁﾉ <00>ﾀ*@<40> |ｵﾊ 狩<>-<2D>､~<7E>+ﾊ､~+ﾍuﾚ<75><EFBFBD>.ﾊ1<31>eﾊｶ~<7E>Eﾂ烝袁･~<7E>lﾊﾎ~<7E>Lﾊﾎ~<7E>qﾊﾎ~<7E>Q睫ﾟ~:T|<7C>ﾊ<>> ﾃ<>~<7E>%ﾊ><>#ﾊO<4F>!ﾊP<50>dﾊ<64><EFBE8A>DﾂｷﾍYﾍｻ~6 #ﾖﾒh繁ﾍ利g<>ｷﾊ｣範
|
||
<EFBFBD>ﾁﾑ睨ﾍ<E79DA8>ﾅﾕ袁ﾀ<E8A281>号ﾍ <1D>ﾍ <ﾑﾕ<EFBE91>ﾄ <00>ﾊt<EFBE8A>ﾍ 瞋ﾁﾉﾍ<EFBE89>ﾅﾕ<EFBE85>! <1D>6 # ﾍR古ﾒ僅<EFBE92>ﾅﾕ袁ﾀ憶2)<29>! <1E>ﾍN<EFBE8D>!&<26>ﾍN<EFBE8D>号ﾍ <1D>ﾍ <00><>ﾊt先㊦<>ﾌe<EFBE8C> ﾚ <0B>4+~#<ﾊ:<3A>=ﾂ^提<> ﾊi低ﾍi<>
|
||
ﾀ<EFBFBD>:jGﾊ7脹ﾅﾍiﾁﾃ*鎮<>:鑛ｧﾂS<EFBE82><2鑛<32>*虔"瘻!葡"虔碵<E89994> ﾊi掴i睨*<2A>i<EFBFBD>6ﾉ5ﾀ4ﾉ> ﾍ繿~=<3D>ﾂi低ﾉ<E4BD8E>* j<>!j"ﾍ･禍ﾍ<E7A68D>!> ﾃｸjﾍ<6A>|ｲﾂｭj,ﾊ'<27>-:駟ｷﾊe仙*麒翹!i"<22>ﾅﾕ{ﾍ3z蘿$%ﾊK跡<4B>!D仙*<2A>鱆ﾑﾃ6雪ﾑﾁﾉ |賃}橡<>! "緤睨<E7B7A4>ﾉ>6>4>?>=>:>7>5>2>3>@w+qﾂヶﾃ
|
||
<EFBFBD> DNn<4E>"~ Ａﾞ<EFBCA1>3<EFBFBD>5】ﾏﾑ<EFBE8F>r1{ﾏﾑ<EFBE8F>r1ﾀh!｢ﾚIは利ﾊ
|
||
框蕫O2f氾笆ﾍ利ﾊ
|
||
<EFBFBD>:]塙ﾊn武ﾒ<E6ADA6>/<<3C>n報<6E>9ﾒ
|
||
樸:f念ﾍｹ!ｩ s#rｯ #w ﾂ
|
||
紗ﾉ<EFBFBD>2<EFBFBD>}ﾍ<16>ﾂb税!ｭ ^#V<13>:D<>ﾂ5<EFBE82>*E<>痣ｲﾊh<EFBE8A>+s#rﾁﾅ!ｰ ｯw#w!ｩ ~#fo<66><6F>! ﾍP雪ﾂe<EFBE82> ﾃ｣撮K><10>! <00>)耡x<E880A1>)#ﾃy<EFBE83>)肭)<29>㍽Oﾊｨ<EFBE8A>!槫!\醗y<E98697>#鳴<><E9B3B4>+ﾂ灯ﾁﾉ ｩﾉﾍ
|
||
<EFBFBD>?ﾉﾃ槫ﾍ虚睿ﾚ斛b佚ﾁ泌ﾍ虚睿Y佻n<E4BDBB>!`範利ﾊ-<2D>:]塙ﾊ
|
||
<EFBFBD>:g<>/<G:f念ﾍｪ<EFBE8D>4ﾍ<0E>!俣qA藷!`範f<E7AF84><1A>?ﾚ<04>藷!`範㊦O !紙 ~#ﾍｰ惣<EFBDB0>ﾂ!鯨<> ﾊ <1E>>.ﾍｰ<EFBE8D>
|
||
ﾂ <0B>:jﾆ
|
||
W:jｺﾚ:<3A>> ﾍｰ堆ｰ袋ｭ<E8A28B> <1D>ﾍ <00><>ﾂ絜瞋ﾁﾉ~<7E>*ﾀ6?#
|
||
ﾂR庫ﾕOﾅﾍ ﾁﾑ<EFBE81>!! 4ﾂr<EFBE82>#4ﾂr<EFBE82>#4y<34>"ﾂ㈹<EFBE82>ﾈ<EFBFBD>ﾊ<EFBE8A> jﾍ繿<EFBE8D>" j睨>
|
||
ﾍ繿>
|
||
ﾃ繿>
|
||
ﾍi>
|
||
ﾍi*瘻鯒 ﾃｮ椎 <09> Gﾍﾇ帳ﾁ睫ﾂ蓄#foﾃﾄ<EFBE83>##ﾑ翹ﾍﾑ<EFBE8D>>ﾘﾈﾉｧﾂﾞ蓄ｧﾈ+~?ﾉ~ｧﾂ髓<EFBE82>ﾉ+ｮ#<17><><EFBFBD>迷+
|
||
<EFBFBD>脹>C>ﾍ<>o& ﾃｸj袗ﾅ! "緤!ｦn"ｦoﾍ､醒ﾑ睨:_n<5F>ﾂｵ析|?<3F>ﾃｵ壬ﾍﾛ妥髏:ｬ孫>\2ｬ堕ﾏ<E5A095>ﾊｴ析ｰ<E69E90>+ﾊ辮~ﾍｰ妥<EFBDB0>+ﾍｰ堕<EFBDB0>ﾍｰ堆ｭ<E5A086>!ｦn<01>2ｬ拓ﾃ﨎ﾍﾛ前<EFBE9B>ﾊｻ頗Gｯ2_非!f範%<25>:_<>2U肺!`<60>V<>ｷ<>力\淋+零4ﾍQ<EFBE8D>:U塙<55>?<3F>!^梅諤++ｮwﾃ
|
||
<EFBFBD>!V<>4ﾀ#ﾂD<EFBE82>4ﾊn<EFBE8A>+6ﾉ!`<60>V<>ｯ<1A>#
|
||
ﾂ\遼ｯ<1A>#
|
||
ﾂi遼ﾍi淋圏/!U<> 耡<>#<23>=ﾂn枝<6E>_ ﾁ}la)ﾚヰﾒ梹#xｷﾂヰ"骰眞<E9AAB0>!ｲ "<22>!) "寘砒! }登|喩ﾑﾕﾍP接ﾍ暫k:<3A>ｷﾊ<13> ﾍP脊竡袁0障ﾅDM*寘<>*<2A>ﾍg<EFBE8D>"<22>PYﾁﾍ/障}登|喩ｵY留ﾚ:\<5C><= <1F>+<2B>!V<>ﾍﾊ<EFBE8D>!藷ﾍﾈ踊ｷﾂ齡!]<5D>5ﾂ齡ﾃn模ﾞq<EFBE9E>!\年#Fﾍｹ悵+6ｸ<36>c<EFBFBD>!\<5C>>ｸ析%偕<>?留2U<32>:V備ﾍ圏ﾍ
|
||
榁x<EFBFBD>/<ﾉ!V梅5ｷ#ﾊf碧V<>!`<60>Nwy#ﾂv<EFBE82>>ﾈ<ﾉ<>"><3E>>2駟<32>!ﾝ<>"麒<>:輅ｧﾀ<2輅<32>*虔"B<>!ﾕ<>"虔睨ﾍ<E79DA8>"@<40>ﾕﾅﾍ抽ﾁﾑ睨<EFBE91>*<2A>|ｵﾊﾓ<EFBE8A>##nﾍﾑ<EFBE8D>ﾂ吾ﾉ. ﾍﾌ<EFBE8D>*B<>ﾍ<EFBFBD><EFBE8D>ﾃ鼬ﾍ<E9BCAC>ｯ2D<32>ﾕ蠶<12>"E<>ﾃ赦<><E8B5A6>ﾃﾉ<EFBE83>& )))<11> ﾉ^#V#<23>!Z範)乍ﾉ^#V#<23>!V範&乍ﾉﾍ)<29>w#w#w#w#ﾉ#~<7E> ﾊ:<3A> ﾊ:橡<>ﾐ$ﾉｧﾈﾅGw#ﾂP特ﾉ{ｭﾀzｬﾉﾍﾊ}!*<2A>ﾄ}ﾍ烟ﾍ酢ﾃ
|
||
~ﾍD}:{}ｷ<>2~::ｬ孫ﾊ<10>>\ﾍｰ賊2ｬ惣<EFBDAC>ﾊz<EFBE8A>ﾌｳ<EFBE8C>7ﾈ<37>
|
||
ﾊ｡<EFBFBD> ﾊz<EFBE8A>
|
||
ﾂ4<EFBFBD>ﾊｵ<EFBE8A>ﾃz<EFBE83>ﾌｳ駄ｵ<E9A784>ﾂR<EFBE82>ﾊｵ析ｰ<E69E90>> ﾍｰ<EFBE8D>>ﾃﾜ<EFBE83>ﾂ\<5C>>#ﾃ辮<EFBE83>ﾂu打ﾕ<E68993>6 ﾍｭ<EFBE8D>!ｦnﾍﾅ黛ﾑﾁﾃ<EFBE81><EFBE83> ﾚ<>x<>ﾊ<>ｯOy檜#ﾂ<>ｯG:\塙ﾂｵ<EFBE82>!U<>Vwz#
|
||
ﾂ囓xﾖ<08>ﾀﾂ漉ﾃﾁ<EFBE83>!U範ﾈ旅<EFBE88>踊ｷﾊ+<2B>!]陪wﾒﾁ敕+<2B>~w#
|
||
ﾂﾊ遼袁虚睿ﾚ斛b佚髣袁虚睿Y<EFBFBD>!`氾ﾜ門ﾍ虚睿ﾚ斛b佚伜ﾍ<E4BC9C> <00>*骰#"骰ﾂｰ若瞋ﾁﾉ袁0障ﾅDM*<2A><>*寘ﾍg壌"<22>PYﾁﾃ<EFBE81><EFBE83>2O税ﾕ<E7A88E>*骰<>!ｫ 蛬#foﾍP雪s#rﾂV<EFBE82>:O盛ﾊc<EFBE8A>!c丞ﾅ<E4B89E>!& ﾃ㊧瞋ﾁﾉﾅ~# xｱﾂh消ﾉ<E6B688>ﾅ<EFBFBD>Mﾍﾐ礁w枢ﾃ
|
||
<EFBFBD>V罷ﾃ囗!V氾利!`氾ｮ佻L<E4BDBB>!L吶<4C>!g氾ｨ<E6B0BE>!]<5D>>ﾑF+N+ﾅ=ﾂｫ簿<EFBDAB>!`氾ｿ<E6B0BE>!V<>>ﾑﾁq#p#=ﾂﾂ簿<EFBE82>!V氾苺<E6B0BE>"雌ﾍｶ箆･箆装*雌鯱利ﾊﾁ<EFBE8A>:]塙ﾊﾁ<EFBE8A>!f年#Fﾍｪ嶇碗栽<>ｯ2D<32>ﾕ蠶<13>"E<>ﾃ而ﾊe<EFBE8A><ﾊe<EFBE8A>=_ <00>!<21>~#foｴﾊ:<3A>##{ｾﾊP<EFBE8A>++ﾃ&<26>*<2A>袁Y<E8A281>"<22>ﾁq#p#s#4#5++###DM
|
||
ｧ睨ﾅﾕ!<21>"G㍻#foｴﾊ注+V+^##<23>*@<40>布憮ﾚ^坑K^#V~<7E>脊 ﾍ挿:~ｷﾂ.~<7E>ﾃ3~<7E><>9~|/g}/oﾃM~! ~<7E>:#~<7E>脊V~ﾍ挿<EFBE8D>"<22>>2T|ﾉ<> ﾍJ}ﾀajﾃL~ <20>ﾌﾌﾌﾌﾌL}ﾍлﾍｪ|<7C> ﾅ<>>2-|<7C><01> `hﾌM~<7E><>&ﾊ 甫ﾍY佻n<E4BDBB>!`氾ﾌ幌2f<32>!\<5C>蕪 ~q+ﾂ佶q袒ﾚ<倔<> NsY+ﾂ1佚'佝 Wｯ<57>ﾈ<> ~ w+ ﾂF佚?<3F>!\<5C>ﾃC佻2愿b佻ﾚ<E4BDBB>ｯ!V背#ﾂh佚
|
||
槝y<EFBFBD>ﾉﾍｮ佻ｘﾃｴ佻裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹ﾉ!^梅/wｯo触}媽}啗}儖ﾉﾍﾎ慙譚ﾁﾑﾉ|ｵﾈ<EFBDB5>ｵﾈDM! >)<29>)<29>ｴ<EFBFBD> =ﾂｬ慄!\梅7 w? ##wy7 O ｮﾉ*Z斐<5A>*\斐鱆<E69690>"\批<>"Z繁ajSXﾍ*<2A>ﾊﾁ扣S\E!]薄ﾒﾁ<EFBE92>/<wﾃ｡晏裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹蘋#~蓋#~碓ﾒ｡<EFBE92>#4ﾊ雀.ﾍd榲｡擶触~媽#~啗#~儖ﾜ●ﾃ纜ﾍD愿ｶ塹﨟ﾊ
|
||
<EFBFBD>>ｩOﾃW塹D愿ﾉ塹﨟ﾊu慙
|
||
槓ｯ触ﾍｪ幎"C罷y2E認ｯoﾍ懸ﾍ復! D<>*Z<>:\<5C>碓ﾒ<06>]罷4<E7BDB7>裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹ｮ佻ｹ<E4BDBB>!Y認#^#V#Nﾃ｡斛ｴ<E6969B>ﾉ`<60>~#ﾂ恫ｷG++Nﾈyﾃ<12>V氾囗!Z範ﾚ<E7AF84>>精ﾊ<E7B2BE>ﾒﾉ佻ﾞq章槝<>ﾍ<EFBFBD><EFBE8D><EFBFBD>!^<5E>6ﾍﾆ徃><3E>ﾍN桍ﾔ∪<EFBE94>>ｩｲｳﾂﾃ和kﾉﾍﾚ敲<EFBE9A>L厦ﾊ裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 !=梅ｷﾂ 捶ﾖ8ﾂ扁ﾉﾆ@Gﾍ<>ﾃ曉(斛u<E6969B>ｷ<> 捶ﾉ |ｷﾂW攘ﾂ>擺ﾂG攀ﾂP數ejSXﾃW晤 ﾃW拂h |ｷ伃掉_zW}o|gﾃX<EFBE83>"8罷"6肺ﾉ<E882BA>!6<> ｷ~w#裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹ﾊ雀ﾃ 嶝ﾍ.嬌. <00>*C<>:E<>碓ﾑz錦ﾒ嶇.嬌.<2E><>*Z<>:\氾孰<=ⅵ學_zWxG)yO滔肓 HG眦｡斛D愿U嶇﨟ﾊ譚ﾍ
|
||
槓ﾍｪ孳 ﾅ+Fﾅ+Fﾅ+Fﾅw `h縹ｷﾊ｢<EFBE8A> gy耡<79>裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹蝗<E8A3B9>L凖
|
||
槝﨟ﾊZ哇ﾍ
|
||
槎b吼ﾍﾎ懿*卩ﾕﾍﾍ嶝ﾁ<E5B69D>憮| ﾍ譚ﾁﾑﾒ6<EFBE92>!L吝ﾌG厦ﾎ慙ﾆ卉ﾑﾍX崚i<E5B49A>>｡Oﾉ!]梅ｷﾈ+>ｮwﾃ
|
||
<EFBFBD> ＿Yﾃ缸<EFBE83>u愿
|
||
<EFBFBD>:]<5D>惟<EFBFBD><E6839F>hﾚ<68>ﾍﾎ慙ﾊ嵌<EFBE8A>ﾑ裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹 ﾂ|昵ﾉﾍu<EFBE8D>ﾂ<>ﾉｩ旌ﾍﾞq<11><>J!]拝ﾉx!]塙<>戳#~諤ｩOﾃ缸 ﾀﾀ ﾀ4ﾀﾃ駁皹go"Z<>"\繁袁<E7B981>疽#r#q#pﾃ槝﨟袁譚睨ﾍ橄"Z罷`i"\繁*Z罷*\妊Mﾉ^#V#N裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹<E8A3B9>:Z秤 O| g} ox G<>-|ﾂz帋繃ｷﾂu嶝ﾃ纜瓲laOﾃt<EFBE83>!]梅G ｨx<EFBDA8>嵌ﾊﾀ掫ﾍｹ忤+ﾉｷ磅雀ﾃﾁ斛<EFBE81>x<EFBFBD><78>ﾒ譚!^<5E>6ﾍﾆ忤g﨓孵ｳﾂ逶
|
||
><3E>ﾍN桍ﾔｳ<EFBE94> {<7B>><3E>2]範纜<E7AF84>裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹衞<E8A3B9>哇ﾍ復ﾍｹ<EFBE8D>!ｩ厦&埣 Jﾃ\<5C> ＿Yﾃ缸ﾍ
|
||
檄ﾁ敕雀|<7C>t燉&wﾄ z^Pc|<1A>u~r1 ∀缸簟厦ﾞq<EFBE9E>>2]畑<>!嶹ﾍ&夾ﾍﾎ徙殀ﾍ2愧ﾑﾃW<EFBE83> ﾘ赶かｪ}м卅<D0BC><E58D85>(㈱q裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹#F#xｷﾈyﾃ<12>:]塙ﾈ:\<5C>濤7ﾀﾆﾉ|/G}/O! ><11>ﾃ5樸<35> ﾒ4橢7>痣_zW}o|g<>=ﾂ+桍ｷ g} oﾉ ﾖﾚ]曚ZQ ﾃP榿 oｯ-ﾈy Oz W{ _x Gﾃ`杙罷*\妊Mﾉ^#V#N裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹ﾘ/<ﾉxｱﾊ
|
||
<EFBFBD>!槫ﾍ
|
||
框/ﾈ!\醗~<7E> <1F> ｩﾉ#~ｸﾀ+~ｹﾀ+~ｺﾀ+~涜矣ﾉLU X)!逗"]妃●ﾃ纜<EFBE83>ﾎ罹ﾍ2愧ﾑﾍ復ﾉ<E5BEA9>ｳﾊu忝ｷB<EFBDB7>忿ｨG|ｵﾈ|ｷ<>y愬ﾍ橢ｷ<E6A9A2>罹ﾉﾍﾞq憶O点y啗裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹ﾀ㌻<EFBE80><14> <1E><>z<02> 搓<>ﾍﾎ慝ﾍ<E6859D>ﾍX帋ﾍ&埣ﾑﾃX幎ﾍﾎ罹~<7E>#ﾍﾚ暃ﾁﾑ=ﾈﾕﾅ<EFBE95>xｱﾍU帋ﾍ﨟袁W壯ﾃ1塹D愿T塹﨟ﾊ
|
||
<EFBFBD>:]塙ﾊ缸脊g<E8848A>/<ﾍ復<EFBE8D>ﾒ
|
||
樸ﾍｹ徃<EFBFBD>ﾍN橢ｷ!Z飛劒~<7E>裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹裹<E8A3B9> |