/ APDL Public Domain 1 / APDL_PD1A.iso / graphics / display / multi / !Multi / DoubleSrc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 44 6f 75 62 6c 65 53 72 |..... > |DoubleSr|
|00000010| 63 0d 00 14 3c f4 20 4d | 6f 64 75 6c 65 20 74 68 |c...<. M|odule th|
|00000020| 61 74 20 70 72 6f 76 69 | 64 65 73 20 63 6f 6d 6d |at provi|des comm|
|00000030| 61 6e 64 20 27 44 6f 75 | 62 6c 65 4d 6f 64 65 20 |and 'Dou|bleMode |
|00000040| 3c 6d 6f 64 65 3e 27 20 | 77 68 69 63 68 0d 00 1e |<mode>' |which...|
|00000050| 3d f4 20 74 72 69 65 73 | 20 74 6f 20 72 65 73 65 |=. tries| to rese|
|00000060| 72 76 65 20 61 74 20 6c | 65 61 73 74 20 64 6f 75 |rve at l|east dou|
|00000070| 62 6c 65 20 74 68 65 20 | 73 63 72 65 65 6e 20 6d |ble the |screen m|
|00000080| 65 6d 6f 72 79 20 75 73 | 65 64 0d 00 28 40 f4 20 |emory us|ed..(@. |
|00000090| 62 79 20 3c 6d 6f 64 65 | 3e 2e 20 4e 6f 74 65 20 |by <mode|>. Note |
|000000a0| 74 68 61 74 20 74 68 69 | 73 20 77 69 6c 6c 20 6f |that thi|s will o|
|000000b0| 6e 6c 79 20 65 6e 6c 61 | 72 67 65 20 73 63 72 65 |nly enla|rge scre|
|000000c0| 65 6e 20 6d 65 6d 6f 72 | 79 2c 0d 00 32 3f f4 20 |en memor|y,..2?. |
|000000d0| 6e 6f 74 20 73 68 72 69 | 6e 6b 20 69 74 2c 20 73 |not shri|nk it, s|
|000000e0| 6f 20 44 6f 75 62 6c 65 | 4d 6f 64 65 20 31 20 77 |o Double|Mode 1 w|
|000000f0| 68 65 6e 20 69 6e 20 6d | 6f 64 65 20 31 32 20 77 |hen in m|ode 12 w|
|00000100| 69 6c 6c 20 6c 65 61 76 | 65 0d 00 3c 1f f4 20 74 |ill leav|e..<.. t|
|00000110| 68 65 20 73 63 72 65 65 | 6e 20 6d 65 6d 6f 72 79 |he scree|n memory|
|00000120| 20 61 74 20 38 30 4b 2e | 0d 00 46 36 f4 20 55 73 | at 80K.|..F6. Us|
|00000130| 65 66 75 6c 20 66 6f 72 | 20 61 6e 79 20 70 72 6f |eful for| any pro|
|00000140| 67 72 61 6d 20 74 68 61 | 74 20 75 73 65 73 20 73 |gram tha|t uses s|
|00000150| 63 72 65 65 6e 20 62 61 | 6e 6b 69 6e 67 2e 0d 00 |creen ba|nking...|
|00000160| 50 28 f4 20 20 20 20 20 | 20 20 42 72 79 61 6e 20 |P(.     |  Bryan |
|00000170| 48 6f 67 61 6e 2e 20 20 | 33 30 74 68 20 4f 63 74 |Hogan.  |30th Oct|
|00000180| 20 31 39 39 31 2e 0d 00 | 5a 04 0d 00 64 10 de 20 | 1991...|Z...d.. |
|00000190| 63 6f 64 65 25 20 26 32 | 30 30 0d 00 6e 15 e3 20 |code% &2|00..n.. |
|000001a0| 70 61 73 73 25 3d 30 20 | b8 20 33 20 88 20 33 0d |pass%=0 |. 3 . 3.|
|000001b0| 00 78 0c 50 25 3d 63 6f | 64 65 25 0d 00 82 0e 5b |.x.P%=co|de%....[|
|000001c0| 4f 50 54 20 70 61 73 73 | 25 0d 00 8c 0a 45 51 55 |OPT pass|%....EQU|
|000001d0| 44 20 30 0d 00 96 0a 45 | 51 55 44 20 30 0d 00 a0 |D 0....E|QUD 0...|
|000001e0| 0a 45 51 55 44 20 30 0d | 00 aa 0a 45 51 55 44 20 |.EQUD 0.|...EQUD |
|000001f0| 30 0d 00 b4 15 45 51 55 | 44 20 74 69 74 6c 65 25 |0....EQU|D title%|
|00000200| 2d 63 6f 64 65 25 0d 00 | be 14 45 51 55 44 20 68 |-code%..|..EQUD h|
|00000210| 65 6c 70 25 2d 63 6f 64 | 65 25 0d 00 c8 17 45 51 |elp%-cod|e%....EQ|
|00000220| 55 44 20 63 6f 6d 6d 61 | 6e 64 25 2d 63 6f 64 65 |UD comma|nd%-code|
|00000230| 25 0d 00 d2 0a 45 51 55 | 44 20 30 0d 00 dc 0a 45 |%....EQU|D 0....E|
|00000240| 51 55 44 20 30 0d 00 e6 | 0a 45 51 55 44 20 30 0d |QUD 0...|.EQUD 0.|
|00000250| 00 f0 0a 45 51 55 44 20 | 30 0d 00 fa 04 0d 01 04 |...EQUD |0.......|
|00000260| 0b 2e 74 69 74 6c 65 25 | 0d 01 0e 15 45 51 55 53 |..title%|....EQUS|
|00000270| 20 22 44 6f 75 62 6c 65 | 4d 6f 64 65 22 0d 01 18 | "Double|Mode"...|
|00000280| 0a 45 51 55 42 20 30 0d | 01 22 09 41 4c 49 47 4e |.EQUB 0.|.".ALIGN|
|00000290| 0d 01 2c 04 0d 01 36 0a | 2e 68 65 6c 70 25 0d 01 |..,...6.|.help%..|
|000002a0| 40 16 45 51 55 53 20 22 | 44 6f 75 62 6c 65 20 4d |@.EQUS "|Double M|
|000002b0| 6f 64 65 22 0d 01 4a 0a | 45 51 55 42 20 39 0d 01 |ode"..J.|EQUB 9..|
|000002c0| 54 1d 45 51 55 53 20 22 | 31 2e 30 31 20 28 33 30 |T.EQUS "|1.01 (30|
|000002d0| 20 4f 63 74 20 31 39 39 | 31 29 22 0d 01 5e 0a 45 | Oct 199|1)"..^.E|
|000002e0| 51 55 42 20 30 0d 01 68 | 09 41 4c 49 47 4e 0d 01 |QUB 0..h|.ALIGN..|
|000002f0| 72 04 0d 01 7c 0d 2e 63 | 6f 6d 6d 61 6e 64 25 0d |r...|..c|ommand%.|
|00000300| 01 86 15 45 51 55 53 20 | 22 44 6f 75 62 6c 65 4d |...EQUS |"DoubleM|
|00000310| 6f 64 65 22 0d 01 90 0a | 45 51 55 42 20 30 0d 01 |ode"....|EQUB 0..|
|00000320| 9a 09 41 4c 49 47 4e 0d | 01 a4 16 45 51 55 44 20 |..ALIGN.|...EQUD |
|00000330| 64 6f 75 62 6c 65 25 2d | 63 6f 64 65 25 0d 01 ae |double%-|code%...|
|00000340| 12 45 51 55 44 20 26 30 | 30 30 31 30 30 30 31 0d |.EQUD &0|0010001.|
|00000350| 01 b8 0a 45 51 55 44 20 | 30 0d 01 c2 1a 45 51 55 |...EQUD |0....EQU|
|00000360| 44 20 64 6f 75 62 6c 65 | 68 65 6c 70 25 2d 63 6f |D double|help%-co|
|00000370| 64 65 25 0d 01 cc 0a 45 | 51 55 44 20 30 0d 01 d6 |de%....E|QUD 0...|
|00000380| 04 0d 01 e0 10 2e 64 6f | 75 62 6c 65 68 65 6c 70 |......do|ublehelp|
|00000390| 25 0d 01 ea 5b 45 51 55 | 53 20 22 44 6f 75 62 6c |%...[EQU|S "Doubl|
|000003a0| 65 4d 6f 64 65 20 3c 6d | 6f 64 65 3e 20 61 74 74 |eMode <m|ode> att|
|000003b0| 65 6d 70 74 73 20 74 6f | 20 63 6c 61 69 6d 20 64 |empts to| claim d|
|000003c0| 6f 75 62 6c 65 20 74 68 | 65 20 73 63 72 65 65 6e |ouble th|e screen|
|000003d0| 20 6d 65 6d 6f 72 79 20 | 72 65 71 75 69 72 65 64 | memory |required|
|000003e0| 20 62 79 20 3c 6d 6f 64 | 65 3e 2e 22 0d 01 f4 0a | by <mod|e>."....|
|000003f0| 45 51 55 42 20 30 0d 01 | fe 09 41 4c 49 47 4e 0d |EQUB 0..|..ALIGN.|
|00000400| 02 08 04 0d 02 12 0c 2e | 64 6f 75 62 6c 65 25 0d |........|double%.|
|00000410| 02 1c 1d 53 54 4d 46 44 | 20 20 20 52 31 33 21 2c |...STMFD|   R13!,|
|00000420| 20 7b 52 30 2d 52 33 2c | 52 31 34 7d 0d 02 26 3e | {R0-R3,|R14}..&>|
|00000430| 4d 4f 56 20 20 20 20 20 | 52 31 2c 52 30 20 20 20 |MOV     |R1,R0   |
|00000440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000450| 20 3b 20 50 6f 69 6e 74 | 65 72 20 74 6f 20 63 6f | ; Point|er to co|
|00000460| 6d 6d 61 6e 64 20 74 61 | 69 6c 0d 02 30 17 4d 4f |mmand ta|il..0.MO|
|00000470| 56 20 20 20 20 20 52 30 | 2c 23 28 31 3c 3c 32 39 |V     R0|,#(1<<29|
|00000480| 29 0d 02 3a 41 4d 4f 56 | 20 20 20 20 20 52 32 2c |)..:AMOV|     R2,|
|00000490| 23 31 32 37 20 20 20 20 | 20 20 20 20 20 20 20 20 |#127    |        |
|000004a0| 20 20 20 20 20 20 3b 20 | 4c 69 6d 69 74 20 6d 6f |      ; |Limit mo|
|000004b0| 64 65 20 6e 75 6d 62 65 | 72 20 74 6f 20 30 2d 31 |de numbe|r to 0-1|
|000004c0| 32 37 0d 02 44 3c 53 57 | 49 20 20 20 20 20 22 58 |27..D<SW|I     "X|
|000004d0| 4f 53 5f 52 65 61 64 55 | 6e 73 69 67 6e 65 64 22 |OS_ReadU|nsigned"|
|000004e0| 20 20 20 20 20 20 20 3b | 20 4e 75 6d 62 65 72 20 |       ;| Number |
|000004f0| 72 65 74 75 72 6e 65 64 | 20 69 6e 20 52 32 0d 02 |returned| in R2..|
|00000500| 4e 11 4d 4f 56 20 20 20 | 20 20 52 30 2c 52 32 0d |N.MOV   |  R0,R2.|
|00000510| 02 58 11 4d 4f 56 20 20 | 20 20 20 52 31 2c 23 37 |.X.MOV  |   R1,#7|
|00000520| 0d 02 62 38 53 57 49 20 | 20 20 20 20 22 58 4f 53 |..b8SWI |    "XOS|
|00000530| 5f 52 65 61 64 4d 6f 64 | 65 56 61 72 69 61 62 6c |_ReadMod|eVariabl|
|00000540| 65 22 20 20 20 3b 20 53 | 63 72 65 65 6e 20 73 69 |e"   ; S|creen si|
|00000550| 7a 65 20 69 6e 20 52 32 | 0d 02 6c 38 4d 4f 56 20 |ze in R2|..l8MOV |
|00000560| 20 20 20 20 52 30 2c 23 | 32 20 20 20 20 20 20 20 |    R0,#|2       |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 32 |        |     ; 2|
|00000580| 20 3d 20 53 63 72 65 65 | 6e 20 6d 65 6d 6f 72 79 | = Scree|n memory|
|00000590| 0d 02 76 40 53 57 49 20 | 20 20 20 20 22 58 4f 53 |..v@SWI |    "XOS|
|000005a0| 5f 52 65 61 64 44 79 6e | 61 6d 69 63 41 72 65 61 |_ReadDyn|amicArea|
|000005b0| 22 20 20 20 20 3b 20 43 | 75 72 72 65 6e 74 20 73 |"    ; C|urrent s|
|000005c0| 63 72 65 65 6e 20 73 69 | 7a 65 20 69 6e 20 52 31 |creen si|ze in R1|
|000005d0| 0d 02 80 40 52 53 42 53 | 20 20 20 20 52 31 2c 52 |...@RSBS|    R1,R|
|000005e0| 31 2c 52 32 2c 4c 53 4c | 20 23 31 20 20 20 20 20 |1,R2,LSL| #1     |
|000005f0| 20 20 20 20 20 3b 20 43 | 61 6c 63 75 6c 61 74 65 |     ; C|alculate|
|00000600| 20 63 68 61 6e 67 65 20 | 72 65 71 75 69 72 65 64 | change |required|
|00000610| 0d 02 8a 3f 4c 44 4d 4c | 45 46 44 20 52 31 33 21 |...?LDML|EFD R13!|
|00000620| 2c 20 7b 52 30 2d 52 33 | 2c 50 43 7d 20 20 20 20 |, {R0-R3|,PC}    |
|00000630| 20 20 20 20 20 3b 20 45 | 78 69 74 20 69 66 20 6e |     ; E|xit if n|
|00000640| 6f 20 63 68 61 6e 67 65 | 20 6e 65 65 64 65 64 0d |o change| needed.|
|00000650| 02 94 11 4d 4f 56 20 20 | 20 20 20 52 30 2c 23 32 |...MOV  |   R0,#2|
|00000660| 0d 02 9e 3a 53 57 49 20 | 20 20 20 20 22 58 4f 53 |...:SWI |    "XOS|
|00000670| 5f 43 68 61 6e 67 65 44 | 79 6e 61 6d 69 63 41 72 |_ChangeD|ynamicAr|
|00000680| 65 61 22 20 20 3b 20 53 | 65 74 20 6e 65 77 20 73 |ea"  ; S|et new s|
|00000690| 63 72 65 65 6e 20 73 69 | 7a 65 0d 02 a8 41 43 4d |creen si|ze...ACM|
|000006a0| 50 20 20 20 20 20 52 31 | 2c 23 30 20 20 20 20 20 |P     R1|,#0     |
|000006b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|000006c0| 20 49 66 20 63 68 61 6e | 67 65 3d 30 20 74 68 65 | If chan|ge=0 the|
|000006d0| 6e 20 69 74 20 66 61 69 | 6c 65 64 0d 02 b2 31 4c |n it fai|led...1L|
|000006e0| 44 4d 4e 45 46 44 20 52 | 31 33 21 2c 20 7b 52 30 |DMNEFD R|13!, {R0|
|000006f0| 2d 52 33 2c 50 43 7d 20 | 20 20 20 20 20 20 20 20 |-R3,PC} |        |
|00000700| 3b 20 45 78 69 74 20 69 | 66 20 4f 4b 0d 02 bc 43 |; Exit i|f OK...C|
|00000710| 4c 44 4d 46 44 20 20 20 | 52 31 33 21 2c 20 7b 52 |LDMFD   |R13!, {R|
|00000720| 30 2d 52 33 2c 52 31 34 | 7d 20 20 20 20 20 20 20 |0-R3,R14|}       |
|00000730| 20 3b 20 4f 74 68 65 72 | 77 69 73 65 20 73 65 74 | ; Other|wise set|
|00000740| 20 75 70 20 65 72 72 6f | 72 20 62 6c 6f 63 6b 0d | up erro|r block.|
|00000750| 02 c6 1a 41 44 52 20 20 | 20 20 20 52 30 2c 65 72 |...ADR  |   R0,er|
|00000760| 72 6f 72 62 6c 6f 63 6b | 25 0d 02 d0 3a 84 52 53 |rorblock|%...:.RS|
|00000770| 20 20 20 20 50 43 2c 52 | 31 34 2c 23 28 31 3c 3c |    PC,R|14,#(1<<|
|00000780| 32 38 29 20 20 20 20 20 | 20 20 20 20 20 3b 20 52 |28)     |     ; R|
|00000790| 65 74 75 72 6e 20 65 72 | 72 6f 72 20 28 56 20 73 |eturn er|ror (V s|
|000007a0| 65 74 29 0d 02 da 04 0d | 02 e4 10 2e 65 72 72 6f |et).....|....erro|
|000007b0| 72 62 6c 6f 63 6b 25 0d | 02 ee 4e 45 51 55 44 20 |rblock%.|..NEQUD |
|000007c0| 32 35 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |25      |        |
|000007d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 53 61 |        |    ; Sa|
|000007e0| 6d 65 20 65 72 72 6f 72 | 20 6e 75 6d 62 65 72 20 |me error| number |
|000007f0| 61 73 20 42 61 73 69 63 | 27 73 20 22 42 61 64 20 |as Basic|'s "Bad |
|00000800| 4d 6f 64 65 22 0d 02 f8 | 25 45 51 55 53 20 22 49 |Mode"...|%EQUS "I|
|00000810| 6e 73 75 66 66 69 63 69 | 65 6e 74 20 73 63 72 65 |nsuffici|ent scre|
|00000820| 65 6e 20 6d 65 6d 6f 72 | 79 22 0d 03 02 0a 45 51 |en memor|y"....EQ|
|00000830| 55 42 20 30 0d 03 0c 05 | 5d 0d 03 16 05 ed 0d 03 |UB 0....|].......|
|00000840| 20 28 ff 22 53 41 56 45 | 20 44 6f 75 62 6c 65 4d | (."SAVE| DoubleM|
|00000850| 6f 64 65 20 22 2b c3 7e | 63 6f 64 65 25 2b 22 20 |ode "+.~|code%+" |
|00000860| 22 2b c3 7e 50 25 0d 03 | 2a 1e 2a 53 45 54 54 59 |"+.~P%..|*.*SETTY|
|00000870| 50 45 20 44 6f 75 62 6c | 65 4d 6f 64 65 20 4d 6f |PE Doubl|eMode Mo|
|00000880| 64 75 6c 65 0d ff       |                         |dule..  |        |
+--------+-------------------------+-------------------------+--------+--------+