NorthStar_Computers : Message: Re: N* Horizon Project Update -

Why not store it in the files section of this group?

Allison

--- In NorthStar_Computers@yahoogroups.com, billdeg@... wrote:
>
>
> I have ported the code into MS Word format and uploaded to
http://www.vintagecomputer.net/northstar/
>
> NOTE: There was one colon that I changed to a semi-colon from the
original.Ā Also, the proportional spacing in Word did not translate
some of the data columns perfectly, but this can be cleaned up.
>
> Bill
>
>
>
>
>
>
>
> -----Original Message-----
> From: Bill Sudbrink <wh.sudbrink@...>
> To: NorthStar_Computers@yahoogroups.com
> Sent: Sun, 4 Jan 2009 12:21 am
> Subject: RE: [NorthStar_Computers] N* Horizon Project Update -
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Stinking yahoo wrapped the disassembly... unwrap any lines
> that
>
>
> don't
> start with an address or a semicolon.
>
>
> Ā
>
>
>
>
> -----Original Message-----
> From:
> NorthStar_Computers@yahoogroups.com
> [mailto:NorthStar_Computers@yahoogroups.com]On Behalf Of Bill
> Sudbrink
> Sent: Sunday, January 04, 2009 12:00 AM
> To:
> NorthStar_Computers@yahoogroups.com
> Subject: RE:
> [NorthStar_Computers] N* Horizon Project Update -
>
>
>
>
>
>
>
>
>
> That
> is not correct.Ā The boot address for an mds-ad3 is e800.Ā I
> use
>
>
> one
> in my SOL.Ā 'ex e800' boots it.
>
>
> Ā
>
>
> When
> you say "both drives spin", does either access LED light?
>
>
> If
> both or neither do, you have a drive address conflict.Ā 20
> seconds
>
>
> is
> about right for the access loop to time out.Ā It is watching
> for
>
>
> the
> index pulse and for the sector marks.Ā 20I'm sure you know
> it
>
>
> needs hard sectored floppies.
>
>
> Ā
>
>
> I
> did a hand disassembly of the ROM on my ad3... here it is:
>
>
> Ā
>
>
> E800Ā 0E 0AĀ Ā Ā Ā Ā MVI C, 0AHĀ Ā ;
> total number of retries (10)
> E802Ā 3A 15 EBĀ Ā LDA
> EB15Ā Ā Ā Ā ; controller command
> 15H:
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā get A status, turn on
> motors
> E805Ā 16 30Ā Ā Ā Ā Ā MVI D,
> 30HĀ Ā ; parameter to function
> call:
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā number of sectors to wait
> (48)
> E807Ā 21 0D E8Ā Ā LXI H, E80DĀ ; store return
> address in H, L
> E80AĀ C3 D3 E8Ā Ā JMP
> E8D3Ā Ā Ā Ā ; "call" function to wait for D
> sectors
> E80DĀ 3A 01 EAĀ Ā LDA EA01Ā Ā Ā Ā ;
> controller order
> 01H:
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā single
> density,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā side
> 0,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā step direction
> out,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā head step signal
> low,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā select drive 1
> E810Ā
> 21 16 E8Ā Ā LXI H, E816Ā ; store return address in H,
> L
> E813Ā C3 4D E8Ā Ā JMP E84DĀ Ā Ā Ā ; "call"
> function to wait for 2 sectors
> E816Ā 06
> 0CĀ Ā Ā Ā Ā MVI B, 0CHĀ Ā ; loop counter, loop
> 12 times
> E818Ā 21 1E E8Ā Ā LXI H, E81EĀ ; store return
> address in H, L
> E81BĀ C3 D1 E8Ā Ā JMP
> E8D1Ā Ā Ā Ā ; "call" function to wait for 1
> sector
> E81EĀ 3A 10 EBĀ Ā LDA EB10Ā Ā Ā Ā ;
> controller command
> 10H:
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā get A status, no
> command
> E821Ā E6 40Ā Ā 0Ā Ā ANI
> 40HĀ Ā Ā Ā Ā ; is the index flag bit set?
> E823Ā
> C2 2D E8Ā Ā JNZ E82DĀ Ā Ā Ā ; jump if we got the
> index flag
> E826Ā 05Ā Ā Ā Ā Ā Ā Ā Ā
> DCR BĀ Ā Ā Ā Ā Ā Ā ; decrement the loop
> count
> E827Ā C2 18 E8Ā Ā JNZ E818Ā Ā Ā Ā ;
> try again if there are tries remaining
> E82AĀ C3 2A E8Ā Ā JMP
> E82AĀ Ā Ā Ā ; STOP HERE!!!!Ā loop here
> forever
>
>
> Ā
>
>
> ;
> the following three instructions step the head in one track
> E82DĀ 3A
> 21 EAĀ Ā LDA EA21Ā Ā Ā Ā ; controller order
> 21H
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā single
> density,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā side
> 0,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā step direction
> in,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā head step signal
> low,
>
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā select drive 1
> E830Ā
> 3A 31 EAĀ Ā LDA EA31Ā Ā Ā Ā ; controller order
> 21H
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā single
> density,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā side
> 0,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā step direction
> in,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā head step signal
> high,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā select drive 1
> E833Ā
> 3A 21 EAĀ Ā LDA EA21Ā Ā Ā Ā ; controller order
> 21H
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā A
> 0Ā Ā Ā Ā Ā single
> density,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā side
> 0,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā step direction
> in,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā head step signal
> low,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā select drive
> 1
>
>
> Ā
>
>
> E836Ā C3 4A E8Ā Ā JMP E84AĀ Ā Ā Ā ;
> "call" function to wait for 2 sectors
> E839Ā 3A 20 EBĀ Ā LDA
> EB20Ā Ā Ā Ā ; controller command
> 20H:
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā get B status, no
> operation
> E83CĀ E6 01Ā Ā Ā Ā Ā ANI
> 01HĀ Ā Ā Ā Ā ; is the track zero flag bit
> set
> E83EĀ C2 52 E8Ā Ā JNZ E852Ā Ā Ā Ā ; if
> we're on track
> zero,
> Ā Ā Ā Ā C2Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā jump out of the step out
> loop
>
>
> Ā
>
>
> ;
> the following three instructions step the head out one track
> E841Ā 3A
> 01 EAĀ Ā LDA EA01Ā Ā Ā Ā ; controller order
> 01H
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā single
> density,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā side
> 0,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā step direction
> out,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā head step signal
> low,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā select drive 1
> E844Ā
> 3A 11 EAĀ Ā LDA EA11Ā Ā Ā Ā ; controller order
> 01H
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā C2Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā single
> density,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā side
> 0,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā step direction
> out,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā head step signal
> high,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā select drive 1
> E847Ā
> 3A 01 EAĀ Ā LDA EA01Ā Ā Ā Ā ; controller order
> 01H
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā single
> density,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā side
> 0,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā step direction
> out,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā head step signal
> low,
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā select drive
> 1
>
>
> Ā
>
>
> E84AĀ 21 39 E8Ā Ā LXI H, E839Ā ; load return address
> to above
> address
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā (pretty funky, implements
> loop)
> E84DĀ 16 02Ā Ā Ā Ā Ā MVI D, 02HĀ Ā
> ; parameter to function
> call:
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā number of sectors to wait
> (2)
> E84FĀ C3 D3 E8Ā Ā JMP E8D3Ā Ā Ā Ā ;
> "call" function to wait for D sectors
>
>
> Ā
>
>
> ;
> we're now on track zero
> E852Ā 21 58 E8Ā Ā LXI H, E858Ā ;
> load return address in H, L
> E855Ā C3 D1 E8Ā Ā JMP
> E8D1Ā Ā Ā Ā ; "call" function to wait for 1
>
> sector
> E858Ā 3A 35 EBĀ Ā LDA EB35Ā Ā Ā Ā ;
> controller command
> 35H:
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā get C status, turn on
> motors
> E85BĀ E6 0FĀ Ā Ā Ā Ā ANI
> 0FHĀ Ā Ā Ā Ā ; mask off the sector counter
> E85DĀ
> FE 04Ā Ā Ā Ā Ā CPI 04HĀ Ā Ā Ā Ā ;
> are we on sector 4?
> E85FĀ C2 52 E8Ā Ā JNZ
> E852Ā Ā Ā Ā ; loop to look for sector 4
> E862Ā 3A 10
> EBĀ Ā LDA EB10Ā Ā Ā Ā ; controller command
> 10H:
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā get A status, no
> operation
> E865Ā E6 04Ā Ā Ā Ā Ā ANI
> 04HĀ Ā Ā Ā Ā ; see if read enabled (phase locked
> loop?)
> E867Ā CA 62 E8Ā Ā JZ
> E862Ā Ā Ā Ā Ā ; loop while we can't read
> E86AĀ 3E
> 09Ā Ā Ā Ā Ā MVI A, 09HĀ Ā ; timing loop
> counter
> E86CĀ 3DĀ Ā Ā Ā Ā Ā Ā Ā DCR
> AĀ Ā Ā Ā Ā Ā Ā ; decrement timing loop
> counter
> E86DĀ C2 6C E8Ā Ā JNZ E86CĀ Ā Ā Ā ;
> timing loop jump
> E870Ā 3A 10 EBĀ Ā LDA
>
> EB10Ā Ā Ā Ā ; controller command
> 10H:
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā get A status, no
> operation
> E873Ā E6 20Ā Ā Ā Ā Ā ANI
> 20HĀ Ā Ā Ā Ā ; is the double density flag bit
> set
> E875Ā C2 97 E8Ā Ā JNZ E897Ā Ā Ā Ā ; jump
> if we're double density
>
>
> Ā
>
>
> ;
> the following three instructions step the head in one track
> E878Ā 3A
> 21 EAĀ Ā LDA EA21
> E87BĀ 3A 31 EAĀ Ā LDA
> EA31
> E87EĀ 3A 21 EAĀ Ā LDA EA21
>
>
> Ā
>
>
> E881Ā 21 87 E8Ā Ā LXI H, E887Ā ; set the return
> address
> E884Ā C3 4D E8Ā Ā JMP E84DĀ Ā Ā Ā ;
> "call" the function to wait for two sectors
> E887Ā 21 8D E8Ā Ā
> LXI H, E88DĀ ; set the return address
> E88AĀ C3 D1 E8Ā Ā
> JMP E8D1Ā Ā Ā Ā ; "call" the function to wait for 1
> sector
> E88DĀ 3A 35 EBĀ Ā LDA EB35Ā Ā Ā Ā ;
> controller command
> 35H:
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā get C status, turn on
> motors
> E890Ā E6 0FĀ Ā Ā Ā Ā ANI
> 0FHĀ Ā Ā Ā Ā ; mask off20the sector counter
> E892Ā
> FE 08Ā Ā Ā Ā Ā CPI 08HĀ Ā Ā Ā Ā ;
> are we on sector 8?
> E894Ā C2 87 E8Ā Ā JNZ
> E887Ā Ā Ā Ā ; loop to look for sector 8
>
>
> Ā
>
>
> E897Ā 06 8CĀ Ā Ā Ā Ā MVI B, 8CHĀ Ā ;
> loop count to skip header block (140)
> E899Ā 11 40 EBĀ Ā LXI
> D, EB40Ā ; load D and E with controller command
> 40H:
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā read data, no
> operation
> E89CĀ 3A 10 EBĀ Ā LDA EB10Ā Ā Ā Ā
> ; controller command
> 10H:
> Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā Ā
> ;Ā Ā Ā Ā Ā Ā Ā Ā get A status, no
> operation
> E89FĀ 0FĀ Ā Ā Ā Ā Ā Ā Ā
> RRCĀ Ā Ā Ā Ā Ā Ā Ā Ā ; rotate the body
> flag bit into the carry flag
> E8A0Ā DA AE E8Ā Ā JC
> E8AEĀ Ā Ā Ā Ā ; jump if we're in the body
> E8A3Ā
> 05Ā Ā Ā Ā Ā Ā Ā Ā DCR
> BĀ Ā Ā Ā Ā Ā Ā ; decrement loop
> counter
> E8A4Ā C2 9C E8Ā Ā JNZ E89CĀ Ā Ā Ā ;
> check for the body again
> E8A7Ā
> 0DĀ Ā Ā Ā Ā Ā Ā Ā DCR 0A CĀ Ā Ā Ā Ā Ā Ā ; decrement the number
of major
> retries and...
> E8A8Ā C2 2D E8Ā Ā JNZ
> E82DĀ Ā Ā Ā ; start the whole thing again if we have any
> retries left
> E8ABĀ C3 AB E8Ā Ā JMP
> E8ABĀ Ā Ā Ā ; STOP HERE!!!!Ā loop here
> forever
> E8AEĀ 1AĀ Ā Ā Ā Ā Ā Ā Ā LDAX
> DĀ Ā Ā Ā Ā Ā ; read a byte into A (read command
> loaded into D, E above)
> E8AFĀ
> 67Ā Ā Ā Ā Ā Ā Ā Ā MOV H,
> AĀ Ā Ā Ā ; move the read byte into H
> E8B0Ā 2E
> 01Ā Ā Ā Ā Ā MVI L, 01HĀ Ā : set L to
> 1
> E8B2Ā 77Ā Ā Ā Ā Ā Ā Ā Ā MOV M,
> AĀ Ā Ā Ā ; store the read byte into <byte>01H
> (overwritten by E8B6)
> E8B3Ā
> 07Ā Ā Ā Ā Ā Ā Ā Ā
> RLCĀ Ā Ā Ā Ā Ā Ā Ā Ā ; start calculating
> the check character
> E8B4Ā
> 47Ā Ā Ā Ā Ā Ā Ā Ā MOV B,
> AĀ Ā Ā Ā ; store the check character in B
> E8B5Ā
> 1AĀ Ā Ā Ā Ā Ā Ā Ā LDAX
> DĀ Ā Ā Ā Ā Ā ; read the next byte
> E8B6Ā
> 77Ā Ā Ā Ā Ā Ā Ā Ā MOV M,
> AĀ Ā Ā Ā ; store the byte
> E8B7Ā
> A8Ā Ā Ā Ā Ā Ā Ā Ā XRA
> BĀ Ā Ā Ā Ā Ā Ā ; continue check character
> calc
> E8B8Ā 070Ā Ā Ā Ā Ā Ā Ā
> RLCĀ Ā Ā Ā Ā Ā Ā Ā Ā ; continue check
> character calc
> E8B9Ā
> 47Ā Ā Ā Ā Ā Ā Ā Ā MOV B,
> AĀ Ā Ā Ā ; store the check character in B
> E8BAĀ
> 2CĀ Ā Ā Ā Ā Ā Ā Ā INR
> LĀ Ā Ā Ā Ā Ā Ā ; increment memory
> address
> E8BBĀ C2 B5 E8Ā Ā JNZ E8B5Ā Ā Ā Ā ;
> reading all 256 bytes (loop if more)
> E8BEĀ
> 24Ā Ā Ā Ā Ā Ā Ā Ā INR
> HĀ Ā Ā Ā Ā Ā Ā ; next 256 bytes...
> E8BFĀ
> 1AĀ Ā Ā Ā Ā Ā Ā Ā LDAX
> DĀ Ā Ā Ā Ā Ā ; read the next byte
> E8C0Ā
> 77Ā Ā Ā Ā Ā Ā Ā Ā MOV M,
> AĀ Ā Ā Ā ; store the byte
> E8C1Ā
> A8Ā Ā Ā Ā Ā Ā Ā Ā XRA
> BĀ Ā Ā Ā Ā Ā Ā ; continue check character
> calc
> E8C2Ā 07Ā Ā Ā Ā Ā Ā Ā Ā
> RLCĀ Ā Ā Ā Ā Ā Ā Ā Ā ; continue check
> character calc
> E8C3Ā
> 47Ā Ā Ā Ā Ā Ā Ā Ā MOV B,
> AĀ Ā Ā Ā ; store the check character in B
> E8C4Ā
> 2CĀ Ā Ā Ā Ā Ā Ā Ā INR
> LĀ Ā Ā Ā Ā Ā Ā ; increment memory
> address
> E8C5Ā C2 BF E8Ā Ā JNZ E8BFĀ Ā Ā Ā ;
> reading all 256 bytes (loop if more)
> E8C8Ā
> 1AĀ Ā Ā Ā
> Ā Ā Ā LDAX
> DĀ Ā Ā Ā Ā Ā ; read the check character
> E8C9Ā
> A8Ā Ā Ā Ā Ā Ā Ā Ā XRA
> BĀ Ā Ā Ā Ā Ā Ā ; compare to what we
> calculated
> E8CAĀ C2 A7 E8Ā Ā JNZ E8A7Ā Ā Ā Ā
> ; retry the whole thing if we fail
>
>
> Ā
>
>
> ;
> read success, jump into the code
>
>
> Ā
>
>
> E8CDĀ 25Ā Ā Ā Ā Ā Ā Ā Ā DCR
> HĀ Ā Ā Ā Ā Ā Ā ; back to the first 256
> bytes
> E8CEĀ 2E 0AĀ Ā Ā Ā Ā MVI L, 0AHĀ Ā
> ; offset 10
> E8D0Ā E9Ā Ā Ā Ā Ā Ā Ā Ā
> PCHLĀ Ā Ā Ā Ā Ā Ā Ā ; jump to the read
> code
>
>
> Ā
>
>
> ;
> the following code watches sectors go by
>
>
> Ā
>
>
> E8D1Ā 16 01Ā Ā Ā Ā Ā MVI D, 01HĀ Ā ;
> wait for 1 sector
> E8D3Ā 3A 11 EBĀ Ā LDA
> EB11Ā Ā Ā Ā ; controller command 11H: get A status, reset
> sector flag
> E8D6Ā 3A 10 EBĀ Ā LDA
> EB10Ā Ā Ā Ā ; controller command 10H: get A status, no
> operation
> E8D9Ā B7Ā Ā Ā Ā Ā Ā Ā Ā ORA
> AĀ Ā Ā Ā Ā Ā Ā ; set flags
> E8DAĀ F2 D6
> E8Ā Ā JP E8D6Ā Ā Ā Ā Ā ; loop if the sector flag
> status bit is not set
> E8DDĀ
> 15Ā Ā Ā Ā Ā Ā Ā Ā DCR
> DĀ Ā 0Ā Ā Ā Ā ; decrement the loop
> count
> E8DEĀ 3A 11 EBĀ Ā LDA EB11Ā Ā Ā Ā ;
> controller command 11H: get A status, reset sector flag
> E8E1Ā C2 D3
> E8Ā Ā JNZ E8D3Ā Ā Ā Ā ; loop if the loop count is
> not zero
> E8E4Ā E9Ā Ā Ā Ā Ā Ā Ā Ā
> PCHLĀ Ā Ā Ā Ā Ā Ā Ā ; return (sort
> of)
>
>
> Ā
>
>
> ;
> extra?
> E8E5Ā 00 00 00 00 00 00 00 00 00 00 00
> E8F0Ā 00 00 00
> 00 00 00 00 00 00 00 00 00 00 00 E1 E9
>
>
> Ā
>
>
>
>
> -----Original Message-----
> From:
> NorthStar_Computers@yahoogroups.com
> [mailto:NorthStar_Computers@yahoogroups.com]On Behalf Of
> Chuck Magee
> Sent: Saturday, January 03, 2009 8:08
> PM
> To:
> northstar_computers@yahoogroups.com
> Subject: RE:
> [NorthStar_Computers] N* Horizon Project Update -
>
>
>
>
>
>
> Hmm, the boot address is supposed to be E900,Ā not
> E800!
>
> Ā
>
>
>
>
>
>
> To: NorthStar_Computers@yahoogroups.com
> From:
> billdeg@...
> Date: Sat, 3 Jan 2009 15:04:30 +0000
> Subject:
> [NorthStar_Computers] N* Horizon Project Update -
>
>
>
>
>
>
>
>
> I had written a while back looking for a processor
> card. I got one
> from Bill S (I think he may be a member of this group?)
> Anyway, here
> is a project update. This is a work in progress.
>
> 1)
>
> Not getting 5V to the A drive (less than 2V). Traced the problem
> to the
> 7805 inside heatsink, 6030B, the front-most 7805. I replaced
> the 7805 and
> now I get the correct voltage to everything.
>
> 2) I checked every card,
> they all seem to be getting the correct
> voltages (12 or 5)
>
> ZPB
> processor (also have a ZPB-2)
> MDS-AD3 (also have a MDS)
> IMS 4mhz 16K
> RAM set for top memory (I believe - checking to confirm)
> N* 16K RAM bd
> (8000-Bfff)
> n* 32K RAM bd (0-7fff)
>
> 3) I installed an in-circuit
> z80 emulator to check the memory (read /
> write test) - no errors through
> 7FFF. I can't write to anything above
> that, but the RAM is there, unsure
> why but I assume that this is part
> of an initial lockdown of RAM by
> design, as part of the bootstrap
> process (I have to confirm this). I
> checked location E800 and what
> appears to be bootstrap code is located in
> this location (which is
> where the manual says it should be). I don't at
> the moment have a
> copy of the bootstrap code, but I assume I can find
> this on the web to
> confirm it's loading into memory. Looking for that
> now.
>
> 4) When I power on the machine, both drives spin but neither
> engage
> the boot disk. After maybe 20 seconds the drives stop spinning.
> I
> verified that the drive dip switches were correct from when the
> system
> worked. I a
> lso tried other similar drives (using Tandon 100-2A's).
>
> It's possible that I have the wrong settings,. but this is what
> worked
> before:
> A DRIVE: Tandon 100-2A jumpering TP11's 1st and 3rd
> (facing from the
> front) and inserting a T-RES terminator in TP7
> B
> DRIVE: MPI model 52 with G jumpers on: 2-5-7, terminator installed.
>
> I
> must be getting close. I will let you know if I make more progress.
>
>
> Bill
>
>
>
>
>
>
>
>
> Itā€™s the same HotmailĀ®. If by ā€sameā€¯ you mean up to 70%
faster. Get your account now.
>

Yahoo! Groups Tips

Did you know...

Messages

Yahoo! My Yahoo! Mail
	Sign In New User? Sign Up
		Tech - Groups - Help

Yahoo! Groups Tips

Did you know...

Best of Y! Groups

Messages