Advertisement
MIOA.PRN
3323 CD6A33
3326 CD8F33
3 329 CD6A33
3 32C CD8F33
3 32F 79
3330 30 -
3331 C9
3332 3A9D32
RBSN:
3335 A7
3336 C8
3337 1600
3339 CD4C33
RBS2 :
3 33C 17
333D DA3933
3340 CD4C33
3343 3C
3344 C23933
3347 3E20
3349 D343
334B C9
3 34C DB43
RBSI:
3 34E E604
3350 CA4C33
3353 DB40
3355 C9
3356 DB4 3
GBIT:
3358 E604
3 3 5A CA5633
335D 3A9D32
3360 A7
3361 DB40
3363 C8
3364 C601
3366 7A
3367 17
3 368 57
3369 C9
3 3 6A DB4 3
GBYT:
336C E604
336E CA6A33
3371 3A9D32 -
3374 A7
3375 C27533
3375 DB40
3 37A C9
3 37B E5
GBYTl:
3 37C 2607
3 37E D340
3380 57
3 381 CD4C33
GBYT2:
3384 C601
3386 7A
3387 17
3388 57
3389 25
333A C28133
338D El
338E C9
CALL G3YT
CRC BYTE 1
CALL CRC
FORK VALUE . .
CALL GBYT
BYTE 2
CALL CRC
FOR THE LAST TIME!
MOV A,C
SET FLAG
ORA 3
RET
LDA TYPF
;SYNC IF REQUIRED
ANA A
RZ
MV I D,0
SET FOR BIT SYNC RECOGNITION
CALL RBSI
NOW WAIT FOR A ZERO BIT FOLLOWED
RAL
BY EIGHT ONES SO HAVE
JC RES2
TASBSLL BYTE SAKE AS LANCASTER BIT.
CALL RBSI
HAVE A ZERO LOOK FOR ONES
INR A
JNZ RBS2
MVI A , 2OK
CUT CNT
;ALL SET, SET TO GET BYTES FROM NOW ON
SET
IN CNT
ANI 4
JZ RES1
IN CRI
RET
IN CNT
;GET BYTE AFTER NEXT BIT SHIFT
ANI 4
JZ GBIT
LDA TYPF
ANA A
IN CRI
RZ
/•RETURN ON TARBELL
ADI 1
;CONVERT TO 1 OR 0 BIT
MOV A,D
RAL
; ADD TO 3YTE
MOV D,A
RET
IN CNT
,-WAIT TIL READY
ANI 4
JZ GBYT
LDA TYPF
;CHECK MODE
ANA A
JNZ GBYTl
IN CRI
;TARBELL, JUST READ BYTE
RET
PUSH H
;LANCASTER NEED TO ASSEMBLE A BYTE
MVI H,7
IN CRI
;FIRST BIT
MOV □, A
CALL RBSI
,-GET NEXT TARBELL 3YTE=LANCASTER BIT
ADI 1
MOV A, D
RAL
MOV D,A
BYTE
DCR H
JNZ GBYT2
POP H
RET
PAGE 7
Advertisement
