Skip to main content
Home Documents Macintosh M0110a 341 0322a.Txt
M0110a 341 0322a.Txt

M0110a 341 0322a.Txt

Filenamem0110a_341-0322a.txt
Size0.05 MB
Subsection keyboard / M0110A
Downloads2
Contents
; Date: Tue May 05 18:01:12 2020 ; ; CPU: Intel 8048 (MCS-48 family) ; ; ; org 00000H ; 0000 L0000: 0000 : E5 " " sel mb0 0001 : 04 1A " " jmp L001A ; 0003 : E5 " " sel mb0 0004 : 04 1A " " jmp L001A ; 0006 : 00 " " nop 0007 : E5 " " sel mb0 0008 : 14 32 " 2" call L0032 000A : 76 00 "v " jf1 L0000 000C : B5 " " cpl f1 000D : D5 " " sel rb1 000E : B8 29 " )" mov r0,#029H 0010 : A0 " " mov @r0,a 0011 : 23 5D "#]" mov a,#05DH 0013 : 62 "b" mov t,a 0014 : FC " " mov a,r4 0015 : C6 18 " " jz L0018 0017 : CC " " dec r4 0018 L0018: 0018 : 04 34 " 4" jmp L0034 ; 001A L001A: 001A : 15 " " dis i 001B : 85 " " clr f0 001C : A5 " " clr f1 001D : C5 " " sel rb0 001E : 23 FF "# " mov a,#0FFH 0020 : 39 "9" outl p1,a 0021 : 3A ":" outl p2,a 0022 : 27 "'" clr a 0023 : D7 " " mov psw,a 0024 : B8 3F " ?" mov r0,#03FH 0026 L0026: 0026 : A0 " " mov @r0,a 0027 : E8 26 " &" djnz r0,L0026 0029 : 14 32 " 2" call L0032 002B : 23 5D "#]" mov a,#05DH 002D : 62 "b" mov t,a 002E : 25 "%" en tcnti 002F : 55 "U" strt t 0030 : 24 02 "$ " jmp L0102 0032 L0032: 0032 : 93 " " retr ; 0033 : 00 " " nop 0034 L0034: 0034 : B8 28 " (" mov r0,#028H 0036 : F0 " " mov a,@r0 0037 : 96 5F " _" jnz L005F 0039 : 8A 80 " " orl p2,#080H 003B : 0A " " in a,p2 0…

Showing first 3,000 characters of 47,641 total. Open the full document →

MacTrove — a free archive of classic Macintosh software. Files mirrored from ftp.funet.fi/pub/mac (info-mac + funet legacy). All software provided for historical preservation.